/* GCC BASILYS GENERATED FILE warmelt-normal-3.c - DO NOT EDIT */ /* generated on Mon Jul 28 19:42:42 2008 */ #include "run-basilys.h" /**** warmelt-normal-3.c declarations ****/ /**!!** Copyright 2008 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_ADD_NCTX_DATA(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_FILL_INITIAL_PREDEFMAP(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_CREATE_NORMCONTEXT(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_NORMEXP_IDENTICAL(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_NORMEXP_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_6_NORMEXP_SRC_CATCHALL(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_GECTYP_ANYRECV(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_GECTYP_ROOT(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_GECTYP_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_10_GECTYP_STRING(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_NORMALIZE_TUPLE(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_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_13_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_14_WRAP_NORMAL_LETSEQ(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_WRAP_NORMAL_LET1(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_CHECK_CTYPE_NARGS(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_NORMEXP_SYMBOL(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_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_24_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_25_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_26_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_27_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_28_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_29_GECTYP_SYMOCC(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_NORMEXP_PRIMITIVE(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_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_32_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_33_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_34_NORMEXP_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_35_NORMEXP_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_36_NORMEXP_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_37_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_38_NORMEXP_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_39_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_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_NORMEXP_IFELSE(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_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_43_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_44_NORMEXP_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_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_NORMEXP_OR(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_NORMEXP_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_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_NORMEXP_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_53_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_54_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_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_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_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_NORMEXP_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_59_NORMEXP_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_60_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_61_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_62_NORMEXP_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_63_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_64_NORMEXP_MAKE_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_65_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_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_NORMEXP_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_68_NORMEXP_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_69_NORMEXP_COMPILEWARNING(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_REPLACE_LAST_BY_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_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_NORMEXP_DEFUN(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_NORMEXP_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_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_80_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_81_NORMEXP_MULTICALL(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_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_83_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_84_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_85_NORMAL_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_86_NORMAL_SYMBOL_DATA(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_NORMAL_KEYWORD_DATA(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_CREATE_DATA_SLOTS(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_FILL_DATA_SLOT(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_NORMEXP_QUOTE(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_NORMEXP_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_92_NORMEXP_KEYWORD(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_FILL_NORMAL_FORMALS(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_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_95_FILL_NORMAL_EXPANSION(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_NORMEXP_DEFPRIMITIVE(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_NORMEXP_DEFCITERATOR(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_NORMEXP_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_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_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_102_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_103_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_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_NORMEXP_DEFCLASS(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_NORMEXP_DEFINSTANCE(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_NORMEXP_DEFSELECTOR(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_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_111_NORMAL_VALUE_EXPORTER(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_NORMAL_EXPORTED_VALUE(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_NORMEXP_EXPORT_VALUES(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_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_115_NORMEXP_EXPORT_CLASS(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_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_118_NORMAL_MACRO_EXPORTER(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_NORMAL_EXPORTED_MACRO(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_NORMEXP_EXPORT_MACRO(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_NORMEXP_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_122_NORMEXP_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_123_NORMEXP_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_124_NORMEXP_FETCH_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_125_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_126_NORMEXP_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_127_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*); /**** warmelt-normal-3.c implementations ****/ static basilys_ptr_t rout_1_ADD_NCTX_DATA(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_ADD_NCTX_DATA_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_; } curfram__; 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("ADD_NCTX_DATA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:501: @getarg"); /*_.NCTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:501: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NDATA__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:501: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:502: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:502: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:502: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:502: @cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:502: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:502: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctx"),( "warmelt-normal.bysl"),(502), __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:502: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:502: @clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:502: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:503: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:503: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:503: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:503: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:503: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:503: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ndata"),( "warmelt-normal.bysl"),(503), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:503: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:503: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:503: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:504: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:504: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:504: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2]), 3, "NDATA_RANK");/*_.NDATA_RANK__V9*/ curfptr[8] = slot; }; ; /*_#NULL__L3*/ curfnum[0] = ((/*_.NDATA_RANK__V9*/ curfptr[8]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:504: @cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:504: @cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:504: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:504: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "fresh ndata"),( "warmelt-normal.bysl"),(504), __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:504: @clear"); /*clear*/ /*_.NDATA_RANK__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:504: @clear"); /*clear*/ /*_#NULL__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:504: @clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:504: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:505: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:505: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCTX__V2*/ curfptr[1]), 2, "NCTX_DATALIST");/*_.DATLIS__V12*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:506: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:506: @block"); /*block*/{ /*_#IS_LIST__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.DATLIS__V12*/ curfptr[9])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:506: @cond"); /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:506: @cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:506: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:506: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check datlis"),( "warmelt-normal.bysl"),(506), __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:506: @clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:506: @clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:506: @cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:507: @block"); /*block*/{ /*_.LIST_LAST__V15*/ curfptr[13] = (basilys_list_last((basilys_ptr_t)(/*_.DATLIS__V12*/ curfptr[9])));; /*_.LASTDAT__V16*/ curfptr[15] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_LAST__V15*/ curfptr[13])));; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTDAT__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:508: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:508: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:508: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:509: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:509: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTDAT__V16*/ curfptr[15]), 3, "NDATA_RANK");/*_.NDATA_RANK__V17*/ curfptr[16] = slot; }; ; /*_#LASTRK__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.NDATA_RANK__V17*/ curfptr[16])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:510: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:510: @block"); /*block*/{ /*_#I__L7*/ curfnum[6] = ((/*_#LASTRK__L6*/ curfnum[5]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:510: @cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:510: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:510: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:510: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lastrk"),( "warmelt-normal.bysl"),(510), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:510: @clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:510: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:510: @cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:511: @block"); /*block*/{ /*_#I__L8*/ curfnum[6] = ((1) + (/*_#LASTRK__L6*/ curfnum[5]));; /*_.RKBOX__V20*/ curfptr[18] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L8*/ curfnum[6])));; BASILYS_LOCATION("warmelt-normal.bysl:512: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:512: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2]))));basilys_putfield_object((/*_.NDATA__V3*/ curfptr[2]), (3), (/*_.RKBOX__V20*/ curfptr[18]), "NDATA_RANK"); ; BASILYS_LOCATION("warmelt-normal.bysl:512: @touch"); basilysgc_touch(/*_.NDATA__V3*/ curfptr[2]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:511: @clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:511: @clear"); /*clear*/ /*_.RKBOX__V20*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:509: @clear"); /*clear*/ /*_.NDATA_RANK__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:509: @clear"); /*clear*/ /*_#LASTRK__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:509: @clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:508: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:508: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:514: @block"); /*block*/{ /*_.RKBOX1__V21*/ curfptr[18] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (1)));; BASILYS_LOCATION("warmelt-normal.bysl:515: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:515: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2]))));basilys_putfield_object((/*_.NDATA__V3*/ curfptr[2]), (3), (/*_.RKBOX1__V21*/ curfptr[18]), "NDATA_RANK"); ; BASILYS_LOCATION("warmelt-normal.bysl:515: @touch"); basilysgc_touch(/*_.NDATA__V3*/ curfptr[2]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:514: @clear"); /*clear*/ /*_.RKBOX1__V21*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:507: @clear"); /*clear*/ /*_.LIST_LAST__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:507: @clear"); /*clear*/ /*_.LASTDAT__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:507: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ;} ; basilysgc_append_list((basilys_ptr_t)(/*_.DATLIS__V12*/ curfptr[9]), (basilys_ptr_t)(/*_.NDATA__V3*/ curfptr[2])); /*_.LET___V11*/ curfptr[8] = /*_.NDATA__V3*/ curfptr[2];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:505: @clear"); /*clear*/ /*_.DATLIS__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:505: @clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:501: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V11*/ curfptr[8];; BASILYS_LOCATION("warmelt-normal.bysl:501: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:501: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:501: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:501: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:501: @clear"); /*clear*/ /*_.LET___V11*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("ADD_NCTX_DATA", 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_ADD_NCTX_DATA*/ static basilys_ptr_t rout_2_FILL_INITIAL_PREDEFMAP(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_FILL_INITIAL_PREDEFMAP_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 44 void* varptr[44]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 44; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("FILL_INITIAL_PREDEFMAP", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:567: @getarg"); /*_.PREDEFMAP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:567: @block"); /*block*/{ /*_.GLOBAL_ATOM_TRUE__V3*/ curfptr[2] = (void*)BASILYSG(ATOM_TRUE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_ATOM_TRUE__V3*/ curfptr[2]), (basilys_ptr_t)((/*!konst_0_ATOM_TRUE*/ curfrout->tabval[0]))); /*_.GLOBAL_CLASS_CITERATOR__V4*/ curfptr[3] = (void*)BASILYSG(CLASS_CITERATOR);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_CITERATOR__V4*/ curfptr[3]), (basilys_ptr_t)((/*!konst_1_CLASS_CITERATOR*/ curfrout->tabval[1]))); /*_.GLOBAL_CLASS_CLASS__V5*/ curfptr[4] = (void*)BASILYSG(CLASS_CLASS);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_CLASS__V5*/ curfptr[4]), (basilys_ptr_t)((/*!konst_2_CLASS_CLASS*/ curfrout->tabval[2]))); /*_.GLOBAL_CLASS_CONTAINER__V6*/ curfptr[5] = (void*)BASILYSG(CLASS_CONTAINER);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_CONTAINER__V6*/ curfptr[5]), (basilys_ptr_t)((/*!konst_3_CLASS_CONTAINER*/ curfrout->tabval[3]))); /*_.GLOBAL_CLASS_DISCR__V7*/ curfptr[6] = (void*)BASILYSG(CLASS_DISCR);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_DISCR__V7*/ curfptr[6]), (basilys_ptr_t)((/*!konst_4_CLASS_DISCR*/ curfrout->tabval[4]))); /*_.GLOBAL_CLASS_FIELD__V8*/ curfptr[7] = (void*)BASILYSG(CLASS_FIELD);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_FIELD__V8*/ curfptr[7]), (basilys_ptr_t)((/*!konst_5_CLASS_FIELD*/ curfrout->tabval[5]))); /*_.GLOBAL_CLASS_FORMAL_BINDING__V9*/ curfptr[8] = (void*)BASILYSG(CLASS_FORMAL_BINDING);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_FORMAL_BINDING__V9*/ curfptr[8]), (basilys_ptr_t)((/*!konst_6_CLASS_FORMAL_BINDING*/ curfrout->tabval[6]))); /*_.GLOBAL_CLASS_KEYWORD__V10*/ curfptr[9] = (void*)BASILYSG(CLASS_KEYWORD);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_KEYWORD__V10*/ curfptr[9]), (basilys_ptr_t)((/*!konst_7_CLASS_KEYWORD*/ curfrout->tabval[7]))); /*_.GLOBAL_CLASS_LOCATED__V11*/ curfptr[10] = (void*)BASILYSG(CLASS_LOCATED);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_LOCATED__V11*/ curfptr[10]), (basilys_ptr_t)((/*!konst_8_CLASS_LOCATED*/ curfrout->tabval[8]))); /*_.GLOBAL_CLASS_NAMED__V12*/ curfptr[11] = (void*)BASILYSG(CLASS_NAMED);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_NAMED__V12*/ curfptr[11]), (basilys_ptr_t)((/*!konst_9_CLASS_NAMED*/ curfrout->tabval[9]))); /*_.GLOBAL_CLASS_PRIMITIVE__V13*/ curfptr[12] = (void*)BASILYSG(CLASS_PRIMITIVE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_PRIMITIVE__V13*/ curfptr[12]), (basilys_ptr_t)((/*!konst_10_CLASS_PRIMITIVE*/ curfrout->tabval[10]))); /*_.GLOBAL_CLASS_PROPED__V14*/ curfptr[13] = (void*)BASILYSG(CLASS_PROPED);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_PROPED__V14*/ curfptr[13]), (basilys_ptr_t)((/*!konst_11_CLASS_PROPED*/ curfrout->tabval[11]))); /*_.GLOBAL_CLASS_ROOT__V15*/ curfptr[14] = (void*)BASILYSG(CLASS_ROOT);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_ROOT__V15*/ curfptr[14]), (basilys_ptr_t)((/*!konst_12_CLASS_ROOT*/ curfrout->tabval[12]))); /*_.GLOBAL_CLASS_SELECTOR__V16*/ curfptr[15] = (void*)BASILYSG(CLASS_SELECTOR);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_SELECTOR__V16*/ curfptr[15]), (basilys_ptr_t)((/*!konst_13_CLASS_SELECTOR*/ curfrout->tabval[13]))); /*_.GLOBAL_CLASS_SEXPR__V17*/ curfptr[16] = (void*)BASILYSG(CLASS_SEXPR);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_SEXPR__V17*/ curfptr[16]), (basilys_ptr_t)((/*!konst_14_CLASS_SEXPR*/ curfrout->tabval[14]))); /*_.GLOBAL_CLASS_SYMBOL__V18*/ curfptr[17] = (void*)BASILYSG(CLASS_SYMBOL);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_SYMBOL__V18*/ curfptr[17]), (basilys_ptr_t)((/*!konst_15_CLASS_SYMBOL*/ curfrout->tabval[15]))); /*_.GLOBAL_CLASS_SYSTEM_DATA__V19*/ curfptr[18] = (void*)BASILYSG(CLASS_SYSTEM_DATA);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CLASS_SYSTEM_DATA__V19*/ curfptr[18]), (basilys_ptr_t)((/*!konst_16_CLASS_SYSTEM_DATA*/ curfrout->tabval[16]))); /*_.GLOBAL_CTYPE_CSTRING__V20*/ curfptr[19] = (void*)BASILYSG(CTYPE_CSTRING);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CTYPE_CSTRING__V20*/ curfptr[19]), (basilys_ptr_t)((/*!konst_17_CTYPE_CSTRING*/ curfrout->tabval[17]))); /*_.GLOBAL_CTYPE_LONG__V21*/ curfptr[20] = (void*)BASILYSG(CTYPE_LONG);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CTYPE_LONG__V21*/ curfptr[20]), (basilys_ptr_t)((/*!konst_18_CTYPE_LONG*/ curfrout->tabval[18]))); /*_.GLOBAL_CTYPE_TREE__V22*/ curfptr[21] = (void*)BASILYSG(CTYPE_TREE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CTYPE_TREE__V22*/ curfptr[21]), (basilys_ptr_t)((/*!konst_19_CTYPE_TREE*/ curfrout->tabval[19]))); /*_.GLOBAL_CTYPE_VALUE__V23*/ curfptr[22] = (void*)BASILYSG(CTYPE_VALUE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CTYPE_VALUE__V23*/ curfptr[22]), (basilys_ptr_t)((/*!konst_20_CTYPE_VALUE*/ curfrout->tabval[20]))); /*_.GLOBAL_CTYPE_VOID__V24*/ curfptr[23] = (void*)BASILYSG(CTYPE_VOID);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_CTYPE_VOID__V24*/ curfptr[23]), (basilys_ptr_t)((/*!konst_21_CTYPE_VOID*/ curfrout->tabval[21]))); /*_.GLOBAL_DISCR_BOX__V25*/ curfptr[24] = (void*)BASILYSG(DISCR_BOX);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_BOX__V25*/ curfptr[24]), (basilys_ptr_t)((/*!konst_22_DISCR_BOX*/ curfrout->tabval[22]))); /*_.GLOBAL_DISCR_CHARINTEGER__V26*/ curfptr[25] = (void*)BASILYSG(DISCR_CHARINTEGER);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_CHARINTEGER__V26*/ curfptr[25]), (basilys_ptr_t)((/*!konst_23_DISCR_CHARINTEGER*/ curfrout->tabval[23]))); /*_.GLOBAL_DISCR_CLOSURE__V27*/ curfptr[26] = (void*)BASILYSG(DISCR_CLOSURE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_CLOSURE__V27*/ curfptr[26]), (basilys_ptr_t)((/*!konst_24_DISCR_CLOSURE*/ curfrout->tabval[24]))); /*_.GLOBAL_DISCR_INTEGER__V28*/ curfptr[27] = (void*)BASILYSG(DISCR_INTEGER);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_INTEGER__V28*/ curfptr[27]), (basilys_ptr_t)((/*!konst_25_DISCR_INTEGER*/ curfrout->tabval[25]))); /*_.GLOBAL_DISCR_LIST__V29*/ curfptr[28] = (void*)BASILYSG(DISCR_LIST);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_LIST__V29*/ curfptr[28]), (basilys_ptr_t)((/*!konst_26_DISCR_LIST*/ curfrout->tabval[26]))); /*_.GLOBAL_DISCR_MAPOBJECTS__V30*/ curfptr[29] = (void*)BASILYSG(DISCR_MAPOBJECTS);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_MAPOBJECTS__V30*/ curfptr[29]), (basilys_ptr_t)((/*!konst_27_DISCR_MAPOBJECTS*/ curfrout->tabval[27]))); /*_.GLOBAL_DISCR_MAPSTRINGS__V31*/ curfptr[30] = (void*)BASILYSG(DISCR_MAPSTRINGS);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_MAPSTRINGS__V31*/ curfptr[30]), (basilys_ptr_t)((/*!konst_28_DISCR_MAPSTRINGS*/ curfrout->tabval[28]))); /*_.GLOBAL_DISCR_METHODMAP__V32*/ curfptr[31] = (void*)BASILYSG(DISCR_METHODMAP);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_METHODMAP__V32*/ curfptr[31]), (basilys_ptr_t)((/*!konst_29_DISCR_METHODMAP*/ curfrout->tabval[29]))); /*_.GLOBAL_DISCR_MIXEDINT__V33*/ curfptr[32] = (void*)BASILYSG(DISCR_MIXEDINT);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_MIXEDINT__V33*/ curfptr[32]), (basilys_ptr_t)((/*!konst_30_DISCR_MIXEDINT*/ curfrout->tabval[30]))); /*_.GLOBAL_DISCR_MIXEDLOC__V34*/ curfptr[33] = (void*)BASILYSG(DISCR_MIXEDLOC);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_MIXEDLOC__V34*/ curfptr[33]), (basilys_ptr_t)((/*!konst_31_DISCR_MIXEDLOC*/ curfrout->tabval[31]))); /*_.GLOBAL_DISCR_MULTIPLE__V35*/ curfptr[34] = (void*)BASILYSG(DISCR_MULTIPLE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_MULTIPLE__V35*/ curfptr[34]), (basilys_ptr_t)((/*!konst_32_DISCR_MULTIPLE*/ curfrout->tabval[32]))); /*_.GLOBAL_DISCR_NAMESTRING__V36*/ curfptr[35] = (void*)BASILYSG(DISCR_NAMESTRING);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_NAMESTRING__V36*/ curfptr[35]), (basilys_ptr_t)((/*!konst_33_DISCR_NAMESTRING*/ curfrout->tabval[33]))); /*_.GLOBAL_DISCR_NULLRECV__V37*/ curfptr[36] = (void*)BASILYSG(DISCR_NULLRECV);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_NULLRECV__V37*/ curfptr[36]), (basilys_ptr_t)((/*!konst_34_DISCR_NULLRECV*/ curfrout->tabval[34]))); /*_.GLOBAL_DISCR_PAIR__V38*/ curfptr[37] = (void*)BASILYSG(DISCR_PAIR);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_PAIR__V38*/ curfptr[37]), (basilys_ptr_t)((/*!konst_35_DISCR_PAIR*/ curfrout->tabval[35]))); /*_.GLOBAL_DISCR_ROUTINE__V39*/ curfptr[38] = (void*)BASILYSG(DISCR_ROUTINE);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_ROUTINE__V39*/ curfptr[38]), (basilys_ptr_t)((/*!konst_36_DISCR_ROUTINE*/ curfrout->tabval[36]))); /*_.GLOBAL_DISCR_SEQCLASS__V40*/ curfptr[39] = (void*)BASILYSG(DISCR_SEQCLASS);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_SEQCLASS__V40*/ curfptr[39]), (basilys_ptr_t)((/*!konst_37_DISCR_SEQCLASS*/ curfrout->tabval[37]))); /*_.GLOBAL_DISCR_SEQFIELD__V41*/ curfptr[40] = (void*)BASILYSG(DISCR_SEQFIELD);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_SEQFIELD__V41*/ curfptr[40]), (basilys_ptr_t)((/*!konst_38_DISCR_SEQFIELD*/ curfrout->tabval[38]))); /*_.GLOBAL_DISCR_STRING__V42*/ curfptr[41] = (void*)BASILYSG(DISCR_STRING);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_STRING__V42*/ curfptr[41]), (basilys_ptr_t)((/*!konst_39_DISCR_STRING*/ curfrout->tabval[39]))); /*_.GLOBAL_DISCR_VERBATIMSTRING__V43*/ curfptr[42] = (void*)BASILYSG(DISCR_VERBATIMSTRING);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_DISCR_VERBATIMSTRING__V43*/ curfptr[42]), (basilys_ptr_t)((/*!konst_40_DISCR_VERBATIMSTRING*/ curfrout->tabval[40]))); /*_.GLOBAL_INITIAL_SYSTEM_DATA__V44*/ curfptr[43] = (void*)BASILYSG(INITIAL_SYSTEM_DATA);; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V2*/ curfptr[1]), (basilysobject_ptr_t) (/*_.GLOBAL_INITIAL_SYSTEM_DATA__V44*/ curfptr[43]), (basilys_ptr_t)((/*!konst_41_INITIAL_SYSTEM_DATA*/ curfrout->tabval[41]))); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_ATOM_TRUE__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_CITERATOR__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_CLASS__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_CONTAINER__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_DISCR__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_FIELD__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_FORMAL_BINDING__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_KEYWORD__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_LOCATED__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_NAMED__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_PRIMITIVE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_PROPED__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_ROOT__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_SELECTOR__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_SEXPR__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_SYMBOL__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CLASS_SYSTEM_DATA__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CTYPE_CSTRING__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CTYPE_LONG__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CTYPE_TREE__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CTYPE_VALUE__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_CTYPE_VOID__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_BOX__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_CHARINTEGER__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_CLOSURE__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_INTEGER__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_LIST__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_MAPOBJECTS__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_MAPSTRINGS__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_METHODMAP__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_MIXEDINT__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_MIXEDLOC__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_MULTIPLE__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_NAMESTRING__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_NULLRECV__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_PAIR__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_ROUTINE__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_SEQCLASS__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_SEQFIELD__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_STRING__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_DISCR_VERBATIMSTRING__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:567: @clear"); /*clear*/ /*_.GLOBAL_INITIAL_SYSTEM_DATA__V44*/ curfptr[43] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("FILL_INITIAL_PREDEFMAP", 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_2_FILL_INITIAL_PREDEFMAP*/ static basilys_ptr_t rout_3_CREATE_NORMCONTEXT(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_CREATE_NORMCONTEXT_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_; } curfram__; 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("CREATE_NORMCONTEXT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:616: @getarg"); /*_.MODCTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:616: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:617: @block"); /*block*/{ /*_#MAXPREDEFIX__L1*/ curfnum[0] = BGLOB__LASTGLOB;; /*_#IX__L2*/ curfnum[1] = 1;; /*_#I__L3*/ curfnum[2] = ((2) * (/*_#MAXPREDEFIX__L1*/ curfnum[0]));; /*_#I__L4*/ curfnum[3] = ((19) + (/*_#I__L3*/ curfnum[2]));; /*_.PREDEFMAP__V4*/ curfptr[3] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[0])), (/*_#I__L4*/ curfnum[3])));; /*_.VALMAP__V5*/ curfptr[4] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[0])), (350)));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:622: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:622: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:622: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:622: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:622: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:622: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modctx"),( "warmelt-normal.bysl"),(622), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:622: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:622: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:622: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:623: @loop"); /*loop*/{ labloop_PREDEFLOOP_1:; BASILYS_LOCATION("warmelt-normal.bysl:623: @loopbody"); BASILYS_LOCATION("warmelt-normal.bysl:623: @block"); /*block*/{ /*_#I__L6*/ curfnum[4] = ((/*_#IX__L2*/ curfnum[1]) >= (/*_#MAXPREDEFIX__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:624: @cond"); /*cond*/ if (/*_#I__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:624: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:624: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:624: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:624: @compute"); /*_.PREDEFLOOP__V9*/ curfptr[8] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:624: @exit"); /*exit*/{ goto labexit_PREDEFLOOP_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:625: @block"); /*block*/{ /*_.CURPREDEF__V10*/ curfptr[9] = (basilys_globpredef((/*_#IX__L2*/ curfnum[1])));; /*_#IS_OBJECT__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURPREDEF__V10*/ curfptr[9])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-normal.bysl:626: @cond"); /*cond*/ if (/*_#IS_OBJECT__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:626: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:626: @block"); /*block*/{ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#IX__L2*/ curfnum[1])));; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.PREDEFMAP__V4*/ curfptr[3]), (basilysobject_ptr_t) (/*_.CURPREDEF__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.MAKE_INTEGERBOX__V11*/ curfptr[10])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:626: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:625: @clear"); /*clear*/ /*_.CURPREDEF__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:625: @clear"); /*clear*/ /*_#IS_OBJECT__L7*/ curfnum[6] = 0 ;} ; /*_#I__L8*/ curfnum[6] = ((/*_#IX__L2*/ curfnum[1]) + (1));; BASILYS_LOCATION("warmelt-normal.bysl:629: @compute"); /*_#IX__L2*/ curfnum[1] = /*_#SETQ___L9*/ curfnum[8] = /*_#I__L8*/ curfnum[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:623: @clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:623: @clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:623: @clear"); /*clear*/ /*_#SETQ___L9*/ curfnum[8] = 0 ;} ; ; goto labloop_PREDEFLOOP_1; labexit_PREDEFLOOP_1:; BASILYS_LOCATION("warmelt-normal.bysl:623: @loopepilog"); /*loopepilog*/ /*_.FOREVER___V8*/ curfptr[6] = /*_.PREDEFLOOP__V9*/ curfptr[8];; } ; BASILYS_LOCATION("warmelt-normal.bysl:630: @apply"); /*apply*/{ /*_.FILL_INITIAL_PREDEFMAP__V12*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_INITIAL_PREDEFMAP*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PREDEFMAP__V4*/ curfptr[3]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:631: @block"); /*block*/{ /*_.MAKE_LIST__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-normal.bysl:631: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:631: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[4])), (3), "CLASS_NREP_INITPROC");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:631: @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_LIST__V14*/ curfptr[13]), "NINIT_TOPL"); ; BASILYS_LOCATION("warmelt-normal.bysl:631: @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), ((/*nil*/NULL)), "NREP_LOC"); ; /*_.INIPRO__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; /*_.MAKE_LIST__V17*/ curfptr[16] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_LIST__V18*/ curfptr[17] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_LIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.MAKE_MAPSTRING__V20*/ curfptr[19] = (basilysgc_new_mapstrings( (basilysobject_ptr_t) ((/*!DISCR_MAPSTRINGS*/ curfrout->tabval[7])), (50)));; /*_.MAKE_MAPSTRING__V21*/ curfptr[20] = (basilysgc_new_mapstrings( (basilysobject_ptr_t) ((/*!DISCR_MAPSTRINGS*/ curfrout->tabval[7])), (40)));; /*_.MAKE_MAPOBJECT__V22*/ curfptr[21] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[0])), (20)));; /*_.MAKE_MAPOBJECT__V23*/ curfptr[22] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[0])), (30)));; BASILYS_LOCATION("warmelt-normal.bysl:650: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:650: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[8])), (1), "CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V25*/ curfptr[24] = newobj; }; ; /*_.INST___V24*/ curfptr[23] = /*_.INST__V25*/ curfptr[24];;} ; BASILYS_LOCATION("warmelt-normal.bysl:652: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:652: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[9])), (1), "CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT");/*_.INST__V27*/ curfptr[26] = newobj; }; ; /*_.INST___V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} ; /*_.MAKE_LIST__V28*/ curfptr[27] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-normal.bysl:635: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:635: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[6])), (15), "CLASS_NORMCONTEXT");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.INIPRO__V15*/ curfptr[14]), "NCTX_INITPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @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_LIST__V17*/ curfptr[16]), "NCTX_PROCLIST"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @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), (/*_.MAKE_LIST__V18*/ curfptr[17]), "NCTX_DATALIST"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @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), (/*_.MAKE_LIST__V19*/ curfptr[18]), "NCTX_VALUELIST"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @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), (/*_.MAKE_MAPSTRING__V20*/ curfptr[19]), "NCTX_SYMBMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (5), (/*_.MAKE_MAPSTRING__V21*/ curfptr[20]), "NCTX_KEYWMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.PREDEFMAP__V4*/ curfptr[3]), "NCTX_PREDEFMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.VALMAP__V5*/ curfptr[4]), "NCTX_VALMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (9), (/*_.MAKE_MAPOBJECT__V22*/ curfptr[21]), "NCTX_VALBINDMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (6), (/*_.MAKE_MAPOBJECT__V23*/ curfptr[22]), "NCTX_SYMBCACHEMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (10), (/*_.INIPRO__V15*/ curfptr[14]), "NCTX_CURPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (11>=0 && 11< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (11), (/*_.MODCTX__V2*/ curfptr[1]), "NCTX_MODULCONTEXT"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (12>=0 && 12< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (12), (/*_.INST___V24*/ curfptr[23]), "NCTX_QDATCURMODENVBOX"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (13>=0 && 13< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (13), (/*_.INST___V26*/ curfptr[25]), "NCTX_QDATPARMODENV"); ; BASILYS_LOCATION("warmelt-normal.bysl:635: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (14>=0 && 14< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (14), (/*_.MAKE_LIST__V28*/ curfptr[27]), "NCTX_PROCURMODENVLIST"); ; /*_.NCX__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:657: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:657: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:657: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:657: @apply.arg"); argtab[0].bp_cstring = "create_normcontext return ncx"; BASILYS_LOCATION("warmelt-normal.bysl:657: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[4]; BASILYS_LOCATION("warmelt-normal.bysl:657: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:657: @apply.arg"); argtab[3].bp_long = 657; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.NCX__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:657: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:657: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:657: @cppif.else"); /*_.IFCPP___V31*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:658: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NCX__V29*/ curfptr[28];; BASILYS_LOCATION("warmelt-normal.bysl:658: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V13*/ curfptr[9] = /*_.RETURN___V33*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_LIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.INIPRO__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_LIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_LIST__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_LIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_MAPSTRING__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_MAPSTRING__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.INST___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.INST___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.MAKE_LIST__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.NCX__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:631: @clear"); /*clear*/ /*_.RETURN___V33*/ curfptr[31] = 0 ;} ; /*_.LET___V3*/ curfptr[2] = /*_.LET___V13*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_#MAXPREDEFIX__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_#IX__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.PREDEFMAP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.VALMAP__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.FOREVER___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.FILL_INITIAL_PREDEFMAP__V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:617: @clear"); /*clear*/ /*_.LET___V13*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:616: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:616: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:616: @clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("CREATE_NORMCONTEXT", 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_CREATE_NORMCONTEXT*/ static basilys_ptr_t rout_4_NORMEXP_IDENTICAL(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_NORMEXP_IDENTICAL_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_; } curfram__; 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("NORMEXP_IDENTICAL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:680: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:680: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:680: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:680: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:680: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:680: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(680), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:680: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:680: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:680: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:681: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:681: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:681: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:681: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:681: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:681: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(681), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:681: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:681: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:681: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:683: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:683: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:683: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:683: @apply.arg"); argtab[0].bp_cstring = "normexp_identical recv"; BASILYS_LOCATION("warmelt-normal.bysl:683: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:683: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:683: @apply.arg"); argtab[3].bp_long = 683; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RECV__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-normal.bysl:683: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:683: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:683: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:679: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RECV__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:679: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:679: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:679: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:679: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_IDENTICAL", 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_NORMEXP_IDENTICAL*/ static basilys_ptr_t rout_5_NORMEXP_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_5_NORMEXP_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 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_NULL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:692: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:692: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:692: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:692: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:692: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:692: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(692), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:692: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:692: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:692: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:693: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:693: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:693: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:693: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:693: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:693: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(693), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:693: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:693: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:693: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:694: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:694: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:694: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[2])), (1), "CLASS_NREP_NIL");/*_.INST__V12*/ curfptr[11] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:694: @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), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; /*_.NORMNULL__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:695: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:695: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:695: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:695: @apply.arg"); argtab[0].bp_cstring = "normexp_null normnull"; BASILYS_LOCATION("warmelt-normal.bysl:695: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:695: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:695: @apply.arg"); argtab[3].bp_long = 695; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NORMNULL__V11*/ curfptr[10]), (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-normal.bysl:695: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:695: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:695: @cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V10*/ curfptr[8] = /*_.NORMNULL__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:694: @clear"); /*clear*/ /*_.NORMNULL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:694: @clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:691: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-normal.bysl:691: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:691: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:691: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:691: @clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_5_NORMEXP_NULL*/ static basilys_ptr_t rout_6_NORMEXP_SRC_CATCHALL(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_NORMEXP_SRC_CATCHALL_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 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_SRC_CATCHALL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:702: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:702: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:702: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:702: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:702: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:702: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(702), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:702: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:702: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:702: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:703: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:703: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:703: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:703: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:703: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:703: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(703), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:703: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:703: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:703: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:704: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:704: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:704: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:704: @apply.arg"); argtab[0].bp_cstring = "normexp_src_catchall recv"; BASILYS_LOCATION("warmelt-normal.bysl:704: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:704: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:704: @apply.arg"); argtab[3].bp_long = 704; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RECV__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-normal.bysl:704: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:704: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:704: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:705: @block"); /*block*/{ /*_.MYCLASS__V13*/ curfptr[12] = (basilys_discr((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:706: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MYCLASS__V13*/ curfptr[12]), 1, "NAMED_NAME");/*_.MYCLASSNAME__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:707: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SRC_LOC__V15*/ curfptr[14] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SRC_LOC__V15*/ curfptr[14]), ( "unimplemented normalization for "), (basilys_ptr_t)(/*_.MYCLASSNAME__V14*/ curfptr[13])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:709: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:709: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:709: @cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:709: @cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:709: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:709: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_src_catchall unimplemented normexp for src"),( "warmelt-normal.bysl"),(709), __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:709: @clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:709: @cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V12*/ curfptr[10] = /*_.IFCPP___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:705: @clear"); /*clear*/ /*_.MYCLASS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:705: @clear"); /*clear*/ /*_.MYCLASSNAME__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:705: @clear"); /*clear*/ /*_.SRC_LOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:705: @clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:701: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:701: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:701: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:701: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:701: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:701: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_SRC_CATCHALL", 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_NORMEXP_SRC_CATCHALL*/ static basilys_ptr_t rout_7_GECTYP_ANYRECV(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_GECTYP_ANYRECV_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_; } curfram__; 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("GECTYP_ANYRECV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:731: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:731: @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-normal.bysl:731: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:731: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-normal.bysl:731: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_ANYRECV", 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_GECTYP_ANYRECV*/ static basilys_ptr_t rout_8_GECTYP_ROOT(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_GECTYP_ROOT_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_; } curfram__; 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("GECTYP_ROOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:734: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:734: @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-normal.bysl:734: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:734: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-normal.bysl:734: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_ROOT", 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_GECTYP_ROOT*/ static basilys_ptr_t rout_9_GECTYP_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_9_GECTYP_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 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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_INTEGER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:738: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:738: @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-normal.bysl:738: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:739: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:739: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:739: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:739: @apply.arg"); argtab[0].bp_cstring = "gectyp_integer recv"; BASILYS_LOCATION("warmelt-normal.bysl:739: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:739: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:739: @apply.arg"); argtab[3].bp_long = 739; /*_.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-normal.bysl:739: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:739: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:739: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:738: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_LONG*/ curfrout->tabval[1]);; BASILYS_LOCATION("warmelt-normal.bysl:738: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:738: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_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_9_GECTYP_INTEGER*/ static basilys_ptr_t rout_10_GECTYP_STRING(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_GECTYP_STRING_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_; } curfram__; 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("GECTYP_STRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:744: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:744: @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-normal.bysl:744: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:744: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_CSTRING*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-normal.bysl:744: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_STRING", 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_GECTYP_STRING*/ static basilys_ptr_t rout_11_NORMALIZE_TUPLE(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_NORMALIZE_TUPLE_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 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMALIZE_TUPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @getarg"); /*_.TUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:750: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:750: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:750: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:750: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:750: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:750: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(750), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:750: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:750: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:750: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:751: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:751: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:751: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:751: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:751: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:751: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(751), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:751: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:751: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:751: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:752: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:752: @block"); /*block*/{ /*_#IS_MULTIPLE__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-normal.bysl:752: @cond"); /*cond*/ if (/*_#IS_MULTIPLE__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:752: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:752: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:752: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tup"),( "warmelt-normal.bysl"),(752), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:752: @clear"); /*clear*/ /*_#IS_MULTIPLE__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:752: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:752: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:753: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:753: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:753: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:753: @apply.arg"); argtab[0].bp_cstring = "normalize_tuple tup"; BASILYS_LOCATION("warmelt-normal.bysl:753: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:753: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:753: @apply.arg"); argtab[3].bp_long = 753; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:753: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:753: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:753: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:754: @block"); /*block*/{ /*_.BINDLIST__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[3]))));; BASILYS_LOCATION("warmelt-normal.bysl:757: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:757: @newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (4)); ; BASILYS_LOCATION("warmelt-normal.bysl:757: @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)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:757: @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)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:757: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[2] = (basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]); ; BASILYS_LOCATION("warmelt-normal.bysl:757: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V17*/ curfptr[16])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V17*/ curfptr[16]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V17*/ curfptr[16])->tabval[3] = (basilys_ptr_t)(/*_.BINDLIST__V15*/ curfptr[14]); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-normal.bysl:755: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:755: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.RES__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LIST_FIRST__V19*/ curfptr[18] = (basilys_list_first((basilys_ptr_t)(/*_.BINDLIST__V15*/ curfptr[14])));; /*_#IS_PAIR__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.LIST_FIRST__V19*/ curfptr[18])) == OBMAG_PAIR);; /*_#NOT__L6*/ curfnum[5] = (!(/*_#IS_PAIR__L5*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:777: @cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:777: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:777: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:778: @compute"); /*_.BINDLIST__V15*/ curfptr[14] = /*_.SETQ___V21*/ curfptr[20] = (/*nil*/NULL);; /*_.IF___V20*/ curfptr[19] = /*_.SETQ___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:777: @clear"); /*clear*/ /*_.SETQ___V21*/ curfptr[20] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:777: @cond.else"); /*_.IF___V20*/ curfptr[19] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:779: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:779: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:779: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:779: @apply.arg"); argtab[0].bp_cstring = "normalize_tuple res"; BASILYS_LOCATION("warmelt-normal.bysl:779: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:779: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:779: @apply.arg"); argtab[3].bp_long = 779; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.RES__V18*/ curfptr[17]), (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-normal.bysl:779: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:779: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:779: @cppif.else"); /*_.IFCPP___V22*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:780: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:780: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:780: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:780: @apply.arg"); argtab[0].bp_cstring = "normalize_tuple bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:780: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:780: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:780: @apply.arg"); argtab[3].bp_long = 780; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BINDLIST__V15*/ curfptr[14]), (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-normal.bysl:780: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:780: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:780: @cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:781: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RES__V18*/ curfptr[17];; BASILYS_LOCATION("warmelt-normal.bysl:781: @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) (/*_.BINDLIST__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:781: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.BINDLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.RES__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.LIST_FIRST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_#IS_PAIR__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.IF___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:754: @clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:749: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:749: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:749: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:749: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:749: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:749: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:749: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMALIZE_TUPLE", 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_NORMALIZE_TUPLE*/ static basilys_ptr_t rout_12_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_12_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 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:757: @getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:757: @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-normal.bysl:757: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:759: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~PSLOC*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDS__V5*/ curfptr[4]; BASILYS_LOCATION("warmelt-normal.bysl:759: @multimsend.send"); /*_.NORCOMP__V4*/ curfptr[3] = basilysgc_send ((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[0]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:759: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:763: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:763: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L2*/ curfnum[1] = ((/*_.NBINDS__V5*/ curfptr[4]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDS__V5*/ curfptr[4])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:763: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:763: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:763: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:763: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbinds"),( "warmelt-normal.bysl"),(763), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:763: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:763: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:763: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:764: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:764: @block"); /*block*/{ /*_#IS_NOT_A__L3*/ curfnum[1] = !basilys_is_instance_of((basilys_ptr_t)(/*_.NORCOMP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NREP_EXPR*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:764: @cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:764: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:764: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:764: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check norcomp not nrep_expr"),( "warmelt-normal.bysl"),(764), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:764: @clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:764: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:764: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_LIST__L4*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDS__V5*/ curfptr[4])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:765: @cond"); /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:765: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:765: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:768: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:768: @newclosure"); /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:768: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V12*/ curfptr[11])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V12*/ curfptr[11]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V12*/ curfptr[11])->tabval[0] = (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[3])); ; /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;} ; BASILYS_LOCATION("warmelt-normal.bysl:766: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:766: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V11*/ curfptr[10]; /*_.LIST_EVERY__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NBINDS__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V10*/ curfptr[8] = /*_.LIST_EVERY__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:765: @clear"); /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:765: @clear"); /*clear*/ /*_.LIST_EVERY__V13*/ curfptr[12] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:765: @cond.else"); /*_.IF___V10*/ curfptr[8] = NULL;; } ; /*_.MULTI___V3*/ curfptr[2] = /*_.NORCOMP__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:759: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:759: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:759: @clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:759: @clear"); /*clear*/ /*_.IF___V10*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:759: @clear"); /*clear*/ /*_.NBINDS__V5*/ curfptr[4] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:757: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:757: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:757: @clear"); /*clear*/ /*_.MULTI___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_12_LAMBDA_*/ static basilys_ptr_t rout_13_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_13_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 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:768: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:768: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:769: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:769: @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-normal.bysl:769: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:769: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:769: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:769: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bnd"),( "warmelt-normal.bysl"),(769), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:769: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:769: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:769: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:770: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:770: @block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:770: @cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:770: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:770: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:770: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindlist"),( "warmelt-normal.bysl"),(770), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:770: @clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:770: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:770: @cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.BND__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:768: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:768: @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_13_LAMBDA_*/ static basilys_ptr_t rout_14_WRAP_NORMAL_LETSEQ(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_WRAP_NORMAL_LETSEQ_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 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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("WRAP_NORMAL_LETSEQ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:786: @getarg"); /*_.TUPNEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:786: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDLIST__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:786: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:786: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:787: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:787: @block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L1*/ curfnum[0] = ((/*_.TUPNEXP__V2*/ curfptr[1]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.TUPNEXP__V2*/ curfptr[1])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-normal.bysl:787: @cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:787: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:787: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:787: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tupnexp"),( "warmelt-normal.bysl"),(787), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:787: @clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:787: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:787: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:788: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:788: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = ((/*_.BINDLIST__V3*/ curfptr[2]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:788: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:788: @cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:788: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:788: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindlist"),( "warmelt-normal.bysl"),(788), __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:788: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:788: @clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:788: @cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:791: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:791: @newclosure"); /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:791: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (basilys_ptr_t)(/*_.TUPNEXP__V2*/ curfptr[1]); ; BASILYS_LOCATION("warmelt-normal.bysl:791: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]); ; /*_.LAMBDA___V9*/ curfptr[7] = /*_.LAMBDA___V10*/ curfptr[9];;} ; BASILYS_LOCATION("warmelt-normal.bysl:789: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:789: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[7]; /*_.LIST_EVERY__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:798: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:801: @apply"); /*apply*/{ /*_.LIST_TO_MULTIPLE__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:799: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:799: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[4])), (3), "CLASS_NREP_LET");/*_.INST__V15*/ curfptr[14] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:799: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.LOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:799: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.LIST_TO_MULTIPLE__V13*/ curfptr[12]), "NLET_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:799: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (2), (/*_.TUPNEXP__V2*/ curfptr[1]), "NLET_BODY"); ; /*_.WNLET__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} ; BASILYS_LOCATION("warmelt-normal.bysl:804: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.WNLET__V14*/ curfptr[13];; BASILYS_LOCATION("warmelt-normal.bysl:804: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[11] = /*_.RETURN___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:798: @clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:798: @clear"); /*clear*/ /*_.WNLET__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:798: @clear"); /*clear*/ /*_.RETURN___V16*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:786: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-normal.bysl:786: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:786: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:786: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:786: @clear"); /*clear*/ /*_.LAMBDA___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:786: @clear"); /*clear*/ /*_.LIST_EVERY__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:786: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("WRAP_NORMAL_LETSEQ", 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_WRAP_NORMAL_LETSEQ*/ 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 12 void* varptr[12]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:791: @getarg"); /*_.CBIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:791: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; /*_#NOT__L2*/ curfnum[1] = (!(/*_#IS_A__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:792: @cond"); /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:792: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:792: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:794: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:794: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:794: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:794: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_letseq tuplexp"; BASILYS_LOCATION("warmelt-normal.bysl:794: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:794: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:794: @apply.arg"); argtab[3].bp_long = 794; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~TUPNEXP*/ curfclos->tabval[0])), (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-normal.bysl:794: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:794: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:794: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:795: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:795: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:795: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:795: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_letseq bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:795: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:795: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:795: @apply.arg"); argtab[3].bp_long = 795; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[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-normal.bysl:795: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:795: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:795: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:796: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:796: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:796: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:796: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_letseq cbind"; BASILYS_LOCATION("warmelt-normal.bysl:796: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:796: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:796: @apply.arg"); argtab[3].bp_long = 796; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CBIND__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-normal.bysl:796: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:796: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:796: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:793: @block"); /*block*/{ /*_.PROGN___V10*/ curfptr[8] = /*_.IFCPP___V8*/ curfptr[6];;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V10*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:792: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:792: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:792: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:792: @clear"); /*clear*/ /*_.PROGN___V10*/ curfptr[8] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:792: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:797: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:797: @block"); /*block*/{ /*_#IS_A__L6*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:797: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:797: @cond.then"); /*_.IFELSE___V12*/ curfptr[4] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:797: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:797: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cbind wrapnormletseq"),( "warmelt-normal.bysl"),(797), __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[3] = /*_.IFELSE___V12*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:797: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:797: @clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:797: @cppif.else"); /*_.IFCPP___V11*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:791: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V11*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:791: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:791: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:791: @clear"); /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:791: @clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:791: @clear"); /*clear*/ /*_.IFCPP___V11*/ 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_WRAP_NORMAL_LET1(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_WRAP_NORMAL_LET1_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_; } curfram__; 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("WRAP_NORMAL_LET1", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:807: @getarg"); /*_.NEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:807: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.BINDLIST__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:807: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.LOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.LOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:807: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:808: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:808: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = ((/*_.BINDLIST__V3*/ curfptr[2]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:808: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:808: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:808: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:808: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindlist"),( "warmelt-normal.bysl"),(808), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:808: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:808: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:808: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:811: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:811: @newclosure"); /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:811: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[0] = (basilys_ptr_t)(/*_.NEXP__V2*/ curfptr[1]); ; BASILYS_LOCATION("warmelt-normal.bysl:811: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[1] = (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]); ; /*_.LAMBDA___V7*/ curfptr[5] = /*_.LAMBDA___V8*/ curfptr[7];;} ; BASILYS_LOCATION("warmelt-normal.bysl:809: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:809: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[5]; /*_.LIST_EVERY__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:819: @cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:819: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:819: @block"); /*block*/{ /*_.LIST_FIRST__V10*/ curfptr[9] = (basilys_list_first((basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2])));; /*_#IS_PAIR__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.LIST_FIRST__V10*/ curfptr[9])) == OBMAG_PAIR);; /*_#IF___L3*/ curfnum[2] = /*_#IS_PAIR__L4*/ curfnum[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:819: @clear"); /*clear*/ /*_.LIST_FIRST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:819: @clear"); /*clear*/ /*_#IS_PAIR__L4*/ curfnum[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:819: @cond.else"); /*_#IF___L3*/ curfnum[2] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:818: @cond"); /*cond*/ if (/*_#IF___L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:818: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:818: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:821: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:824: @apply"); /*apply*/{ /*_.LIST_TO_MULTIPLE__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.BINDLIST__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.MAKE_TUPLE1__V14*/ curfptr[13] = (basilysgc_new_mult1((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NEXP__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:822: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:822: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[4])), (3), "CLASS_NREP_LET");/*_.INST__V16*/ curfptr[15] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:822: @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__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:822: @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), (/*_.LIST_TO_MULTIPLE__V13*/ curfptr[12]), "NLET_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:822: @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_TUPLE1__V14*/ curfptr[13]), "NLET_BODY"); ; /*_.WNLET__V15*/ curfptr[14] = /*_.INST__V16*/ curfptr[15];;} ; /*_.LET___V12*/ curfptr[11] = /*_.WNLET__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:821: @clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:821: @clear"); /*clear*/ /*_.MAKE_TUPLE1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:821: @clear"); /*clear*/ /*_.WNLET__V15*/ curfptr[14] = 0 ;} ; /*_.IFELSE___V11*/ curfptr[9] = /*_.LET___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:818: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[11] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:818: @cond.else"); /*_.IFELSE___V11*/ curfptr[9] = /*_.NEXP__V2*/ curfptr[1];; } ; BASILYS_LOCATION("warmelt-normal.bysl:807: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V11*/ curfptr[9];; BASILYS_LOCATION("warmelt-normal.bysl:807: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_.LIST_EVERY__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_#IF___L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:807: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[9] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("WRAP_NORMAL_LET1", 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_WRAP_NORMAL_LET1*/ 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 12 void* varptr[12]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:811: @getarg"); /*_.CBIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:811: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; /*_#NOT__L2*/ curfnum[1] = (!(/*_#IS_A__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:812: @cond"); /*cond*/ if (/*_#NOT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:812: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:812: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:814: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:814: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:814: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:814: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_let1 nexp"; BASILYS_LOCATION("warmelt-normal.bysl:814: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:814: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:814: @apply.arg"); argtab[3].bp_long = 814; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~NEXP*/ curfclos->tabval[0])), (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-normal.bysl:814: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:814: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:814: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:815: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:815: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:815: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:815: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_let1 bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:815: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:815: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:815: @apply.arg"); argtab[3].bp_long = 815; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[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-normal.bysl:815: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:815: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:815: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:816: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:816: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:816: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:816: @apply.arg"); argtab[0].bp_cstring = "wrap_normal_let1 cbind"; BASILYS_LOCATION("warmelt-normal.bysl:816: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[2]; BASILYS_LOCATION("warmelt-normal.bysl:816: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:816: @apply.arg"); argtab[3].bp_long = 816; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CBIND__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-normal.bysl:816: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:816: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:816: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:813: @block"); /*block*/{ /*_.PROGN___V10*/ curfptr[8] = /*_.IFCPP___V8*/ curfptr[6];;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V10*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:812: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:812: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:812: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:812: @clear"); /*clear*/ /*_.PROGN___V10*/ curfptr[8] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:812: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:817: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:817: @block"); /*block*/{ /*_#IS_A__L6*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:817: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:817: @cond.then"); /*_.IFELSE___V12*/ curfptr[4] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:817: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:817: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cbind wrapnormlet1"),( "warmelt-normal.bysl"),(817), __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[3] = /*_.IFELSE___V12*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:817: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:817: @clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:817: @cppif.else"); /*_.IFCPP___V11*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:811: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V11*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:811: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:811: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:811: @clear"); /*clear*/ /*_#NOT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:811: @clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:811: @clear"); /*clear*/ /*_.IFCPP___V11*/ 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_CHECK_CTYPE_NARGS(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_CHECK_CTYPE_NARGS_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]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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("CHECK_CTYPE_NARGS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:833: @getarg"); /*_.NARGS__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:833: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:833: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:833: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:836: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:836: @newclosure"); /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:836: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:836: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[1] = (basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3]); ; /*_.LAMBDA___V5*/ curfptr[4] = /*_.LAMBDA___V6*/ curfptr[5];;} ; BASILYS_LOCATION("warmelt-normal.bysl:834: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:834: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[4]; /*_.MULTIPLE_EVERY__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NARGS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:833: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V7*/ curfptr[6];; BASILYS_LOCATION("warmelt-normal.bysl:833: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:833: @clear"); /*clear*/ /*_.LAMBDA___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:833: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V7*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("CHECK_CTYPE_NARGS", 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_CHECK_CTYPE_NARGS*/ 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 7 void* varptr[7]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:836: @getarg"); /*_.CNARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:836: @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-normal.bysl:836: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:837: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:837: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:837: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); /*_.CTYP__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CNARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:838: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:838: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:838: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:838: @cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:838: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:838: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check_ctype_nargs ctyp"),( "warmelt-normal.bysl"),(838), __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:838: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:838: @clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:838: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:839: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYP__V3*/ curfptr[2]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V6*/ curfptr[4] = slot; }; ; /*_#IS_STRING__L3*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.CTYPE_PARSTRING__V6*/ curfptr[4])) == OBMAG_STRING);; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_STRING__L3*/ curfnum[1]));; BASILYS_LOCATION("warmelt-normal.bysl:839: @cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:839: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:839: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:840: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYP__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.NAMED_NAME__V7*/ curfptr[6] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "argument has invalid type"), (basilys_ptr_t)(/*_.NAMED_NAME__V7*/ curfptr[6])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:839: @clear"); /*clear*/ /*_.NAMED_NAME__V7*/ curfptr[6] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:837: @clear"); /*clear*/ /*_.CTYP__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:837: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:837: @clear"); /*clear*/ /*_.CTYPE_PARSTRING__V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:837: @clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:837: @clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 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_19_LAMBDA_*/ static basilys_ptr_t rout_20_NORMEXP_SYMBOL(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_NORMEXP_SYMBOL_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 133 void* varptr[133]; #define CURFRAM_NBVARNUM 44 long varnum[44]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 133; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_SYMBOL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:865: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:865: @multiapply"); /*multiapply 2args, 1x.res*/ { union basilysparam_un argtab[1]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:865: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.RECV__V2*/ curfptr[1]; BASILYS_LOCATION("warmelt-normal.bysl:865: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.PROCS__V8*/ curfptr[7]; BASILYS_LOCATION("warmelt-normal.bysl:865: @multiapply.appl"); /*_.BIND__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENCLOSING_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:865: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:868: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:868: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:868: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:868: @cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:868: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:868: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check recv"),( "warmelt-normal.bysl"),(868), __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:868: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:868: @clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:868: @cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L2*/ curfnum[0] = ((/*_.BIND__V7*/ curfptr[6]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:869: @cond"); /*cond*/ if (/*_#NULL__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:869: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:869: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:872: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V12*/ curfptr[11] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unbound symbol to normalize"), (basilys_ptr_t)(/*_.NAMED_NAME__V12*/ curfptr[11])); /*_.THE_NULL__V13*/ curfptr[12] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:873: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V13*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:873: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:870: @block"); /*block*/{ /*_.PROGN___V15*/ curfptr[14] = /*_.RETURN___V14*/ curfptr[13];;} ; /*_.IF___V11*/ curfptr[9] = /*_.PROGN___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:869: @clear"); /*clear*/ /*_.NAMED_NAME__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:869: @clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:869: @clear"); /*clear*/ /*_.RETURN___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:869: @clear"); /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:869: @cond.else"); /*_.IF___V11*/ curfptr[9] = NULL;; } ; /*_#NULL__L3*/ curfnum[2] = ((/*_.PSLOC__V5*/ curfptr[4]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:874: @cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:874: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:874: @block"); /*block*/{ basilys_dbgshortbacktrace(( "normex_symbol null psloc"), (10)); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:877: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:877: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V17*/ curfptr[12] = slot; }; ; /*_.SYCA__V18*/ curfptr[13] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:879: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:879: @block"); /*block*/{ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.SYCMAP__V17*/ curfptr[12])) == OBMAG_MAPOBJECTS);; BASILYS_LOCATION("warmelt-normal.bysl:879: @cond"); /*cond*/ if (/*_#IS_MAPOBJECT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:879: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:879: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:879: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sycmap"),( "warmelt-normal.bysl"),(879), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[14] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:879: @clear"); /*clear*/ /*_#IS_MAPOBJECT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:879: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:879: @cppif.else"); /*_.IFCPP___V19*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:882: @cond"); /*cond*/ if (/*_.SYCA__V18*/ curfptr[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:882: @cond.then"); /*_.IFELSE___V21*/ curfptr[19] = /*_.SYCA__V18*/ curfptr[13];; } else { BASILYS_LOCATION("warmelt-normal.bysl:882: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:882: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:884: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:884: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:884: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:885: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:885: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 9, "NCTX_VALBINDMAP");/*_.NCTX_VALBINDMAP__V24*/ curfptr[23] = slot; }; ; /*_.BVAR__V25*/ curfptr[24] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.NCTX_VALBINDMAP__V24*/ curfptr[23]), (basilysobject_ptr_t)(/*_.BIND__V7*/ curfptr[6])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:886: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:886: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:886: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:886: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol value bind"; BASILYS_LOCATION("warmelt-normal.bysl:886: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:886: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:886: @apply.arg"); argtab[3].bp_long = 886; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (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-normal.bysl:886: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:886: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:886: @cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:887: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:887: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:887: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:887: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol value procs"; BASILYS_LOCATION("warmelt-normal.bysl:887: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:887: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:887: @apply.arg"); argtab[3].bp_long = 887; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7]), (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-normal.bysl:887: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:887: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:887: @cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L8*/ curfnum[5] = ((/*_.BVAR__V25*/ curfptr[24]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:888: @cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:888: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:888: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:889: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:893: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:893: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:893: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; /*_.NORMAL_SYMBOL_DATA__V30*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:890: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:890: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_IMPORTEDVAL*/ curfrout->tabval[4])), (3), "CLASS_NREP_IMPORTEDVAL");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:890: @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), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:890: @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), (/*_.RECV__V2*/ curfptr[1]), "NIMPORT_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:890: @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), (/*_.NORMAL_SYMBOL_DATA__V30*/ curfptr[28]), "NIMPORT_SYDATA"); ; /*_.NEWBVAR__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-normal.bysl:894: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 9, "NCTX_VALBINDMAP");/*_.NCTX_VALBINDMAP__V33*/ curfptr[32] = slot; }; ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.NCTX_VALBINDMAP__V33*/ curfptr[32]), (basilysobject_ptr_t) (/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)(/*_.NEWBVAR__V31*/ curfptr[30])); BASILYS_LOCATION("warmelt-normal.bysl:895: @compute"); /*_.BVAR__V25*/ curfptr[24] = /*_.SETQ___V34*/ curfptr[33] = /*_.NEWBVAR__V31*/ curfptr[30];; BASILYS_LOCATION("warmelt-normal.bysl:896: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 3, "NCTX_VALUELIST");/*_.NCTX_VALUELIST__V35*/ curfptr[34] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NCTX_VALUELIST__V35*/ curfptr[34]), (basilys_ptr_t)(/*_.NEWBVAR__V31*/ curfptr[30])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:889: @clear"); /*clear*/ /*_.NORMAL_SYMBOL_DATA__V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:889: @clear"); /*clear*/ /*_.NEWBVAR__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:889: @clear"); /*clear*/ /*_.NCTX_VALBINDMAP__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:889: @clear"); /*clear*/ /*_.SETQ___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:889: @clear"); /*clear*/ /*_.NCTX_VALUELIST__V35*/ curfptr[34] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*_#IS_LIST__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:899: @cond"); /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:899: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:899: @block"); /*block*/{ /*_.LIST_FIRST__V36*/ curfptr[28] = (basilys_list_first((basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7])));; /*_#IS_PAIR__L11*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.LIST_FIRST__V36*/ curfptr[28])) == OBMAG_PAIR);; /*_#IF___L10*/ curfnum[9] = /*_#IS_PAIR__L11*/ curfnum[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:899: @clear"); /*clear*/ /*_.LIST_FIRST__V36*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:899: @clear"); /*clear*/ /*_#IS_PAIR__L11*/ curfnum[10] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:899: @cond.else"); /*_#IF___L10*/ curfnum[9] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:899: @cond"); /*cond*/ if (/*_#IF___L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:899: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:899: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:901: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:902: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:902: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[6])), (5), "CLASS_NREP_CONSTOCC");/*_.INST__V40*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:902: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[34]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:902: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[34]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:902: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[34]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:902: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[34]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:902: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V40*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V40*/ curfptr[34]), (4), (/*_.PROCS__V8*/ curfptr[7]), "NCLOC_PROCS"); ; /*_.FXOCC__V39*/ curfptr[33] = /*_.INST__V40*/ curfptr[34];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.FXOCC__V39*/ curfptr[33])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:911: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:911: @block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:911: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:911: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol value fxocc"; BASILYS_LOCATION("warmelt-normal.bysl:911: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-normal.bysl:911: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:911: @apply.arg"); argtab[3].bp_long = 911; /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FXOCC__V39*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V41*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:911: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:911: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:911: @cppif.else"); /*_.IFCPP___V41*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:915: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:915: @newclosure"); /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:915: @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)(/*_.FXOCC__V39*/ curfptr[33]); ; /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;} ; BASILYS_LOCATION("warmelt-normal.bysl:913: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:913: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41]; /*_.LIST_EVERY__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V38*/ curfptr[32] = /*_.FXOCC__V39*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:901: @clear"); /*clear*/ /*_.FXOCC__V39*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:901: @clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:901: @clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:901: @clear"); /*clear*/ /*_.LIST_EVERY__V45*/ curfptr[44] = 0 ;} ; /*_.IFELSE___V37*/ curfptr[30] = /*_.LET___V38*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:899: @clear"); /*clear*/ /*_.LET___V38*/ curfptr[32] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:899: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:899: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:928: @block"); /*block*/{ basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.BVAR__V25*/ curfptr[24])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:932: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:932: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:932: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:932: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol value bvar"; BASILYS_LOCATION("warmelt-normal.bysl:932: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10]; BASILYS_LOCATION("warmelt-normal.bysl:932: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:932: @apply.arg"); argtab[3].bp_long = 932; /*_.DEBUG_MSG_FUN__V48*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BVAR__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V47*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:932: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:932: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:932: @cppif.else"); /*_.IFCPP___V47*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V46*/ curfptr[33] = /*_.BVAR__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:928: @clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[28] = 0 ;} ; /*_.IFELSE___V37*/ curfptr[30] = /*_.LET___V46*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:899: @clear"); /*clear*/ /*_.LET___V46*/ curfptr[33] = 0 ;} ; } ; /*_.LET___V23*/ curfptr[22] = /*_.IFELSE___V37*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_.NCTX_VALBINDMAP__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_.BVAR__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_#NULL__L8*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_#IS_LIST__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_#IF___L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:885: @clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[30] = 0 ;} ; /*_.IFELSE___V22*/ curfptr[21] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:884: @clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:884: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:884: @block"); /*block*/{ /*_#IS_LIST__L14*/ curfnum[10] = (basilys_magic_discr((basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:937: @cond"); /*cond*/ if (/*_#IS_LIST__L14*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:937: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:937: @block"); /*block*/{ /*_.LIST_FIRST__V49*/ curfptr[44] = (basilys_list_first((basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7])));; /*_#IS_PAIR__L16*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.LIST_FIRST__V49*/ curfptr[44])) == OBMAG_PAIR);; /*_#IF___L15*/ curfnum[5] = /*_#IS_PAIR__L16*/ curfnum[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:937: @clear"); /*clear*/ /*_.LIST_FIRST__V49*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:937: @clear"); /*clear*/ /*_#IS_PAIR__L16*/ curfnum[8] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:937: @cond.else"); /*_#IF___L15*/ curfnum[5] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:937: @cond"); /*cond*/ if (/*_#IF___L15*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:937: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:937: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:940: @block"); /*block*/{ /*_#IS_A__L17*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:941: @cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:941: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:941: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:942: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V53*/ curfptr[33] = slot; }; ; /*_.BTY__V52*/ curfptr[28] = /*_.FBIND_TYPE__V53*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:941: @clear"); /*clear*/ /*_.FBIND_TYPE__V53*/ curfptr[33] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:941: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:941: @block"); /*block*/{ /*_#IS_A__L18*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-normal.bysl:943: @cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:943: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:943: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:944: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 1, "LETBIND_TYPE");/*_.LETBIND_TYPE__V55*/ curfptr[24] = slot; }; ; /*_.IFELSE___V54*/ curfptr[23] = /*_.LETBIND_TYPE__V55*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:943: @clear"); /*clear*/ /*_.LETBIND_TYPE__V55*/ curfptr[24] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:943: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:943: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:945: @block"); /*block*/{ /*_.PROGN___V56*/ curfptr[25] = (/*nil*/NULL);;} ; /*_.IFELSE___V54*/ curfptr[23] = /*_.PROGN___V56*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:943: @clear"); /*clear*/ /*_.PROGN___V56*/ curfptr[25] = 0 ;} ; } ; /*_.BTY__V52*/ curfptr[28] = /*_.IFELSE___V54*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:941: @clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:941: @clear"); /*clear*/ /*_.IFELSE___V54*/ curfptr[23] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:947: @cond"); /*cond*/ if (/*_.BTY__V52*/ curfptr[28]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:947: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:947: @block"); /*block*/{ /*_#__L19*/ curfnum[8] = ((/*_.BTY__V52*/ curfptr[28]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:948: @cond"); /*cond*/ if (/*_#__L19*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:948: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:948: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:951: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V57*/ curfptr[26] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "closed variable has non value type (boxing required)"), (basilys_ptr_t)(/*_.NAMED_NAME__V57*/ curfptr[26])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:948: @clear"); /*clear*/ /*_.NAMED_NAME__V57*/ curfptr[26] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:947: @clear"); /*clear*/ /*_#__L19*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:953: @compute"); /*_.BTY__V52*/ curfptr[28] = /*_.SETQ___V58*/ curfptr[30] = (/*!CTYPE_VALUE*/ curfrout->tabval[7]);; /*_#IS_A__L20*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_FIXED_BINDING*/ curfrout->tabval[15])));; BASILYS_LOCATION("warmelt-normal.bysl:954: @cond"); /*cond*/ if (/*_#IS_A__L20*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:954: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:954: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:955: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:956: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:956: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[6])), (5), "CLASS_NREP_CONSTOCC");/*_.INST__V62*/ curfptr[24] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:956: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[24]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:956: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[24]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:956: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[24]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:956: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[24]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:956: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V62*/ curfptr[24]))));basilys_putfield_object((/*_.INST__V62*/ curfptr[24]), (4), (/*_.PROCS__V8*/ curfptr[7]), "NCLOC_PROCS"); ; /*_.FXOCC__V61*/ curfptr[33] = /*_.INST__V62*/ curfptr[24];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.FXOCC__V61*/ curfptr[33])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:964: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:964: @block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[20] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:964: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:964: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol fxocc"; BASILYS_LOCATION("warmelt-normal.bysl:964: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[20]; BASILYS_LOCATION("warmelt-normal.bysl:964: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:964: @apply.arg"); argtab[3].bp_long = 964; /*_.DEBUG_MSG_FUN__V64*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FXOCC__V61*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:964: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:964: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:964: @cppif.else"); /*_.IFCPP___V63*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:968: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:968: @newclosure"); /*newclosure*/ /*_.LAMBDA___V66*/ curfptr[23] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:968: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V66*/ curfptr[23])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V66*/ curfptr[23]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V66*/ curfptr[23])->tabval[0] = (basilys_ptr_t)(/*_.FXOCC__V61*/ curfptr[33]); ; /*_.LAMBDA___V65*/ curfptr[26] = /*_.LAMBDA___V66*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-normal.bysl:966: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:966: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V65*/ curfptr[26]; /*_.LIST_EVERY__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V60*/ curfptr[44] = /*_.FXOCC__V61*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:955: @clear"); /*clear*/ /*_.FXOCC__V61*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:955: @clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:955: @clear"); /*clear*/ /*_.LAMBDA___V65*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:955: @clear"); /*clear*/ /*_.LIST_EVERY__V67*/ curfptr[66] = 0 ;} ; /*_.IFELSE___V59*/ curfptr[22] = /*_.LET___V60*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:954: @clear"); /*clear*/ /*_.LET___V60*/ curfptr[44] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:954: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:954: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:980: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:981: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:981: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CLOSEDOCC*/ curfrout->tabval[20])), (5), "CLASS_NREP_CLOSEDOCC");/*_.INST__V70*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:981: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[26]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:981: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[26]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:981: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[26]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:981: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[26]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:981: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V70*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V70*/ curfptr[26]), (4), (/*_.PROCS__V8*/ curfptr[7]), "NCLOC_PROCS"); ; /*_.CLOCC__V69*/ curfptr[25] = /*_.INST__V70*/ curfptr[26];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.CLOCC__V69*/ curfptr[25])); BASILYS_LOCATION("warmelt-normal.bysl:993: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:993: @newclosure"); /*newclosure*/ /*_.LAMBDA___V72*/ curfptr[44] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:993: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[44])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[44]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[44])->tabval[0] = (basilys_ptr_t)(/*_.CLOCC__V69*/ curfptr[25]); ; BASILYS_LOCATION("warmelt-normal.bysl:993: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V72*/ curfptr[44])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V72*/ curfptr[44]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V72*/ curfptr[44])->tabval[1] = (basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]); ; /*_.LAMBDA___V71*/ curfptr[66] = /*_.LAMBDA___V72*/ curfptr[44];;} ; BASILYS_LOCATION("warmelt-normal.bysl:991: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:991: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V71*/ curfptr[66]; /*_.LIST_EVERY__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V68*/ curfptr[33] = /*_.CLOCC__V69*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:980: @clear"); /*clear*/ /*_.CLOCC__V69*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:980: @clear"); /*clear*/ /*_.LAMBDA___V71*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:980: @clear"); /*clear*/ /*_.LIST_EVERY__V73*/ curfptr[72] = 0 ;} ; /*_.IFELSE___V59*/ curfptr[22] = /*_.LET___V68*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:954: @clear"); /*clear*/ /*_.LET___V68*/ curfptr[33] = 0 ;} ; } ; /*_.LET___V51*/ curfptr[41] = /*_.IFELSE___V59*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:940: @clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:940: @clear"); /*clear*/ /*_.BTY__V52*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:940: @clear"); /*clear*/ /*_.SETQ___V58*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:940: @clear"); /*clear*/ /*_#IS_A__L20*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:940: @clear"); /*clear*/ /*_.IFELSE___V59*/ curfptr[22] = 0 ;} ; /*_.IFELSE___V50*/ curfptr[32] = /*_.LET___V51*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:937: @clear"); /*clear*/ /*_.LET___V51*/ curfptr[41] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:937: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:937: @block"); /*block*/{ /*_#IS_A__L22*/ curfnum[20] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:1006: @cond"); /*cond*/ if (/*_#IS_A__L22*/ curfnum[20]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1006: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1006: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1007: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1010: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V76*/ curfptr[72] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1008: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1008: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[25])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V78*/ curfptr[28] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1008: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[28]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1008: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[28]), (2), (/*_.FBIND_TYPE__V76*/ curfptr[72]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1008: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[28]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1008: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V78*/ curfptr[28]))));basilys_putfield_object((/*_.INST__V78*/ curfptr[28]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; /*_.SYOCC__V77*/ curfptr[33] = /*_.INST__V78*/ curfptr[28];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.SYOCC__V77*/ curfptr[33])); /*_.LET___V75*/ curfptr[66] = /*_.SYOCC__V77*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1007: @clear"); /*clear*/ /*_.FBIND_TYPE__V76*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1007: @clear"); /*clear*/ /*_.SYOCC__V77*/ curfptr[33] = 0 ;} ; /*_.IFELSE___V74*/ curfptr[25] = /*_.LET___V75*/ curfptr[66];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1006: @clear"); /*clear*/ /*_.LET___V75*/ curfptr[66] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1006: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1006: @block"); /*block*/{ /*_#IS_A__L23*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_LET_BINDING*/ curfrout->tabval[14])));; BASILYS_LOCATION("warmelt-normal.bysl:1018: @cond"); /*cond*/ if (/*_#IS_A__L23*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1018: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1018: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1019: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1022: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 1, "LETBIND_TYPE");/*_.LETBIND_TYPE__V81*/ curfptr[41] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1020: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1020: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[25])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V83*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1020: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[33]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1020: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[33]), (2), (/*_.LETBIND_TYPE__V81*/ curfptr[41]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1020: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[33]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1020: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V83*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V83*/ curfptr[33]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; /*_.SYOCC__V82*/ curfptr[72] = /*_.INST__V83*/ curfptr[33];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.SYOCC__V82*/ curfptr[72])); /*_.LET___V80*/ curfptr[22] = /*_.SYOCC__V82*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1019: @clear"); /*clear*/ /*_.LETBIND_TYPE__V81*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1019: @clear"); /*clear*/ /*_.SYOCC__V82*/ curfptr[72] = 0 ;} ; /*_.IFELSE___V79*/ curfptr[30] = /*_.LET___V80*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1018: @clear"); /*clear*/ /*_.LET___V80*/ curfptr[22] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1018: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1018: @block"); /*block*/{ /*_#IS_A__L24*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[26])));; BASILYS_LOCATION("warmelt-normal.bysl:1030: @cond"); /*cond*/ if (/*_#IS_A__L24*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1030: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1030: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1031: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1031: @block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1031: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1031: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol function bind"; BASILYS_LOCATION("warmelt-normal.bysl:1031: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:1031: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1031: @apply.arg"); argtab[3].bp_long = 1031; /*_.DEBUG_MSG_FUN__V86*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V85*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V86*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1031: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1031: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1031: @cppif.else"); /*_.IFCPP___V85*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1032: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1032: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 2, "FUBIND_FUNDATA");/*_.FUBDAT__V88*/ curfptr[72] = slot; }; ; /*_#NULL__L26*/ curfnum[24] = ((/*_.FUBDAT__V88*/ curfptr[72]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1033: @cond"); /*cond*/ if (/*_#NULL__L26*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1033: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1033: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1035: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V89*/ curfptr[88] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward function reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V89*/ curfptr[88])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1033: @clear"); /*clear*/ /*_.NAMED_NAME__V89*/ curfptr[88] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1037: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1037: @block"); /*block*/{ /*_#IS_A__L27*/ curfnum[26] = basilys_is_instance_of((basilys_ptr_t)(/*_.FUBDAT__V88*/ curfptr[72]), (basilys_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[27])));; BASILYS_LOCATION("warmelt-normal.bysl:1037: @cond"); /*cond*/ if (/*_#IS_A__L27*/ curfnum[26]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1037: @cond.then"); /*_.IFELSE___V91*/ curfptr[90] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1037: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1037: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check fubdat"),( "warmelt-normal.bysl"),(1037), __FUNCTION__); /*clear*/ /*_.IFELSE___V91*/ curfptr[90] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V90*/ curfptr[88] = /*_.IFELSE___V91*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1037: @clear"); /*clear*/ /*_#IS_A__L27*/ curfnum[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1037: @clear"); /*clear*/ /*_.IFELSE___V91*/ curfptr[90] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1037: @cppif.else"); /*_.IFCPP___V90*/ curfptr[88] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.FUBDAT__V88*/ curfptr[72])); /*_.LET___V87*/ curfptr[22] = /*_.FUBDAT__V88*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1032: @clear"); /*clear*/ /*_.FUBDAT__V88*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1032: @clear"); /*clear*/ /*_#NULL__L26*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1032: @clear"); /*clear*/ /*_.IFCPP___V90*/ curfptr[88] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1030: @block"); /*block*/{ /*_.PROGN___V92*/ curfptr[90] = /*_.LET___V87*/ curfptr[22];;} ; /*_.IFELSE___V84*/ curfptr[66] = /*_.PROGN___V92*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1030: @clear"); /*clear*/ /*_.IFCPP___V85*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1030: @clear"); /*clear*/ /*_.LET___V87*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1030: @clear"); /*clear*/ /*_.PROGN___V92*/ curfptr[90] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1030: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1030: @block"); /*block*/{ /*_#IS_A__L28*/ curfnum[26] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[28])));; BASILYS_LOCATION("warmelt-normal.bysl:1043: @cond"); /*cond*/ if (/*_#IS_A__L28*/ curfnum[26]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1043: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1043: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1044: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1044: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 3, "PBIND_PRIMDATA");/*_.PRIBIDAT__V95*/ curfptr[41] = slot; }; ; /*_#NULL__L29*/ curfnum[24] = ((/*_.PRIBIDAT__V95*/ curfptr[41]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1045: @cond"); /*cond*/ if (/*_#NULL__L29*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1045: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1045: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1047: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V96*/ curfptr[22] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward primitive reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V96*/ curfptr[22])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1045: @clear"); /*clear*/ /*_.NAMED_NAME__V96*/ curfptr[22] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1050: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1050: @block"); /*block*/{ /*_#IS_A__L30*/ curfnum[29] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRIBIDAT__V95*/ curfptr[41]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[29])));; BASILYS_LOCATION("warmelt-normal.bysl:1050: @cond"); /*cond*/ if (/*_#IS_A__L30*/ curfnum[29]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1050: @cond.then"); /*_.IFELSE___V98*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1050: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1050: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check pribdat"),( "warmelt-normal.bysl"),(1050), __FUNCTION__); /*clear*/ /*_.IFELSE___V98*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V97*/ curfptr[90] = /*_.IFELSE___V98*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1050: @clear"); /*clear*/ /*_#IS_A__L30*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1050: @clear"); /*clear*/ /*_.IFELSE___V98*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1050: @cppif.else"); /*_.IFCPP___V97*/ curfptr[90] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.PRIBIDAT__V95*/ curfptr[41])); /*_.LET___V94*/ curfptr[88] = /*_.PRIBIDAT__V95*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1044: @clear"); /*clear*/ /*_.PRIBIDAT__V95*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1044: @clear"); /*clear*/ /*_#NULL__L29*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1044: @clear"); /*clear*/ /*_.IFCPP___V97*/ curfptr[90] = 0 ;} ; /*_.IFELSE___V93*/ curfptr[72] = /*_.LET___V94*/ curfptr[88];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1043: @clear"); /*clear*/ /*_.LET___V94*/ curfptr[88] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1043: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1043: @block"); /*block*/{ /*_#IS_A__L31*/ curfnum[29] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[30])));; BASILYS_LOCATION("warmelt-normal.bysl:1055: @cond"); /*cond*/ if (/*_#IS_A__L31*/ curfnum[29]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1055: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1055: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1056: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1056: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 3, "CBIND_CLADATA");/*_.CLDAT__V101*/ curfptr[90] = slot; }; ; /*_#NULL__L32*/ curfnum[24] = ((/*_.CLDAT__V101*/ curfptr[90]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1057: @cond"); /*cond*/ if (/*_#NULL__L32*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1057: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1057: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1059: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V102*/ curfptr[88] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward class reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V102*/ curfptr[88])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1057: @clear"); /*clear*/ /*_.NAMED_NAME__V102*/ curfptr[88] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1062: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1062: @block"); /*block*/{ /*_#IS_A__L33*/ curfnum[32] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLDAT__V101*/ curfptr[90]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[29])));; BASILYS_LOCATION("warmelt-normal.bysl:1062: @cond"); /*cond*/ if (/*_#IS_A__L33*/ curfnum[32]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1062: @cond.then"); /*_.IFELSE___V104*/ curfptr[103] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1062: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1062: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check cldat"),( "warmelt-normal.bysl"),(1062), __FUNCTION__); /*clear*/ /*_.IFELSE___V104*/ curfptr[103] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V103*/ curfptr[88] = /*_.IFELSE___V104*/ curfptr[103];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1062: @clear"); /*clear*/ /*_#IS_A__L33*/ curfnum[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1062: @clear"); /*clear*/ /*_.IFELSE___V104*/ curfptr[103] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1062: @cppif.else"); /*_.IFCPP___V103*/ curfptr[88] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.CLDAT__V101*/ curfptr[90])); /*_.LET___V100*/ curfptr[41] = /*_.CLDAT__V101*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1056: @clear"); /*clear*/ /*_.CLDAT__V101*/ curfptr[90] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1056: @clear"); /*clear*/ /*_#NULL__L32*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1056: @clear"); /*clear*/ /*_.IFCPP___V103*/ curfptr[88] = 0 ;} ; /*_.IFELSE___V99*/ curfptr[22] = /*_.LET___V100*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1055: @clear"); /*clear*/ /*_.LET___V100*/ curfptr[41] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1055: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1055: @block"); /*block*/{ /*_#IS_A__L34*/ curfnum[32] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[31])));; BASILYS_LOCATION("warmelt-normal.bysl:1067: @cond"); /*cond*/ if (/*_#IS_A__L34*/ curfnum[32]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1067: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1067: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1068: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1068: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 3, "FLBIND_FDATA");/*_.FDAT__V107*/ curfptr[88] = slot; }; ; /*_#NULL__L35*/ curfnum[24] = ((/*_.FDAT__V107*/ curfptr[88]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1069: @cond"); /*cond*/ if (/*_#NULL__L35*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1069: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1069: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1071: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V108*/ curfptr[41] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward field reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V108*/ curfptr[41])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1069: @clear"); /*clear*/ /*_.NAMED_NAME__V108*/ curfptr[41] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1074: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1074: @block"); /*block*/{ /*_#IS_A__L36*/ curfnum[35] = basilys_is_instance_of((basilys_ptr_t)(/*_.FDAT__V107*/ curfptr[88]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[29])));; BASILYS_LOCATION("warmelt-normal.bysl:1074: @cond"); /*cond*/ if (/*_#IS_A__L36*/ curfnum[35]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1074: @cond.then"); /*_.IFELSE___V110*/ curfptr[109] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1074: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1074: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check fdat"),( "warmelt-normal.bysl"),(1074), __FUNCTION__); /*clear*/ /*_.IFELSE___V110*/ curfptr[109] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V109*/ curfptr[41] = /*_.IFELSE___V110*/ curfptr[109];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1074: @clear"); /*clear*/ /*_#IS_A__L36*/ curfnum[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1074: @clear"); /*clear*/ /*_.IFELSE___V110*/ curfptr[109] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1074: @cppif.else"); /*_.IFCPP___V109*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.FDAT__V107*/ curfptr[88])); /*_.LET___V106*/ curfptr[90] = /*_.FDAT__V107*/ curfptr[88];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1068: @clear"); /*clear*/ /*_.FDAT__V107*/ curfptr[88] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1068: @clear"); /*clear*/ /*_#NULL__L35*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1068: @clear"); /*clear*/ /*_.IFCPP___V109*/ curfptr[41] = 0 ;} ; /*_.IFELSE___V105*/ curfptr[103] = /*_.LET___V106*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1067: @clear"); /*clear*/ /*_.LET___V106*/ curfptr[90] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1067: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1067: @block"); /*block*/{ /*_#IS_A__L37*/ curfnum[35] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[32])));; BASILYS_LOCATION("warmelt-normal.bysl:1079: @cond"); /*cond*/ if (/*_#IS_A__L37*/ curfnum[35]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1079: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1079: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1080: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1080: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 2, "SBIND_SELECTORDATA");/*_.SELDAT__V113*/ curfptr[41] = slot; }; ; /*_#NULL__L38*/ curfnum[24] = ((/*_.SELDAT__V113*/ curfptr[41]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1081: @cond"); /*cond*/ if (/*_#NULL__L38*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1081: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1081: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1083: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V114*/ curfptr[90] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward selector reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V114*/ curfptr[90])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1081: @clear"); /*clear*/ /*_.NAMED_NAME__V114*/ curfptr[90] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1086: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1086: @block"); /*block*/{ /*_#IS_A__L39*/ curfnum[38] = basilys_is_instance_of((basilys_ptr_t)(/*_.SELDAT__V113*/ curfptr[41]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[29])));; BASILYS_LOCATION("warmelt-normal.bysl:1086: @cond"); /*cond*/ if (/*_#IS_A__L39*/ curfnum[38]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1086: @cond.then"); /*_.IFELSE___V116*/ curfptr[115] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1086: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1086: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check seldat"),( "warmelt-normal.bysl"),(1086), __FUNCTION__); /*clear*/ /*_.IFELSE___V116*/ curfptr[115] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V115*/ curfptr[90] = /*_.IFELSE___V116*/ curfptr[115];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1086: @clear"); /*clear*/ /*_#IS_A__L39*/ curfnum[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1086: @clear"); /*clear*/ /*_.IFELSE___V116*/ curfptr[115] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1086: @cppif.else"); /*_.IFCPP___V115*/ curfptr[90] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.SELDAT__V113*/ curfptr[41])); /*_.LET___V112*/ curfptr[88] = /*_.SELDAT__V113*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1080: @clear"); /*clear*/ /*_.SELDAT__V113*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1080: @clear"); /*clear*/ /*_#NULL__L38*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1080: @clear"); /*clear*/ /*_.IFCPP___V115*/ curfptr[90] = 0 ;} ; /*_.IFELSE___V111*/ curfptr[109] = /*_.LET___V112*/ curfptr[88];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1079: @clear"); /*clear*/ /*_.LET___V112*/ curfptr[88] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1079: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1079: @block"); /*block*/{ /*_#IS_A__L40*/ curfnum[38] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[33])));; BASILYS_LOCATION("warmelt-normal.bysl:1091: @cond"); /*cond*/ if (/*_#IS_A__L40*/ curfnum[38]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1091: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1091: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1092: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1092: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), 2, "IBIND_DATA");/*_.INSDAT__V119*/ curfptr[90] = slot; }; ; /*_#NULL__L41*/ curfnum[24] = ((/*_.INSDAT__V119*/ curfptr[90]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1093: @cond"); /*cond*/ if (/*_#NULL__L41*/ curfnum[24]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1093: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1093: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1095: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V120*/ curfptr[88] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4]), ( "unresolved forward instance reference to"), (basilys_ptr_t)(/*_.NAMED_NAME__V120*/ curfptr[88])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1093: @clear"); /*clear*/ /*_.NAMED_NAME__V120*/ curfptr[88] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1098: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1098: @block"); /*block*/{ /*_#IS_A__L42*/ curfnum[41] = basilys_is_instance_of((basilys_ptr_t)(/*_.INSDAT__V119*/ curfptr[90]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[29])));; BASILYS_LOCATION("warmelt-normal.bysl:1098: @cond"); /*cond*/ if (/*_#IS_A__L42*/ curfnum[41]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1098: @cond.then"); /*_.IFELSE___V122*/ curfptr[121] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1098: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1098: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_symbol check insdat"),( "warmelt-normal.bysl"),(1098), __FUNCTION__); /*clear*/ /*_.IFELSE___V122*/ curfptr[121] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V121*/ curfptr[88] = /*_.IFELSE___V122*/ curfptr[121];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1098: @clear"); /*clear*/ /*_#IS_A__L42*/ curfnum[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1098: @clear"); /*clear*/ /*_.IFELSE___V122*/ curfptr[121] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1098: @cppif.else"); /*_.IFCPP___V121*/ curfptr[88] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.INSDAT__V119*/ curfptr[90])); /*_.LET___V118*/ curfptr[41] = /*_.INSDAT__V119*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1092: @clear"); /*clear*/ /*_.INSDAT__V119*/ curfptr[90] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1092: @clear"); /*clear*/ /*_#NULL__L41*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1092: @clear"); /*clear*/ /*_.IFCPP___V121*/ curfptr[88] = 0 ;} ; /*_.IFELSE___V117*/ curfptr[115] = /*_.LET___V118*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1091: @clear"); /*clear*/ /*_.LET___V118*/ curfptr[41] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1091: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1091: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1105: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1105: @block"); /*block*/{ /*_#THE_CALLCOUNT__L43*/ curfnum[41] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1105: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1105: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol const? bind"; BASILYS_LOCATION("warmelt-normal.bysl:1105: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L43*/ curfnum[41]; BASILYS_LOCATION("warmelt-normal.bysl:1105: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1105: @apply.arg"); argtab[3].bp_long = 1105; /*_.DEBUG_MSG_FUN__V124*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BIND__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V123*/ curfptr[121] = /*_.DEBUG_MSG_FUN__V124*/ curfptr[90];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1105: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L43*/ curfnum[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1105: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V124*/ curfptr[90] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1105: @cppif.else"); /*_.IFCPP___V123*/ curfptr[121] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1106: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1107: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1107: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTOCC*/ curfrout->tabval[6])), (5), "CLASS_NREP_CONSTOCC");/*_.INST__V127*/ curfptr[90] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1107: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V127*/ curfptr[90]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1107: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V127*/ curfptr[90]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1107: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V127*/ curfptr[90]), (1), (/*_.RECV__V2*/ curfptr[1]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1107: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V127*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V127*/ curfptr[90]), (3), (/*_.BIND__V7*/ curfptr[6]), "NOCC_BIND"); ; /*_.KOCC__V126*/ curfptr[41] = /*_.INST__V127*/ curfptr[90];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1112: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1112: @block"); /*block*/{ /*_#THE_CALLCOUNT__L44*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1112: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1112: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol kocc"; BASILYS_LOCATION("warmelt-normal.bysl:1112: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L44*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:1112: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1112: @apply.arg"); argtab[3].bp_long = 1112; /*_.DEBUG_MSG_FUN__V129*/ curfptr[128] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.KOCC__V126*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V128*/ curfptr[127] = /*_.DEBUG_MSG_FUN__V129*/ curfptr[128];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1112: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L44*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1112: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V129*/ curfptr[128] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1112: @cppif.else"); /*_.IFCPP___V128*/ curfptr[127] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.SYCMAP__V17*/ curfptr[12]), (basilysobject_ptr_t) (/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.KOCC__V126*/ curfptr[41])); BASILYS_LOCATION("warmelt-normal.bysl:1118: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1118: @newclosure"); /*newclosure*/ /*_.LAMBDA___V131*/ curfptr[130] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_38*/ curfrout->tabval[38])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1118: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V131*/ curfptr[130])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V131*/ curfptr[130]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V131*/ curfptr[130])->tabval[0] = (basilys_ptr_t)(/*_.KOCC__V126*/ curfptr[41]); ; /*_.LAMBDA___V130*/ curfptr[128] = /*_.LAMBDA___V131*/ curfptr[130];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1116: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1116: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V130*/ curfptr[128]; /*_.LIST_EVERY__V132*/ curfptr[131] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.PROCS__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V125*/ curfptr[88] = /*_.KOCC__V126*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1106: @clear"); /*clear*/ /*_.KOCC__V126*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1106: @clear"); /*clear*/ /*_.IFCPP___V128*/ curfptr[127] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1106: @clear"); /*clear*/ /*_.LAMBDA___V130*/ curfptr[128] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1106: @clear"); /*clear*/ /*_.LIST_EVERY__V132*/ curfptr[131] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1104: @block"); /*block*/{ /*_.PROGN___V133*/ curfptr[41] = /*_.LET___V125*/ curfptr[88];;} ; /*_.IFELSE___V117*/ curfptr[115] = /*_.PROGN___V133*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1091: @clear"); /*clear*/ /*_.IFCPP___V123*/ curfptr[121] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1091: @clear"); /*clear*/ /*_.LET___V125*/ curfptr[88] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1091: @clear"); /*clear*/ /*_.PROGN___V133*/ curfptr[41] = 0 ;} ; } ; /*_.IFELSE___V111*/ curfptr[109] = /*_.IFELSE___V117*/ curfptr[115];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1079: @clear"); /*clear*/ /*_#IS_A__L40*/ curfnum[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1079: @clear"); /*clear*/ /*_.IFELSE___V117*/ curfptr[115] = 0 ;} ; } ; /*_.IFELSE___V105*/ curfptr[103] = /*_.IFELSE___V111*/ curfptr[109];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1067: @clear"); /*clear*/ /*_#IS_A__L37*/ curfnum[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1067: @clear"); /*clear*/ /*_.IFELSE___V111*/ curfptr[109] = 0 ;} ; } ; /*_.IFELSE___V99*/ curfptr[22] = /*_.IFELSE___V105*/ curfptr[103];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1055: @clear"); /*clear*/ /*_#IS_A__L34*/ curfnum[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1055: @clear"); /*clear*/ /*_.IFELSE___V105*/ curfptr[103] = 0 ;} ; } ; /*_.IFELSE___V93*/ curfptr[72] = /*_.IFELSE___V99*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1043: @clear"); /*clear*/ /*_#IS_A__L31*/ curfnum[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1043: @clear"); /*clear*/ /*_.IFELSE___V99*/ curfptr[22] = 0 ;} ; } ; /*_.IFELSE___V84*/ curfptr[66] = /*_.IFELSE___V93*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1030: @clear"); /*clear*/ /*_#IS_A__L28*/ curfnum[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1030: @clear"); /*clear*/ /*_.IFELSE___V93*/ curfptr[72] = 0 ;} ; } ; /*_.IFELSE___V79*/ curfptr[30] = /*_.IFELSE___V84*/ curfptr[66];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1018: @clear"); /*clear*/ /*_#IS_A__L24*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1018: @clear"); /*clear*/ /*_.IFELSE___V84*/ curfptr[66] = 0 ;} ; } ; /*_.IFELSE___V74*/ curfptr[25] = /*_.IFELSE___V79*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1006: @clear"); /*clear*/ /*_#IS_A__L23*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1006: @clear"); /*clear*/ /*_.IFELSE___V79*/ curfptr[30] = 0 ;} ; } ; /*_.IFELSE___V50*/ curfptr[32] = /*_.IFELSE___V74*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:937: @clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:937: @clear"); /*clear*/ /*_.IFELSE___V74*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V22*/ curfptr[21] = /*_.IFELSE___V50*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:884: @clear"); /*clear*/ /*_#IS_LIST__L14*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:884: @clear"); /*clear*/ /*_#IF___L15*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:884: @clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[32] = 0 ;} ; } ; /*_.IFELSE___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:882: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:882: @clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; } ; /*_.LET___V16*/ curfptr[11] = /*_.IFELSE___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:877: @clear"); /*clear*/ /*_.SYCMAP__V17*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:877: @clear"); /*clear*/ /*_.SYCA__V18*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:877: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:877: @clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[19] = 0 ;} ; /*_.MULTI___V6*/ curfptr[5] = /*_.LET___V16*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_#NULL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_.IF___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_.LET___V16*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:865: @clear"); /*clear*/ /*_.PROCS__V8*/ curfptr[7] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:864: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V6*/ curfptr[5];; BASILYS_LOCATION("warmelt-normal.bysl:864: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:864: @clear"); /*clear*/ /*_.MULTI___V6*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_SYMBOL", 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_20_NORMEXP_SYMBOL*/ 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 10 void* varptr[10]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:915: @getarg"); /*_.PR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:915: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:916: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:916: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:916: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:916: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:916: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:916: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pr"),( "warmelt-normal.bysl"),(916), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:916: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:916: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:916: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:917: @block"); /*block*/{ /*_.CLBOX__V5*/ curfptr[3] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~FXOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:918: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), 5, "NRPRO_CONST");/*_.CNSTPROC__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:921: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:921: @newclosure"); /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:921: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[0] = (basilys_ptr_t)((/*~FXOCC*/ curfclos->tabval[0])); ; BASILYS_LOCATION("warmelt-normal.bysl:921: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[1] = (basilys_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]); ; /*_.LAMBDA___V7*/ curfptr[6] = /*_.LAMBDA___V8*/ curfptr[7];;} ; BASILYS_LOCATION("warmelt-normal.bysl:919: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:919: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[6]; /*_.LIST_EVERY__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CNSTPROC__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:922: @block"); /*block*/{ /*_.NEWCL__V10*/ curfptr[9] = basilys_box_content((basilysbox_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]));; BASILYS_LOCATION("warmelt-normal.bysl:923: @cond"); /*cond*/ if (/*_.NEWCL__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:923: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:923: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.CNSTPROC__V6*/ curfptr[5]), (basilys_ptr_t)(/*_.NEWCL__V10*/ curfptr[9])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:922: @clear"); /*clear*/ /*_.NEWCL__V10*/ curfptr[9] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:917: @clear"); /*clear*/ /*_.CLBOX__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:917: @clear"); /*clear*/ /*_.CNSTPROC__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:917: @clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:917: @clear"); /*clear*/ /*_.LIST_EVERY__V9*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:915: @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_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 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:921: @getarg"); /*_.CX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:921: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.CX__V2*/ curfptr[1]) == ((/*~FXOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:921: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:921: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:921: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~CLBOX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*nil*/NULL))); BASILYS_LOCATION("warmelt-normal.bysl:921: @block"); /*block*/{ /*_.PROGN___V4*/ curfptr[3] = (/*nil*/NULL);;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:921: @clear"); /*clear*/ /*_.PROGN___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:921: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:921: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:921: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:921: @clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:921: @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_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_23_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_; } curfram__; 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-normal.bysl:968: @getarg"); /*_.PR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:968: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:969: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:969: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:969: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:969: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:969: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:969: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pr"),( "warmelt-normal.bysl"),(969), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:969: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:969: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:969: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:970: @block"); /*block*/{ /*_.CLBOX__V5*/ curfptr[3] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~FXOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:971: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), 5, "NRPRO_CONST");/*_.CNSTPROC__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:974: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:974: @newclosure"); /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:974: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[0] = (basilys_ptr_t)((/*~FXOCC*/ curfclos->tabval[0])); ; BASILYS_LOCATION("warmelt-normal.bysl:974: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[1] = (basilys_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]); ; /*_.LAMBDA___V7*/ curfptr[6] = /*_.LAMBDA___V8*/ curfptr[7];;} ; BASILYS_LOCATION("warmelt-normal.bysl:972: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:972: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[6]; /*_.LIST_EVERY__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CNSTPROC__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:975: @block"); /*block*/{ /*_.NEWCL__V10*/ curfptr[9] = basilys_box_content((basilysbox_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]));; BASILYS_LOCATION("warmelt-normal.bysl:976: @cond"); /*cond*/ if (/*_.NEWCL__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:976: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:976: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.CNSTPROC__V6*/ curfptr[5]), (basilys_ptr_t)(/*_.NEWCL__V10*/ curfptr[9])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:975: @clear"); /*clear*/ /*_.NEWCL__V10*/ curfptr[9] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:970: @clear"); /*clear*/ /*_.CLBOX__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:970: @clear"); /*clear*/ /*_.CNSTPROC__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:970: @clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:970: @clear"); /*clear*/ /*_.LIST_EVERY__V9*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:968: @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_23_LAMBDA_*/ static basilys_ptr_t rout_24_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_24_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_; } curfram__; 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-normal.bysl:974: @getarg"); /*_.CX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:974: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.CX__V2*/ curfptr[1]) == ((/*~FXOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:974: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:974: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:974: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~CLBOX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*nil*/NULL))); BASILYS_LOCATION("warmelt-normal.bysl:974: @block"); /*block*/{ /*_.PROGN___V4*/ curfptr[3] = (/*nil*/NULL);;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:974: @clear"); /*clear*/ /*_.PROGN___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:974: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:974: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:974: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:974: @clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:974: @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_24_LAMBDA_*/ static basilys_ptr_t rout_25_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_25_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_; } curfram__; 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-normal.bysl:993: @getarg"); /*_.PR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:993: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:994: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:994: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:994: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:994: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:994: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:994: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pr"),( "warmelt-normal.bysl"),(994), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:994: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:994: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:994: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:995: @block"); /*block*/{ /*_.CLBOX__V5*/ curfptr[3] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~CLOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:996: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), 4, "NRPRO_CLOSEDB");/*_.CLOBINDL__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:999: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:999: @newclosure"); /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:999: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[0] = (basilys_ptr_t)((/*~BIND*/ curfclos->tabval[1])); ; BASILYS_LOCATION("warmelt-normal.bysl:999: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V8*/ curfptr[7])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V8*/ curfptr[7]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V8*/ curfptr[7])->tabval[1] = (basilys_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]); ; /*_.LAMBDA___V7*/ curfptr[6] = /*_.LAMBDA___V8*/ curfptr[7];;} ; BASILYS_LOCATION("warmelt-normal.bysl:997: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:997: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[6]; /*_.LIST_EVERY__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOBINDL__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1000: @block"); /*block*/{ /*_.NEWCL__V10*/ curfptr[9] = basilys_box_content((basilysbox_ptr_t)(/*_.CLBOX__V5*/ curfptr[3]));; BASILYS_LOCATION("warmelt-normal.bysl:1001: @cond"); /*cond*/ if (/*_.NEWCL__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1001: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1001: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.CLOBINDL__V6*/ curfptr[5]), (basilys_ptr_t)((/*~BIND*/ curfclos->tabval[1]))); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1000: @clear"); /*clear*/ /*_.NEWCL__V10*/ curfptr[9] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:995: @clear"); /*clear*/ /*_.CLBOX__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:995: @clear"); /*clear*/ /*_.CLOBINDL__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:995: @clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:995: @clear"); /*clear*/ /*_.LIST_EVERY__V9*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:993: @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_25_LAMBDA_*/ static basilys_ptr_t rout_26_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_26_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_; } curfram__; 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-normal.bysl:999: @getarg"); /*_.CLBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:999: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.CLBND__V2*/ curfptr[1]) == ((/*~BIND*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:999: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:999: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:999: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~CLBOX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*nil*/NULL))); BASILYS_LOCATION("warmelt-normal.bysl:999: @block"); /*block*/{ /*_.PROGN___V4*/ curfptr[3] = (/*nil*/NULL);;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:999: @clear"); /*clear*/ /*_.PROGN___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:999: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:999: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:999: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:999: @clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:999: @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_26_LAMBDA_*/ static basilys_ptr_t rout_27_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_27_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 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1118: @getarg"); /*_.PR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1118: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1119: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1119: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1119: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1119: @apply.arg"); argtab[0].bp_cstring = "normexp_symbol const pr"; BASILYS_LOCATION("warmelt-normal.bysl:1119: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1119: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1119: @apply.arg"); argtab[3].bp_long = 1119; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PR__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-normal.bysl:1119: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1119: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1119: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1120: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1120: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1120: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1120: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1120: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1120: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pr"),( "warmelt-normal.bysl"),(1120), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1120: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1120: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1120: @cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1121: @block"); /*block*/{ /*_.CLBOX__V7*/ curfptr[5] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~KOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1122: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PR__V2*/ curfptr[1]), 5, "NRPRO_CONST");/*_.CONSTPROC__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1125: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1125: @newclosure"); /*newclosure*/ /*_.LAMBDA___V10*/ curfptr[9] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:1125: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[0] = (basilys_ptr_t)((/*~KOCC*/ curfclos->tabval[0])); ; BASILYS_LOCATION("warmelt-normal.bysl:1125: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V10*/ curfptr[9])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V10*/ curfptr[9]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V10*/ curfptr[9])->tabval[1] = (basilys_ptr_t)(/*_.CLBOX__V7*/ curfptr[5]); ; /*_.LAMBDA___V9*/ curfptr[8] = /*_.LAMBDA___V10*/ curfptr[9];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1123: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1123: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V9*/ curfptr[8]; /*_.LIST_EVERY__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CONSTPROC__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1126: @block"); /*block*/{ /*_.NEWCL__V12*/ curfptr[11] = basilys_box_content((basilysbox_ptr_t)(/*_.CLBOX__V7*/ curfptr[5]));; BASILYS_LOCATION("warmelt-normal.bysl:1127: @cond"); /*cond*/ if (/*_.NEWCL__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1127: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1127: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.CONSTPROC__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.NEWCL__V12*/ curfptr[11])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1126: @clear"); /*clear*/ /*_.NEWCL__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1121: @clear"); /*clear*/ /*_.CLBOX__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1121: @clear"); /*clear*/ /*_.CONSTPROC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1121: @clear"); /*clear*/ /*_.LAMBDA___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1121: @clear"); /*clear*/ /*_.LIST_EVERY__V11*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1118: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1118: @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_27_LAMBDA_*/ static basilys_ptr_t rout_28_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_28_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_; } curfram__; 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-normal.bysl:1125: @getarg"); /*_.CL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1125: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.CL__V2*/ curfptr[1]) == ((/*~KOCC*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1125: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1125: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1125: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~CLBOX*/ curfclos->tabval[1])), (basilys_ptr_t)((/*nil*/NULL))); BASILYS_LOCATION("warmelt-normal.bysl:1125: @block"); /*block*/{ /*_.PROGN___V4*/ curfptr[3] = (/*nil*/NULL);;} ; /*_.IF___V3*/ curfptr[2] = /*_.PROGN___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1125: @clear"); /*clear*/ /*_.PROGN___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1125: @cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1125: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1125: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1125: @clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1125: @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_28_LAMBDA_*/ static basilys_ptr_t rout_29_GECTYP_SYMOCC(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_GECTYP_SYMOCC_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_; } curfram__; 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("GECTYP_SYMOCC", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1134: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1134: @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-normal.bysl:1134: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1135: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1135: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1135: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1135: @cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1135: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1135: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check recv"),( "warmelt-normal.bysl"),(1135), __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1135: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1135: @clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1135: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1136: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V6*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1134: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NOCC_CTYP__V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-normal.bysl:1134: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1134: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1134: @clear"); /*clear*/ /*_.NOCC_CTYP__V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("GECTYP_SYMOCC", 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_GECTYP_SYMOCC*/ static basilys_ptr_t rout_30_NORMEXP_PRIMITIVE(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_NORMEXP_PRIMITIVE_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 16 long varnum[16]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_PRIMITIVE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1143: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1143: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1143: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1143: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive recv"; BASILYS_LOCATION("warmelt-normal.bysl:1143: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1143: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1143: @apply.arg"); argtab[3].bp_long = 1143; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 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___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1143: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1143: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1143: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1144: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1144: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_PRIMITIVE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1144: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1144: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1144: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1144: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prim recv"),( "warmelt-normal.bysl"),(1144), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1144: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1144: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1144: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1145: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1145: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1145: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1145: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1145: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1145: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1145), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1145: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1145: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1145: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1146: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1146: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:1146: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1146: @cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1146: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1146: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1146), __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1146: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1146: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1146: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1147: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1147: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1148: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SPRIM_OPER");/*_.SOPER__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1149: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SPRIM_ARGS");/*_.SARGS__V17*/ curfptr[16] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1151: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1151: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:1151: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1151: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1151: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1151: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check soper"),( "warmelt-normal.bysl"),(1151), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1151: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1151: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1151: @cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1152: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:1152: @multiapply.appl"); /*_.NARGS__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.SARGS__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1152: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1155: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1155: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.SOPNAMSTR__V24*/ curfptr[23] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1156: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 2, "PRIM_FORMALS");/*_.SOPFORMALS__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1157: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 3, "PRIM_TYPE");/*_.SOPTYPE__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1158: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 4, "PRIM_EXPANSION");/*_.SOPEXP__V27*/ curfptr[26] = slot; }; ; /*_#NBARG__L6*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.NARGS__V21*/ curfptr[20])));; /*_#NBEXP__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.SOPEXP__V27*/ curfptr[26])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1162: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1162: @block"); /*block*/{ /*_#IS_A__L8*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.SOPTYPE__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1162: @cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1162: @cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1162: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1162: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check soptype"),( "warmelt-normal.bysl"),(1162), __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1162: @clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1162: @clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1162: @cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#MULTIPLE_LENGTH__L9*/ curfnum[7] = (basilys_multiple_length((basilys_ptr_t)(/*_.SOPFORMALS__V25*/ curfptr[24])));; /*_#I__L10*/ curfnum[9] = ((/*_#NBARG__L6*/ curfnum[0]) != (/*_#MULTIPLE_LENGTH__L9*/ curfnum[7]));; BASILYS_LOCATION("warmelt-normal.bysl:1163: @cond"); /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1163: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1163: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "length mismatch between formals & actuals in primitive"), (basilys_ptr_t)(/*_.SOPNAMSTR__V24*/ curfptr[23])); /*_.THE_NULL__V31*/ curfptr[30] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1167: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V31*/ curfptr[30];; BASILYS_LOCATION("warmelt-normal.bysl:1167: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1164: @block"); /*block*/{ /*_.PROGN___V33*/ curfptr[32] = /*_.RETURN___V32*/ curfptr[31];;} ; /*_.IF___V30*/ curfptr[28] = /*_.PROGN___V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1163: @clear"); /*clear*/ /*_.THE_NULL__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1163: @clear"); /*clear*/ /*_.RETURN___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1163: @clear"); /*clear*/ /*_.PROGN___V33*/ curfptr[32] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1163: @cond.else"); /*_.IF___V30*/ curfptr[28] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @block"); /*block*/{ /*_#I__L11*/ curfnum[10] = ((3) * (/*_#NBARG__L6*/ curfnum[0]));; /*_#IRAW__L12*/ curfnum[11] = ((/*_#I__L11*/ curfnum[10]) / (2));; /*_#I__L13*/ curfnum[12] = ((5) + (/*_#IRAW__L12*/ curfnum[11]));; /*_.BMAP__V35*/ curfptr[31] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[7])), (/*_#I__L13*/ curfnum[12])));; /*_.EXPARGS__V36*/ curfptr[32] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBEXP__L7*/ curfnum[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1174: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1174: @newclosure"); /*newclosure*/ /*_.LAMBDA___V38*/ curfptr[37] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:1174: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V38*/ curfptr[37])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V38*/ curfptr[37]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V38*/ curfptr[37])->tabval[0] = (basilys_ptr_t)(/*_.NARGS__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-normal.bysl:1174: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V38*/ curfptr[37])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V38*/ curfptr[37]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V38*/ curfptr[37])->tabval[1] = (basilys_ptr_t)(/*_.BMAP__V35*/ curfptr[31]); ; /*_.LAMBDA___V37*/ curfptr[36] = /*_.LAMBDA___V38*/ curfptr[37];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1172: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1172: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V37*/ curfptr[36]; /*_.MULTIPLE_EVERY__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SOPFORMALS__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1182: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1182: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1182: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1182: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive bmap in sopexp"; BASILYS_LOCATION("warmelt-normal.bysl:1182: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:1182: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1182: @apply.arg"); argtab[3].bp_long = 1182; /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.BMAP__V35*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1182: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1182: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1182: @cppif.else"); /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1185: @newclosure"); /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[42] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (5)); ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @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)(/*_.BMAP__V35*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @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)(/*_.RECV__V2*/ curfptr[1]); ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @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)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[3] = (basilys_ptr_t)(/*_.SOPNAMSTR__V24*/ curfptr[23]); ; BASILYS_LOCATION("warmelt-normal.bysl:1185: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[42])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[42]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[42])->tabval[4] = (basilys_ptr_t)(/*_.EXPARGS__V36*/ curfptr[32]); ; /*_.LAMBDA___V42*/ curfptr[40] = /*_.LAMBDA___V43*/ curfptr[42];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1183: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1183: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[40]; /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SOPEXP__V27*/ curfptr[26]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1211: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "SDEF_NAME");/*_.SDEF_NAME__V46*/ curfptr[45] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @apply"); /*apply*/{ /*_.CSYM__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.SDEF_NAME__V46*/ curfptr[45]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1217: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1217: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CHUNK*/ curfrout->tabval[19])), (3), "CLASS_NREP_CHUNK");/*_.INST__V49*/ curfptr[48] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1217: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1217: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.EXPARGS__V36*/ curfptr[32]), "NCHUNK_EXPANSION"); ; BASILYS_LOCATION("warmelt-normal.bysl:1217: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.SOPER__V16*/ curfptr[15]), "NCHUNK_PRIMITIVE"); ; /*_.INST___V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1212: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1212: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V51*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1212: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1212: @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), (/*_.CSYM__V47*/ curfptr[46]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1212: @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), (/*_.SOPTYPE__V26*/ curfptr[25]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1212: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.INST___V48*/ curfptr[47]), "LETBIND_EXPR"); ; /*_.CBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1222: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1222: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1222: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1222: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.SOPTYPE__V26*/ curfptr[25]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1222: @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), (/*_.CSYM__V47*/ curfptr[46]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1222: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.CBIND__V50*/ curfptr[49]), "NOCC_BIND"); ; /*_.CLOCC__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; /*_#IS_LIST__L15*/ curfnum[13] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBIND__V22*/ curfptr[21])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:1228: @cond"); /*cond*/ if (/*_#IS_LIST__L15*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1228: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1228: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.CBIND__V50*/ curfptr[49])); /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1228: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1228: @block"); /*block*/{ /*_.MAKE_LIST__V54*/ curfptr[53] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[21]))));; BASILYS_LOCATION("warmelt-normal.bysl:1231: @compute"); /*_.NBIND__V22*/ curfptr[21] = /*_.SETQ___V55*/ curfptr[54] = /*_.MAKE_LIST__V54*/ curfptr[53];; basilysgc_append_list((basilys_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.CBIND__V50*/ curfptr[49])); BASILYS_LOCATION("warmelt-normal.bysl:1230: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1228: @clear"); /*clear*/ /*_.MAKE_LIST__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1228: @clear"); /*clear*/ /*_.SETQ___V55*/ curfptr[54] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1234: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1234: @block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1234: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1234: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1234: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15]; BASILYS_LOCATION("warmelt-normal.bysl:1234: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1234: @apply.arg"); argtab[3].bp_long = 1234; /*_.DEBUG_MSG_FUN__V57*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOCC__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1234: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1234: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1234: @cppif.else"); /*_.IFCPP___V56*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1235: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V52*/ curfptr[51];; BASILYS_LOCATION("warmelt-normal.bysl:1235: @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) (/*_.NBIND__V22*/ curfptr[21]); ; BASILYS_LOCATION("warmelt-normal.bysl:1235: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V45*/ curfptr[44] = /*_.RETURN___V58*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.SDEF_NAME__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.CSYM__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.INST___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.CBIND__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.CLOCC__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_#IS_LIST__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1211: @clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[54] = 0 ;} ; /*_.LET___V34*/ curfptr[30] = /*_.LET___V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_#IRAW__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.BMAP__V35*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.EXPARGS__V36*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.LAMBDA___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.LAMBDA___V42*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1169: @clear"); /*clear*/ /*_.LET___V45*/ curfptr[44] = 0 ;} ; /*_.LET___V23*/ curfptr[22] = /*_.LET___V34*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.SOPNAMSTR__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.SOPFORMALS__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.SOPTYPE__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.SOPEXP__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_#NBARG__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_#NBEXP__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.IF___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1155: @clear"); /*clear*/ /*_.LET___V34*/ curfptr[30] = 0 ;} ; /*_.MULTI___V20*/ curfptr[18] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1152: @clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1152: @clear"); /*clear*/ /*_.NBIND__V22*/ curfptr[21] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1147: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1147: @clear"); /*clear*/ /*_.SOPER__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1147: @clear"); /*clear*/ /*_.SARGS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1147: @clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1147: @clear"); /*clear*/ /*_.MULTI___V20*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1142: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1142: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1142: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1142: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1142: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1142: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1142: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_PRIMITIVE", 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_NORMEXP_PRIMITIVE*/ static basilys_ptr_t rout_31_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_31_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 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1174: @getarg"); /*_.FORB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1174: @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-normal.bysl:1174: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1175: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1175: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FORB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1175: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1175: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1175: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1175: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check forb"),( "warmelt-normal.bysl"),(1175), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1175: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1175: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1175: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1176: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1176: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORB__V2*/ curfptr[1]), 0, "BINDER");/*_.FORARG__V5*/ curfptr[3] = slot; }; ; /*_.ACTARG__V6*/ curfptr[5] = (basilys_multiple_nth((basilys_ptr_t)((/*~NARGS*/ curfclos->tabval[0])), (/*_#IX__L1*/ curfnum[0])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1178: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1178: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1178: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1178: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive forarg"; BASILYS_LOCATION("warmelt-normal.bysl:1178: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:1178: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1178: @apply.arg"); argtab[3].bp_long = 1178; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.FORARG__V5*/ curfptr[3]), (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-normal.bysl:1178: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1178: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1178: @cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1179: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1179: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1179: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1179: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive actarg"; BASILYS_LOCATION("warmelt-normal.bysl:1179: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:1179: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1179: @apply.arg"); argtab[3].bp_long = 1179; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ACTARG__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1179: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1179: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1179: @cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~BMAP*/ curfclos->tabval[1])), (basilysobject_ptr_t) (/*_.FORARG__V5*/ curfptr[3]), (basilys_ptr_t)(/*_.ACTARG__V6*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1176: @clear"); /*clear*/ /*_.FORARG__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1176: @clear"); /*clear*/ /*_.ACTARG__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1176: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1176: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1174: @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_31_LAMBDA_*/ static basilys_ptr_t rout_32_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_32_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 7 long varnum[7]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1185: @getarg"); /*_.EXCU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1185: @getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#JX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1185: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1187: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.EXCU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1188: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1188: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1188: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1189: @block"); /*block*/{ /*_.BVAL__V5*/ curfptr[4] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)((/*~BMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.EXCU__V2*/ curfptr[1])));; /*_#NULL__L3*/ curfnum[2] = ((/*_.BVAL__V5*/ curfptr[4]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1190: @cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1190: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1190: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1192: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1192: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1192: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1192: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive recv unbound symbol in expansion"; BASILYS_LOCATION("warmelt-normal.bysl:1192: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:1192: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1192: @apply.arg"); argtab[3].bp_long = 1192; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~RECV*/ curfclos->tabval[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-normal.bysl:1192: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1192: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1192: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1193: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1193: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1193: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1193: @apply.arg"); argtab[0].bp_cstring = "normexp_primitive excu"; BASILYS_LOCATION("warmelt-normal.bysl:1193: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:1193: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1193: @apply.arg"); argtab[3].bp_long = 1193; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.EXCU__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-normal.bysl:1193: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1193: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1193: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1195: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.EXCU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V10*/ curfptr[8] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "unbound symbol in primitive expansion"), (basilys_ptr_t)(/*_.NAMED_NAME__V10*/ curfptr[8])); basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "bad primitive name"), (basilys_ptr_t)((/*~SOPNAMSTR*/ curfclos->tabval[3]))); BASILYS_LOCATION("warmelt-normal.bysl:1191: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1190: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1190: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1190: @clear"); /*clear*/ /*_.NAMED_NAME__V10*/ curfptr[8] = 0 ;} ; } /*noelse*/ ; /*_.LET___V4*/ curfptr[3] = /*_.BVAL__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1189: @clear"); /*clear*/ /*_.BVAL__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1189: @clear"); /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ;} ; /*_.EXVAL__V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1188: @clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1188: @cond.else"); /*_.EXVAL__V3*/ curfptr[2] = /*_.EXCU__V2*/ curfptr[1];; } ; /*_#NULL__L6*/ curfnum[3] = ((/*_.EXVAL__V3*/ curfptr[2]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1200: @cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1200: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1200: @block"); /*block*/{ basilys_warning_str(0, (basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "null expansion of primitive argument for"), (basilys_ptr_t)((/*~SOPNAMSTR*/ curfclos->tabval[3]))); /*_#IS_A__L7*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.EXCU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1204: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1204: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1204: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1206: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.EXCU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V11*/ curfptr[5] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "null primitive original piece is"), (basilys_ptr_t)(/*_.NAMED_NAME__V11*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1204: @clear"); /*clear*/ /*_.NAMED_NAME__V11*/ curfptr[5] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1201: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1200: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~EXPARGS*/ curfclos->tabval[4])), (/*_#JX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.EXVAL__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1187: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1187: @clear"); /*clear*/ /*_.EXVAL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1187: @clear"); /*clear*/ /*_#NULL__L6*/ curfnum[3] = 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_32_LAMBDA_*/ static basilys_ptr_t rout_33_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_33_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 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1242: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1242: @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-normal.bysl:1242: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1243: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1243: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "NCHUNK_PRIMITIVE");/*_.PRIM__V5*/ curfptr[4] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1244: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1244: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRIM__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1244: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1244: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1244: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1244: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prim"),( "warmelt-normal.bysl"),(1244), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1244: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1244: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1244: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1245: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PRIM__V5*/ curfptr[4]), 3, "PRIM_TYPE");/*_.PRIM_TYPE__V8*/ curfptr[6] = slot; }; ; /*_.LET___V4*/ curfptr[3] = /*_.PRIM_TYPE__V8*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1243: @clear"); /*clear*/ /*_.PRIM__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1243: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1243: @clear"); /*clear*/ /*_.PRIM_TYPE__V8*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1242: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:1242: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1242: @clear"); /*clear*/ /*_.LET___V4*/ 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_33_LAMBDA_*/ static basilys_ptr_t rout_34_NORMEXP_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_34_NORMEXP_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 41 void* varptr[41]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_APPLY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1254: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1254: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_APPLY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1254: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1254: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1254: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1254: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check apply recv"),( "warmelt-normal.bysl"),(1254), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1254: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1254: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1254: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1255: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1255: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1255: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1255: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1255: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1255: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1255), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1255: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1255: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1255: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1256: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1256: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1256: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1256: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1256: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1256: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1256), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1256: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1256: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1256: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1257: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1258: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SAPP_FUN");/*_.SFUN__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1259: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SAPP_ARGS");/*_.SARGS__V15*/ curfptr[14] = slot; }; ; /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SFUN__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:1260: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1260: @cond.then"); /*_.SFUSYMB__V16*/ curfptr[15] = /*_.SFUN__V14*/ curfptr[13];; } else { BASILYS_LOCATION("warmelt-normal.bysl:1260: @cond.else"); /*_.SFUSYMB__V16*/ curfptr[15] = (/*!konst_4_FUN_*/ curfrout->tabval[4]);; } ; BASILYS_LOCATION("warmelt-normal.bysl:1262: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDFUN__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-normal.bysl:1262: @multimsend.send"); /*_.NFUN__V18*/ curfptr[17] = basilysgc_send ((basilys_ptr_t)(/*_.SFUN__V14*/ curfptr[13]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1262: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1265: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1265: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L5*/ curfnum[4] = ((/*_.NBINDFUN__V19*/ curfptr[18]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDFUN__V19*/ curfptr[18])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1265: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1265: @cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1265: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1265: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindfun"),( "warmelt-normal.bysl"),(1265), __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1265: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1265: @clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1265: @cppif.else"); /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDARGS__V24*/ curfptr[23]; BASILYS_LOCATION("warmelt-normal.bysl:1266: @multiapply.appl"); /*_.NARGS__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.SARGS__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1269: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1269: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L6*/ curfnum[4] = ((/*_.NBINDARGS__V24*/ curfptr[23]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDARGS__V24*/ curfptr[23])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1269: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1269: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1269: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1269: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindargs"),( "warmelt-normal.bysl"),(1269), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[24] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1269: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1269: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1269: @cppif.else"); /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1270: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1270: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1270: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.CHECK_CTYPE_NARGS__V27*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NARGS__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1271: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1271: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDFUN__V19*/ curfptr[18]; /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.NBINDARGS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1271: @compute"); /*_.NBINDARGS__V24*/ curfptr[23] = /*_.SETQ___V29*/ curfptr[28] = /*_.LIST_APPEND2LIST__V28*/ curfptr[27];; BASILYS_LOCATION("warmelt-normal.bysl:1272: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1272: @apply"); /*apply*/{ /*_.CSYM__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SFUSYMB__V16*/ curfptr[15]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1278: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1278: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[12])), (3), "CLASS_NREP_APPLY");/*_.INST__V33*/ curfptr[32] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1278: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1278: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.NFUN__V18*/ curfptr[17]), "NAPP_FUN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1278: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.NARGS__V23*/ curfptr[22]), "NAPP_ARGS"); ; /*_.INST___V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1273: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1273: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[10])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V35*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1273: @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), (/*_.SLOC__V13*/ curfptr[12]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1273: @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), (/*_.CSYM__V31*/ curfptr[30]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1273: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[11])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1273: @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), (/*_.INST___V32*/ curfptr[31]), "LETBIND_EXPR"); ; /*_.CBIND__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1283: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1283: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[13])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1283: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1283: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[11])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1283: @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), (/*_.CSYM__V31*/ curfptr[30]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1283: @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), (/*_.CBIND__V34*/ curfptr[33]), "NOCC_BIND"); ; /*_.CLOCC__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; /*_#IS_LIST__L7*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDARGS__V24*/ curfptr[23])) == OBMAG_LIST);; /*_#NOT__L8*/ curfnum[7] = (!(/*_#IS_LIST__L7*/ curfnum[4]));; BASILYS_LOCATION("warmelt-normal.bysl:1290: @cond"); /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1290: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1290: @block"); /*block*/{ /*_.MAKE_LIST__V39*/ curfptr[38] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[14]))));; BASILYS_LOCATION("warmelt-normal.bysl:1291: @compute"); /*_.NBINDARGS__V24*/ curfptr[23] = /*_.SETQ___V40*/ curfptr[39] = /*_.MAKE_LIST__V39*/ curfptr[38];; /*_.IF___V38*/ curfptr[37] = /*_.SETQ___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1290: @clear"); /*clear*/ /*_.MAKE_LIST__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1290: @clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1290: @cond.else"); /*_.IF___V38*/ curfptr[37] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDARGS__V24*/ curfptr[23]), (basilys_ptr_t)(/*_.CBIND__V34*/ curfptr[33])); BASILYS_LOCATION("warmelt-normal.bysl:1293: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V36*/ curfptr[35];; BASILYS_LOCATION("warmelt-normal.bysl:1293: @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) (/*_.NBINDARGS__V24*/ curfptr[23]); ; BASILYS_LOCATION("warmelt-normal.bysl:1293: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V30*/ curfptr[29] = /*_.RETURN___V41*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.CSYM__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.INST___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.CBIND__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.CLOCC__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_#IS_LIST__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.IF___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1272: @clear"); /*clear*/ /*_.RETURN___V41*/ curfptr[38] = 0 ;} ; /*_.MULTI___V22*/ curfptr[20] = /*_.LET___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.CHECK_CTYPE_NARGS__V27*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1266: @clear"); /*clear*/ /*_.NBINDARGS__V24*/ curfptr[23] = 0 ;} ; /*_.MULTI___V17*/ curfptr[16] = /*_.MULTI___V22*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1262: @clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1262: @clear"); /*clear*/ /*_.MULTI___V22*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1262: @clear"); /*clear*/ /*_.NBINDFUN__V19*/ curfptr[18] = 0 ;} ; /*_.LET___V12*/ curfptr[10] = /*_.MULTI___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_.SFUN__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_.SARGS__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_.SFUSYMB__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1257: @clear"); /*clear*/ /*_.MULTI___V17*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1253: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:1253: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1253: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1253: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1253: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1253: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_34_NORMEXP_APPLY*/ static basilys_ptr_t rout_35_NORMEXP_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_35_NORMEXP_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 55 void* varptr[55]; #define CURFRAM_NBVARNUM 13 long varnum[13]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_MSEND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @getarg"); /*_.MSND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1300: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1300: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_MSEND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1300: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1300: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1300: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1300: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1300), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1300: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1300: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1300: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1301: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1301: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1301: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1301: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1301: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1301: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1301), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1301: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1301: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1301: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1302: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1302: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1302: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1302: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1302: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1302: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1302), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1302: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1302: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1302: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1304: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1304: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1304: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1304: @apply.arg"); argtab[0].bp_cstring = "normexp_msend msnd"; BASILYS_LOCATION("warmelt-normal.bysl:1304: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1304: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1304: @apply.arg"); argtab[3].bp_long = 1304; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1304: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1304: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1304: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1305: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), 2, "MSEND_RECV");/*_.MSRECV__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1306: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), 3, "MSEND_ARGS");/*_.MSARGS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1307: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), 1, "MSEND_SELSYMB");/*_.SELNAM__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1308: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1309: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MSND__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1310: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1310: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1310: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1310: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V19*/ curfptr[18]; /*_.NSEL__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.SELNAM__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1312: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1312: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1312: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1312: @apply.arg"); argtab[0].bp_cstring = "normexp_msend curproc"; BASILYS_LOCATION("warmelt-normal.bysl:1312: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1312: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1312: @apply.arg"); argtab[3].bp_long = 1312; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1312: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1312: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1312: @cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1314: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDRECV__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:1314: @multimsend.send"); /*_.NRECV__V24*/ curfptr[23] = basilysgc_send ((basilys_ptr_t)(/*_.MSRECV__V15*/ curfptr[14]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1314: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1317: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1317: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = ((/*_.NBINDRECV__V25*/ curfptr[24]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDRECV__V25*/ curfptr[24])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1317: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1317: @cond.then"); /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1317: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1317: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindrecv"),( "warmelt-normal.bysl"),(1317), __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1317: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1317: @clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1317: @cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1319: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1319: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1319: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.CTYPR__V28*/ curfptr[26] = basilysgc_send((basilys_ptr_t)(/*_.NRECV__V24*/ curfptr[23]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1320: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1320: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYPR__V28*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:1320: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1320: @cond.then"); /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1320: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1320: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_msend check ctypr "),( "warmelt-normal.bysl"),(1320), __FUNCTION__); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V29*/ curfptr[28] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1320: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1320: @clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1320: @cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L8*/ curfnum[0] = ((/*_.CTYPR__V28*/ curfptr[26]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-normal.bysl:1321: @cond"); /*cond*/ if (/*_#__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1321: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1321: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1323: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SELNAM__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[29] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V19*/ curfptr[18]), ( "non value reciever for message send of selector"), (basilys_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[29])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1321: @clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[29] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1319: @clear"); /*clear*/ /*_.CTYPR__V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1319: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1319: @clear"); /*clear*/ /*_#__L8*/ curfnum[0] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDARGS__V34*/ curfptr[28]; BASILYS_LOCATION("warmelt-normal.bysl:1325: @multiapply.appl"); /*_.NARGS__V33*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.MSARGS__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1328: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1328: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L9*/ curfnum[0] = ((/*_.NBINDARGS__V34*/ curfptr[28]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDARGS__V34*/ curfptr[28])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1328: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1328: @cond.then"); /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1328: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1328: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindargs"),( "warmelt-normal.bysl"),(1328), __FUNCTION__); /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V35*/ curfptr[34] = /*_.IFELSE___V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1328: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1328: @clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1328: @cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1329: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1329: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDARGS__V34*/ curfptr[28]; /*_.LIST_APPEND2LIST__V37*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.NBINDRECV__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1329: @compute"); /*_.NBINDRECV__V25*/ curfptr[24] = /*_.SETQ___V38*/ curfptr[37] = /*_.LIST_APPEND2LIST__V37*/ curfptr[35];; BASILYS_LOCATION("warmelt-normal.bysl:1330: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1330: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1330: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V19*/ curfptr[18]; /*_.CHECK_CTYPE_NARGS__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!CHECK_CTYPE_NARGS*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NARGS__V33*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1332: @apply"); /*apply*/{ /*_.CSYM__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.SELNAM__V17*/ curfptr[16]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1333: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1333: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[13])), (4), "CLASS_NREP_MSEND");/*_.INST__V43*/ curfptr[42] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1333: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V19*/ curfptr[18]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1333: @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), (/*_.NSEL__V20*/ curfptr[19]), "NSEND_SEL"); ; BASILYS_LOCATION("warmelt-normal.bysl:1333: @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), (/*_.NRECV__V24*/ curfptr[23]), "NSEND_RECV"); ; BASILYS_LOCATION("warmelt-normal.bysl:1333: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.NARGS__V33*/ curfptr[26]), "NSEND_ARGS"); ; /*_.NSEND__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1338: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1338: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[14])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V45*/ curfptr[44] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1338: @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), (/*_.SLOC__V19*/ curfptr[18]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1338: @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), (/*_.CSYM__V41*/ curfptr[40]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1338: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1338: @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), (/*_.NSEND__V42*/ curfptr[41]), "LETBIND_EXPR"); ; /*_.CBIND__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1343: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1343: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V47*/ curfptr[46] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1343: @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), (/*_.SLOC__V19*/ curfptr[18]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1343: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1343: @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), (/*_.CSYM__V41*/ curfptr[40]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1343: @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), (/*_.CBIND__V44*/ curfptr[43]), "NOCC_BIND"); ; /*_.CLOCC__V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1349: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1349: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CLOCC__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.CLOCC__V46*/ curfptr[45]))));basilys_putfield_object((/*_.CLOCC__V46*/ curfptr[45]), (3), (/*_.CBIND__V44*/ curfptr[43]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:1349: @touch"); basilysgc_touch(/*_.CLOCC__V46*/ curfptr[45]); ; /*epilog*/} ; /*_#IS_LIST__L10*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDRECV__V25*/ curfptr[24])) == OBMAG_LIST);; /*_#NOT__L11*/ curfnum[10] = (!(/*_#IS_LIST__L10*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:1350: @cond"); /*cond*/ if (/*_#NOT__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1350: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1350: @block"); /*block*/{ /*_.MAKE_LIST__V49*/ curfptr[48] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[16]))));; BASILYS_LOCATION("warmelt-normal.bysl:1351: @compute"); /*_.NBINDRECV__V25*/ curfptr[24] = /*_.SETQ___V50*/ curfptr[49] = /*_.MAKE_LIST__V49*/ curfptr[48];; /*_.IF___V48*/ curfptr[47] = /*_.SETQ___V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1350: @clear"); /*clear*/ /*_.MAKE_LIST__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1350: @clear"); /*clear*/ /*_.SETQ___V50*/ curfptr[49] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1350: @cond.else"); /*_.IF___V48*/ curfptr[47] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDRECV__V25*/ curfptr[24]), (basilys_ptr_t)(/*_.CBIND__V44*/ curfptr[43])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1353: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1353: @block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1353: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1353: @apply.arg"); argtab[0].bp_cstring = "normexp_msend final nbindrecv"; BASILYS_LOCATION("warmelt-normal.bysl:1353: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:1353: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1353: @apply.arg"); argtab[3].bp_long = 1353; /*_.DEBUG_MSG_FUN__V52*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDRECV__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V51*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V52*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1353: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1353: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1353: @cppif.else"); /*_.IFCPP___V51*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1354: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1354: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1354: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1354: @apply.arg"); argtab[0].bp_cstring = "normexp_msend clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1354: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:1354: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1354: @apply.arg"); argtab[3].bp_long = 1354; /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[49] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1354: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1354: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1354: @cppif.else"); /*_.IFCPP___V53*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1355: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V46*/ curfptr[45];; BASILYS_LOCATION("warmelt-normal.bysl:1355: @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) (/*_.NBINDRECV__V25*/ curfptr[24]); ; BASILYS_LOCATION("warmelt-normal.bysl:1355: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V40*/ curfptr[39] = /*_.RETURN___V55*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.CSYM__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.NSEND__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.CBIND__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.CLOCC__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_#IS_LIST__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_#NOT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.IF___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1331: @clear"); /*clear*/ /*_.RETURN___V55*/ curfptr[53] = 0 ;} ; /*_.MULTI___V32*/ curfptr[29] = /*_.LET___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.CHECK_CTYPE_NARGS__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1325: @clear"); /*clear*/ /*_.NBINDARGS__V34*/ curfptr[28] = 0 ;} ; /*_.MULTI___V23*/ curfptr[21] = /*_.MULTI___V32*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1314: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1314: @clear"); /*clear*/ /*_.MULTI___V32*/ curfptr[29] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1314: @clear"); /*clear*/ /*_.NBINDRECV__V25*/ curfptr[24] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V23*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.MSRECV__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.MSARGS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.SELNAM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.CURPROC__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.SLOC__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.NSEL__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1305: @clear"); /*clear*/ /*_.MULTI___V23*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1299: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1299: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1299: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1299: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1299: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1299: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1299: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_35_NORMEXP_MSEND*/ static basilys_ptr_t rout_36_NORMEXP_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_36_NORMEXP_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 53 void* varptr[53]; #define CURFRAM_NBVARNUM 14 long varnum[14]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 53; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_RETURN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1362: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1362: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1362: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1362: @apply.arg"); argtab[0].bp_cstring = "normexp_return recv"; BASILYS_LOCATION("warmelt-normal.bysl:1362: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1362: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1362: @apply.arg"); argtab[3].bp_long = 1362; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 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___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1362: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1362: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1362: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1363: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1363: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_RETURN*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1363: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1363: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1363: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1363: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check return recv"),( "warmelt-normal.bysl"),(1363), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1363: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1363: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1363: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1364: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1364: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1364: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1364: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1364: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1364: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1364), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1364: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1364: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1364: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1365: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1365: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:1365: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1365: @cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1365: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1365: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1365), __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1365: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1365: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1365: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1366: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1367: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SRETURN_BODY");/*_.SRETS__V16*/ curfptr[15] = slot; }; ; /*_#NBRETS__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.SRETS__V16*/ curfptr[15])));; BASILYS_LOCATION("warmelt-normal.bysl:1369: @apply"); /*apply*/{ /*_.CSYM__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!konst_5_RETURN_*/ curfrout->tabval[5])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1372: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1372: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[6])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1372: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1372: @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), (/*_.CSYM__V17*/ curfptr[16]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1372: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE"); ; /*_.CBIND__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1378: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1378: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[8])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1378: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1378: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1378: @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), (/*_.CSYM__V17*/ curfptr[16]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1378: @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), (/*_.CBIND__V18*/ curfptr[17]), "NOCC_BIND"); ; /*_.CLOCC__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; /*_#I__L6*/ curfnum[5] = ((/*_#NBRETS__L5*/ curfnum[0]) <= (0));; BASILYS_LOCATION("warmelt-normal.bysl:1385: @cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1385: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1385: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1386: @block"); /*block*/{ /*_.NBINDEMP__V24*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:1389: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1389: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[10])), (3), "CLASS_NREP_RETURN");/*_.INST__V26*/ curfptr[25] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1389: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1389: @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), ((/*nil*/NULL)), "NRET_MAIN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1389: @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), ((/*nil*/NULL)), "NRET_REST"); ; /*_.NEMPTRET__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1395: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1395: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17]))));basilys_putfield_object((/*_.CBIND__V18*/ curfptr[17]), (2), (/*_.NEMPTRET__V25*/ curfptr[24]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:1395: @touch"); basilysgc_touch(/*_.CBIND__V18*/ curfptr[17]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDEMP__V24*/ curfptr[23]), (basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1397: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1397: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1397: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1397: @apply.arg"); argtab[0].bp_cstring = "normexp_return empty; return clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1397: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1397: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1397: @apply.arg"); argtab[3].bp_long = 1397; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOCC__V20*/ curfptr[19]), (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-normal.bysl:1397: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1397: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1397: @cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1398: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1398: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1398: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1398: @apply.arg"); argtab[0].bp_cstring = "normexp_return empty; return nbindemp"; BASILYS_LOCATION("warmelt-normal.bysl:1398: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1398: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1398: @apply.arg"); argtab[3].bp_long = 1398; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBINDEMP__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1398: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1398: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1398: @cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1399: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:1399: @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) (/*_.NBINDEMP__V24*/ curfptr[23]); ; BASILYS_LOCATION("warmelt-normal.bysl:1399: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V23*/ curfptr[22] = /*_.RETURN___V31*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1386: @clear"); /*clear*/ /*_.NBINDEMP__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1386: @clear"); /*clear*/ /*_.NEMPTRET__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1386: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1386: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1386: @clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} ; /*_.IFELSE___V22*/ curfptr[21] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1385: @clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1385: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1385: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1400: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDRETS__V34*/ curfptr[26]; BASILYS_LOCATION("warmelt-normal.bysl:1400: @multiapply.appl"); /*_.NRETS__V33*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.SRETS__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1400: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1403: @block"); /*block*/{ /*_.NRET0__V36*/ curfptr[29] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NRETS__V33*/ curfptr[24]), (0)));; /*_#I__L9*/ curfnum[6] = ((/*_#NBRETS__L5*/ curfnum[0]) - (1));; /*_.TOTH__V37*/ curfptr[22] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[12])), (/*_#I__L9*/ curfnum[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1405: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1405: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.CTYP0__V38*/ curfptr[37] = basilysgc_send((basilys_ptr_t)(/*_.NRET0__V36*/ curfptr[29]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[13])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#__L10*/ curfnum[9] = ((/*_.CTYP0__V38*/ curfptr[37]) != ((/*!CTYPE_VALUE*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:1407: @cond"); /*cond*/ if (/*_#__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1407: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1407: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "main return is not a value"), (basilys_ptr_t)0); /*epilog*/} ; } /*noelse*/ ; /*_#NULL__L11*/ curfnum[10] = ((/*_.NBINDRETS__V34*/ curfptr[26]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1409: @cond"); /*cond*/ if (/*_#NULL__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1409: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1409: @block"); /*block*/{ /*_.MAKE_LIST__V40*/ curfptr[39] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:1410: @compute"); /*_.NBINDRETS__V34*/ curfptr[26] = /*_.SETQ___V41*/ curfptr[40] = /*_.MAKE_LIST__V40*/ curfptr[39];; /*_.IF___V39*/ curfptr[38] = /*_.SETQ___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1409: @clear"); /*clear*/ /*_.MAKE_LIST__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1409: @clear"); /*clear*/ /*_.SETQ___V41*/ curfptr[40] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1409: @cond.else"); /*_.IF___V39*/ curfptr[38] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1413: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1413: @newclosure"); /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[40] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_15*/ curfrout->tabval[15])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1413: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[40])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[40]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[40])->tabval[0] = (basilys_ptr_t)(/*_.TOTH__V37*/ curfptr[22]); ; /*_.LAMBDA___V42*/ curfptr[39] = /*_.LAMBDA___V43*/ curfptr[40];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1411: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1411: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[39]; /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.NRETS__V33*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @block"); /*block*/{ /*_#I__L12*/ curfnum[11] = ((/*_#NBRETS__L5*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:1420: @cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1420: @cond.then"); /*_.IF___V46*/ curfptr[45] = /*_.TOTH__V37*/ curfptr[22];; } else { BASILYS_LOCATION("warmelt-normal.bysl:1420: @cond.else"); /*_.IF___V46*/ curfptr[45] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1417: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1417: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[10])), (3), "CLASS_NREP_RETURN");/*_.INST__V48*/ curfptr[47] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1417: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1417: @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), (/*_.NRET0__V36*/ curfptr[29]), "NRET_MAIN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1417: @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), (/*_.IF___V46*/ curfptr[45]), "NRET_REST"); ; /*_.NRET__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1422: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1422: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17]))));basilys_putfield_object((/*_.CBIND__V18*/ curfptr[17]), (2), (/*_.NRET__V47*/ curfptr[46]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:1422: @touch"); basilysgc_touch(/*_.CBIND__V18*/ curfptr[17]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDRETS__V34*/ curfptr[26]), (basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1424: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1424: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1424: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1424: @apply.arg"); argtab[0].bp_cstring = "normexp_return result nret"; BASILYS_LOCATION("warmelt-normal.bysl:1424: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[12]; BASILYS_LOCATION("warmelt-normal.bysl:1424: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1424: @apply.arg"); argtab[3].bp_long = 1424; /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOCC__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V49*/ curfptr[48] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1424: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1424: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1424: @cppif.else"); /*_.IFCPP___V49*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1425: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1425: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1425: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1425: @apply.arg"); argtab[0].bp_cstring = "normexp_return result nbindrets"; BASILYS_LOCATION("warmelt-normal.bysl:1425: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[12]; BASILYS_LOCATION("warmelt-normal.bysl:1425: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1425: @apply.arg"); argtab[3].bp_long = 1425; /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBINDRETS__V34*/ curfptr[26]), (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-normal.bysl:1425: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1425: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V52*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1425: @cppif.else"); /*_.IFCPP___V51*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1426: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:1426: @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) (/*_.NBINDRETS__V34*/ curfptr[26]); ; BASILYS_LOCATION("warmelt-normal.bysl:1426: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V45*/ curfptr[44] = /*_.RETURN___V53*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_.IF___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_.NRET__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_.IFCPP___V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_.IFCPP___V51*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1416: @clear"); /*clear*/ /*_.RETURN___V53*/ curfptr[51] = 0 ;} ; /*_.LET___V35*/ curfptr[27] = /*_.LET___V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.NRET0__V36*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.TOTH__V37*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.CTYP0__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_#__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_#NULL__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.IF___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.LAMBDA___V42*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1403: @clear"); /*clear*/ /*_.LET___V45*/ curfptr[44] = 0 ;} ; /*_.MULTI___V32*/ curfptr[23] = /*_.LET___V35*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1400: @clear"); /*clear*/ /*_.LET___V35*/ curfptr[27] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1400: @clear"); /*clear*/ /*_.NBINDRETS__V34*/ curfptr[26] = 0 ;} ; /*_.IFELSE___V22*/ curfptr[21] = /*_.MULTI___V32*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1385: @clear"); /*clear*/ /*_.MULTI___V32*/ curfptr[23] = 0 ;} ; } ; /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.SRETS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_#NBRETS__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.CSYM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.CBIND__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.CLOCC__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1366: @clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1361: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1361: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1361: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1361: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1361: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1361: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1361: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_36_NORMEXP_RETURN*/ static basilys_ptr_t rout_37_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_37_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]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1413: @getarg"); /*_.NCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1413: @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-normal.bysl:1413: @block"); /*block*/{ /*_#I__L2*/ curfnum[1] = ((/*_#IX__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:1414: @cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1414: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1414: @block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#IX__L1*/ curfnum[0]) - (1));; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~TOTH*/ curfclos->tabval[0])), (/*_#I__L3*/ curfnum[2]), (basilys_ptr_t)(/*_.NCOMP__V2*/ curfptr[1])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1414: @clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1413: @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_37_LAMBDA_*/ static basilys_ptr_t rout_38_NORMEXP_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_38_NORMEXP_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 57 void* varptr[57]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 57; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_IF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1433: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1433: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_IF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1433: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1433: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1433: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1433: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check if recv"),( "warmelt-normal.bysl"),(1433), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1433: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1433: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1433: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1434: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1434: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1434: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1434: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1434: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1434: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1434), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1434: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1434: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1434: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1435: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1435: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1435: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1435: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1435: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1435: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1435), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1435: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1435: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1435: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1436: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1436: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1436: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1436: @apply.arg"); argtab[0].bp_cstring = "normexp_if recv"; BASILYS_LOCATION("warmelt-normal.bysl:1436: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1436: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1436: @apply.arg"); argtab[3].bp_long = 1436; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1436: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1436: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1436: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1437: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1437: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1438: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SIF_TEST");/*_.STEST__V16*/ curfptr[15] = slot; }; ; /*_.CTYPIF__V17*/ curfptr[16] = (/*!CTYPE_VOID*/ curfrout->tabval[4]);; BASILYS_LOCATION("warmelt-normal.bysl:1440: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SIF_THEN");/*_.STHEN__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1442: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDIF__V21*/ curfptr[20]; BASILYS_LOCATION("warmelt-normal.bysl:1442: @multimsend.send"); /*_.NTEST__V20*/ curfptr[19] = basilysgc_send ((basilys_ptr_t)(/*_.STEST__V16*/ curfptr[15]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1442: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1445: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1445: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L5*/ curfnum[0] = ((/*_.NBINDIF__V21*/ curfptr[20]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDIF__V21*/ curfptr[20])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1445: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1445: @cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1445: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1445: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindif test"),( "warmelt-normal.bysl"),(1445), __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1445: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1445: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1445: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1446: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1446: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1446: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1446: @apply.arg"); argtab[0].bp_cstring = "normexp_if ntest"; BASILYS_LOCATION("warmelt-normal.bysl:1446: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1446: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1446: @apply.arg"); argtab[3].bp_long = 1446; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTEST__V20*/ curfptr[19]), (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-normal.bysl:1446: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1446: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1446: @cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1451: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V28*/ curfptr[27]; BASILYS_LOCATION("warmelt-normal.bysl:1451: @multimsend.send"); /*_.NTHEN__V27*/ curfptr[26] = basilysgc_send ((basilys_ptr_t)(/*_.STHEN__V18*/ curfptr[17]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1451: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1454: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1454: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1454: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1454: @apply.arg"); argtab[0].bp_cstring = "normexp_if nthen"; BASILYS_LOCATION("warmelt-normal.bysl:1454: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1454: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1454: @apply.arg"); argtab[3].bp_long = 1454; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTHEN__V27*/ curfptr[26]), (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-normal.bysl:1454: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1454: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1454: @cppif.else"); /*_.IFCPP___V29*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1455: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1455: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L8*/ curfnum[0] = ((/*_.NBINDTHEN__V28*/ curfptr[27]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDTHEN__V28*/ curfptr[27])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1455: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1455: @cond.then"); /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1455: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1455: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindthen"),( "warmelt-normal.bysl"),(1455), __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1455: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1455: @clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1455: @cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1456: @apply"); /*apply*/{ /*_.NEWTHENENV__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1459: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1459: @newclosure"); /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1459: @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)(/*_.NEWTHENENV__V34*/ curfptr[33]); ; /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1457: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1457: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34]; /*_.LIST_EVERY__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NBINDTHEN__V28*/ curfptr[27]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1461: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1461: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWTHENENV__V34*/ curfptr[33]; /*_.GET_CTYPE__V38*/ curfptr[37] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V27*/ curfptr[26]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1461: @compute"); /*_.CTYPIF__V17*/ curfptr[16] = /*_.SETQ___V39*/ curfptr[38] = /*_.GET_CTYPE__V38*/ curfptr[37];; BASILYS_LOCATION("warmelt-normal.bysl:1463: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1463: @apply"); /*apply*/{ /*_.CSYM__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[11])), (basilys_ptr_t)((/*!konst_12_IF_*/ curfrout->tabval[12])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1464: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1464: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[13])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ curfptr[42] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1464: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1464: @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), (/*_.CTYPIF__V17*/ curfptr[16]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1464: @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), (/*_.CSYM__V41*/ curfptr[40]), "NOCC_SYMB"); ; /*_.CLOCC__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1468: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1468: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V28*/ curfptr[27]; BASILYS_LOCATION("warmelt-normal.bysl:1468: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WTHEN__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.NTHEN__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.THE_NULL__V45*/ curfptr[44] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1474: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1474: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[16])), (5), "CLASS_NREP_IF");/*_.INST__V47*/ curfptr[46] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1474: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1474: @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), (/*_.NTEST__V20*/ curfptr[19]), "NIF_TEST"); ; BASILYS_LOCATION("warmelt-normal.bysl:1474: @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), (/*_.WTHEN__V44*/ curfptr[43]), "NIF_THEN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1474: @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), (/*_.THE_NULL__V45*/ curfptr[44]), "NIF_ELSE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1474: @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), (/*_.CTYPIF__V17*/ curfptr[16]), "NIF_CTYP"); ; /*_.INST___V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1469: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1469: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[15])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V49*/ curfptr[48] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1469: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1469: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.CSYM__V41*/ curfptr[40]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1469: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.CTYPIF__V17*/ curfptr[16]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1469: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.INST___V46*/ curfptr[45]), "LETBIND_EXPR"); ; /*_.CBIND__V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1482: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1482: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CLOCC__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.CLOCC__V42*/ curfptr[41]))));basilys_putfield_object((/*_.CLOCC__V42*/ curfptr[41]), (3), (/*_.CBIND__V48*/ curfptr[47]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:1482: @touch"); basilysgc_touch(/*_.CLOCC__V42*/ curfptr[41]); ; /*epilog*/} ; /*_#IS_LIST__L9*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDIF__V21*/ curfptr[20])) == OBMAG_LIST);; /*_#NOT__L10*/ curfnum[9] = (!(/*_#IS_LIST__L9*/ curfnum[0]));; BASILYS_LOCATION("warmelt-normal.bysl:1483: @cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1483: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1483: @block"); /*block*/{ /*_.MAKE_LIST__V51*/ curfptr[50] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[17]))));; BASILYS_LOCATION("warmelt-normal.bysl:1484: @compute"); /*_.NBINDIF__V21*/ curfptr[20] = /*_.SETQ___V52*/ curfptr[51] = /*_.MAKE_LIST__V51*/ curfptr[50];; /*_.IF___V50*/ curfptr[49] = /*_.SETQ___V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1483: @clear"); /*clear*/ /*_.MAKE_LIST__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1483: @clear"); /*clear*/ /*_.SETQ___V52*/ curfptr[51] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1483: @cond.else"); /*_.IF___V50*/ curfptr[49] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDIF__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CBIND__V48*/ curfptr[47])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1486: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1486: @block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1486: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1486: @apply.arg"); argtab[0].bp_cstring = "normexp_if result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1486: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[10]; BASILYS_LOCATION("warmelt-normal.bysl:1486: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1486: @apply.arg"); argtab[3].bp_long = 1486; /*_.DEBUG_MSG_FUN__V54*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1486: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1486: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1486: @cppif.else"); /*_.IFCPP___V53*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1487: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1487: @block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1487: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1487: @apply.arg"); argtab[0].bp_cstring = "normexp_if result nbindif"; BASILYS_LOCATION("warmelt-normal.bysl:1487: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-normal.bysl:1487: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1487: @apply.arg"); argtab[3].bp_long = 1487; /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDIF__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V55*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1487: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1487: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V56*/ curfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1487: @cppif.else"); /*_.IFCPP___V55*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1488: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V42*/ curfptr[41];; BASILYS_LOCATION("warmelt-normal.bysl:1488: @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) (/*_.NBINDIF__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-normal.bysl:1488: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V40*/ curfptr[39] = /*_.RETURN___V57*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.CSYM__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.CLOCC__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.WTHEN__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.THE_NULL__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.INST___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.CBIND__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.IF___V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.IFCPP___V55*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1463: @clear"); /*clear*/ /*_.RETURN___V57*/ curfptr[55] = 0 ;} ; /*_.LET___V33*/ curfptr[31] = /*_.LET___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.NEWTHENENV__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.LIST_EVERY__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.GET_CTYPE__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.SETQ___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1456: @clear"); /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ;} ; /*_.MULTI___V26*/ curfptr[24] = /*_.LET___V33*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1451: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1451: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1451: @clear"); /*clear*/ /*_.LET___V33*/ curfptr[31] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1451: @clear"); /*clear*/ /*_.NBINDTHEN__V28*/ curfptr[27] = 0 ;} ; /*_.MULTI___V19*/ curfptr[18] = /*_.MULTI___V26*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1442: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1442: @clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1442: @clear"); /*clear*/ /*_.MULTI___V26*/ curfptr[24] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1442: @clear"); /*clear*/ /*_.NBINDIF__V21*/ curfptr[20] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1437: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1437: @clear"); /*clear*/ /*_.STEST__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1437: @clear"); /*clear*/ /*_.CTYPIF__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1437: @clear"); /*clear*/ /*_.STHEN__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1437: @clear"); /*clear*/ /*_.MULTI___V19*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1432: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1432: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1432: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1432: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1432: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1432: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1432: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_38_NORMEXP_IF*/ static basilys_ptr_t rout_39_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_39_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_; } curfram__; 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-normal.bysl:1459: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1459: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1459: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1459: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.B__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWTHENENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1459: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1459: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1459: @clear"); /*clear*/ /*_.PUT_ENV__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_39_LAMBDA_*/ 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 4 void* varptr[4]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:1493: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1493: @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-normal.bysl:1493: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1493: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "NIF_CTYP");/*_.NIF_CTYP__V4*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1493: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NIF_CTYP__V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:1493: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1493: @clear"); /*clear*/ /*_.NIF_CTYP__V4*/ 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_40_LAMBDA_*/ static basilys_ptr_t rout_41_NORMEXP_IFELSE(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_NORMEXP_IFELSE_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 85 void* varptr[85]; #define CURFRAM_NBVARNUM 23 long varnum[23]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 85; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_IFELSE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1499: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1499: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_IFELSE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1499: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1499: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1499: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1499: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check if recv"),( "warmelt-normal.bysl"),(1499), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1499: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1499: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1499: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1500: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1500: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1500: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1500: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1500: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1500: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1500), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1500: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1500: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1500: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1501: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1501: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1501: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1501: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1501: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1501: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1501), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1501: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1501: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1501: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1502: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1502: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1502: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1502: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse recv"; BASILYS_LOCATION("warmelt-normal.bysl:1502: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1502: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1502: @apply.arg"); argtab[3].bp_long = 1502; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1502: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1502: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1502: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1503: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1504: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SIF_TEST");/*_.STEST__V16*/ curfptr[15] = slot; }; ; /*_.CTYPIF__V17*/ curfptr[16] = (/*!CTYPE_VOID*/ curfrout->tabval[4]);; BASILYS_LOCATION("warmelt-normal.bysl:1506: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SIF_THEN");/*_.STHEN__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1507: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SIF_ELSE");/*_.SELSE__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1509: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDIF__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:1509: @multimsend.send"); /*_.NTEST__V21*/ curfptr[20] = basilysgc_send ((basilys_ptr_t)(/*_.STEST__V16*/ curfptr[15]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1509: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1512: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1512: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1512: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1512: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse ntest"; BASILYS_LOCATION("warmelt-normal.bysl:1512: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1512: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1512: @apply.arg"); argtab[3].bp_long = 1512; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTEST__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1512: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1512: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1512: @cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1513: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1513: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = ((/*_.NBINDIF__V22*/ curfptr[21]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDIF__V22*/ curfptr[21])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1513: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1513: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1513: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1513: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindif test"),( "warmelt-normal.bysl"),(1513), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1513: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1513: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1513: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1518: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V29*/ curfptr[28]; BASILYS_LOCATION("warmelt-normal.bysl:1518: @multimsend.send"); /*_.NTHEN__V28*/ curfptr[27] = basilysgc_send ((basilys_ptr_t)(/*_.STHEN__V18*/ curfptr[17]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1518: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1521: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1521: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1521: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1521: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse nthen"; BASILYS_LOCATION("warmelt-normal.bysl:1521: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1521: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1521: @apply.arg"); argtab[3].bp_long = 1521; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTHEN__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-normal.bysl:1521: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1521: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1521: @cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1522: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1522: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L8*/ curfnum[0] = ((/*_.NBINDTHEN__V29*/ curfptr[28]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDTHEN__V29*/ curfptr[28])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1522: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1522: @cond.then"); /*_.IFELSE___V33*/ curfptr[32] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1522: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1522: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindthen"),( "warmelt-normal.bysl"),(1522), __FUNCTION__); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V32*/ curfptr[30] = /*_.IFELSE___V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1522: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1522: @clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1522: @cppif.else"); /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1523: @apply"); /*apply*/{ /*_.NEWTHENENV__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1526: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1526: @newclosure"); /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[36] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1526: @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)(/*_.NEWTHENENV__V35*/ curfptr[34]); ; /*_.LAMBDA___V36*/ curfptr[35] = /*_.LAMBDA___V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1524: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1524: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[35]; /*_.LIST_EVERY__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NBINDTHEN__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1528: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1528: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWTHENENV__V35*/ curfptr[34]; /*_.GET_CTYPE__V39*/ curfptr[38] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V28*/ curfptr[27]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1528: @compute"); /*_.CTYPIF__V17*/ curfptr[16] = /*_.SETQ___V40*/ curfptr[39] = /*_.GET_CTYPE__V39*/ curfptr[38];; BASILYS_LOCATION("warmelt-normal.bysl:1529: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDELSE__V43*/ curfptr[42]; BASILYS_LOCATION("warmelt-normal.bysl:1529: @multimsend.send"); /*_.NELSE__V42*/ curfptr[41] = basilysgc_send ((basilys_ptr_t)(/*_.SELSE__V19*/ curfptr[18]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1529: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1532: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1532: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1532: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1532: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse nelse"; BASILYS_LOCATION("warmelt-normal.bysl:1532: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1532: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1532: @apply.arg"); argtab[3].bp_long = 1532; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NELSE__V42*/ curfptr[41]), (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-normal.bysl:1532: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1532: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1532: @cppif.else"); /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1533: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1533: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L10*/ curfnum[0] = ((/*_.NBINDELSE__V43*/ curfptr[42]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDELSE__V43*/ curfptr[42])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1533: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L10*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1533: @cond.then"); /*_.IFELSE___V47*/ curfptr[46] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1533: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1533: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindelse"),( "warmelt-normal.bysl"),(1533), __FUNCTION__); /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V46*/ curfptr[44] = /*_.IFELSE___V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1533: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1533: @clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1533: @cppif.else"); /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1536: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1536: @apply"); /*apply*/{ /*_.NENV__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1539: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1539: @newclosure"); /*newclosure*/ /*_.LAMBDA___V52*/ curfptr[51] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1539: @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)(/*_.NENV__V50*/ curfptr[49]); ; /*_.LAMBDA___V51*/ curfptr[50] = /*_.LAMBDA___V52*/ curfptr[51];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1537: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1537: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V51*/ curfptr[50]; /*_.LIST_EVERY__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NBINDELSE__V43*/ curfptr[42]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V49*/ curfptr[48] = /*_.NENV__V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.NENV__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.LAMBDA___V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.LIST_EVERY__V53*/ curfptr[52] = 0 ;} ; /*_.NEWELSEENV__V54*/ curfptr[49] = /*_.LET___V49*/ curfptr[48];; BASILYS_LOCATION("warmelt-normal.bysl:1542: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1542: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWELSEENV__V54*/ curfptr[49]; /*_.CTYPELSE__V55*/ curfptr[50] = basilysgc_send((basilys_ptr_t)(/*_.NELSE__V42*/ curfptr[41]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1543: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1543: @block"); /*block*/{ /*_#IS_A__L11*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYPIF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:1543: @cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1543: @cond.then"); /*_.IFELSE___V57*/ curfptr[56] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1543: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1543: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctypif"),( "warmelt-normal.bysl"),(1543), __FUNCTION__); /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V56*/ curfptr[52] = /*_.IFELSE___V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1543: @clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1543: @clear"); /*clear*/ /*_.IFELSE___V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1543: @cppif.else"); /*_.IFCPP___V56*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1544: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1544: @block"); /*block*/{ /*_#IS_A__L12*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYPELSE__V55*/ curfptr[50]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:1544: @cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1544: @cond.then"); /*_.IFELSE___V59*/ curfptr[58] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1544: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1544: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctypelse"),( "warmelt-normal.bysl"),(1544), __FUNCTION__); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V58*/ curfptr[56] = /*_.IFELSE___V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1544: @clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1544: @clear"); /*clear*/ /*_.IFELSE___V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1544: @cppif.else"); /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L13*/ curfnum[0] = ((/*_.CTYPIF__V17*/ curfptr[16]) == (/*_.CTYPELSE__V55*/ curfptr[50]));; BASILYS_LOCATION("warmelt-normal.bysl:1546: @cond"); /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1546: @cond.then"); /*_.IFELSE___V60*/ curfptr[58] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1546: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1546: @block"); /*block*/{ /*_#__L14*/ curfnum[13] = ((/*_.CTYPIF__V17*/ curfptr[16]) != ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond"); /*cond*/ if (/*_#__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1549: @block"); /*block*/{ /*_#__L16*/ curfnum[15] = ((/*_.CTYPELSE__V55*/ curfptr[50]) == ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; /*_#IF___L15*/ curfnum[14] = /*_#__L16*/ curfnum[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1549: @clear"); /*clear*/ /*_#__L16*/ curfnum[15] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond.else"); /*_#IF___L15*/ curfnum[14] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond"); /*cond*/ if (/*_#IF___L15*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond.then"); /*_.IFELSE___V61*/ curfptr[60] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1549: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1549: @block"); /*block*/{ /*_#__L17*/ curfnum[15] = ((/*_.CTYPIF__V17*/ curfptr[16]) == ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond"); /*cond*/ if (/*_#__L17*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1552: @block"); /*block*/{ /*_#__L19*/ curfnum[18] = ((/*_.CTYPELSE__V55*/ curfptr[50]) != ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; /*_#IF___L18*/ curfnum[17] = /*_#__L19*/ curfnum[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_#__L19*/ curfnum[18] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond.else"); /*_#IF___L18*/ curfnum[17] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond"); /*cond*/ if (/*_#IF___L18*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1552: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1553: @compute"); /*_.CTYPIF__V17*/ curfptr[16] = /*_.SETQ___V63*/ curfptr[62] = /*_.CTYPELSE__V55*/ curfptr[50];; /*_.IFELSE___V62*/ curfptr[61] = /*_.SETQ___V63*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_.SETQ___V63*/ curfptr[62] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1552: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1552: @block"); /*block*/{ basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "incompatible types in conditional IF/OR/COND branches"), (basilys_ptr_t)0); BASILYS_LOCATION("warmelt-normal.bysl:1559: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYPIF__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V64*/ curfptr[62] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "then type in conditional is "), (basilys_ptr_t)(/*_.NAMED_NAME__V64*/ curfptr[62])); BASILYS_LOCATION("warmelt-normal.bysl:1561: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYPELSE__V55*/ curfptr[50]), 1, "NAMED_NAME");/*_.NAMED_NAME__V65*/ curfptr[64] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "else type in conditional is "), (basilys_ptr_t)(/*_.NAMED_NAME__V65*/ curfptr[64])); BASILYS_LOCATION("warmelt-normal.bysl:1562: @compute"); /*_.CTYPIF__V17*/ curfptr[16] = /*_.SETQ___V66*/ curfptr[65] = (/*!CTYPE_VOID*/ curfrout->tabval[4]);; BASILYS_LOCATION("warmelt-normal.bysl:1555: @block"); /*block*/{ /*_.PROGN___V67*/ curfptr[66] = /*_.SETQ___V66*/ curfptr[65];;} ; /*_.IFELSE___V62*/ curfptr[61] = /*_.PROGN___V67*/ curfptr[66];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_.NAMED_NAME__V64*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_.NAMED_NAME__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_.SETQ___V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1552: @clear"); /*clear*/ /*_.PROGN___V67*/ curfptr[66] = 0 ;} ; } ; /*_.IFELSE___V61*/ curfptr[60] = /*_.IFELSE___V62*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1549: @clear"); /*clear*/ /*_#__L17*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1549: @clear"); /*clear*/ /*_#IF___L18*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1549: @clear"); /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;} ; } ; /*_.IFELSE___V60*/ curfptr[58] = /*_.IFELSE___V61*/ curfptr[60];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1546: @clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1546: @clear"); /*clear*/ /*_#IF___L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1546: @clear"); /*clear*/ /*_.IFELSE___V61*/ curfptr[60] = 0 ;} ; } ; /*_.LET___V48*/ curfptr[46] = /*_.IFELSE___V60*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.NEWELSEENV__V54*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.CTYPELSE__V55*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_#__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1536: @clear"); /*clear*/ /*_.IFELSE___V60*/ curfptr[58] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1567: @apply"); /*apply*/{ /*_.CSYM__V69*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[14])), (basilys_ptr_t)((/*!konst_15_IFELSE_*/ curfrout->tabval[15])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1568: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1568: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V71*/ curfptr[66] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1568: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[66]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1568: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[66]), (2), (/*_.CTYPIF__V17*/ curfptr[16]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1568: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V71*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V71*/ curfptr[66]), (1), (/*_.CSYM__V69*/ curfptr[64]), "NOCC_SYMB"); ; /*_.CLOCC__V70*/ curfptr[65] = /*_.INST__V71*/ curfptr[66];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1572: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1572: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V29*/ curfptr[28]; BASILYS_LOCATION("warmelt-normal.bysl:1572: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WTHEN__V72*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NTHEN__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1573: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1573: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDELSE__V43*/ curfptr[42]; BASILYS_LOCATION("warmelt-normal.bysl:1573: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WELSE__V73*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NELSE__V42*/ curfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1579: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[19])), (5), "CLASS_NREP_IF");/*_.INST__V75*/ curfptr[49] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[49]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[49]), (1), (/*_.NTEST__V21*/ curfptr[20]), "NIF_TEST"); ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[49]), (2), (/*_.WTHEN__V72*/ curfptr[61]), "NIF_THEN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[49]), (3), (/*_.WELSE__V73*/ curfptr[60]), "NIF_ELSE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1579: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V75*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V75*/ curfptr[49]), (4), (/*_.CTYPIF__V17*/ curfptr[16]), "NIF_CTYP"); ; /*_.INST___V74*/ curfptr[48] = /*_.INST__V75*/ curfptr[49];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1574: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1574: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V77*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1574: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[52]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1574: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[52]), (0), (/*_.CSYM__V69*/ curfptr[64]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1574: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[52]), (1), (/*_.CTYPIF__V17*/ curfptr[16]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1574: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[52]), (2), (/*_.INST___V74*/ curfptr[48]), "LETBIND_EXPR"); ; /*_.CBIND__V76*/ curfptr[50] = /*_.INST__V77*/ curfptr[52];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1586: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1586: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CLOCC__V70*/ curfptr[65])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.CLOCC__V70*/ curfptr[65]))));basilys_putfield_object((/*_.CLOCC__V70*/ curfptr[65]), (3), (/*_.CBIND__V76*/ curfptr[50]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:1586: @touch"); basilysgc_touch(/*_.CLOCC__V70*/ curfptr[65]); ; /*epilog*/} ; /*_#IS_LIST__L20*/ curfnum[18] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDIF__V22*/ curfptr[21])) == OBMAG_LIST);; /*_#NOT__L21*/ curfnum[15] = (!(/*_#IS_LIST__L20*/ curfnum[18]));; BASILYS_LOCATION("warmelt-normal.bysl:1587: @cond"); /*cond*/ if (/*_#NOT__L21*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1587: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1587: @block"); /*block*/{ /*_.MAKE_LIST__V79*/ curfptr[58] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[20]))));; BASILYS_LOCATION("warmelt-normal.bysl:1588: @compute"); /*_.NBINDIF__V22*/ curfptr[21] = /*_.SETQ___V80*/ curfptr[79] = /*_.MAKE_LIST__V79*/ curfptr[58];; /*_.IF___V78*/ curfptr[56] = /*_.SETQ___V80*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1587: @clear"); /*clear*/ /*_.MAKE_LIST__V79*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1587: @clear"); /*clear*/ /*_.SETQ___V80*/ curfptr[79] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1587: @cond.else"); /*_.IF___V78*/ curfptr[56] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDIF__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.CBIND__V76*/ curfptr[50])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1590: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1590: @block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1590: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1590: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1590: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[17]; BASILYS_LOCATION("warmelt-normal.bysl:1590: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1590: @apply.arg"); argtab[3].bp_long = 1590; /*_.DEBUG_MSG_FUN__V82*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V70*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V81*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V82*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1590: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1590: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V82*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1590: @cppif.else"); /*_.IFCPP___V81*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1591: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1591: @block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1591: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1591: @apply.arg"); argtab[0].bp_cstring = "normexp_ifelse result nbindif"; BASILYS_LOCATION("warmelt-normal.bysl:1591: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:1591: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1591: @apply.arg"); argtab[3].bp_long = 1591; /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDIF__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V83*/ curfptr[79] = /*_.DEBUG_MSG_FUN__V84*/ curfptr[83];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1591: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1591: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V84*/ curfptr[83] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1591: @cppif.else"); /*_.IFCPP___V83*/ curfptr[79] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1592: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V70*/ curfptr[65];; BASILYS_LOCATION("warmelt-normal.bysl:1592: @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) (/*_.NBINDIF__V22*/ curfptr[21]); ; BASILYS_LOCATION("warmelt-normal.bysl:1592: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V68*/ curfptr[62] = /*_.RETURN___V85*/ curfptr[83];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.CSYM__V69*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.CLOCC__V70*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.WTHEN__V72*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.WELSE__V73*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.INST___V74*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.CBIND__V76*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_#IS_LIST__L20*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_#NOT__L21*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.IF___V78*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.IFCPP___V81*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.IFCPP___V83*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1567: @clear"); /*clear*/ /*_.RETURN___V85*/ curfptr[83] = 0 ;} ; /*_.MULTI___V41*/ curfptr[40] = /*_.LET___V68*/ curfptr[62];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1529: @clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1529: @clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1529: @clear"); /*clear*/ /*_.LET___V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1529: @clear"); /*clear*/ /*_.LET___V68*/ curfptr[62] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1529: @clear"); /*clear*/ /*_.NBINDELSE__V43*/ curfptr[42] = 0 ;} ; /*_.LET___V34*/ curfptr[32] = /*_.MULTI___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.NEWTHENENV__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.LAMBDA___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.LIST_EVERY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.GET_CTYPE__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.SETQ___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1523: @clear"); /*clear*/ /*_.MULTI___V41*/ curfptr[40] = 0 ;} ; /*_.MULTI___V27*/ curfptr[25] = /*_.LET___V34*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1518: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1518: @clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1518: @clear"); /*clear*/ /*_.LET___V34*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1518: @clear"); /*clear*/ /*_.NBINDTHEN__V29*/ curfptr[28] = 0 ;} ; /*_.MULTI___V20*/ curfptr[19] = /*_.MULTI___V27*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1509: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1509: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1509: @clear"); /*clear*/ /*_.MULTI___V27*/ curfptr[25] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1509: @clear"); /*clear*/ /*_.NBINDIF__V22*/ curfptr[21] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.STEST__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.CTYPIF__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.STHEN__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.SELSE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1503: @clear"); /*clear*/ /*_.MULTI___V20*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1498: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1498: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1498: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1498: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1498: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1498: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1498: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_IFELSE", 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_NORMEXP_IFELSE*/ static basilys_ptr_t rout_42_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_42_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_; } curfram__; 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-normal.bysl:1526: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1526: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1526: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1526: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.B__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWTHENENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1526: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1526: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1526: @clear"); /*clear*/ /*_.PUT_ENV__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_42_LAMBDA_*/ static basilys_ptr_t rout_43_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_43_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_; } curfram__; 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-normal.bysl:1539: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1539: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1539: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1539: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.B__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1539: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1539: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1539: @clear"); /*clear*/ /*_.PUT_ENV__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_43_LAMBDA_*/ static basilys_ptr_t rout_44_NORMEXP_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_44_NORMEXP_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 67 void* varptr[67]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 67; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_CPPIF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1599: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1599: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_CPPIF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1599: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1599: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1599: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1599: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cppif recv"),( "warmelt-normal.bysl"),(1599), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1599: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1599: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1599: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1600: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1600: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1600: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1600: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1600: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1600: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1600), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1600: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1600: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1600: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1601: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1601: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1601: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1601: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1601: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1601: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1601), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1601: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1601: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1601: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1602: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1602: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1602: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1602: @apply.arg"); argtab[0].bp_cstring = "normexp_cppif recv"; BASILYS_LOCATION("warmelt-normal.bysl:1602: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1602: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1602: @apply.arg"); argtab[3].bp_long = 1602; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1602: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1602: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1602: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1603: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1604: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SIFP_COND");/*_.SCOND__V16*/ curfptr[15] = slot; }; ; /*_.CTYPIF__V17*/ curfptr[16] = (/*!CTYPE_VOID*/ curfrout->tabval[4]);; BASILYS_LOCATION("warmelt-normal.bysl:1606: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SIFP_THEN");/*_.STHEN__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1607: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SIFP_ELSE");/*_.SELSE__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1610: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:1610: @multimsend.send"); /*_.NTHEN__V21*/ curfptr[20] = basilysgc_send ((basilys_ptr_t)(/*_.STHEN__V18*/ curfptr[17]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1610: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1613: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1613: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1613: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1613: @apply.arg"); argtab[0].bp_cstring = "normexp_cppif nthen"; BASILYS_LOCATION("warmelt-normal.bysl:1613: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1613: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1613: @apply.arg"); argtab[3].bp_long = 1613; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NTHEN__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1613: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1613: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1613: @cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1614: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1614: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = ((/*_.NBINDTHEN__V22*/ curfptr[21]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDTHEN__V22*/ curfptr[21])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1614: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1614: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1614: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1614: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindthen"),( "warmelt-normal.bysl"),(1614), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1614: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1614: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1614: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1615: @apply"); /*apply*/{ /*_.NEWTHENENV__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1618: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1618: @newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1618: @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)(/*_.NEWTHENENV__V28*/ curfptr[27]); ; /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1616: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1616: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[28]; /*_.LIST_EVERY__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NBINDTHEN__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1620: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1620: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWTHENENV__V28*/ curfptr[27]; /*_.GET_CTYPE__V32*/ curfptr[31] = basilysgc_send((basilys_ptr_t)(/*_.NTHEN__V21*/ curfptr[20]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1620: @compute"); /*_.CTYPIF__V17*/ curfptr[16] = /*_.SETQ___V33*/ curfptr[32] = /*_.GET_CTYPE__V32*/ curfptr[31];; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1621: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1621: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYPIF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-normal.bysl:1621: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1621: @cond.then"); /*_.IFELSE___V35*/ curfptr[34] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1621: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1621: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctypif"),( "warmelt-normal.bysl"),(1621), __FUNCTION__); /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V34*/ curfptr[33] = /*_.IFELSE___V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1621: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1621: @clear"); /*clear*/ /*_.IFELSE___V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1621: @cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1623: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDELSE__V38*/ curfptr[37]; BASILYS_LOCATION("warmelt-normal.bysl:1623: @multimsend.send"); /*_.NELSE__V37*/ curfptr[36] = basilysgc_send ((basilys_ptr_t)(/*_.SELSE__V19*/ curfptr[18]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1623: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1626: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1626: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1626: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1626: @apply.arg"); argtab[0].bp_cstring = "normexp_cppif nelse"; BASILYS_LOCATION("warmelt-normal.bysl:1626: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1626: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1626: @apply.arg"); argtab[3].bp_long = 1626; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NELSE__V37*/ curfptr[36]), (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-normal.bysl:1626: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1626: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1626: @cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1627: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1627: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L9*/ curfnum[0] = ((/*_.NBINDELSE__V38*/ curfptr[37]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDELSE__V38*/ curfptr[37])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1627: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1627: @cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1627: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1627: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbindelse"),( "warmelt-normal.bysl"),(1627), __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1627: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1627: @clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1627: @cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1628: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1628: @apply"); /*apply*/{ /*_.NEWELSEENV__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1631: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1631: @newclosure"); /*newclosure*/ /*_.LAMBDA___V46*/ curfptr[45] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1631: @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)(/*_.NEWELSEENV__V44*/ curfptr[43]); ; /*_.LAMBDA___V45*/ curfptr[44] = /*_.LAMBDA___V46*/ curfptr[45];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1629: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1629: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V45*/ curfptr[44]; /*_.LIST_EVERY__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NBINDELSE__V38*/ curfptr[37]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1632: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1632: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1632: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWELSEENV__V44*/ curfptr[43]; /*_.CTYPELSE__V49*/ curfptr[48] = basilysgc_send((basilys_ptr_t)(/*_.NELSE__V37*/ curfptr[36]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[10])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#__L10*/ curfnum[0] = ((/*_.CTYPIF__V17*/ curfptr[16]) != (/*_.CTYPELSE__V49*/ curfptr[48]));; BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond"); /*cond*/ if (/*_#__L10*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1633: @block"); /*block*/{ /*_#__L12*/ curfnum[11] = ((/*_.CTYPIF__V17*/ curfptr[16]) != ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1633: @block"); /*block*/{ /*_#__L14*/ curfnum[13] = ((/*_.CTYPELSE__V49*/ curfptr[48]) != ((/*!CTYPE_VOID*/ curfrout->tabval[4])));; /*_#IF___L13*/ curfnum[12] = /*_#__L14*/ curfnum[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1633: @clear"); /*clear*/ /*_#__L14*/ curfnum[13] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond.else"); /*_#IF___L13*/ curfnum[12] = 0;; } ; /*_#IF___L11*/ curfnum[10] = /*_#IF___L13*/ curfnum[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1633: @clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1633: @clear"); /*clear*/ /*_#IF___L13*/ curfnum[12] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond.else"); /*_#IF___L11*/ curfnum[10] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond"); /*cond*/ if (/*_#IF___L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1633: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1633: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "CPPIF incompatible then & else types"), (basilys_ptr_t)0); BASILYS_LOCATION("warmelt-normal.bysl:1637: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYPIF__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V50*/ curfptr[49] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "CPPIF incompatible then type :"), (basilys_ptr_t)(/*_.NAMED_NAME__V50*/ curfptr[49])); BASILYS_LOCATION("warmelt-normal.bysl:1639: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYPELSE__V49*/ curfptr[48]), 1, "NAMED_NAME");/*_.NAMED_NAME__V51*/ curfptr[50] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "CPPIF incompatible else type :"), (basilys_ptr_t)(/*_.NAMED_NAME__V51*/ curfptr[50])); BASILYS_LOCATION("warmelt-normal.bysl:1634: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1633: @clear"); /*clear*/ /*_.NAMED_NAME__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1633: @clear"); /*clear*/ /*_.NAMED_NAME__V51*/ curfptr[50] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1641: @apply"); /*apply*/{ /*_.CSYM__V53*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[14])), (basilys_ptr_t)((/*!konst_15_IFCPP_*/ curfrout->tabval[15])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1642: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1642: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[16])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V55*/ curfptr[54] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1642: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1642: @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), (/*_.CTYPIF__V17*/ curfptr[16]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1642: @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), (/*_.CSYM__V53*/ curfptr[50]), "NOCC_SYMB"); ; /*_.CLOCC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1646: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1646: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDTHEN__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:1646: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WTHEN__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NTHEN__V21*/ curfptr[20]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1647: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1647: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDELSE__V38*/ curfptr[37]; BASILYS_LOCATION("warmelt-normal.bysl:1647: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WELSE__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NELSE__V37*/ curfptr[36]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1653: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CPPIF*/ curfrout->tabval[19])), (5), "CLASS_NREP_CPPIF");/*_.INST__V59*/ curfptr[58] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @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), (/*_.SCOND__V16*/ curfptr[15]), "NIFP_COND"); ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @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), (/*_.WTHEN__V56*/ curfptr[55]), "NIFP_THEN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (3), (/*_.WELSE__V57*/ curfptr[56]), "NIFP_ELSE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1653: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (4), (/*_.CTYPIF__V17*/ curfptr[16]), "NIFP_CTYP"); ; /*_.INST___V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1648: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1648: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V61*/ curfptr[60] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1648: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[60]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1648: @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), (/*_.CSYM__V53*/ curfptr[50]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1648: @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), (/*_.CTYPIF__V17*/ curfptr[16]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1648: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V61*/ curfptr[60]))));basilys_putfield_object((/*_.INST__V61*/ curfptr[60]), (2), (/*_.INST___V58*/ curfptr[57]), "LETBIND_EXPR"); ; /*_.CBIND__V60*/ curfptr[59] = /*_.INST__V61*/ curfptr[60];;} ; /*_.NBINDRES__V62*/ curfptr[61] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[20]))));; BASILYS_LOCATION("warmelt-normal.bysl:1662: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1662: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CLOCC__V54*/ curfptr[53])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.CLOCC__V54*/ curfptr[53]))));basilys_putfield_object((/*_.CLOCC__V54*/ curfptr[53]), (3), (/*_.CBIND__V60*/ curfptr[59]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:1662: @touch"); basilysgc_touch(/*_.CLOCC__V54*/ curfptr[53]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDRES__V62*/ curfptr[61]), (basilys_ptr_t)(/*_.CBIND__V60*/ curfptr[59])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1664: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1664: @block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1664: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1664: @apply.arg"); argtab[0].bp_cstring = "normexp_cppif result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1664: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:1664: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1664: @apply.arg"); argtab[3].bp_long = 1664; /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[62] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1664: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1664: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1664: @cppif.else"); /*_.IFCPP___V63*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1665: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1665: @block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1665: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1665: @apply.arg"); argtab[0].bp_cstring = "normexp_cppif result nbindres"; BASILYS_LOCATION("warmelt-normal.bysl:1665: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:1665: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1665: @apply.arg"); argtab[3].bp_long = 1665; /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDRES__V62*/ curfptr[61]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V65*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1665: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1665: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1665: @cppif.else"); /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1666: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V54*/ curfptr[53];; BASILYS_LOCATION("warmelt-normal.bysl:1666: @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) (/*_.NBINDRES__V62*/ curfptr[61]); ; BASILYS_LOCATION("warmelt-normal.bysl:1666: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V52*/ curfptr[49] = /*_.RETURN___V67*/ curfptr[65];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.CSYM__V53*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.CLOCC__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.WTHEN__V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.WELSE__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.INST___V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.CBIND__V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.NBINDRES__V62*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1641: @clear"); /*clear*/ /*_.RETURN___V67*/ curfptr[65] = 0 ;} ; /*_.LET___V48*/ curfptr[47] = /*_.LET___V52*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1632: @clear"); /*clear*/ /*_.CTYPELSE__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1632: @clear"); /*clear*/ /*_#__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1632: @clear"); /*clear*/ /*_#IF___L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1632: @clear"); /*clear*/ /*_.LET___V52*/ curfptr[49] = 0 ;} ; /*_.LET___V43*/ curfptr[41] = /*_.LET___V48*/ curfptr[47];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1628: @clear"); /*clear*/ /*_.NEWELSEENV__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1628: @clear"); /*clear*/ /*_.LAMBDA___V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1628: @clear"); /*clear*/ /*_.LIST_EVERY__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1628: @clear"); /*clear*/ /*_.LET___V48*/ curfptr[47] = 0 ;} ; /*_.MULTI___V36*/ curfptr[34] = /*_.LET___V43*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1623: @clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1623: @clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1623: @clear"); /*clear*/ /*_.LET___V43*/ curfptr[41] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1623: @clear"); /*clear*/ /*_.NBINDELSE__V38*/ curfptr[37] = 0 ;} ; /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V36*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.NEWTHENENV__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.LIST_EVERY__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.GET_CTYPE__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.SETQ___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1615: @clear"); /*clear*/ /*_.MULTI___V36*/ curfptr[34] = 0 ;} ; /*_.MULTI___V20*/ curfptr[19] = /*_.LET___V27*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1610: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1610: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1610: @clear"); /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1610: @clear"); /*clear*/ /*_.NBINDTHEN__V22*/ curfptr[21] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.SCOND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.CTYPIF__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.STHEN__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.SELSE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1603: @clear"); /*clear*/ /*_.MULTI___V20*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1598: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1598: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1598: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1598: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1598: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1598: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1598: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_44_NORMEXP_CPPIF*/ 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 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:1618: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1618: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1618: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1618: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.B__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWTHENENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1618: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1618: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1618: @clear"); /*clear*/ /*_.PUT_ENV__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_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 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:1631: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1631: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1631: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1631: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.B__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWELSEENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1631: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1631: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1631: @clear"); /*clear*/ /*_.PUT_ENV__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_46_LAMBDA_*/ static basilys_ptr_t rout_47_NORMEXP_OR(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_NORMEXP_OR_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 35 void* varptr[35]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 35; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_OR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1674: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1674: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_OR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1674: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1674: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1674: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1674: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check or recv"),( "warmelt-normal.bysl"),(1674), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1674: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1674: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1674: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1675: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1675: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1675: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1675: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1675: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1675: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1675), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1675: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1675: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1675: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1676: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1676: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1676: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1676: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1676: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1676: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1676), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1676: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1676: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1676: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1677: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1677: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1677: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1677: @apply.arg"); argtab[0].bp_cstring = "normexp_or recv"; BASILYS_LOCATION("warmelt-normal.bysl:1677: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1677: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1677: @apply.arg"); argtab[3].bp_long = 1677; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1677: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1677: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1677: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; /*_.BOXORCOUNT__V15*/ curfptr[14] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#THE_CALLCOUNT__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1680: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1681: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SOR_DISJ");/*_.SDISJ__V17*/ curfptr[16] = slot; }; ; /*_#NBDISJ__L6*/ curfnum[5] = (basilys_multiple_length((basilys_ptr_t)(/*_.SDISJ__V17*/ curfptr[16])));; /*_#IX__L7*/ curfnum[6] = ((/*_#NBDISJ__L6*/ curfnum[5]) - (1));; /*_.THE_NULL__V18*/ curfptr[17] = (NULL);; /*_.NORBOX__V19*/ curfptr[18] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.THE_NULL__V18*/ curfptr[17]));; /*_.MAKE_LIST__V20*/ curfptr[19] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.NBINDORBOX__V21*/ curfptr[20] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.MAKE_LIST__V20*/ curfptr[19]));; /*_.CTYPORBOX__V22*/ curfptr[21] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)((/*!CTYPE_VOID*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:1687: @apply"); /*apply*/{ /*_.NEWENV__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1691: @newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_23*/ curfrout->tabval[23])), (8)); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (basilys_ptr_t)(/*_.BOXORCOUNT__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[3] = (basilys_ptr_t)(/*_.SLOC__V16*/ curfptr[15]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[4] = (basilys_ptr_t)(/*_.NEWENV__V23*/ curfptr[22]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[5] = (basilys_ptr_t)(/*_.NORBOX__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 6>= 0 && 6< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[6] = (basilys_ptr_t)(/*_.NBINDORBOX__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 7>= 0 && 7< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[7] = (basilys_ptr_t)(/*_.CTYPORBOX__V22*/ curfptr[21]); ; /*_.LAMBDA___V24*/ curfptr[23] = /*_.LAMBDA___V25*/ curfptr[24];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1689: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1689: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[23]; /*_.MULTIPLE_BACKWARD_EVERY__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_BACKWARD_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SDISJ__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1747: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1747: @block"); /*block*/{ /*_.BOX_CONTENT__V28*/ curfptr[27] = basilys_box_content((basilysbox_ptr_t)(/*_.NORBOX__V19*/ curfptr[18]));; /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1747: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1747: @apply.arg"); argtab[0].bp_cstring = "normexp_or result nor"; BASILYS_LOCATION("warmelt-normal.bysl:1747: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:1747: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1747: @apply.arg"); argtab[3].bp_long = 1747; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BOX_CONTENT__V28*/ curfptr[27]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1747: @clear"); /*clear*/ /*_.BOX_CONTENT__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1747: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1747: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1747: @cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1748: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1748: @block"); /*block*/{ /*_.BOX_CONTENT__V31*/ curfptr[28] = basilys_box_content((basilysbox_ptr_t)(/*_.NBINDORBOX__V21*/ curfptr[20]));; /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1748: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1748: @apply.arg"); argtab[0].bp_cstring = "normexp_or result nbindor"; BASILYS_LOCATION("warmelt-normal.bysl:1748: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:1748: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1748: @apply.arg"); argtab[3].bp_long = 1748; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BOX_CONTENT__V31*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1748: @clear"); /*clear*/ /*_.BOX_CONTENT__V31*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1748: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1748: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1748: @cppif.else"); /*_.IFCPP___V30*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.BOX_CONTENT__V33*/ curfptr[28] = basilys_box_content((basilysbox_ptr_t)(/*_.NORBOX__V19*/ curfptr[18]));; /*_.BOX_CONTENT__V34*/ curfptr[31] = basilys_box_content((basilysbox_ptr_t)(/*_.NBINDORBOX__V21*/ curfptr[20]));; BASILYS_LOCATION("warmelt-normal.bysl:1749: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.BOX_CONTENT__V33*/ curfptr[28];; BASILYS_LOCATION("warmelt-normal.bysl:1749: @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) (/*_.BOX_CONTENT__V34*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-normal.bysl:1749: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.BOXORCOUNT__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.SLOC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.SDISJ__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_#NBDISJ__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_#IX__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.THE_NULL__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.NORBOX__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.MAKE_LIST__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.NBINDORBOX__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.CTYPORBOX__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.NEWENV__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.MULTIPLE_BACKWARD_EVERY__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.BOX_CONTENT__V33*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.BOX_CONTENT__V34*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1678: @clear"); /*clear*/ /*_.RETURN___V35*/ curfptr[34] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1673: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1673: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1673: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1673: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1673: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1673: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1673: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_OR", 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_NORMEXP_OR*/ 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 38 void* varptr[38]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 38; 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-normal.bysl:1691: @getarg"); /*_.SCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1691: @getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#SIX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1691: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1692: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1692: @block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXORCOUNT*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-normal.bysl:1692: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1692: @apply.arg"); argtab[0].bp_cstring = "normexp scur"; BASILYS_LOCATION("warmelt-normal.bysl:1692: @apply.arg"); argtab[1].bp_long = /*_#GET_INT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:1692: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1692: @apply.arg"); argtab[3].bp_long = 1692; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SCUR__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-normal.bysl:1692: @clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1692: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1692: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V7*/ curfptr[6]; BASILYS_LOCATION("warmelt-normal.bysl:1693: @multimsend.send"); /*_.NCUR__V6*/ curfptr[5] = basilysgc_send ((basilys_ptr_t)(/*_.SCUR__V2*/ curfptr[1]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1696: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1696: @block"); /*block*/{ /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXORCOUNT*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-normal.bysl:1696: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1696: @apply.arg"); argtab[0].bp_cstring = "normexp ncur"; BASILYS_LOCATION("warmelt-normal.bysl:1696: @apply.arg"); argtab[1].bp_long = /*_#GET_INT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:1696: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1696: @apply.arg"); argtab[3].bp_long = 1696; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCUR__V6*/ 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-normal.bysl:1696: @clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1696: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1696: @cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1698: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1698: @newclosure"); /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1698: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[0] = (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[4])); ; /*_.LAMBDA___V10*/ curfptr[8] = /*_.LAMBDA___V11*/ curfptr[10];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1697: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1697: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[8]; /*_.LIST_EVERY__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NCUR__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOX_CONTENT__V13*/ curfptr[12] = basilys_box_content((basilysbox_ptr_t)((/*~NORBOX*/ curfclos->tabval[5])));; /*_#NULL__L4*/ curfnum[1] = ((/*_.BOX_CONTENT__V13*/ curfptr[12]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1699: @cond"); /*cond*/ if (/*_#NULL__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1699: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1699: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~NBINDORBOX*/ curfclos->tabval[6])), (basilys_ptr_t)(/*_.NBIND__V7*/ curfptr[6])); basilysgc_box_put((basilys_ptr_t)((/*~NORBOX*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.NCUR__V6*/ curfptr[5])); BASILYS_LOCATION("warmelt-normal.bysl:1703: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1703: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[4]); /*_.GET_CTYPE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.NCUR__V6*/ curfptr[5]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_box_put((basilys_ptr_t)((/*~CTYPORBOX*/ curfclos->tabval[7])), (basilys_ptr_t)(/*_.GET_CTYPE__V15*/ curfptr[14])); /*_.THE_NULL__V16*/ curfptr[15] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1700: @block"); /*block*/{ /*_.PROGN___V17*/ curfptr[16] = /*_.THE_NULL__V16*/ curfptr[15];;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.PROGN___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1699: @clear"); /*clear*/ /*_.GET_CTYPE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1699: @clear"); /*clear*/ /*_.THE_NULL__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1699: @clear"); /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1699: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1699: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1706: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1706: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1706: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[4]); /*_.CTYPCUR__V19*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.NCUR__V6*/ curfptr[5]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[5])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1708: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1708: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYPCUR__V19*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1708: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1708: @cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1708: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1708: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctypcur"),( "warmelt-normal.bysl"),(1708), __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[16] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1708: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1708: @clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1708: @cppif.else"); /*_.IFCPP___V20*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.BOX_CONTENT__V22*/ curfptr[20] = basilys_box_content((basilysbox_ptr_t)((/*~CTYPORBOX*/ curfclos->tabval[7])));; /*_#__L6*/ curfnum[4] = ((/*_.CTYPCUR__V19*/ curfptr[15]) != (/*_.BOX_CONTENT__V22*/ curfptr[20]));; BASILYS_LOCATION("warmelt-normal.bysl:1709: @cond"); /*cond*/ if (/*_#__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1709: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1709: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[3])), ( "disjuncts\' type mismatch in OR | COND"), (basilys_ptr_t)0); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @block"); /*block*/{ /*_.BOX_CONTENT__V24*/ curfptr[23] = basilys_box_content((basilysbox_ptr_t)((/*~NORBOX*/ curfclos->tabval[5])));; /*_.BOX_CONTENT__V25*/ curfptr[24] = basilys_box_content((basilysbox_ptr_t)((/*~NBINDORBOX*/ curfclos->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1718: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1718: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BOX_CONTENT__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:1718: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); /*_.WRAP_NORMAL_LET1__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.BOX_CONTENT__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1713: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_IF*/ curfrout->tabval[7])), (5), "CLASS_NREP_IF");/*_.INST__V28*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @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), ((/*~SLOC*/ curfclos->tabval[3])), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @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), (/*_.NCUR__V6*/ curfptr[5]), "NIF_TEST"); ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @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), (/*_.NCUR__V6*/ curfptr[5]), "NIF_THEN"); ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @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), (/*_.WRAP_NORMAL_LET1__V26*/ curfptr[25]), "NIF_ELSE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1713: @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), (/*_.CTYPCUR__V19*/ curfptr[15]), "NIF_CTYP"); ; /*_.NIFOR__V27*/ curfptr[26] = /*_.INST__V28*/ curfptr[27];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1722: @apply"); /*apply*/{ /*_.CSYMOR__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[9])), (basilys_ptr_t)((/*!konst_10_OR_*/ curfrout->tabval[10])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1723: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1723: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[11])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V31*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1723: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.CSYMOR__V29*/ curfptr[28]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1723: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), ((/*~SLOC*/ curfclos->tabval[3])), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1723: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.CTYPCUR__V19*/ curfptr[15]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1723: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NIFOR__V27*/ curfptr[26]), "LETBIND_EXPR"); ; /*_.CORBIND__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1729: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1729: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[12])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V33*/ curfptr[32] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1729: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (0), ((/*~SLOC*/ curfclos->tabval[3])), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1729: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.CTYPCUR__V19*/ curfptr[15]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1729: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.CSYMOR__V29*/ curfptr[28]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1729: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (3), (/*_.CORBIND__V30*/ curfptr[29]), "NOCC_BIND"); ; /*_.COROCC__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} ; /*_.MAKE_LIST__V34*/ curfptr[33] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[13]))));; basilysgc_box_put((basilys_ptr_t)((/*~NBINDORBOX*/ curfclos->tabval[6])), (basilys_ptr_t)(/*_.MAKE_LIST__V34*/ curfptr[33])); /*_.BOX_CONTENT__V35*/ curfptr[34] = basilys_box_content((basilysbox_ptr_t)((/*~NBINDORBOX*/ curfclos->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:1737: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1737: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V7*/ curfptr[6]; /*_.LIST_APPEND2LIST__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.BOX_CONTENT__V35*/ curfptr[34]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOX_CONTENT__V37*/ curfptr[36] = basilys_box_content((basilysbox_ptr_t)((/*~NBINDORBOX*/ curfclos->tabval[6])));; basilysgc_append_list((basilys_ptr_t)(/*_.BOX_CONTENT__V37*/ curfptr[36]), (basilys_ptr_t)(/*_.CORBIND__V30*/ curfptr[29])); basilysgc_box_put((basilys_ptr_t)((/*~NORBOX*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.COROCC__V32*/ curfptr[31])); /*_.THE_NULL__V38*/ curfptr[37] = (NULL);; /*_.LET___V23*/ curfptr[22] = /*_.THE_NULL__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.BOX_CONTENT__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.BOX_CONTENT__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.WRAP_NORMAL_LET1__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.NIFOR__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.CSYMOR__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.CORBIND__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.COROCC__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.BOX_CONTENT__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.BOX_CONTENT__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1711: @clear"); /*clear*/ /*_.THE_NULL__V38*/ curfptr[37] = 0 ;} ; /*_.LET___V18*/ curfptr[14] = /*_.LET___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1706: @clear"); /*clear*/ /*_.CTYPCUR__V19*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1706: @clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1706: @clear"); /*clear*/ /*_.BOX_CONTENT__V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1706: @clear"); /*clear*/ /*_#__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1706: @clear"); /*clear*/ /*_.LET___V23*/ curfptr[22] = 0 ;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.LET___V18*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1699: @clear"); /*clear*/ /*_.LET___V18*/ curfptr[14] = 0 ;} ; } ; /*_.MULTI___V5*/ curfptr[3] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.LAMBDA___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.BOX_CONTENT__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_#NULL__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1693: @clear"); /*clear*/ /*_.NBIND__V7*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:1691: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1691: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1691: @clear"); /*clear*/ /*_.MULTI___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_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 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:1698: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1698: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1698: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1698: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BND__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1698: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1698: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1698: @clear"); /*clear*/ /*_.PUT_ENV__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_NORMEXP_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_50_NORMEXP_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 58 void* varptr[58]; #define CURFRAM_NBVARNUM 20 long varnum[20]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_PROGN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1757: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1757: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_PROGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1757: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1757: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1757: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1757: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check progn recv"),( "warmelt-normal.bysl"),(1757), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1757: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1757: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1757: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1758: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1758: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1758: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1758: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1758: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1758: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1758), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1758: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1758: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1758: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1759: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1759: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1759: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1759: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1759: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1759: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1759), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1759: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1759: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1759: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1760: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1760: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1760: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1760: @apply.arg"); argtab[0].bp_cstring = "normexp_progn recv"; BASILYS_LOCATION("warmelt-normal.bysl:1760: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1760: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1760: @apply.arg"); argtab[3].bp_long = 1760; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1760: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1760: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1760: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1761: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1762: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SPROGN_BODY");/*_.SBODY__V16*/ curfptr[15] = slot; }; ; /*_#LNBODY__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.SBODY__V16*/ curfptr[15])));; /*_.BOXLNBODY__V17*/ curfptr[16] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#LNBODY__L5*/ curfnum[0])));; /*_#I__L6*/ curfnum[5] = ((/*_#LNBODY__L5*/ curfnum[0]) <= (0));; BASILYS_LOCATION("warmelt-normal.bysl:1766: @cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1766: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1766: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1767: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1767: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1767: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[5])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1767: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; /*_.ONULL__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "empty PROGN"), (basilys_ptr_t)0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1769: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1769: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1769: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1769: @apply.arg"); argtab[0].bp_cstring = "normexp_progn return empty onull"; BASILYS_LOCATION("warmelt-normal.bysl:1769: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1769: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1769: @apply.arg"); argtab[3].bp_long = 1769; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ONULL__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-normal.bysl:1769: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1769: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1769: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1770: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.ONULL__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:1770: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V19*/ curfptr[18] = /*_.RETURN___V24*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1767: @clear"); /*clear*/ /*_.ONULL__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1767: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1767: @clear"); /*clear*/ /*_.RETURN___V24*/ curfptr[22] = 0 ;} ; /*_.IF___V18*/ curfptr[17] = /*_.LET___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1766: @clear"); /*clear*/ /*_.LET___V19*/ curfptr[18] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1766: @cond.else"); /*_.IF___V18*/ curfptr[17] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1771: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V27*/ curfptr[22]; BASILYS_LOCATION("warmelt-normal.bysl:1771: @multiapply.appl"); /*_.NBODY__V26*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.SBODY__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1771: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1774: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1774: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1774: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1774: @apply.arg"); argtab[0].bp_cstring = "normexp_progn nbody"; BASILYS_LOCATION("warmelt-normal.bysl:1774: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1774: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1774: @apply.arg"); argtab[3].bp_long = 1774; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBODY__V26*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[18] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1774: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1774: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1774: @cppif.else"); /*_.IFCPP___V28*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1775: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1775: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1775: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1775: @apply.arg"); argtab[0].bp_cstring = "normexp_progn nbind"; BASILYS_LOCATION("warmelt-normal.bysl:1775: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1775: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1775: @apply.arg"); argtab[3].bp_long = 1775; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBIND__V27*/ curfptr[22]), (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-normal.bysl:1775: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1775: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1775: @cppif.else"); /*_.IFCPP___V30*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @block"); /*block*/{ /*_.NLAST__V33*/ curfptr[32] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NBODY__V26*/ curfptr[21]), (-1)));; /*_#LENBODY__L10*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.NBODY__V26*/ curfptr[21])));; /*_#I__L11*/ curfnum[10] = ((/*_#LENBODY__L10*/ curfnum[6]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:1778: @cond"); /*cond*/ if (/*_#I__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1778: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1778: @block"); /*block*/{ /*_#I__L12*/ curfnum[11] = ((/*_#LENBODY__L10*/ curfnum[6]) - (1));; /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[7])), (/*_#I__L12*/ curfnum[11])));; /*_.NALLBUTLAST__V34*/ curfptr[33] = /*_.MAKE_MULTIPLE__V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1778: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1778: @clear"); /*clear*/ /*_.MAKE_MULTIPLE__V35*/ curfptr[34] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1778: @cond.else"); /*_.NALLBUTLAST__V34*/ curfptr[33] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1781: @block"); /*block*/{ /*_#IX__L13*/ curfnum[11] = ((/*_#LENBODY__L10*/ curfnum[6]) - (1));; BASILYS_LOCATION("warmelt-normal.bysl:1782: @loop"); /*loop*/{ labloop_BODYLOOP_1:; BASILYS_LOCATION("warmelt-normal.bysl:1782: @loopbody"); BASILYS_LOCATION("warmelt-normal.bysl:1782: @block"); /*block*/{ /*_#I__L14*/ curfnum[13] = ((/*_#IX__L13*/ curfnum[11]) < (0));; BASILYS_LOCATION("warmelt-normal.bysl:1783: @cond"); /*cond*/ if (/*_#I__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1783: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1783: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1783: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1783: @compute"); /*_.BODYLOOP__V38*/ curfptr[37] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1783: @exit"); /*exit*/{ goto labexit_BODYLOOP_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; /*_.MULTIPLE_NTH__V39*/ curfptr[38] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NBODY__V26*/ curfptr[21]), (/*_#IX__L13*/ curfnum[11])));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.NALLBUTLAST__V34*/ curfptr[33]), (/*_#IX__L13*/ curfnum[11]), (basilys_ptr_t)(/*_.MULTIPLE_NTH__V39*/ curfptr[38])); /*_#I__L15*/ curfnum[14] = ((/*_#IX__L13*/ curfnum[11]) - (1));; BASILYS_LOCATION("warmelt-normal.bysl:1785: @compute"); /*_#IX__L13*/ curfnum[11] = /*_#SETQ___L16*/ curfnum[15] = /*_#I__L15*/ curfnum[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1782: @clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1782: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1782: @clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1782: @clear"); /*clear*/ /*_#SETQ___L16*/ curfnum[15] = 0 ;} ; ; goto labloop_BODYLOOP_1; labexit_BODYLOOP_1:; BASILYS_LOCATION("warmelt-normal.bysl:1782: @loopepilog"); /*loopepilog*/ /*_.FOREVER___V37*/ curfptr[36] = /*_.BODYLOOP__V38*/ curfptr[37];; } ; /*_.LET___V36*/ curfptr[34] = /*_.FOREVER___V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1781: @clear"); /*clear*/ /*_#IX__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1781: @clear"); /*clear*/ /*_.FOREVER___V37*/ curfptr[36] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1786: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1786: @block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1786: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1786: @apply.arg"); argtab[0].bp_cstring = "normexp_progn nallbutlast"; BASILYS_LOCATION("warmelt-normal.bysl:1786: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:1786: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1786: @apply.arg"); argtab[3].bp_long = 1786; /*_.DEBUG_MSG_FUN__V41*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NALLBUTLAST__V34*/ curfptr[33]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[38] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1786: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1786: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1786: @cppif.else"); /*_.IFCPP___V40*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L18*/ curfnum[14] = ((/*_.NBIND__V27*/ curfptr[22]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1787: @cond"); /*cond*/ if (/*_#NULL__L18*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1787: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1787: @block"); /*block*/{ /*_.MAKE_LIST__V43*/ curfptr[42] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-normal.bysl:1787: @compute"); /*_.NBIND__V27*/ curfptr[22] = /*_.SETQ___V44*/ curfptr[43] = /*_.MAKE_LIST__V43*/ curfptr[42];; /*_.IF___V42*/ curfptr[36] = /*_.SETQ___V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1787: @clear"); /*clear*/ /*_.MAKE_LIST__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1787: @clear"); /*clear*/ /*_.SETQ___V44*/ curfptr[43] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1787: @cond.else"); /*_.IF___V42*/ curfptr[36] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1789: @apply"); /*apply*/{ /*_.CSYM__V46*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[9])), (basilys_ptr_t)((/*!konst_10_PROGN_*/ curfrout->tabval[10])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1790: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1790: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.LASTCTYP__V47*/ curfptr[46] = basilysgc_send((basilys_ptr_t)(/*_.NLAST__V33*/ curfptr[32]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[11])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1795: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1795: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_PROGN*/ curfrout->tabval[13])), (3), "CLASS_NREP_PROGN");/*_.INST__V49*/ curfptr[48] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1795: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1795: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.NALLBUTLAST__V34*/ curfptr[33]), "NPROGN_SEQ"); ; BASILYS_LOCATION("warmelt-normal.bysl:1795: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (2), (/*_.NLAST__V33*/ curfptr[32]), "NPROGN_LAST"); ; /*_.INST___V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1791: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1791: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V51*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1791: @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), (/*_.CSYM__V46*/ curfptr[43]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1791: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1791: @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), (/*_.LASTCTYP__V47*/ curfptr[46]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1791: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.INST___V48*/ curfptr[47]), "LETBIND_EXPR"); ; /*_.CBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1799: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1799: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1799: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1799: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.LASTCTYP__V47*/ curfptr[46]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1799: @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), (/*_.CSYM__V46*/ curfptr[43]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1799: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.CBIND__V50*/ curfptr[49]), "NOCC_BIND"); ; /*_.CLOCC__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBIND__V27*/ curfptr[22]), (basilys_ptr_t)(/*_.CBIND__V50*/ curfptr[49])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1806: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1806: @block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1806: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1806: @apply.arg"); argtab[0].bp_cstring = "normexp_progn return clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1806: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[15]; BASILYS_LOCATION("warmelt-normal.bysl:1806: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1806: @apply.arg"); argtab[3].bp_long = 1806; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V52*/ curfptr[51]), (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-normal.bysl:1806: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1806: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1806: @cppif.else"); /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1807: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1807: @block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1807: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1807: @apply.arg"); argtab[0].bp_cstring = "normexp_progn return nbind"; BASILYS_LOCATION("warmelt-normal.bysl:1807: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:1807: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1807: @apply.arg"); argtab[3].bp_long = 1807; /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBIND__V27*/ curfptr[22]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1807: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1807: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1807: @cppif.else"); /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1808: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V52*/ curfptr[51];; BASILYS_LOCATION("warmelt-normal.bysl:1808: @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) (/*_.NBIND__V27*/ curfptr[22]); ; BASILYS_LOCATION("warmelt-normal.bysl:1808: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V45*/ curfptr[42] = /*_.RETURN___V58*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.CSYM__V46*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.LASTCTYP__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.INST___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.CBIND__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.CLOCC__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1788: @clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;} ; /*_.LET___V32*/ curfptr[30] = /*_.LET___V45*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.NLAST__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_#LENBODY__L10*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.NALLBUTLAST__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.LET___V36*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_#NULL__L18*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.IF___V42*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1776: @clear"); /*clear*/ /*_.LET___V45*/ curfptr[42] = 0 ;} ; /*_.MULTI___V25*/ curfptr[19] = /*_.LET___V32*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1771: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1771: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1771: @clear"); /*clear*/ /*_.LET___V32*/ curfptr[30] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1771: @clear"); /*clear*/ /*_.NBIND__V27*/ curfptr[22] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V25*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_.SBODY__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_#LNBODY__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_.BOXLNBODY__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1761: @clear"); /*clear*/ /*_.MULTI___V25*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1756: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1756: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1756: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1756: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1756: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1756: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1756: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_50_NORMEXP_PROGN*/ 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 5 void* varptr[5]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:1812: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1812: @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-normal.bysl:1812: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1812: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "NPROGN_LAST");/*_.NPROGN_LAST__V4*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1812: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1812: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.GET_CTYPE__V5*/ curfptr[4] = basilysgc_send((basilys_ptr_t)(/*_.NPROGN_LAST__V4*/ curfptr[3]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1812: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];; BASILYS_LOCATION("warmelt-normal.bysl:1812: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1812: @clear"); /*clear*/ /*_.NPROGN_LAST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1812: @clear"); /*clear*/ /*_.GET_CTYPE__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_51_LAMBDA_*/ static basilys_ptr_t rout_52_NORMEXP_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_52_NORMEXP_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 54 void* varptr[54]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 54; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_LET", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1818: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1818: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_LET*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1818: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1818: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1818: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1818: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check let recv"),( "warmelt-normal.bysl"),(1818), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1818: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1818: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1818: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1819: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1819: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1819: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1819: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1819: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1819: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1819), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1819: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1819: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1819: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1820: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1820: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1820: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1820: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1820: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1820: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1820), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1820: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1820: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1820: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1821: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1821: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1821: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1821: @apply.arg"); argtab[0].bp_cstring = "normexp_let recv"; BASILYS_LOCATION("warmelt-normal.bysl:1821: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1821: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1821: @apply.arg"); argtab[3].bp_long = 1821; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1821: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1821: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1821: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1822: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1823: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SLET_BINDINGS");/*_.SBINDINGS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1824: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLET_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1825: @apply"); /*apply*/{ /*_.NEWENV__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_.BINDLIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-normal.bysl:1830: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1830: @newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (3)); ; BASILYS_LOCATION("warmelt-normal.bysl:1830: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]); ; BASILYS_LOCATION("warmelt-normal.bysl:1830: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:1830: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[2] = (basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1828: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1828: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.SBINDINGS__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17]; BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:1881: @multiapply.appl"); /*_.NBODY__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1884: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1884: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V25*/ curfptr[24]; /*_.LIST_APPEND2LIST__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1885: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1885: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L5*/ curfnum[0] = ((/*_.BINDLIST__V19*/ curfptr[18]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:1885: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1885: @cond.then"); /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1885: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1885: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_let check bindlist"),( "warmelt-normal.bysl"),(1885), __FUNCTION__); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V27*/ curfptr[26] = /*_.IFELSE___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1885: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1885: @clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1885: @cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1888: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1888: @newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (0)); ; /*_.LAMBDA___V29*/ curfptr[27] = /*_.LAMBDA___V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1886: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1886: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V29*/ curfptr[27]; /*_.LIST_EVERY__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1891: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1891: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V33*/ curfptr[32] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1893: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1893: @newclosure"); /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:1893: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (basilys_ptr_t)(/*_.SYCMAP__V33*/ curfptr[32]); ; /*_.LAMBDA___V34*/ curfptr[33] = /*_.LAMBDA___V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1892: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1892: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[33]; /*_.LIST_EVERY__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V32*/ curfptr[31] = /*_.LIST_EVERY__V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1891: @clear"); /*clear*/ /*_.SYCMAP__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1891: @clear"); /*clear*/ /*_.LAMBDA___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1891: @clear"); /*clear*/ /*_.LIST_EVERY__V36*/ curfptr[35] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @block"); /*block*/{ /*_.NLASTBODY__V38*/ curfptr[33] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NBODY__V24*/ curfptr[23]), (-1)));; BASILYS_LOCATION("warmelt-normal.bysl:1900: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1900: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17]; /*_.GET_CTYPE__V39*/ curfptr[35] = basilysgc_send((basilys_ptr_t)(/*_.NLASTBODY__V38*/ curfptr[33]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[22])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1900: @cond"); /*cond*/ if (/*_.GET_CTYPE__V39*/ curfptr[35]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1900: @cond.then"); /*_.NLASTYP__V40*/ curfptr[39] = /*_.GET_CTYPE__V39*/ curfptr[35];; } else { BASILYS_LOCATION("warmelt-normal.bysl:1900: @cond.else"); /*_.NLASTYP__V40*/ curfptr[39] = (/*!CTYPE_VOID*/ curfrout->tabval[21]);; } ; BASILYS_LOCATION("warmelt-normal.bysl:1901: @apply"); /*apply*/{ /*_.CSYM__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[23])), (basilys_ptr_t)((/*!konst_24_LET_*/ curfrout->tabval[24])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1905: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1905: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[27]); /*_.LIST_TO_MULTIPLE__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (basilys_ptr_t)(/*_.BINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1903: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1903: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[25])), (3), "CLASS_NREP_LET");/*_.INST__V44*/ curfptr[43] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1903: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[43]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1903: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[43]), (1), (/*_.LIST_TO_MULTIPLE__V42*/ curfptr[41]), "NLET_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:1903: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[43]), (2), (/*_.NBODY__V24*/ curfptr[23]), "NLET_BODY"); ; /*_.NLET__V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1907: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1907: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[28])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V46*/ curfptr[45] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1907: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[45]), (0), (/*_.CSYM__V41*/ curfptr[40]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1907: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[45]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1907: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[45]), (1), (/*_.NLASTYP__V40*/ curfptr[39]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1907: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[45]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[45]), (2), (/*_.NLET__V43*/ curfptr[42]), "LETBIND_EXPR"); ; /*_.CBIND__V45*/ curfptr[44] = /*_.INST__V46*/ curfptr[45];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1912: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1912: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[29])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V48*/ curfptr[47] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1912: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1912: @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), (/*_.NLASTYP__V40*/ curfptr[39]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1912: @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), (/*_.CBIND__V45*/ curfptr[44]), "NOCC_BIND"); ; /*_.CLOCC__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;} ; /*_.RESBINDS__V49*/ curfptr[48] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; basilysgc_append_list((basilys_ptr_t)(/*_.RESBINDS__V49*/ curfptr[48]), (basilys_ptr_t)(/*_.CBIND__V45*/ curfptr[44])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1919: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1919: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1919: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1919: @apply.arg"); argtab[0].bp_cstring = "normexp_let result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1919: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1919: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1919: @apply.arg"); argtab[3].bp_long = 1919; /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V47*/ curfptr[46]), (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-normal.bysl:1919: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1919: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1919: @cppif.else"); /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1920: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1920: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1920: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1920: @apply.arg"); argtab[0].bp_cstring = "normexp_let result resbinds"; BASILYS_LOCATION("warmelt-normal.bysl:1920: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1920: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1920: @apply.arg"); argtab[3].bp_long = 1920; /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESBINDS__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V52*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1920: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1920: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1920: @cppif.else"); /*_.IFCPP___V52*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1921: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V47*/ curfptr[46];; BASILYS_LOCATION("warmelt-normal.bysl:1921: @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) (/*_.RESBINDS__V49*/ curfptr[48]); ; BASILYS_LOCATION("warmelt-normal.bysl:1921: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V37*/ curfptr[32] = /*_.RETURN___V54*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.NLASTBODY__V38*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.GET_CTYPE__V39*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.NLASTYP__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.CSYM__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.LIST_TO_MULTIPLE__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.NLET__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.CBIND__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.CLOCC__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.RESBINDS__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1897: @clear"); /*clear*/ /*_.RETURN___V54*/ curfptr[52] = 0 ;} ; /*_.MULTI___V23*/ curfptr[22] = /*_.LET___V37*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.LIST_EVERY__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.LET___V37*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1881: @clear"); /*clear*/ /*_.NBODBINDINGS__V25*/ curfptr[24] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.SBINDINGS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.BINDLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1822: @clear"); /*clear*/ /*_.MULTI___V23*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1817: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1817: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1817: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1817: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1817: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1817: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1817: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_52_NORMEXP_LET*/ static basilys_ptr_t rout_53_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_53_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 36 void* varptr[36]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 36; 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-normal.bysl:1830: @getarg"); /*_.SB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1830: @getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#SBIX__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1830: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1831: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1831: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.SB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_LETBINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1831: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1831: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1831: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1831: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sb"),( "warmelt-normal.bysl"),(1831), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1831: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1831: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1831: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1832: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1832: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SB__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SBLOC__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1833: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SB__V2*/ curfptr[1]), 1, "SLETB_TYPE");/*_.SBTYP__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1834: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SB__V2*/ curfptr[1]), 2, "SLETB_BINDER");/*_.SBINDER__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1835: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SB__V2*/ curfptr[1]), 3, "SLETB_EXPR");/*_.SBEXPR__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1837: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NEWENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SBLOC__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V12*/ curfptr[11]; BASILYS_LOCATION("warmelt-normal.bysl:1837: @multimsend.send"); /*_.NBDEXPR__V11*/ curfptr[10] = basilysgc_send ((basilys_ptr_t)(/*_.SBEXPR__V9*/ curfptr[8]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1837: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1840: @block"); /*block*/{ /*_.LIST_LAST__V14*/ curfptr[13] = (basilys_list_last((basilys_ptr_t)(/*_.NBINDINGS__V12*/ curfptr[11])));; /*_.LASTNBINDING__V15*/ curfptr[14] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_LAST__V14*/ curfptr[13])));; /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1843: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.NBDEXPR__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1843: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1846: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]), 0, "BINDER");/*_.BINDER__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1847: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBDEXPR__V11*/ curfptr[10]), 1, "NOCC_SYMB");/*_.NOCC_SYMB__V17*/ curfptr[16] = slot; }; ; /*_#__L7*/ curfnum[6] = ((/*_.BINDER__V16*/ curfptr[15]) == (/*_.NOCC_SYMB__V17*/ curfptr[16]));; /*_#IF___L6*/ curfnum[5] = /*_#__L7*/ curfnum[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.BINDER__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.NOCC_SYMB__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; /*_#IF___L4*/ curfnum[3] = /*_#IF___L6*/ curfnum[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.else"); /*_#IF___L4*/ curfnum[3] = 0;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond"); /*cond*/ if (/*_#IF___L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1843: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1849: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1849: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NBDEXPR__V11*/ curfptr[10]), 2, "LETBIND_EXPR");/*_.LASTNORMEXP__V20*/ curfptr[19] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1852: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1852: @newclosure"); /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:1852: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:1852: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[2])); ; /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1850: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1850: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20]; /*_.LIST_EVERY__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NBINDINGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1855: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1858: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]), 1, "LETBIND_TYPE");/*_.LETBIND_TYPE__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1859: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]), 2, "LETBIND_EXPR");/*_.LETBIND_EXPR__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1860: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTNBINDING__V15*/ curfptr[14]), 3, "LETBIND_LOC");/*_.LETBIND_LOC__V27*/ curfptr[26] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1856: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1856: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V29*/ curfptr[28] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1856: @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), (/*_.SBINDER__V8*/ curfptr[7]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1856: @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), (/*_.LETBIND_TYPE__V25*/ curfptr[24]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1856: @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), (/*_.LETBIND_EXPR__V26*/ curfptr[25]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:1856: @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), (/*_.LETBIND_LOC__V27*/ curfptr[26]), "LETBIND_LOC"); ; /*_.NEWCBND__V28*/ curfptr[27] = /*_.INST__V29*/ curfptr[28];;} ; basilysgc_append_list((basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.NEWCBND__V28*/ curfptr[27])); BASILYS_LOCATION("warmelt-normal.bysl:1863: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1863: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWCBND__V28*/ curfptr[27]; /*_.PUT_ENV__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V24*/ curfptr[23] = /*_.PUT_ENV__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1855: @clear"); /*clear*/ /*_.LETBIND_TYPE__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1855: @clear"); /*clear*/ /*_.LETBIND_EXPR__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1855: @clear"); /*clear*/ /*_.LETBIND_LOC__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1855: @clear"); /*clear*/ /*_.NEWCBND__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1855: @clear"); /*clear*/ /*_.PUT_ENV__V30*/ curfptr[29] = 0 ;} ; /*_.LET___V19*/ curfptr[16] = /*_.LET___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1849: @clear"); /*clear*/ /*_.LASTNORMEXP__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1849: @clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1849: @clear"); /*clear*/ /*_.LIST_EVERY__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1849: @clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V18*/ curfptr[15] = /*_.LET___V19*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.LET___V19*/ curfptr[16] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1843: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1843: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1868: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1868: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V12*/ curfptr[11]; /*_.LIST_APPEND2LIST__V31*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[7])), (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1869: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1870: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1870: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V34*/ curfptr[27] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1870: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[27]), (0), (/*_.SBINDER__V8*/ curfptr[7]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1870: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[27]), (1), (/*_.SBTYP__V7*/ curfptr[6]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1870: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[27]), (2), (/*_.NBDEXPR__V11*/ curfptr[10]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:1870: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[27]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[27]), (3), (/*_.SBLOC__V6*/ curfptr[5]), "LETBIND_LOC"); ; /*_.NEWPBND__V33*/ curfptr[26] = /*_.INST__V34*/ curfptr[27];;} ; basilysgc_append_list((basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.NEWPBND__V33*/ curfptr[26])); BASILYS_LOCATION("warmelt-normal.bysl:1876: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1876: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWPBND__V33*/ curfptr[26]; /*_.PUT_ENV__V35*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V32*/ curfptr[25] = /*_.PUT_ENV__V35*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1869: @clear"); /*clear*/ /*_.NEWPBND__V33*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1869: @clear"); /*clear*/ /*_.PUT_ENV__V35*/ curfptr[29] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1866: @block"); /*block*/{ /*_.PROGN___V36*/ curfptr[19] = /*_.LET___V32*/ curfptr[25];;} ; /*_.IFELSE___V18*/ curfptr[15] = /*_.PROGN___V36*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V31*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.LET___V32*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1843: @clear"); /*clear*/ /*_.PROGN___V36*/ curfptr[19] = 0 ;} ; } ; /*_.LET___V13*/ curfptr[12] = /*_.IFELSE___V18*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1840: @clear"); /*clear*/ /*_.LIST_LAST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1840: @clear"); /*clear*/ /*_.LASTNBINDING__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1840: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1840: @clear"); /*clear*/ /*_#IF___L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1840: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[15] = 0 ;} ; /*_.MULTI___V10*/ curfptr[9] = /*_.LET___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1837: @clear"); /*clear*/ /*_.LET___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1837: @clear"); /*clear*/ /*_.NBINDINGS__V12*/ curfptr[11] = 0 ;} ; /*_.LET___V5*/ curfptr[3] = /*_.MULTI___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1832: @clear"); /*clear*/ /*_.SBLOC__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1832: @clear"); /*clear*/ /*_.SBTYP__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1832: @clear"); /*clear*/ /*_.SBINDER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1832: @clear"); /*clear*/ /*_.SBEXPR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1832: @clear"); /*clear*/ /*_.MULTI___V10*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1830: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:1830: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1830: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1830: @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_53_LAMBDA_*/ static basilys_ptr_t rout_54_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_54_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]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1852: @getarg"); /*_.B__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1852: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.B__V2*/ curfptr[1]) != ((/*~LASTNBINDING*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1853: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1853: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1853: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.B__V2*/ curfptr[1])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1852: @clear"); /*clear*/ /*_#__L1*/ 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_54_LAMBDA_*/ 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 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1888: @getarg"); /*_.CBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1888: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1889: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1889: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1889: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1889: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1889: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1889: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_let check cbnd"),( "warmelt-normal.bysl"),(1889), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1889: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1889: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1889: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1888: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:1888: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1888: @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)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_55_LAMBDA_*/ static basilys_ptr_t rout_56_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_56_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_; } curfram__; 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-normal.bysl:1893: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1893: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1894: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V3*/ curfptr[2] = slot; }; ; basilysgc_remove_mapobjects( (basilysmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1893: @clear"); /*clear*/ /*_.BINDER__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_56_LAMBDA_*/ 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 8 void* varptr[8]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:1926: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1926: @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-normal.bysl:1926: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1927: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1927: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "NLET_BODY");/*_.LBOD__V5*/ curfptr[4] = slot; }; ; /*_#LENB__L1*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.LBOD__V5*/ curfptr[4])));; /*_#I__L2*/ curfnum[1] = ((/*_#LENB__L1*/ curfnum[0]) <= (0));; BASILYS_LOCATION("warmelt-normal.bysl:1929: @cond"); /*cond*/ if (/*_#I__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1929: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*!CTYPE_VOID*/ curfrout->tabval[0]);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1929: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1929: @block"); /*block*/{ /*_#I__L3*/ curfnum[2] = ((/*_#LENB__L1*/ curfnum[0]) - (1));; /*_.MULTIPLE_NTH__V7*/ curfptr[6] = (basilys_multiple_nth((basilys_ptr_t)(/*_.LBOD__V5*/ curfptr[4]), (/*_#I__L3*/ curfnum[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1930: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1930: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.GET_CTYPE__V8*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.MULTIPLE_NTH__V7*/ curfptr[6]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V6*/ curfptr[5] = /*_.GET_CTYPE__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1929: @clear"); /*clear*/ /*_#I__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1929: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1929: @clear"); /*clear*/ /*_.GET_CTYPE__V8*/ curfptr[7] = 0 ;} ; } ; /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1927: @clear"); /*clear*/ /*_.LBOD__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1927: @clear"); /*clear*/ /*_#LENB__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1927: @clear"); /*clear*/ /*_#I__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1927: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1926: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:1926: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1926: @clear"); /*clear*/ /*_.LET___V4*/ 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_57_LAMBDA_*/ static basilys_ptr_t rout_58_NORMEXP_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_58_NORMEXP_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 39 void* varptr[39]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_UNSAFE_GET_FIELD", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1936: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1936: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_UNSAFE_GET_FIELD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1936: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1936: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1936: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1936: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check unsafegetfield recv"),( "warmelt-normal.bysl"),(1936), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1936: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1936: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1936: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1937: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1937: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1937: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1937: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1937: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1937: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1937), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1937: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1937: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1937: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1938: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1938: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1938: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1938: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1938: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1938: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1938), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1938: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1938: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1938: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1939: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1939: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1939: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1939: @apply.arg"); argtab[0].bp_cstring = "normexp unsafeget recv"; BASILYS_LOCATION("warmelt-normal.bysl:1939: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1939: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1939: @apply.arg"); argtab[3].bp_long = 1939; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1939: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1939: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1939: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1940: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1940: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1941: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SUGET_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1942: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUGET_FIELD");/*_.SFLD__V17*/ curfptr[16] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1944: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1944: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:1944: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1944: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1944: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1944: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sfld"),( "warmelt-normal.bysl"),(1944), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1944: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1944: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1944: @cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1945: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:1945: @multimsend.send"); /*_.NOBJ__V21*/ curfptr[20] = basilysgc_send ((basilys_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1945: @block"); /*block*/{ /*_#NULL__L6*/ curfnum[0] = ((/*_.NBIND__V22*/ curfptr[21]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:1948: @cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1948: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:1948: @block"); /*block*/{ /*_.MAKE_LIST__V24*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; BASILYS_LOCATION("warmelt-normal.bysl:1948: @compute"); /*_.NBIND__V22*/ curfptr[21] = /*_.SETQ___V25*/ curfptr[24] = /*_.MAKE_LIST__V24*/ curfptr[23];; /*_.IF___V23*/ curfptr[22] = /*_.SETQ___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1948: @clear"); /*clear*/ /*_.MAKE_LIST__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1948: @clear"); /*clear*/ /*_.SETQ___V25*/ curfptr[24] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:1948: @cond.else"); /*_.IF___V23*/ curfptr[22] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1949: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SFLD__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V27*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @apply"); /*apply*/{ /*_.CSYM__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.NAMED_NAME__V27*/ curfptr[24]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1955: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1955: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[10])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1955: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1955: @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), (/*_.NOBJ__V21*/ curfptr[20]), "NUGET_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:1955: @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), (/*_.SFLD__V17*/ curfptr[16]), "NUGET_FIELD"); ; /*_.INST___V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1950: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1950: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1950: @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), (/*_.CSYM__V28*/ curfptr[27]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1950: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1950: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[9])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1950: @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), (/*_.INST___V29*/ curfptr[28]), "LETBIND_EXPR"); ; /*_.CBIND__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1959: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1959: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1959: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1959: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[9])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1959: @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), (/*_.CSYM__V28*/ curfptr[27]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1959: @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), (/*_.CBIND__V31*/ curfptr[30]), "NOCC_BIND"); ; /*_.CLOCC__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (basilys_ptr_t)(/*_.CBIND__V31*/ curfptr[30])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1966: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1966: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1966: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1966: @apply.arg"); argtab[0].bp_cstring = "normexp unsafeget result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:1966: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1966: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1966: @apply.arg"); argtab[3].bp_long = 1966; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__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-normal.bysl:1966: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1966: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1966: @cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1967: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1967: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1967: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1967: @apply.arg"); argtab[0].bp_cstring = "normexp unsafeget result nbind"; BASILYS_LOCATION("warmelt-normal.bysl:1967: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:1967: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1967: @apply.arg"); argtab[3].bp_long = 1967; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBIND__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1967: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1967: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1967: @cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1968: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V33*/ curfptr[32];; BASILYS_LOCATION("warmelt-normal.bysl:1968: @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) (/*_.NBIND__V22*/ curfptr[21]); ; BASILYS_LOCATION("warmelt-normal.bysl:1968: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V26*/ curfptr[23] = /*_.RETURN___V39*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.NAMED_NAME__V27*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.CSYM__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.INST___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.CBIND__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.CLOCC__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1949: @clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} ; /*_.MULTI___V20*/ curfptr[18] = /*_.LET___V26*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1945: @clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1945: @clear"); /*clear*/ /*_.IF___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1945: @clear"); /*clear*/ /*_.LET___V26*/ curfptr[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1945: @clear"); /*clear*/ /*_.NBIND__V22*/ curfptr[21] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1940: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1940: @clear"); /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1940: @clear"); /*clear*/ /*_.SFLD__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1940: @clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1940: @clear"); /*clear*/ /*_.MULTI___V20*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1935: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1935: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1935: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1935: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1935: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1935: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1935: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_58_NORMEXP_UNSAFE_GET_FIELD*/ static basilys_ptr_t rout_59_NORMEXP_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_59_NORMEXP_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 39 void* varptr[39]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_UNSAFE_PUT_FIELDS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1975: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1975: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_UNSAFE_PUT_FIELDS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:1975: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1975: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1975: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1975: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check unsafeputfields recv"),( "warmelt-normal.bysl"),(1975), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1975: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1975: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1975: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1976: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1976: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:1976: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1976: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1976: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1976: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(1976), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1976: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1976: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1976: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1977: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1977: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:1977: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:1977: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:1977: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:1977: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(1977), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1977: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1977: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1977: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:1978: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:1978: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:1978: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1978: @apply.arg"); argtab[0].bp_cstring = "normexp_unsafe_put_fields recv"; BASILYS_LOCATION("warmelt-normal.bysl:1978: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:1978: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:1978: @apply.arg"); argtab[3].bp_long = 1978; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1978: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1978: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:1978: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1979: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1980: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SUPUT_OBJ");/*_.SOBJ__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1981: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SUPUT_FIELDS");/*_.SFIELDS__V17*/ curfptr[16] = slot; }; ; /*_#NBFIELDS__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16])));; /*_.NFIELDS__V18*/ curfptr[17] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBFIELDS__L5*/ curfnum[0])));; /*_.NBINDLIST__V19*/ curfptr[18] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; BASILYS_LOCATION("warmelt-normal.bysl:1985: @apply"); /*apply*/{ /*_.CSYM__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!konst_7_UNSAFPUT_*/ curfrout->tabval[7])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:1986: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1986: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V22*/ curfptr[21] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1986: @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), (/*_.CSYM__V20*/ curfptr[19]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:1986: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1986: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:1986: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); ; /*_.CBIND__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1992: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1992: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:1992: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:1992: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:1992: @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), (/*_.CSYM__V20*/ curfptr[19]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:1992: @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), (/*_.CBIND__V21*/ curfptr[20]), "NOCC_BIND"); ; /*_.CLOCC__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1998: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26]; BASILYS_LOCATION("warmelt-normal.bysl:1998: @multimsend.send"); /*_.NOBJ__V26*/ curfptr[25] = basilysgc_send ((basilys_ptr_t)(/*_.SOBJ__V16*/ curfptr[15]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:1998: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2001: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2001: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NOBJBIND__V27*/ curfptr[26]; /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2004: @newclosure"); /*newclosure*/ /*_.LAMBDA___V30*/ curfptr[29] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (5)); ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @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)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @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)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @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)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @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)(/*_.NBINDLIST__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-normal.bysl:2004: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V30*/ curfptr[29])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V30*/ curfptr[29]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V30*/ curfptr[29])->tabval[4] = (basilys_ptr_t)(/*_.NFIELDS__V18*/ curfptr[17]); ; /*_.LAMBDA___V29*/ curfptr[28] = /*_.LAMBDA___V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2002: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2002: @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[13])), (basilys_ptr_t)(/*_.SFIELDS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2019: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2019: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_PUT_FIELDS*/ curfrout->tabval[20])), (3), "CLASS_NREP_UNSAFE_PUT_FIELDS");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @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), (/*_.NOBJ__V26*/ curfptr[25]), "NUPUT_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @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), (/*_.NFIELDS__V18*/ curfptr[17]), "NUPUT_FIELDS"); ; /*_.NPUF__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2023: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2023: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CBIND__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CBIND__V21*/ curfptr[20]))));basilys_putfield_object((/*_.CBIND__V21*/ curfptr[20]), (2), (/*_.NPUF__V33*/ curfptr[32]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:2023: @touch"); basilysgc_touch(/*_.CBIND__V21*/ curfptr[20]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (basilys_ptr_t)(/*_.CBIND__V21*/ curfptr[20])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2025: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2025: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2025: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2025: @apply.arg"); argtab[0].bp_cstring = "normexp_unsafe_put_fields result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2025: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:2025: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2025: @apply.arg"); argtab[3].bp_long = 2025; /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V23*/ curfptr[22]), (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-normal.bysl:2025: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2025: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2025: @cppif.else"); /*_.IFCPP___V35*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2026: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2026: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2026: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2026: @apply.arg"); argtab[0].bp_cstring = "normexp_unsafe_put_fields result nbindlist"; BASILYS_LOCATION("warmelt-normal.bysl:2026: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:2026: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2026: @apply.arg"); argtab[3].bp_long = 2026; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDLIST__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2026: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2026: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2026: @cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2027: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V23*/ curfptr[22];; BASILYS_LOCATION("warmelt-normal.bysl:2027: @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) (/*_.NBINDLIST__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-normal.bysl:2027: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V32*/ curfptr[31] = /*_.RETURN___V39*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2019: @clear"); /*clear*/ /*_.NPUF__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2019: @clear"); /*clear*/ /*_.RETURN___V39*/ curfptr[37] = 0 ;} ; /*_.MULTI___V25*/ curfptr[24] = /*_.LET___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1998: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1998: @clear"); /*clear*/ /*_.LAMBDA___V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1998: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1998: @clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1998: @clear"); /*clear*/ /*_.NOBJBIND__V27*/ curfptr[26] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.SOBJ__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.SFIELDS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_#NBFIELDS__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.NFIELDS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.NBINDLIST__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.CSYM__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.CBIND__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.CLOCC__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1979: @clear"); /*clear*/ /*_.MULTI___V25*/ curfptr[24] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:1974: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:1974: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:1974: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1974: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1974: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1974: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:1974: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_59_NORMEXP_UNSAFE_PUT_FIELDS*/ static basilys_ptr_t rout_60_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_60_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 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2004: @getarg"); /*_.FLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2004: @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-normal.bysl:2004: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2005: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2005: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2005: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2005: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2005: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2005: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fla"),( "warmelt-normal.bysl"),(2005), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2005: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2005: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2005: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2006: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2006: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 1, "SFLA_FIELD");/*_.FLD__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2007: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLA__V2*/ curfptr[1]), 2, "SFLA_EXPR");/*_.EXP__V6*/ curfptr[5] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2008: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2008: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V5*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2008: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2008: @cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2008: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2008: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fld"),( "warmelt-normal.bysl"),(2008), __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2008: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2008: @clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2008: @cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2009: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-normal.bysl:2009: @multimsend.send"); /*_.NEXP__V9*/ curfptr[7] = basilysgc_send ((basilys_ptr_t)(/*_.EXP__V6*/ curfptr[5]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2009: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2012: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2012: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEXPBIND__V10*/ curfptr[9]; /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~NBINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2013: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2013: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2013: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[4])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V13*/ curfptr[12] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2013: @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), ((/*~SLOC*/ curfclos->tabval[2])), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2013: @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), (/*_.FLD__V5*/ curfptr[3]), "NFLA_FIELD"); ; BASILYS_LOCATION("warmelt-normal.bysl:2013: @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), (/*_.NEXP__V9*/ curfptr[7]), "NFLA_VAL"); ; /*_.NFLA__V12*/ curfptr[11] = /*_.INST__V13*/ curfptr[12];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NFIELDS*/ curfclos->tabval[4])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.NFLA__V12*/ curfptr[11])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2013: @clear"); /*clear*/ /*_.NFLA__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2009: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2009: @clear"); /*clear*/ /*_.NEXPBIND__V10*/ curfptr[9] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2006: @clear"); /*clear*/ /*_.FLD__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2006: @clear"); /*clear*/ /*_.EXP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2006: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2004: @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_60_LAMBDA_*/ static basilys_ptr_t rout_61_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_61_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_; } curfram__; 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-normal.bysl:2030: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2030: @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-normal.bysl:2030: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2030: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VOID*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-normal.bysl:2030: @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_61_LAMBDA_*/ static basilys_ptr_t rout_62_NORMEXP_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_62_NORMEXP_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 49 void* varptr[49]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_SETQ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2034: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2034: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_SETQ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2034: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2034: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2034: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2034: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check setq recv"),( "warmelt-normal.bysl"),(2034), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2034: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2034: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2034: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2035: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2035: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2035: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2035: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2035: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2035: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2035), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2035: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2035: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2035: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2036: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2036: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2036: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2036: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2036: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2036: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2036), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2036: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2036: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2036: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2037: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2037: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2037: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2037: @apply.arg"); argtab[0].bp_cstring = "normexp setq recv"; BASILYS_LOCATION("warmelt-normal.bysl:2037: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2037: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2037: @apply.arg"); argtab[3].bp_long = 2037; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2037: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2037: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2037: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2038: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2038: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2039: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SSTQ_VAR");/*_.SVAR__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2040: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTQ_EXPR");/*_.SEXP__V17*/ curfptr[16] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2041: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2041: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2041: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2041: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2041: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2041: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check svar"),( "warmelt-normal.bysl"),(2041), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2041: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2041: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2041: @cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2042: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2042: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2042: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2042: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2042: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NVAR__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMEXP_SYMBOL*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2043: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2043: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.VARCTYP__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.NVAR__V21*/ curfptr[20]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2045: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2045: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2045: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2045: @apply.arg"); argtab[0].bp_cstring = "normexp_setq varctyp"; BASILYS_LOCATION("warmelt-normal.bysl:2045: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2045: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2045: @apply.arg"); argtab[3].bp_long = 2045; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2045: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2045: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2045: @cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2046: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2046: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:2046: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2046: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2046: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2046: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check varctyp"),( "warmelt-normal.bysl"),(2046), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2046: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2046: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2046: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2047: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V29*/ curfptr[28]; BASILYS_LOCATION("warmelt-normal.bysl:2047: @multimsend.send"); /*_.NEXP__V28*/ curfptr[27] = basilysgc_send ((basilys_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2047: @block"); /*block*/{ /*_#NULL__L8*/ curfnum[0] = ((/*_.NBIND__V29*/ curfptr[28]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2050: @cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2050: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2050: @block"); /*block*/{ /*_.MAKE_LIST__V31*/ curfptr[30] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:2050: @compute"); /*_.NBIND__V29*/ curfptr[28] = /*_.SETQ___V32*/ curfptr[31] = /*_.MAKE_LIST__V31*/ curfptr[30];; /*_.IF___V30*/ curfptr[29] = /*_.SETQ___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2050: @clear"); /*clear*/ /*_.MAKE_LIST__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2050: @clear"); /*clear*/ /*_.SETQ___V32*/ curfptr[31] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2050: @cond.else"); /*_.IF___V30*/ curfptr[29] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2051: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2051: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2051: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.EXPCTYP__V33*/ curfptr[30] = basilysgc_send((basilys_ptr_t)(/*_.NEXP__V28*/ curfptr[27]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[6])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2053: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2053: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2053: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2053: @apply.arg"); argtab[0].bp_cstring = "normexp_setq expctyp"; BASILYS_LOCATION("warmelt-normal.bysl:2053: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-normal.bysl:2053: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2053: @apply.arg"); argtab[3].bp_long = 2053; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2053: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2053: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2053: @cppif.else"); /*_.IFCPP___V34*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2054: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2054: @block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:2054: @cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2054: @cond.then"); /*_.IFELSE___V37*/ curfptr[36] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2054: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2054: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check expctyp"),( "warmelt-normal.bysl"),(2054), __FUNCTION__); /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V36*/ curfptr[34] = /*_.IFELSE___V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2054: @clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2054: @clear"); /*clear*/ /*_.IFELSE___V37*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2054: @cppif.else"); /*_.IFCPP___V36*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#__L11*/ curfnum[8] = ((/*_.VARCTYP__V22*/ curfptr[21]) != (/*_.EXPCTYP__V33*/ curfptr[30]));; BASILYS_LOCATION("warmelt-normal.bysl:2055: @cond"); /*cond*/ if (/*_#__L11*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2055: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2055: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2058: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SVAR__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V38*/ curfptr[36] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "incompatible type for SETQ"), (basilys_ptr_t)(/*_.NAMED_NAME__V38*/ curfptr[36])); BASILYS_LOCATION("warmelt-normal.bysl:2060: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.VARCTYP__V22*/ curfptr[21]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[38] = slot; }; ; basilys_inform_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "left [var] type for incomatible SETQ"), (basilys_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[38])); BASILYS_LOCATION("warmelt-normal.bysl:2062: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.EXPCTYP__V33*/ curfptr[30]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; }; ; basilys_inform_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "right [expr] type for incomatible SETQ"), (basilys_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[39])); BASILYS_LOCATION("warmelt-normal.bysl:2056: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2055: @clear"); /*clear*/ /*_.NAMED_NAME__V38*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2055: @clear"); /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2055: @clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2051: @clear"); /*clear*/ /*_.EXPCTYP__V33*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2051: @clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2051: @clear"); /*clear*/ /*_.IFCPP___V36*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2051: @clear"); /*clear*/ /*_#__L11*/ curfnum[8] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2064: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2064: @apply"); /*apply*/{ /*_.CSYM__V42*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (basilys_ptr_t)((/*!konst_11_SETQ_*/ curfrout->tabval[11])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2070: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2070: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_SETQ*/ curfrout->tabval[13])), (3), "CLASS_NREP_SETQ");/*_.INST__V44*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2070: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2070: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[30]), (1), (/*_.NVAR__V21*/ curfptr[20]), "NSTQ_VAR"); ; BASILYS_LOCATION("warmelt-normal.bysl:2070: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[30]), (2), (/*_.NEXP__V28*/ curfptr[27]), "NSTQ_EXP"); ; /*_.INST___V43*/ curfptr[39] = /*_.INST__V44*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2065: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2065: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V46*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2065: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[34]), (0), (/*_.CSYM__V42*/ curfptr[38]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2065: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[34]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2065: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[34]), (1), (/*_.VARCTYP__V22*/ curfptr[21]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2065: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V46*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V46*/ curfptr[34]), (2), (/*_.INST___V43*/ curfptr[39]), "LETBIND_EXPR"); ; /*_.CBIND__V45*/ curfptr[31] = /*_.INST__V46*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2074: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2074: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V48*/ curfptr[47] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2074: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2074: @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), (/*_.VARCTYP__V22*/ curfptr[21]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2074: @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), (/*_.CSYM__V42*/ curfptr[38]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2074: @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), (/*_.CBIND__V45*/ curfptr[31]), "NOCC_BIND"); ; /*_.CLOCC__V47*/ curfptr[46] = /*_.INST__V48*/ curfptr[47];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBIND__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.CBIND__V45*/ curfptr[31])); BASILYS_LOCATION("warmelt-normal.bysl:2081: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V47*/ curfptr[46];; BASILYS_LOCATION("warmelt-normal.bysl:2081: @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) (/*_.NBIND__V29*/ curfptr[28]); ; BASILYS_LOCATION("warmelt-normal.bysl:2081: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V41*/ curfptr[36] = /*_.RETURN___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2064: @clear"); /*clear*/ /*_.CSYM__V42*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2064: @clear"); /*clear*/ /*_.INST___V43*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2064: @clear"); /*clear*/ /*_.CBIND__V45*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2064: @clear"); /*clear*/ /*_.CLOCC__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2064: @clear"); /*clear*/ /*_.RETURN___V49*/ curfptr[48] = 0 ;} ; /*_.MULTI___V27*/ curfptr[25] = /*_.LET___V41*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2047: @clear"); /*clear*/ /*_#NULL__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2047: @clear"); /*clear*/ /*_.IF___V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2047: @clear"); /*clear*/ /*_.LET___V41*/ curfptr[36] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2047: @clear"); /*clear*/ /*_.NBIND__V29*/ curfptr[28] = 0 ;} ; /*_.LET___V20*/ curfptr[18] = /*_.MULTI___V27*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2042: @clear"); /*clear*/ /*_.NVAR__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2042: @clear"); /*clear*/ /*_.VARCTYP__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2042: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2042: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2042: @clear"); /*clear*/ /*_.MULTI___V27*/ curfptr[25] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V20*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2038: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2038: @clear"); /*clear*/ /*_.SVAR__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2038: @clear"); /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2038: @clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2038: @clear"); /*clear*/ /*_.LET___V20*/ curfptr[18] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2033: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2033: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2033: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2033: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2033: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2033: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2033: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_62_NORMEXP_SETQ*/ static basilys_ptr_t rout_63_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_63_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_; } curfram__; 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-normal.bysl:2085: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2085: @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-normal.bysl:2085: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2086: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NSTQ_VAR");/*_.NSTQ_VAR__V4*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2086: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2086: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.GET_CTYPE__V5*/ curfptr[4] = basilysgc_send((basilys_ptr_t)(/*_.NSTQ_VAR__V4*/ curfptr[3]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2085: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];; BASILYS_LOCATION("warmelt-normal.bysl:2085: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2085: @clear"); /*clear*/ /*_.NSTQ_VAR__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2085: @clear"); /*clear*/ /*_.GET_CTYPE__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_63_LAMBDA_*/ static basilys_ptr_t rout_64_NORMEXP_MAKE_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_64_NORMEXP_MAKE_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 44 void* varptr[44]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 44; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_MAKE_INSTANCE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2093: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2093: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_MAKE_INSTANCE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2093: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2093: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2093: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2093: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check make_instance recv"),( "warmelt-normal.bysl"),(2093), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2093: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2093: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2093: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2094: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2094: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2094: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2094: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2094: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2094: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2094), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2094: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2094: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2094: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2095: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2095: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2095: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2095: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2095: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2095: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2095), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2095: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2095: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2095: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2096: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2096: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2096: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2096: @apply.arg"); argtab[0].bp_cstring = "normexp_make_instance recv"; BASILYS_LOCATION("warmelt-normal.bysl:2096: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2096: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2096: @apply.arg"); argtab[3].bp_long = 2096; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2096: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2096: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2096: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2097: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2098: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SMINS_CLASS");/*_.SCLASS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2099: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMINS_CLABIND");/*_.SCLABIND__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2100: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMINS_FIELDS");/*_.SFIELDS__V18*/ curfptr[17] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2101: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2101: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2101: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2101: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCLABIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V20*/ curfptr[19] = slot; }; ; /*_.SCLASYM__V19*/ curfptr[18] = /*_.BINDER__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2101: @clear"); /*clear*/ /*_.BINDER__V20*/ curfptr[19] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2101: @cond.else"); /*_.SCLASYM__V19*/ curfptr[18] = NULL;; } ; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2102: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2102: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2102: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2103: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2103: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2103: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2103: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NORMAL_EXP__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.SCLASYM__V19*/ curfptr[18]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.CLADATA__V21*/ curfptr[19] = /*_.NORMAL_EXP__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2102: @clear"); /*clear*/ /*_.NORMAL_EXP__V22*/ curfptr[21] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2102: @cond.else"); /*_.CLADATA__V21*/ curfptr[19] = NULL;; } ; /*_.BINDLIST__V23*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[7]))));; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLADATA__V21*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[8])));; /*_#NOT__L8*/ curfnum[7] = (!(/*_#IS_A__L7*/ curfnum[6]));; BASILYS_LOCATION("warmelt-normal.bysl:2106: @cond"); /*cond*/ if (/*_#NOT__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2106: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2106: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2108: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCLASS__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in make_instance"), (basilys_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24])); /*_.THE_NULL__V26*/ curfptr[25] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2109: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V26*/ curfptr[25];; BASILYS_LOCATION("warmelt-normal.bysl:2109: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2107: @block"); /*block*/{ /*_.PROGN___V28*/ curfptr[27] = /*_.RETURN___V27*/ curfptr[26];;} ; /*_.IF___V24*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2106: @clear"); /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2106: @clear"); /*clear*/ /*_.THE_NULL__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2106: @clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2106: @clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[27] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2106: @cond.else"); /*_.IF___V24*/ curfptr[23] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2113: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2113: @newclosure"); /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[26] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4)); ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[26])->tabval[0] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[26])->tabval[1] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[26])->tabval[2] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[26])->tabval[3] = (basilys_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]); ; /*_.LAMBDA___V30*/ curfptr[25] = /*_.LAMBDA___V31*/ curfptr[26];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2111: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2111: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[25]; /*_.NFIELDS__V32*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SFIELDS__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2130: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2130: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MAKE_INSTANCE*/ curfrout->tabval[15])), (4), "CLASS_NREP_MAKE_INSTANCE");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2130: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2130: @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), (/*_.SCLASS__V16*/ curfptr[15]), "NMINS_CLASS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2130: @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), (/*_.CLADATA__V21*/ curfptr[19]), "NMINS_CLADATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:2130: @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), (/*_.NFIELDS__V32*/ curfptr[27]), "NMINS_FIELDS"); ; /*_.NMKINS__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2135: @apply"); /*apply*/{ /*_.CSYM__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[16])), (basilys_ptr_t)((/*!konst_17_INST_*/ curfrout->tabval[17])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2136: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2136: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[18])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2136: @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), (/*_.CSYM__V35*/ curfptr[34]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2136: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2136: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2136: @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), (/*_.NMKINS__V33*/ curfptr[32]), "LETBIND_EXPR"); ; /*_.CBIND__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2141: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2141: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[20])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2141: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2141: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[19])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2141: @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), (/*_.CSYM__V35*/ curfptr[34]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2141: @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), (/*_.CBIND__V36*/ curfptr[35]), "NOCC_BIND"); ; /*_.CLOCC__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (basilys_ptr_t)(/*_.CBIND__V36*/ curfptr[35])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2148: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2148: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2148: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2148: @apply.arg"); argtab[0].bp_cstring = "normexp_make_instance result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2148: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-normal.bysl:2148: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2148: @apply.arg"); argtab[3].bp_long = 2148; /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V40*/ curfptr[39] = /*_.DEBUG_MSG_FUN__V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2148: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2148: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2148: @cppif.else"); /*_.IFCPP___V40*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2149: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2149: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2149: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2149: @apply.arg"); argtab[0].bp_cstring = "normexp_make_instance result bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:2149: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-normal.bysl:2149: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2149: @apply.arg"); argtab[3].bp_long = 2149; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDLIST__V23*/ curfptr[21]), (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-normal.bysl:2149: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2149: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2149: @cppif.else"); /*_.IFCPP___V42*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2150: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V38*/ curfptr[37];; BASILYS_LOCATION("warmelt-normal.bysl:2150: @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) (/*_.BINDLIST__V23*/ curfptr[21]); ; BASILYS_LOCATION("warmelt-normal.bysl:2150: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V29*/ curfptr[24] = /*_.RETURN___V44*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.NFIELDS__V32*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.NMKINS__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.CSYM__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.CBIND__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.CLOCC__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2110: @clear"); /*clear*/ /*_.RETURN___V44*/ curfptr[42] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V29*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.SCLASS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.SCLABIND__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.SFIELDS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.SCLASYM__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.CLADATA__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.BINDLIST__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.IF___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2097: @clear"); /*clear*/ /*_.LET___V29*/ curfptr[24] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2092: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2092: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2092: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2092: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2092: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2092: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2092: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_MAKE_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_64_NORMEXP_MAKE_INSTANCE*/ static basilys_ptr_t rout_65_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_65_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 18 void* varptr[18]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2113: @getarg"); /*_.CURFLDA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2113: @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-normal.bysl:2113: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2114: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2114: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2114: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2114: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2114: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2114: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curflda"),( "warmelt-normal.bysl"),(2114), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2114: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2114: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2114: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2115: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.CURFLOC__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2116: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 1, "SFLA_FIELD");/*_.CURFIELD__V7*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2117: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFLDA__V2*/ curfptr[1]), 2, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; }; ; /*_#NULL__L3*/ curfnum[1] = ((/*_.CURFLOC__V6*/ curfptr[5]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2118: @cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2118: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2118: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2118: @compute"); /*_.CURFLOC__V6*/ curfptr[5] = /*_.SETQ___V10*/ curfptr[9] = (/*~SLOC*/ curfclos->tabval[0]);; /*_.IF___V9*/ curfptr[8] = /*_.SETQ___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2118: @clear"); /*clear*/ /*_.SETQ___V10*/ curfptr[9] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2118: @cond.else"); /*_.IF___V9*/ curfptr[8] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2119: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.CURFLOC__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:2119: @multimsend.send"); /*_.NEXP__V12*/ curfptr[11] = basilysgc_send ((basilys_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2119: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2122: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2122: @block"); /*block*/{ /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = ((/*_.NBIND__V13*/ curfptr[12]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.NBIND__V13*/ curfptr[12])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-normal.bysl:2122: @cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2122: @cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2122: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2122: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nbind"),( "warmelt-normal.bysl"),(2122), __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2122: @clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2122: @clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2122: @cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2123: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2123: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V13*/ curfptr[12]; /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[2])), (basilys_ptr_t)((/*~BINDLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2124: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2124: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_FIELDASSIGN*/ curfrout->tabval[3])), (3), "CLASS_NREP_FIELDASSIGN");/*_.INST__V18*/ curfptr[17] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2124: @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), (/*_.CURFLOC__V6*/ curfptr[5]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2124: @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), (/*_.CURFIELD__V7*/ curfptr[6]), "NFLA_FIELD"); ; BASILYS_LOCATION("warmelt-normal.bysl:2124: @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), (/*_.NEXP__V12*/ curfptr[11]), "NFLA_VAL"); ; /*_.INST___V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} ; /*_.MULTI___V11*/ curfptr[9] = /*_.INST___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2119: @clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2119: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2119: @clear"); /*clear*/ /*_.INST___V17*/ curfptr[16] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2119: @clear"); /*clear*/ /*_.NBIND__V13*/ curfptr[12] = 0 ;} ; /*_.LET___V5*/ curfptr[3] = /*_.MULTI___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_.CURFLOC__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_.CURFIELD__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_#NULL__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_.IF___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2115: @clear"); /*clear*/ /*_.MULTI___V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:2113: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2113: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2113: @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_65_LAMBDA_*/ 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 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:2156: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2156: @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-normal.bysl:2156: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2156: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = (/*!CTYPE_VALUE*/ curfrout->tabval[0]);; BASILYS_LOCATION("warmelt-normal.bysl:2156: @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_66_LAMBDA_*/ static basilys_ptr_t rout_67_NORMEXP_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_67_NORMEXP_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 73 void* varptr[73]; #define CURFRAM_NBVARNUM 22 long varnum[22]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 73; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_FOREVER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2162: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2162: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FOREVER*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2162: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2162: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2162: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2162: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check forever recv"),( "warmelt-normal.bysl"),(2162), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2162: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2162: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2162: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2163: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2163: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2163: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2163: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2163: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2163: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2163), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2163: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2163: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2163: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2164: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2164: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2164: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2164: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2164: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2164: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2164), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2164: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2164: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2164: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2165: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2165: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2165: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2165: @apply.arg"); argtab[0].bp_cstring = "normexp_forever recv"; BASILYS_LOCATION("warmelt-normal.bysl:2165: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2165: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2165: @apply.arg"); argtab[3].bp_long = 2165; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2165: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2165: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2165: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2166: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2167: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2168: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFRV_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2169: @apply"); /*apply*/{ /*_.NEWENV__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2171: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2171: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2171: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2171: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2171: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2171: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check slbind"),( "warmelt-normal.bysl"),(2171), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2171: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2171: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2171: @cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2172: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2172: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15]; /*_.PUT_ENV__V21*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2173: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 0, "BINDER");/*_.BINDER__V23*/ curfptr[22] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @apply"); /*apply*/{ /*_.RESY__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.BINDER__V23*/ curfptr[22]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2174: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2174: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2174: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2174: @apply.arg"); argtab[0].bp_cstring = "normexp_forever putting resy.."; BASILYS_LOCATION("warmelt-normal.bysl:2174: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2174: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2174: @apply.arg"); argtab[3].bp_long = 2174; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (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-normal.bysl:2174: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2174: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2174: @cppif.else"); /*_.IFCPP___V25*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2175: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2175: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2175: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2175: @apply.arg"); argtab[0].bp_cstring = "..normexp_forever in slbind"; BASILYS_LOCATION("warmelt-normal.bysl:2175: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2175: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2175: @apply.arg"); argtab[3].bp_long = 2175; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (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-normal.bysl:2175: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2175: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2175: @cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2176: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2176: @block"); /*block*/{ /*_#IS_OBJECT__L8*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-normal.bysl:2176: @cond"); /*cond*/ if (/*_#IS_OBJECT__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2176: @cond.then"); /*_.IFELSE___V30*/ curfptr[29] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2176: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2176: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check resy obj1"),( "warmelt-normal.bysl"),(2176), __FUNCTION__); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V29*/ curfptr[27] = /*_.IFELSE___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2176: @clear"); /*clear*/ /*_#IS_OBJECT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2176: @clear"); /*clear*/ /*_.IFELSE___V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2176: @cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2177: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2177: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]))));basilys_putfield_object((/*_.SLBIND__V16*/ curfptr[15]), (2), (/*_.RESY__V24*/ curfptr[23]), "LABIND_CLONSY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2177: @touch"); basilysgc_touch(/*_.SLBIND__V16*/ curfptr[15]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2178: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2178: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2178: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2178: @apply.arg"); argtab[0].bp_cstring = "normexp_forever updated slbind"; BASILYS_LOCATION("warmelt-normal.bysl:2178: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2178: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2178: @apply.arg"); argtab[3].bp_long = 2178; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SLBIND__V16*/ 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-normal.bysl:2178: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2178: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2178: @cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2179: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2179: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2179: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2179: @apply.arg"); argtab[0].bp_cstring = "normexp_forever clonsy put resy"; BASILYS_LOCATION("warmelt-normal.bysl:2179: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2179: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2179: @apply.arg"); argtab[3].bp_long = 2179; /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2179: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2179: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2179: @cppif.else"); /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2180: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2180: @block"); /*block*/{ /*_#IS_A__L11*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RESY__V24*/ curfptr[23]), (basilys_ptr_t)((/*!CLASS_CLONEDSYMBOL*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-normal.bysl:2180: @cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2180: @cond.then"); /*_.IFELSE___V36*/ curfptr[35] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2180: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2180: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check resy"),( "warmelt-normal.bysl"),(2180), __FUNCTION__); /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V35*/ curfptr[33] = /*_.IFELSE___V36*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2180: @clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2180: @clear"); /*clear*/ /*_.IFELSE___V36*/ curfptr[35] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2180: @cppif.else"); /*_.IFCPP___V35*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2181: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2181: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2181: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V38*/ curfptr[37] = slot; }; ; /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2181: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2181: @apply.arg"); argtab[0].bp_cstring = "normexp_forever got1 clonsy"; BASILYS_LOCATION("warmelt-normal.bysl:2181: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2181: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2181: @apply.arg"); argtab[3].bp_long = 2181; /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.LABIND_CLONSY__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2181: @clear"); /*clear*/ /*_.LABIND_CLONSY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2181: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2181: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[38] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2181: @cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2182: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2182: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2182: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V41*/ curfptr[38] = slot; }; ; /*_#__L13*/ curfnum[0] = ((/*_.LABIND_CLONSY__V41*/ curfptr[38]) == (/*_.RESY__V24*/ curfptr[23]));; BASILYS_LOCATION("warmelt-normal.bysl:2182: @cond"); /*cond*/ if (/*_#__L13*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2182: @cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2182: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2182: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check did1 put resy"),( "warmelt-normal.bysl"),(2182), __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V40*/ curfptr[37] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2182: @clear"); /*clear*/ /*_.LABIND_CLONSY__V41*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2182: @clear"); /*clear*/ /*_#__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2182: @clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2182: @cppif.else"); /*_.IFCPP___V40*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2183: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2183: @block"); /*block*/{ /*_#IS_OBJECT__L14*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.RESY__V24*/ curfptr[23])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-normal.bysl:2183: @cond"); /*cond*/ if (/*_#IS_OBJECT__L14*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2183: @cond.then"); /*_.IFELSE___V44*/ curfptr[41] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2183: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2183: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check resy obj2"),( "warmelt-normal.bysl"),(2183), __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V43*/ curfptr[38] = /*_.IFELSE___V44*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2183: @clear"); /*clear*/ /*_#IS_OBJECT__L14*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2183: @clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2183: @cppif.else"); /*_.IFCPP___V43*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17]; BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46]; BASILYS_LOCATION("warmelt-normal.bysl:2184: @multiapply.appl"); /*_.NBODY__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2187: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2187: @block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2187: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2187: @apply.arg"); argtab[0].bp_cstring = "normexp_forever again slbind"; BASILYS_LOCATION("warmelt-normal.bysl:2187: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2187: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2187: @apply.arg"); argtab[3].bp_long = 2187; /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (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-normal.bysl:2187: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2187: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V49*/ curfptr[48] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2187: @cppif.else"); /*_.IFCPP___V48*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2188: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2188: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2188: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V51*/ curfptr[50] = slot; }; ; /*_#__L16*/ curfnum[0] = ((/*_.LABIND_CLONSY__V51*/ curfptr[50]) == (/*_.RESY__V24*/ curfptr[23]));; BASILYS_LOCATION("warmelt-normal.bysl:2188: @cond"); /*cond*/ if (/*_#__L16*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2188: @cond.then"); /*_.IFELSE___V52*/ curfptr[51] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2188: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2188: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check did2 put resy"),( "warmelt-normal.bysl"),(2188), __FUNCTION__); /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V50*/ curfptr[48] = /*_.IFELSE___V52*/ curfptr[51];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2188: @clear"); /*clear*/ /*_.LABIND_CLONSY__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2188: @clear"); /*clear*/ /*_#__L16*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2188: @clear"); /*clear*/ /*_.IFELSE___V52*/ curfptr[51] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2188: @cppif.else"); /*_.IFCPP___V50*/ curfptr[48] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2189: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2189: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2189: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), 2, "LABIND_CLONSY");/*_.LABIND_CLONSY__V54*/ curfptr[51] = slot; }; ; /*_#THE_CALLCOUNT__L17*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2189: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2189: @apply.arg"); argtab[0].bp_cstring = "normexp_forever got2 clonsy"; BASILYS_LOCATION("warmelt-normal.bysl:2189: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2189: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2189: @apply.arg"); argtab[3].bp_long = 2189; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.LABIND_CLONSY__V54*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[50] = /*_.DEBUG_MSG_FUN__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2189: @clear"); /*clear*/ /*_.LABIND_CLONSY__V54*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2189: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2189: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2189: @cppif.else"); /*_.IFCPP___V53*/ curfptr[50] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2190: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2190: @block"); /*block*/{ /*_#GET_INT__L18*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*!LABIND_CLONSY*/ curfrout->tabval[10]))));; /*_#OBJECT_LENGTH__L19*/ curfnum[18] = ((long)basilys_object_length((basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15])));; /*_#I__L20*/ curfnum[19] = ((/*_#GET_INT__L18*/ curfnum[0]) < (/*_#OBJECT_LENGTH__L19*/ curfnum[18]));; BASILYS_LOCATION("warmelt-normal.bysl:2190: @cond"); /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2190: @cond.then"); /*_.IFELSE___V57*/ curfptr[54] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2190: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2190: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check size slbind"),( "warmelt-normal.bysl"),(2190), __FUNCTION__); /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V56*/ curfptr[51] = /*_.IFELSE___V57*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2190: @clear"); /*clear*/ /*_#GET_INT__L18*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2190: @clear"); /*clear*/ /*_#OBJECT_LENGTH__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2190: @clear"); /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2190: @clear"); /*clear*/ /*_.IFELSE___V57*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2190: @cppif.else"); /*_.IFCPP___V56*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2193: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2193: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V47*/ curfptr[46]; BASILYS_LOCATION("warmelt-normal.bysl:2193: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.NBODY__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.RESBODY__V60*/ curfptr[59] = (basilysgc_new_mult1((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58])));; BASILYS_LOCATION("warmelt-normal.bysl:2194: @apply"); /*apply*/{ /*_.CSYM__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!konst_13_FOREVER_*/ curfrout->tabval[13])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2195: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2195: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_FOREVER*/ curfrout->tabval[14])), (4), "CLASS_NREP_FOREVER");/*_.INST__V63*/ curfptr[62] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2195: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2195: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NFOREVER_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:2195: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.RESBODY__V60*/ curfptr[59]), "NFOREVER_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2195: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (3), (/*_.RESY__V24*/ curfptr[23]), "NFOREVER_RESULT"); ; /*_.NFOREVER__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2200: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2200: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[15])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V65*/ curfptr[64] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2200: @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), (/*_.CSYM__V61*/ curfptr[60]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2200: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2200: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2200: @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), (/*_.NFOREVER__V62*/ curfptr[61]), "LETBIND_EXPR"); ; /*_.CBIND__V64*/ curfptr[63] = /*_.INST__V65*/ curfptr[64];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2205: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2205: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V67*/ curfptr[66] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2205: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2205: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[66]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[16])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2205: @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), (/*_.CSYM__V61*/ curfptr[60]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2205: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V67*/ curfptr[66]))));basilys_putfield_object((/*_.INST__V67*/ curfptr[66]), (3), (/*_.CBIND__V64*/ curfptr[63]), "NOCC_BIND"); ; /*_.CLOCC__V66*/ curfptr[65] = /*_.INST__V67*/ curfptr[66];;} ; /*_.NFORBINDINGS__V68*/ curfptr[67] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[18]))));; basilysgc_append_list((basilys_ptr_t)(/*_.NFORBINDINGS__V68*/ curfptr[67]), (basilys_ptr_t)(/*_.CBIND__V64*/ curfptr[63])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2213: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2213: @block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2213: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2213: @apply.arg"); argtab[0].bp_cstring = "normexp_forever return nforever"; BASILYS_LOCATION("warmelt-normal.bysl:2213: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2213: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2213: @apply.arg"); argtab[3].bp_long = 2213; /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2213: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2213: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2213: @cppif.else"); /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2214: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2214: @block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[18] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2214: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2214: @apply.arg"); argtab[0].bp_cstring = "normexp_forever return nforever"; BASILYS_LOCATION("warmelt-normal.bysl:2214: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[18]; BASILYS_LOCATION("warmelt-normal.bysl:2214: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2214: @apply.arg"); argtab[3].bp_long = 2214; /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V71*/ curfptr[69] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2214: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2214: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2214: @cppif.else"); /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2215: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V66*/ curfptr[65];; BASILYS_LOCATION("warmelt-normal.bysl:2215: @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) (/*_.NFORBINDINGS__V68*/ curfptr[67]); ; BASILYS_LOCATION("warmelt-normal.bysl:2215: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V58*/ curfptr[54] = /*_.RETURN___V73*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.RESBODY__V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.CSYM__V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.NFOREVER__V62*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.CBIND__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.CLOCC__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.NFORBINDINGS__V68*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2191: @clear"); /*clear*/ /*_.RETURN___V73*/ curfptr[71] = 0 ;} ; /*_.MULTI___V45*/ curfptr[41] = /*_.LET___V58*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.LET___V58*/ curfptr[54] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2184: @clear"); /*clear*/ /*_.NBODBINDINGS__V47*/ curfptr[46] = 0 ;} ; /*_.LET___V22*/ curfptr[21] = /*_.MULTI___V45*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.BINDER__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.RESY__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2173: @clear"); /*clear*/ /*_.MULTI___V45*/ curfptr[41] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2166: @clear"); /*clear*/ /*_.LET___V22*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2161: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2161: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2161: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2161: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2161: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2161: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2161: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_67_NORMEXP_FOREVER*/ static basilys_ptr_t rout_68_NORMEXP_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_68_NORMEXP_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 41 void* varptr[41]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_EXIT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2226: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2226: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_EXIT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2226: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2226: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2226: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2226: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check exit recv"),( "warmelt-normal.bysl"),(2226), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2226: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2226: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2226: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2227: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2227: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2227: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2227: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2227: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2227: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2227), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2227: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2227: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2227: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2228: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2228: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2228: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2228: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2228: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2228: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2228), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2228: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2228: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2228: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2229: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2229: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2229: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2229: @apply.arg"); argtab[0].bp_cstring = "normexp_exit recv"; BASILYS_LOCATION("warmelt-normal.bysl:2229: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2229: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2229: @apply.arg"); argtab[3].bp_long = 2229; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2229: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2229: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2229: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2230: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2231: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SLABEL_BIND");/*_.SLBIND__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2232: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXI_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2233: @apply"); /*apply*/{ /*_.NEWENV__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2235: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2235: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SLBIND__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_LABEL_BINDING*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2235: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2235: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2235: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2235: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check slbind"),( "warmelt-normal.bysl"),(2235), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2235: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2235: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2235: @cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2236: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2236: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SLBIND__V16*/ curfptr[15]; /*_.PUT_ENV__V21*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NEWENV__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2237: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V18*/ curfptr[17]; BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V24*/ curfptr[23]; BASILYS_LOCATION("warmelt-normal.bysl:2237: @multiapply.appl"); /*_.NBODY__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2237: @block"); /*block*/{ /*_#NULL__L6*/ curfnum[0] = ((/*_.NBODBINDINGS__V24*/ curfptr[23]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2240: @cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2240: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2240: @block"); /*block*/{ /*_.MAKE_LIST__V26*/ curfptr[25] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-normal.bysl:2241: @compute"); /*_.NBODBINDINGS__V24*/ curfptr[23] = /*_.SETQ___V27*/ curfptr[26] = /*_.MAKE_LIST__V26*/ curfptr[25];; /*_.IF___V25*/ curfptr[24] = /*_.SETQ___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2240: @clear"); /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2240: @clear"); /*clear*/ /*_.SETQ___V27*/ curfptr[26] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2240: @cond.else"); /*_.IF___V25*/ curfptr[24] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @block"); /*block*/{ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.NBODY__V23*/ curfptr[22])));; /*_#I__L8*/ curfnum[7] = ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) - (1));; /*_.MULTIPLE_NTH__V29*/ curfptr[26] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NBODY__V23*/ curfptr[22]), (/*_#I__L8*/ curfnum[7])));; BASILYS_LOCATION("warmelt-normal.bysl:2243: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2243: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_EXIT*/ curfrout->tabval[9])), (3), "CLASS_NREP_EXIT");/*_.INST__V31*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SLBIND__V16*/ curfptr[15]), "NEXIT_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.MULTIPLE_NTH__V29*/ curfptr[26]), "NEXIT_VAL"); ; /*_.NEXIT__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2247: @apply"); /*apply*/{ /*_.CSYM__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (basilys_ptr_t)((/*!konst_11_EXIT_*/ curfrout->tabval[11])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2248: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2248: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[12])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2248: @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), (/*_.CSYM__V32*/ curfptr[31]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2248: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2248: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2248: @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), (/*_.NEXIT__V30*/ curfptr[29]), "LETBIND_EXPR"); ; /*_.CBIND__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2253: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2253: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[14])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V36*/ curfptr[35] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2253: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2253: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[13])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2253: @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), (/*_.CSYM__V32*/ curfptr[31]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2253: @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), (/*_.CBIND__V33*/ curfptr[32]), "NOCC_BIND"); ; /*_.CLOCC__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (basilys_ptr_t)(/*_.CBIND__V33*/ curfptr[32])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2260: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2260: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2260: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2260: @apply.arg"); argtab[0].bp_cstring = "normexp_exit nexit"; BASILYS_LOCATION("warmelt-normal.bysl:2260: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[8]; BASILYS_LOCATION("warmelt-normal.bysl:2260: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2260: @apply.arg"); argtab[3].bp_long = 2260; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NEXIT__V30*/ curfptr[29]), (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-normal.bysl:2260: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2260: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2260: @cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2261: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2261: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2261: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2261: @apply.arg"); argtab[0].bp_cstring = "normexp_exit nbodbindings"; BASILYS_LOCATION("warmelt-normal.bysl:2261: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[8]; BASILYS_LOCATION("warmelt-normal.bysl:2261: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2261: @apply.arg"); argtab[3].bp_long = 2261; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBODBINDINGS__V24*/ curfptr[23]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V39*/ curfptr[37] = /*_.DEBUG_MSG_FUN__V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2261: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2261: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2261: @cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2262: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V35*/ curfptr[34];; BASILYS_LOCATION("warmelt-normal.bysl:2262: @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) (/*_.NBODBINDINGS__V24*/ curfptr[23]); ; BASILYS_LOCATION("warmelt-normal.bysl:2262: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V28*/ curfptr[25] = /*_.RETURN___V41*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V29*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.NEXIT__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.CSYM__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.CBIND__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.CLOCC__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2243: @clear"); /*clear*/ /*_.RETURN___V41*/ curfptr[39] = 0 ;} ; /*_.MULTI___V22*/ curfptr[21] = /*_.LET___V28*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2237: @clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2237: @clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2237: @clear"); /*clear*/ /*_.LET___V28*/ curfptr[25] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2237: @clear"); /*clear*/ /*_.NBODBINDINGS__V24*/ curfptr[23] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.SLBIND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.NEWENV__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.PUT_ENV__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2230: @clear"); /*clear*/ /*_.MULTI___V22*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2225: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2225: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2225: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2225: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2225: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2225: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2225: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_68_NORMEXP_EXIT*/ static basilys_ptr_t rout_69_NORMEXP_COMPILEWARNING(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_NORMEXP_COMPILEWARNING_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 6 long varnum[6]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_COMPILEWARNING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2269: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2269: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_COMPILEWARNING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2269: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2269: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2269: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2269: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check compilewarn recv"),( "warmelt-normal.bysl"),(2269), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2269: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2269: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2269: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2270: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2270: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2270: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2270: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2270: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2270: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2270), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2270: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2270: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2270: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2271: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2271: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2271: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2271: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2271: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2271: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2271), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2271: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2271: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2271: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2272: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2272: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2272: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2272: @apply.arg"); argtab[0].bp_cstring = "normexp_compile_warning recv"; BASILYS_LOCATION("warmelt-normal.bysl:2272: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2272: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2272: @apply.arg"); argtab[3].bp_long = 2272; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2272: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2272: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2272: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2273: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2273: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2274: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SCWARN_MSG");/*_.SWMSG__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2275: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCWARN_EXPR");/*_.SWEXP__V17*/ curfptr[16] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "COMPILE_WARNING:"), (basilys_ptr_t)(/*_.SWMSG__V16*/ curfptr[15])); BASILYS_LOCATION("warmelt-normal.bysl:2278: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V20*/ curfptr[19]; BASILYS_LOCATION("warmelt-normal.bysl:2278: @multimsend.send"); /*_.NEXP__V19*/ curfptr[18] = basilysgc_send ((basilys_ptr_t)(/*_.SWEXP__V17*/ curfptr[16]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[4]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2278: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2281: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2281: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2281: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2281: @apply.arg"); argtab[0].bp_cstring = "normexp_compile_warning nesult nexp"; BASILYS_LOCATION("warmelt-normal.bysl:2281: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2281: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2281: @apply.arg"); argtab[3].bp_long = 2281; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NEXP__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2281: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2281: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2281: @cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2282: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2282: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2282: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2282: @apply.arg"); argtab[0].bp_cstring = "normexp_compile_warning result nbind"; BASILYS_LOCATION("warmelt-normal.bysl:2282: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2282: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2282: @apply.arg"); argtab[3].bp_long = 2282; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBIND__V20*/ curfptr[19]), (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-normal.bysl:2282: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2282: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2282: @cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2283: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NEXP__V19*/ curfptr[18];; BASILYS_LOCATION("warmelt-normal.bysl:2283: @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) (/*_.NBIND__V20*/ curfptr[19]); ; BASILYS_LOCATION("warmelt-normal.bysl:2283: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.MULTI___V18*/ curfptr[17] = /*_.RETURN___V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2278: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2278: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2278: @clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2278: @clear"); /*clear*/ /*_.NBIND__V20*/ curfptr[19] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2273: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2273: @clear"); /*clear*/ /*_.SWMSG__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2273: @clear"); /*clear*/ /*_.SWEXP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2273: @clear"); /*clear*/ /*_.MULTI___V18*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2268: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2268: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2268: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2268: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2268: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2268: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2268: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_COMPILEWARNING", 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_69_NORMEXP_COMPILEWARNING*/ 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 5 void* varptr[5]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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-normal.bysl:2288: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2288: @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-normal.bysl:2288: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2288: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCWARN_EXPR");/*_.SCWARN_EXPR__V4*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2288: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2288: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.GET_CTYPE__V5*/ curfptr[4] = basilysgc_send((basilys_ptr_t)(/*_.SCWARN_EXPR__V4*/ curfptr[3]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2288: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.GET_CTYPE__V5*/ curfptr[4];; BASILYS_LOCATION("warmelt-normal.bysl:2288: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2288: @clear"); /*clear*/ /*_.SCWARN_EXPR__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2288: @clear"); /*clear*/ /*_.GET_CTYPE__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_70_LAMBDA_*/ static basilys_ptr_t rout_71_REPLACE_LAST_BY_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_71_REPLACE_LAST_BY_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 57 void* varptr[57]; #define CURFRAM_NBVARNUM 17 long varnum[17]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 57; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("REPLACE_LAST_BY_RETURN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2292: @getarg"); /*_.TUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2292: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2292: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2292: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2293: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2293: @block"); /*block*/{ /*_#IS_MULTIPLE__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-normal.bysl:2293: @cond"); /*cond*/ if (/*_#IS_MULTIPLE__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2293: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2293: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2293: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check tup"),( "warmelt-normal.bysl"),(2293), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2293: @clear"); /*clear*/ /*_#IS_MULTIPLE__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2293: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2293: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2294: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2294: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2294: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2294: @cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2294: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2294: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2294), __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2294: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2294: @clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2294: @cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @block"); /*block*/{ /*_#TUPLEN__L3*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1])));; /*_#I__L4*/ curfnum[3] = ((/*_#TUPLEN__L3*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:2296: @cond"); /*cond*/ if (/*_#I__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2296: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2296: @block"); /*block*/{ /*_#I__L5*/ curfnum[4] = ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; /*_.MULTIPLE_NTH__V11*/ curfptr[10] = (basilys_multiple_nth((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L5*/ curfnum[4])));; /*_.LASTCOMP__V10*/ curfptr[9] = /*_.MULTIPLE_NTH__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2296: @clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2296: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2296: @cond.else"); /*_.LASTCOMP__V10*/ curfptr[9] = NULL;; } ; /*_#IS_A__L6*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2299: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2299: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2299: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2300: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2300: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V12*/ curfptr[10] = /*_.RETURN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2299: @clear"); /*clear*/ /*_.RETURN___V13*/ curfptr[12] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2299: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2299: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NREP_SYMOCC*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2303: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2303: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2303: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2304: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NOCC_CTYP");/*_.NOCC_CTYP__V15*/ curfptr[14] = slot; }; ; /*_#__L8*/ curfnum[7] = ((/*_.NOCC_CTYP__V15*/ curfptr[14]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:2304: @cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2304: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2304: @block"); /*block*/{ /*_#I__L9*/ curfnum[8] = ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; BASILYS_LOCATION("warmelt-normal.bysl:2307: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2307: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2307: @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), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2307: @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), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN"); ; /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L9*/ curfnum[8]), (basilys_ptr_t)(/*_.INST___V16*/ curfptr[15])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2304: @clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2304: @clear"); /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2310: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2310: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2303: @block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[15];;} ; /*_.IFELSE___V14*/ curfptr[12] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_.NOCC_CTYP__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2303: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2303: @block"); /*block*/{ /*_#IS_A__L10*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2313: @cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2313: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2313: @block"); /*block*/{ /*_#I__L11*/ curfnum[7] = ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; BASILYS_LOCATION("warmelt-normal.bysl:2316: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2316: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V22*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[18]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[18]), (1), (/*_.LASTCOMP__V10*/ curfptr[9]), "NRET_MAIN"); ; /*_.INST___V21*/ curfptr[15] = /*_.INST__V22*/ curfptr[18];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L11*/ curfnum[7]), (basilys_ptr_t)(/*_.INST___V21*/ curfptr[15])); BASILYS_LOCATION("warmelt-normal.bysl:2319: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2319: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2313: @block"); /*block*/{ /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} ; /*_.IFELSE___V20*/ curfptr[14] = /*_.PROGN___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_.INST___V21*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2313: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2313: @block"); /*block*/{ /*_#NULL__L12*/ curfnum[7] = ((/*_.LASTCOMP__V10*/ curfptr[9]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2322: @cond"); /*cond*/ if (/*_#NULL__L12*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2322: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2322: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2323: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2323: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V25*/ curfptr[15] = /*_.RETURN___V26*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2322: @clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[22] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2322: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2322: @block"); /*block*/{ /*_#IS_A__L13*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2326: @cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2326: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2326: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2327: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2327: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 2, "NLET_BODY");/*_.LBODY__V29*/ curfptr[28] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2328: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 1, "NLET_BINDINGS");/*_.LBINDING__V30*/ curfptr[29] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2329: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LLOC__V31*/ curfptr[30] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2330: @apply"); /*apply*/{ /*_.NEWENV__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2334: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2334: @newclosure"); /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[33] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2334: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V34*/ curfptr[33])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V34*/ curfptr[33]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[33])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V32*/ curfptr[31]); ; /*_.LAMBDA___V33*/ curfptr[32] = /*_.LAMBDA___V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2332: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2332: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[32]; /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.LBINDING__V30*/ curfptr[29]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_MULTIPLE__L14*/ curfnum[13] = (basilys_magic_discr((basilys_ptr_t)(/*_.LBODY__V29*/ curfptr[28])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-normal.bysl:2337: @cond"); /*cond*/ if (/*_#IS_MULTIPLE__L14*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2337: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2337: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2338: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2338: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V32*/ curfptr[31]; BASILYS_LOCATION("warmelt-normal.bysl:2338: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LLOC__V31*/ curfptr[30]; /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.LBODY__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V36*/ curfptr[35] = /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2337: @clear"); /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V37*/ curfptr[36] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2337: @cond.else"); /*_.IF___V36*/ curfptr[35] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2339: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2339: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V28*/ curfptr[22] = /*_.RETURN___V38*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.LBODY__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.LBINDING__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.LLOC__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.NEWENV__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.LAMBDA___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_#IS_MULTIPLE__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.IF___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2327: @clear"); /*clear*/ /*_.RETURN___V38*/ curfptr[36] = 0 ;} ; /*_.IFELSE___V27*/ curfptr[23] = /*_.LET___V28*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2326: @clear"); /*clear*/ /*_.LET___V28*/ curfptr[22] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2326: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2326: @block"); /*block*/{ /*_#IS_A__L15*/ curfnum[13] = basilys_is_instance_of((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-normal.bysl:2343: @cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2343: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2343: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2344: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2344: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2344: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; /*_.LASTYP__V41*/ curfptr[30] = basilysgc_send((basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[12])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2345: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LASTCOMP__V10*/ curfptr[9]), 0, "NREP_LOC");/*_.LOC__V42*/ curfptr[31] = slot; }; ; /*_#__L16*/ curfnum[15] = ((/*_.LASTYP__V41*/ curfptr[30]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:2347: @cond"); /*cond*/ if (/*_#__L16*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2347: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2347: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2348: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2348: @apply"); /*apply*/{ /*_.RCLOSYM__V45*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[13])), (basilys_ptr_t)((/*!konst_14_RETVAL_*/ curfrout->tabval[14])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2349: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2349: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V47*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2349: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[22]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2349: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[22]), (1), (/*_.RCLOSYM__V45*/ curfptr[35]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2349: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V47*/ curfptr[22]))));basilys_putfield_object((/*_.INST__V47*/ curfptr[22]), (2), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "NOCC_CTYP"); ; /*_.RCLOCC__V46*/ curfptr[36] = /*_.INST__V47*/ curfptr[22];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2353: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2353: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_RETURN*/ curfrout->tabval[1])), (3), "CLASS_NREP_RETURN");/*_.INST__V49*/ curfptr[48] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2353: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (0), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2353: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V49*/ curfptr[48]))));basilys_putfield_object((/*_.INST__V49*/ curfptr[48]), (1), (/*_.RCLOCC__V46*/ curfptr[36]), "NRET_MAIN"); ; /*_.RETN__V48*/ curfptr[47] = /*_.INST__V49*/ curfptr[48];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2357: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2357: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[16])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V51*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2357: @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), (/*_.RCLOSYM__V45*/ curfptr[35]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2357: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[3])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.LASTCOMP__V10*/ curfptr[9]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:2357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (3), (/*_.LOC__V42*/ curfptr[31]), "LETBIND_LOC"); ; /*_.RBIND__V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} ; /*_.RBINTUP__V52*/ curfptr[51] = (basilysgc_new_mult1((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.RBIND__V50*/ curfptr[49])));; /*_.MAKE_TUPLE1__V53*/ curfptr[52] = (basilysgc_new_mult1((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.RETN__V48*/ curfptr[47])));; BASILYS_LOCATION("warmelt-normal.bysl:2364: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2364: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LET*/ curfrout->tabval[5])), (3), "CLASS_NREP_LET");/*_.INST__V55*/ curfptr[54] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2364: @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), (/*_.LOC__V42*/ curfptr[31]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2364: @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), (/*_.RBINTUP__V52*/ curfptr[51]), "NLET_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2364: @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), (/*_.MAKE_TUPLE1__V53*/ curfptr[52]), "NLET_BODY"); ; /*_.RLET__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2369: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2369: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.RCLOCC__V46*/ curfptr[36])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.RCLOCC__V46*/ curfptr[36]))));basilys_putfield_object((/*_.RCLOCC__V46*/ curfptr[36]), (3), (/*_.RBIND__V50*/ curfptr[49]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:2369: @touch"); basilysgc_touch(/*_.RCLOCC__V46*/ curfptr[36]); ; /*epilog*/} ; /*_#I__L17*/ curfnum[16] = ((/*_#TUPLEN__L3*/ curfnum[0]) - (1));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.TUP__V2*/ curfptr[1]), (/*_#I__L17*/ curfnum[16]), (basilys_ptr_t)(/*_.RLET__V54*/ curfptr[53])); BASILYS_LOCATION("warmelt-normal.bysl:2373: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2373: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V44*/ curfptr[34] = /*_.RETURN___V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RCLOSYM__V45*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RCLOCC__V46*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RETN__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RBIND__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RBINTUP__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.MAKE_TUPLE1__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RLET__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2348: @clear"); /*clear*/ /*_.RETURN___V56*/ curfptr[55] = 0 ;} ; /*_.IF___V43*/ curfptr[32] = /*_.LET___V44*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2347: @clear"); /*clear*/ /*_.LET___V44*/ curfptr[34] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2347: @cond.else"); /*_.IF___V43*/ curfptr[32] = NULL;; } ; /*_.LET___V40*/ curfptr[29] = /*_.IF___V43*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2344: @clear"); /*clear*/ /*_.LASTYP__V41*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2344: @clear"); /*clear*/ /*_.LOC__V42*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2344: @clear"); /*clear*/ /*_#__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2344: @clear"); /*clear*/ /*_.IF___V43*/ curfptr[32] = 0 ;} ; /*_.IFELSE___V39*/ curfptr[28] = /*_.LET___V40*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2343: @clear"); /*clear*/ /*_.LET___V40*/ curfptr[29] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2343: @cond.else"); /*_.IFELSE___V39*/ curfptr[28] = NULL;; } ; /*_.IFELSE___V27*/ curfptr[23] = /*_.IFELSE___V39*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2326: @clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2326: @clear"); /*clear*/ /*_.IFELSE___V39*/ curfptr[28] = 0 ;} ; } ; /*_.IFELSE___V25*/ curfptr[15] = /*_.IFELSE___V27*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2322: @clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2322: @clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[23] = 0 ;} ; } ; /*_.IFELSE___V20*/ curfptr[14] = /*_.IFELSE___V25*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_#NULL__L12*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2313: @clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V14*/ curfptr[12] = /*_.IFELSE___V20*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2303: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[14] = 0 ;} ; } ; /*_.IFELSE___V12*/ curfptr[10] = /*_.IFELSE___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2299: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2299: @clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[12] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:2375: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.TUP__V2*/ curfptr[1];; BASILYS_LOCATION("warmelt-normal.bysl:2375: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V9*/ curfptr[7] = /*_.RETURN___V57*/ curfptr[35];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_#TUPLEN__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_.LASTCOMP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2295: @clear"); /*clear*/ /*_.RETURN___V57*/ curfptr[35] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2292: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V9*/ curfptr[7];; BASILYS_LOCATION("warmelt-normal.bysl:2292: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2292: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2292: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2292: @clear"); /*clear*/ /*_.LET___V9*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("REPLACE_LAST_BY_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_71_REPLACE_LAST_BY_RETURN*/ 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_; } curfram__; 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-normal.bysl:2334: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2334: @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-normal.bysl:2334: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2335: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2335: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BND__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2334: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:2334: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2334: @clear"); /*clear*/ /*_.PUT_ENV__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_NORMEXP_DEFUN(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_NORMEXP_DEFUN_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 65 void* varptr[65]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 65; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFUN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2384: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2384: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFUN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2384: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2384: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2384: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2384: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check defun recv"),( "warmelt-normal.bysl"),(2384), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2384: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2384: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2384: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2385: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2385: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2385: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2385: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2385: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2385: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2385), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2385: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2385: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2385: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2386: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2386: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2386: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2386: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2386: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2386: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2386), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2386: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2386: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2386: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2387: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2387: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2387: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2387: @apply.arg"); argtab[0].bp_cstring = "normexp_defun recv"; BASILYS_LOCATION("warmelt-normal.bysl:2387: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2387: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2387: @apply.arg"); argtab[3].bp_long = 2387; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2387: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2387: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2387: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2388: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2389: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAM__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2390: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFORMAL_ARGS");/*_.SFORMALS__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2391: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SFUN_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2392: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2392: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SNAM__V16*/ curfptr[15]; /*_.SFUBIND__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2393: @apply"); /*apply*/{ /*_.NEWENV__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2394: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.OLDPROC__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2395: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.OLDSYMBCACHE__V22*/ curfptr[21] = slot; }; ; /*_.CLOSBLIS__V23*/ curfptr[22] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.THE_NULL__V24*/ curfptr[23] = (NULL);; /*_.MAKE_LIST__V25*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.MAKE_LIST__V26*/ curfptr[25] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[6]))));; /*_.THE_NULL__V27*/ curfptr[26] = (NULL);; /*_.THE_NULL__V28*/ curfptr[27] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2397: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2397: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[7])), (9), "CLASS_NREP_ROUTPROC");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @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), (/*_.THE_NULL__V24*/ curfptr[23]), "NPROC_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @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), (/*_.SNAM__V16*/ curfptr[15]), "NRPRO_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @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), (/*_.SFORMALS__V17*/ curfptr[16]), "NRPRO_ARGB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @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), (/*_.CLOSBLIS__V23*/ curfptr[22]), "NRPRO_CLOSEDB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (5), (/*_.MAKE_LIST__V25*/ curfptr[24]), "NRPRO_CONST"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.MAKE_LIST__V26*/ curfptr[25]), "NRPRO_THUNKLIST"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (6), (/*_.THE_NULL__V27*/ curfptr[26]), "NRPRO_DATAROUT"); ; BASILYS_LOCATION("warmelt-normal.bysl:2397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.THE_NULL__V28*/ curfptr[27]), "NRPRO_DATACLOS"); ; /*_.NPROC__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2411: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2411: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2411: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2411: @apply.arg"); argtab[2].bp_cstring = "discr_routine"; /*_.NORMAL_PREDEF__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (basilys_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2409: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2409: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[8])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V33*/ curfptr[32] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2409: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (1), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2409: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (2), (/*_.NORMAL_PREDEF__V31*/ curfptr[30]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2409: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V33*/ curfptr[32]))));basilys_putfield_object((/*_.INST__V33*/ curfptr[32]), (5), (/*_.NPROC__V29*/ curfptr[28]), "NDROU_PROC"); ; /*_.NDATAROUT__V32*/ curfptr[31] = /*_.INST__V33*/ curfptr[32];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2416: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2416: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2416: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2416: @apply.arg"); argtab[2].bp_cstring = "discr_closure"; /*_.NORMAL_PREDEF__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[9])), (basilys_ptr_t)((/*!DISCR_CLOSURE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.THE_NULL__V35*/ curfptr[34] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2414: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2414: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATACLOSURE*/ curfrout->tabval[11])), (7), "CLASS_NREP_DATACLOSURE");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2414: @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), (/*_.SNAM__V16*/ curfptr[15]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2414: @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), (/*_.NORMAL_PREDEF__V34*/ curfptr[33]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2414: @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), (/*_.NPROC__V29*/ curfptr[28]), "NDCLO_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2414: @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), (/*_.THE_NULL__V35*/ curfptr[34]), "NDCLO_CLOSV"); ; /*_.NDATACLOS__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; /*_.MAKE_MAPOBJECT__V38*/ curfptr[37] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[13])), (40)));; BASILYS_LOCATION("warmelt-normal.bysl:2421: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.NPROC__V29*/ curfptr[28]), "NCTX_CURPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.MAKE_MAPOBJECT__V38*/ curfptr[37]), "NCTX_SYMBCACHEMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2421: @touch"); basilysgc_touch(/*_.NCX__V4*/ curfptr[3]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2424: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2424: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NDATAROUT__V32*/ curfptr[31]; /*_.ADD_NCTX_DATA__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2425: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2425: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NDATACLOS__V36*/ curfptr[35]; /*_.ADD_NCTX_DATA__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2426: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2426: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_FUNCTION_BINDING*/ curfrout->tabval[15])));; BASILYS_LOCATION("warmelt-normal.bysl:2426: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2426: @cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2426: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2426: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sfubind"),( "warmelt-normal.bysl"),(2426), __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[40] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2426: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2426: @clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2426: @cppif.else"); /*_.IFCPP___V41*/ curfptr[40] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2427: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2427: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28]))));basilys_putfield_object((/*_.NPROC__V29*/ curfptr[28]), (6), (/*_.NDATAROUT__V32*/ curfptr[31]), "NRPRO_DATAROUT"); ; BASILYS_LOCATION("warmelt-normal.bysl:2427: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28]))));basilys_putfield_object((/*_.NPROC__V29*/ curfptr[28]), (7), (/*_.NDATACLOS__V36*/ curfptr[35]), "NRPRO_DATACLOS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2427: @touch"); basilysgc_touch(/*_.NPROC__V29*/ curfptr[28]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2430: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2430: @newclosure"); /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[43] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2430: @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)(/*_.NEWENV__V20*/ curfptr[19]); ; /*_.LAMBDA___V43*/ curfptr[41] = /*_.LAMBDA___V44*/ curfptr[43];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2428: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2428: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[41]; /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.SFORMALS__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2433: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2433: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NEWENV__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]))));basilys_putfield_object((/*_.NEWENV__V20*/ curfptr[19]), (2), (/*_.NPROC__V29*/ curfptr[28]), "ENV_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2433: @touch"); basilysgc_touch(/*_.NEWENV__V20*/ curfptr[19]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2435: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V46*/ curfptr[45] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NCTX_PROCLIST__V46*/ curfptr[45]), (basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28])); BASILYS_LOCATION("warmelt-normal.bysl:2436: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19]; BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V49*/ curfptr[48]; BASILYS_LOCATION("warmelt-normal.bysl:2436: @multiapply.appl"); /*_.NBODY__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2439: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2439: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2439: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2439: @apply.arg"); argtab[0].bp_cstring = "normexp_defun nbody before replace_last_by_return"; BASILYS_LOCATION("warmelt-normal.bysl:2439: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2439: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2439: @apply.arg"); argtab[3].bp_long = 2439; /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBODY__V48*/ curfptr[47]), (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-normal.bysl:2439: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2439: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V51*/ curfptr[50] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2439: @cppif.else"); /*_.IFCPP___V50*/ curfptr[49] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2442: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2442: @newclosure"); /*newclosure*/ /*_.LAMBDA___V53*/ curfptr[52] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2442: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V53*/ curfptr[52])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V53*/ curfptr[52]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V53*/ curfptr[52])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V20*/ curfptr[19]); ; /*_.LAMBDA___V52*/ curfptr[50] = /*_.LAMBDA___V53*/ curfptr[52];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2440: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2440: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V52*/ curfptr[50]; /*_.MULTIPLE_EVERY__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NBINDINGS__V49*/ curfptr[48]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2444: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2444: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2444: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V20*/ curfptr[19]; BASILYS_LOCATION("warmelt-normal.bysl:2444: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NRBODY__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[23])), (basilys_ptr_t)(/*_.NBODY__V48*/ curfptr[47]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2445: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2445: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V49*/ curfptr[48]; BASILYS_LOCATION("warmelt-normal.bysl:2445: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NPBODY__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[24])), (basilys_ptr_t)(/*_.NRBODY__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2447: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2447: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28]))));basilys_putfield_object((/*_.NPROC__V29*/ curfptr[28]), (1), (/*_.NPBODY__V57*/ curfptr[56]), "NPROC_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2447: @touch"); basilysgc_touch(/*_.NPROC__V29*/ curfptr[28]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2448: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2448: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2448: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2448: @apply.arg"); argtab[0].bp_cstring = "normexp_defun npbody after replace_last_by_return"; BASILYS_LOCATION("warmelt-normal.bysl:2448: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2448: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2448: @apply.arg"); argtab[3].bp_long = 2448; /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NPBODY__V57*/ curfptr[56]), (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-normal.bysl:2448: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2448: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2448: @cppif.else"); /*_.IFCPP___V58*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V55*/ curfptr[54] = /*_.IFCPP___V58*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2444: @clear"); /*clear*/ /*_.NRBODY__V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2444: @clear"); /*clear*/ /*_.NPBODY__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2444: @clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[57] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2450: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2450: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.OLDPROC__V21*/ curfptr[20]), "NCTX_CURPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2450: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.OLDSYMBCACHE__V22*/ curfptr[21]), "NCTX_SYMBCACHEMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2450: @touch"); basilysgc_touch(/*_.NCX__V4*/ curfptr[3]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2451: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2455: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2455: @newclosure"); /*newclosure*/ /*_.LAMBDA___V61*/ curfptr[55] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_29*/ curfrout->tabval[29])), (3)); ; BASILYS_LOCATION("warmelt-normal.bysl:2455: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V61*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V61*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V61*/ curfptr[55])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:2455: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V61*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V61*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V61*/ curfptr[55])->tabval[1] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:2455: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V61*/ curfptr[55])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V61*/ curfptr[55]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V61*/ curfptr[55])->tabval[2] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; /*_.LAMBDA___V60*/ curfptr[58] = /*_.LAMBDA___V61*/ curfptr[55];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2452: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2452: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[26]); BASILYS_LOCATION("warmelt-normal.bysl:2452: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V60*/ curfptr[58]; /*_.CLOVTUP__V62*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[25])), (basilys_ptr_t)(/*_.CLOSBLIS__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2464: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2464: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NDATACLOS__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NDATACLOS__V36*/ curfptr[35]))));basilys_putfield_object((/*_.NDATACLOS__V36*/ curfptr[35]), (6), (/*_.CLOVTUP__V62*/ curfptr[56]), "NDCLO_CLOSV"); ; BASILYS_LOCATION("warmelt-normal.bysl:2464: @touch"); basilysgc_touch(/*_.NDATACLOS__V36*/ curfptr[35]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2451: @clear"); /*clear*/ /*_.LAMBDA___V60*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2451: @clear"); /*clear*/ /*_.CLOVTUP__V62*/ curfptr[56] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2466: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2466: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.SFUBIND__V19*/ curfptr[18]))));basilys_putfield_object((/*_.SFUBIND__V19*/ curfptr[18]), (2), (/*_.NDATACLOS__V36*/ curfptr[35]), "FUBIND_FUNDATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:2466: @touch"); basilysgc_touch(/*_.SFUBIND__V19*/ curfptr[18]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2467: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2467: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2467: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2467: @apply.arg"); argtab[0].bp_cstring = "normexp_defun return nproc"; BASILYS_LOCATION("warmelt-normal.bysl:2467: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2467: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2467: @apply.arg"); argtab[3].bp_long = 2467; /*_.DEBUG_MSG_FUN__V64*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NPROC__V29*/ curfptr[28]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2467: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2467: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2467: @cppif.else"); /*_.IFCPP___V63*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2468: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NPROC__V29*/ curfptr[28];; BASILYS_LOCATION("warmelt-normal.bysl:2468: @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) ((/*nil*/NULL)); ; BASILYS_LOCATION("warmelt-normal.bysl:2468: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.MULTI___V47*/ curfptr[46] = /*_.RETURN___V65*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.IFCPP___V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.LAMBDA___V52*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.LET___V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.RETURN___V65*/ curfptr[56] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2436: @clear"); /*clear*/ /*_.NBINDINGS__V49*/ curfptr[48] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.SNAM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.SFORMALS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.SFUBIND__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NEWENV__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.OLDPROC__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.OLDSYMBCACHE__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.CLOSBLIS__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.THE_NULL__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.MAKE_LIST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.THE_NULL__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NPROC__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NDATAROUT__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.THE_NULL__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NDATACLOS__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.NCTX_PROCLIST__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2388: @clear"); /*clear*/ /*_.MULTI___V47*/ curfptr[46] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2383: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2383: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2383: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2383: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2383: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2383: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2383: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFUN", 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_NORMEXP_DEFUN*/ 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 5 void* varptr[5]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2430: @getarg"); /*_.FBI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2430: @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-normal.bysl:2430: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2431: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2431: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2431: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2431: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2431: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2431: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fbi"),( "warmelt-normal.bysl"),(2431), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2431: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2431: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2431: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2432: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2432: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FBI__V2*/ curfptr[1]; /*_.PUT_ENV__V5*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2430: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:2430: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2430: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2430: @clear"); /*clear*/ /*_.PUT_ENV__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_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_; } curfram__; 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-normal.bysl:2442: @getarg"); /*_.NBI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2442: @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-normal.bysl:2442: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2443: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2443: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBI__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2442: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:2442: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2442: @clear"); /*clear*/ /*_.PUT_ENV__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 7 void* varptr[7]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2455: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2455: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2456: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2456: @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-normal.bysl:2456: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2456: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2456: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2456: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_defun check bnd"),( "warmelt-normal.bysl"),(2456), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2456: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2456: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2456: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2457: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2457: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2460: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2460: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2460: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2460: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); /*_.NSY__V7*/ curfptr[6] = basilysgc_send((basilys_ptr_t)(/*_.SY__V6*/ curfptr[5]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2457: @clear"); /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2457: @clear"); /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2455: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:2455: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2455: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2455: @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_76_LAMBDA_*/ static basilys_ptr_t rout_77_NORMEXP_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_NORMEXP_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 67 void* varptr[67]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 67; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_LAMBDA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2478: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2478: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_LAMBDA*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2478: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2478: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2478: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2478: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lambda recv"),( "warmelt-normal.bysl"),(2478), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2478: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2478: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2478: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2479: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2479: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2479: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2479: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2479: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2479: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2479), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2479: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2479: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2479: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2480: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2480: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2480: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2480: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2480: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2480: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2480), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2480: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2480: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2480: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2481: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2481: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2481: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2481: @apply.arg"); argtab[0].bp_cstring = "normexp_lambda recv"; BASILYS_LOCATION("warmelt-normal.bysl:2481: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2481: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2481: @apply.arg"); argtab[3].bp_long = 2481; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2481: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2481: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2481: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2482: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2483: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SLAM_ARGBIND");/*_.SARGS__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2484: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SLAM_BODY");/*_.SBODY__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2485: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SAVEDCACHEMAP__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2486: @apply"); /*apply*/{ /*_.CSYM__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!konst_5_LAMBDA_*/ curfrout->tabval[5])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2487: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2487: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2487: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2487: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2487: @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), (/*_.CSYM__V19*/ curfptr[18]), "NOCC_SYMB"); ; /*_.CLOCC__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2491: @apply"); /*apply*/{ /*_.NEWENV__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2492: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.OLDPROC__V23*/ curfptr[22] = slot; }; ; /*_.CLOSEDBLIST__V24*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; /*_.THE_NULL__V25*/ curfptr[24] = (NULL);; /*_.MAKE_LIST__V26*/ curfptr[25] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; /*_.THE_NULL__V27*/ curfptr[26] = (NULL);; /*_.THE_NULL__V28*/ curfptr[27] = (NULL);; /*_.MAKE_LIST__V29*/ curfptr[28] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:2494: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2494: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[10])), (9), "CLASS_NREP_ROUTPROC");/*_.INST__V31*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.THE_NULL__V25*/ curfptr[24]), "NPROC_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.CSYM__V19*/ curfptr[18]), "NRPRO_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (3), (/*_.SARGS__V16*/ curfptr[15]), "NRPRO_ARGB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (4), (/*_.CLOSEDBLIST__V24*/ curfptr[23]), "NRPRO_CLOSEDB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (5), (/*_.MAKE_LIST__V26*/ curfptr[25]), "NRPRO_CONST"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (6), (/*_.THE_NULL__V27*/ curfptr[26]), "NRPRO_DATAROUT"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (7), (/*_.THE_NULL__V28*/ curfptr[27]), "NRPRO_DATACLOS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2494: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (8), (/*_.MAKE_LIST__V29*/ curfptr[28]), "NRPRO_THUNKLIST"); ; /*_.NPROC__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2507: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2507: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2507: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2507: @apply.arg"); argtab[2].bp_cstring = "discr_routine"; /*_.NORMAL_PREDEF__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[12])), (basilys_ptr_t)((/*!DISCR_ROUTINE*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2505: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2505: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[11])), (6), "CLASS_NREP_DATAROUTINE");/*_.INST__V34*/ curfptr[33] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2505: @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), (/*_.CSYM__V19*/ curfptr[18]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2505: @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), (/*_.NORMAL_PREDEF__V32*/ curfptr[31]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2505: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V34*/ curfptr[33]))));basilys_putfield_object((/*_.INST__V34*/ curfptr[33]), (5), (/*_.NPROC__V30*/ curfptr[29]), "NDROU_PROC"); ; /*_.NDATAROUT__V33*/ curfptr[32] = /*_.INST__V34*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2511: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2511: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NDATAROUT__V33*/ curfptr[32]; /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_MAPOBJECT__V36*/ curfptr[35] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[15])), (40)));; BASILYS_LOCATION("warmelt-normal.bysl:2513: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2513: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.NPROC__V30*/ curfptr[29]), "NCTX_CURPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2513: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.MAKE_MAPOBJECT__V36*/ curfptr[35]), "NCTX_SYMBCACHEMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2513: @touch"); basilysgc_touch(/*_.NCX__V4*/ curfptr[3]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2516: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2516: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NPROC__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NPROC__V30*/ curfptr[29]))));basilys_putfield_object((/*_.NPROC__V30*/ curfptr[29]), (6), (/*_.NDATAROUT__V33*/ curfptr[32]), "NRPRO_DATAROUT"); ; BASILYS_LOCATION("warmelt-normal.bysl:2516: @touch"); basilysgc_touch(/*_.NPROC__V30*/ curfptr[29]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2519: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2519: @newclosure"); /*newclosure*/ /*_.LAMBDA___V38*/ curfptr[37] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2519: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V38*/ curfptr[37])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V38*/ curfptr[37]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V38*/ curfptr[37])->tabval[0] = (basilys_ptr_t)(/*_.NEWENV__V22*/ curfptr[21]); ; /*_.LAMBDA___V37*/ curfptr[36] = /*_.LAMBDA___V38*/ curfptr[37];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2517: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2517: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V37*/ curfptr[36]; /*_.MULTIPLE_EVERY__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.SARGS__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2522: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2522: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NEWENV__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.NEWENV__V22*/ curfptr[21]))));basilys_putfield_object((/*_.NEWENV__V22*/ curfptr[21]), (2), (/*_.NPROC__V30*/ curfptr[29]), "ENV_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2522: @touch"); basilysgc_touch(/*_.NEWENV__V22*/ curfptr[21]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2524: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 1, "NCTX_PROCLIST");/*_.NCTX_PROCLIST__V40*/ curfptr[39] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NCTX_PROCLIST__V40*/ curfptr[39]), (basilys_ptr_t)(/*_.NPROC__V30*/ curfptr[29])); BASILYS_LOCATION("warmelt-normal.bysl:2525: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V43*/ curfptr[42]; BASILYS_LOCATION("warmelt-normal.bysl:2525: @multiapply.appl"); /*_.NBODY__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.SBODY__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2525: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2530: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2530: @newclosure"); /*newclosure*/ /*_.LAMBDA___V45*/ curfptr[44] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_22*/ curfrout->tabval[22])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2530: @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)(/*_.NEWENV__V22*/ curfptr[21]); ; /*_.LAMBDA___V44*/ curfptr[43] = /*_.LAMBDA___V45*/ curfptr[44];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2528: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2528: @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)(/*_.NBINDINGS__V43*/ curfptr[42]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.REPLACE_LAST_BY_RETURN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!REPLACE_LAST_BY_RETURN*/ curfrout->tabval[24])), (basilys_ptr_t)(/*_.NBODY__V42*/ curfptr[41]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V43*/ curfptr[42]; BASILYS_LOCATION("warmelt-normal.bysl:2534: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WRAP_NORMAL_LETSEQ__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[23])), (basilys_ptr_t)(/*_.REPLACE_LAST_BY_RETURN__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2532: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2532: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NPROC__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.NPROC__V30*/ curfptr[29]))));basilys_putfield_object((/*_.NPROC__V30*/ curfptr[29]), (1), (/*_.WRAP_NORMAL_LETSEQ__V48*/ curfptr[47]), "NPROC_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:2532: @touch"); basilysgc_touch(/*_.NPROC__V30*/ curfptr[29]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2537: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (6), (/*_.SAVEDCACHEMAP__V18*/ curfptr[17]), "NCTX_SYMBCACHEMAP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (10>=0 && 10< basilys_object_length((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]))));basilys_putfield_object((/*_.NCX__V4*/ curfptr[3]), (10), (/*_.OLDPROC__V23*/ curfptr[22]), "NCTX_CURPROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2537: @touch"); basilysgc_touch(/*_.NCX__V4*/ curfptr[3]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @block"); /*block*/{ /*_#INSIDEFLAG__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLDPROC__V23*/ curfptr[22]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[10])));; BASILYS_LOCATION("warmelt-normal.bysl:2544: @cond"); /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2544: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2544: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2545: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2545: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[25])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V52*/ curfptr[51] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); ; BASILYS_LOCATION("warmelt-normal.bysl:2545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (3), (/*_.NDATAROUT__V33*/ curfptr[32]), "NCONST_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:2545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.OLDPROC__V23*/ curfptr[22]), "NCONST_PROC"); ; /*_.INST___V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;} ; /*_.KROUT__V50*/ curfptr[49] = /*_.INST___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2544: @clear"); /*clear*/ /*_.INST___V51*/ curfptr[50] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2544: @cond.else"); /*_.KROUT__V50*/ curfptr[49] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2553: @newclosure"); /*newclosure*/ /*_.LAMBDA___V54*/ curfptr[53] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (3)); ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @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)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @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)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @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)(/*_.SLOC__V15*/ curfptr[14]); ; /*_.LAMBDA___V53*/ curfptr[50] = /*_.LAMBDA___V54*/ curfptr[53];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2551: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2551: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[27]); BASILYS_LOCATION("warmelt-normal.bysl:2551: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V53*/ curfptr[50]; /*_.CLOVTUP__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (basilys_ptr_t)(/*_.CLOSEDBLIST__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2564: @cond"); /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2564: @cond.then"); /*_.IFELSE___V56*/ curfptr[55] = /*_.KROUT__V50*/ curfptr[49];; } else { BASILYS_LOCATION("warmelt-normal.bysl:2564: @cond.else"); /*_.IFELSE___V56*/ curfptr[55] = /*_.NDATAROUT__V33*/ curfptr[32];; } ; BASILYS_LOCATION("warmelt-normal.bysl:2561: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2561: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LAMBDA*/ curfrout->tabval[31])), (4), "CLASS_NREP_LAMBDA");/*_.INST__V58*/ curfptr[57] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2561: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2561: @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), (/*_.NPROC__V30*/ curfptr[29]), "NLAMBDA_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2561: @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), (/*_.IFELSE___V56*/ curfptr[55]), "NLAMBDA_CONSTROUT"); ; BASILYS_LOCATION("warmelt-normal.bysl:2561: @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), (/*_.CLOVTUP__V55*/ curfptr[54]), "NLAMBDA_CLOSEDV"); ; /*_.NLAMBDA__V57*/ curfptr[56] = /*_.INST__V58*/ curfptr[57];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2567: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2567: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[32])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V60*/ curfptr[59] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2567: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2567: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), (/*_.CSYM__V19*/ curfptr[18]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2567: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2567: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), (/*_.NLAMBDA__V57*/ curfptr[56]), "LETBIND_EXPR"); ; /*_.CBIND__V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;} ; /*_.NBINDLIST__V61*/ curfptr[60] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:2574: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2574: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CLOCC__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.CLOCC__V20*/ curfptr[19]))));basilys_putfield_object((/*_.CLOCC__V20*/ curfptr[19]), (3), (/*_.CBIND__V59*/ curfptr[58]), "NOCC_BIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:2574: @touch"); basilysgc_touch(/*_.CLOCC__V20*/ curfptr[19]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDLIST__V61*/ curfptr[60]), (basilys_ptr_t)(/*_.CBIND__V59*/ curfptr[58])); BASILYS_LOCATION("warmelt-normal.bysl:2576: @cond"); /*cond*/ if (/*_#INSIDEFLAG__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2576: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2576: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2577: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLDPROC__V23*/ curfptr[22]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V62*/ curfptr[61] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NRPRO_CONST__V62*/ curfptr[61]), (basilys_ptr_t)(/*_.NDATAROUT__V33*/ curfptr[32])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2576: @clear"); /*clear*/ /*_.NRPRO_CONST__V62*/ curfptr[61] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2578: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2578: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2578: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2578: @apply.arg"); argtab[0].bp_cstring = "normexp_lambda return clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2578: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:2578: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2578: @apply.arg"); argtab[3].bp_long = 2578; /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V63*/ curfptr[61] = /*_.DEBUG_MSG_FUN__V64*/ curfptr[63];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2578: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2578: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V64*/ curfptr[63] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2578: @cppif.else"); /*_.IFCPP___V63*/ curfptr[61] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2579: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2579: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2579: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2579: @apply.arg"); argtab[0].bp_cstring = "normexp_lambda return nbindlist"; BASILYS_LOCATION("warmelt-normal.bysl:2579: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:2579: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2579: @apply.arg"); argtab[3].bp_long = 2579; /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDLIST__V61*/ curfptr[60]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V65*/ curfptr[63] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2579: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2579: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2579: @cppif.else"); /*_.IFCPP___V65*/ curfptr[63] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2580: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:2580: @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) (/*_.NBINDLIST__V61*/ curfptr[60]); ; BASILYS_LOCATION("warmelt-normal.bysl:2580: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V49*/ curfptr[48] = /*_.RETURN___V67*/ curfptr[65];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_#INSIDEFLAG__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.KROUT__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.LAMBDA___V53*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.CLOVTUP__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.NLAMBDA__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.CBIND__V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.NBINDLIST__V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.IFCPP___V63*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.IFCPP___V65*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2541: @clear"); /*clear*/ /*_.RETURN___V67*/ curfptr[65] = 0 ;} ; /*_.MULTI___V41*/ curfptr[40] = /*_.LET___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.LAMBDA___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.REPLACE_LAST_BY_RETURN__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.WRAP_NORMAL_LETSEQ__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2525: @clear"); /*clear*/ /*_.NBINDINGS__V43*/ curfptr[42] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.SARGS__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.SBODY__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.SAVEDCACHEMAP__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.CSYM__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.CLOCC__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.NEWENV__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.OLDPROC__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.CLOSEDBLIST__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.THE_NULL__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.MAKE_LIST__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.THE_NULL__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.MAKE_LIST__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.NPROC__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.NDATAROUT__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.MAKE_MAPOBJECT__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.LAMBDA___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.NCTX_PROCLIST__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2482: @clear"); /*clear*/ /*_.MULTI___V41*/ curfptr[40] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2477: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2477: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2477: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2477: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2477: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2477: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2477: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_77_NORMEXP_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 5 void* varptr[5]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2519: @getarg"); /*_.FBI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2519: @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-normal.bysl:2519: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2520: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2520: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FBI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2520: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2520: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2520: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2520: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fbi"),( "warmelt-normal.bysl"),(2520), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2520: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2520: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2520: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2521: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2521: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FBI__V2*/ curfptr[1]; /*_.PUT_ENV__V5*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2519: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:2519: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2519: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2519: @clear"); /*clear*/ /*_.PUT_ENV__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_78_LAMBDA_*/ static basilys_ptr_t rout_79_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_79_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_; } curfram__; 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-normal.bysl:2530: @getarg"); /*_.NBI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2530: @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-normal.bysl:2530: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2531: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2531: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBI__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2530: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:2530: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2530: @clear"); /*clear*/ /*_.PUT_ENV__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_79_LAMBDA_*/ static basilys_ptr_t rout_80_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_80_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 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2553: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2553: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2554: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2554: @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-normal.bysl:2554: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2554: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2554: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2554: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_lambda check bnd"),( "warmelt-normal.bysl"),(2554), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2554: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2554: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2554: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2555: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2555: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.SY__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2558: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2558: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2558: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2558: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); /*_.NSY__V7*/ curfptr[6] = basilysgc_send((basilys_ptr_t)(/*_.SY__V6*/ curfptr[5]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V5*/ curfptr[3] = /*_.NSY__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2555: @clear"); /*clear*/ /*_.SY__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2555: @clear"); /*clear*/ /*_.NSY__V7*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:2553: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2553: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2553: @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_80_LAMBDA_*/ static basilys_ptr_t rout_81_NORMEXP_MULTICALL(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_NORMEXP_MULTICALL_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 100 void* varptr[100]; #define CURFRAM_NBVARNUM 19 long varnum[19]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 100; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_MULTICALL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2586: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2586: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_MULTICALL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2586: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2586: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2586: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2586: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check multicall recv"),( "warmelt-normal.bysl"),(2586), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2586: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2586: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2586: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2587: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2587: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2587: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2587: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2587: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2587: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2587), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2587: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2587: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2587: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2588: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2588: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2588: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2588: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2588: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2588: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2588), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2588: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2588: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2588: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2589: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2589: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2589: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2589: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall recv"; BASILYS_LOCATION("warmelt-normal.bysl:2589: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2589: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2589: @apply.arg"); argtab[3].bp_long = 2589; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2589: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2589: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2589: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2590: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2591: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SMULC_RESBIND");/*_.SRESBIND__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2592: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SMULC_CALL");/*_.SCALL__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2593: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SMULC_BODY");/*_.SBODY__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2594: @apply"); /*apply*/{ /*_.NEWENV__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2596: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCALLBINDINGS__V22*/ curfptr[21]; BASILYS_LOCATION("warmelt-normal.bysl:2596: @multimsend.send"); /*_.NCALL__V21*/ curfptr[20] = basilysgc_send ((basilys_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[5]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2596: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2599: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2599: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2599: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2599: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall ncall"; BASILYS_LOCATION("warmelt-normal.bysl:2599: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2599: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2599: @apply.arg"); argtab[3].bp_long = 2599; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCALL__V21*/ curfptr[20]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2599: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2599: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2599: @cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2600: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2600: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2600: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2600: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall ncallbindings"; BASILYS_LOCATION("warmelt-normal.bysl:2600: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2600: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2600: @apply.arg"); argtab[3].bp_long = 2600; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCALLBINDINGS__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2600: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2600: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2600: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2604: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2604: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCALL__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:2604: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2604: @cond.then"); /*_.IFELSE___V28*/ curfptr[27] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2604: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2604: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_multicall check ncall"),( "warmelt-normal.bysl"),(2604), __FUNCTION__); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V27*/ curfptr[25] = /*_.IFELSE___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2604: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2604: @clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2604: @cppif.else"); /*_.IFCPP___V27*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2605: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCALL__V21*/ curfptr[20]), 1, "NOCC_SYMB");/*_.NCALLSYM__V30*/ curfptr[29] = slot; }; ; /*_.NBOXCALL__V31*/ curfptr[30] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[7])), (basilys_ptr_t)((/*nil*/NULL)));; /*_.NREALCALL__V32*/ curfptr[31] = (/*nil*/NULL);; /*_.NINCALLBINDINGS__V33*/ curfptr[32] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-normal.bysl:2612: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2612: @newclosure"); /*newclosure*/ /*_.LAMBDA___V35*/ curfptr[34] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3)); ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[0] = (basilys_ptr_t)(/*_.NCALLSYM__V30*/ curfptr[29]); ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[1] = (basilys_ptr_t)(/*_.NBOXCALL__V31*/ curfptr[30]); ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V35*/ curfptr[34])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V35*/ curfptr[34]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V35*/ curfptr[34])->tabval[2] = (basilys_ptr_t)(/*_.NINCALLBINDINGS__V33*/ curfptr[32]); ; /*_.LAMBDA___V34*/ curfptr[33] = /*_.LAMBDA___V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2610: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2610: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V34*/ curfptr[33]; /*_.LIST_ITERATE_TEST__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_ITERATE_TEST*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NCALLBINDINGS__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOX_CONTENT__V37*/ curfptr[36] = basilys_box_content((basilysbox_ptr_t)(/*_.NBOXCALL__V31*/ curfptr[30]));; BASILYS_LOCATION("warmelt-normal.bysl:2619: @compute"); /*_.NREALCALL__V32*/ curfptr[31] = /*_.SETQ___V38*/ curfptr[37] = /*_.BOX_CONTENT__V37*/ curfptr[36];; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2620: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2620: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2620: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2620: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall got nrealcall"; BASILYS_LOCATION("warmelt-normal.bysl:2620: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2620: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2620: @apply.arg"); argtab[3].bp_long = 2620; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NREALCALL__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-normal.bysl:2620: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2620: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2620: @cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2623: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2623: @newclosure"); /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2623: @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)(/*_.NEWENV__V19*/ curfptr[18]); ; /*_.LAMBDA___V41*/ curfptr[39] = /*_.LAMBDA___V42*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2621: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2621: @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[12])), (basilys_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2625: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODYBINDINGS__V46*/ curfptr[45]; BASILYS_LOCATION("warmelt-normal.bysl:2625: @multiapply.appl"); /*_.NBODY__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.SBODY__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:2625: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2628: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2628: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2628: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2628: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall nbody"; BASILYS_LOCATION("warmelt-normal.bysl:2628: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2628: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2628: @apply.arg"); argtab[3].bp_long = 2628; /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBODY__V45*/ curfptr[44]), (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-normal.bysl:2628: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2628: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2628: @cppif.else"); /*_.IFCPP___V47*/ curfptr[46] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2629: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2629: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2629: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2629: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall nbodybindings"; BASILYS_LOCATION("warmelt-normal.bysl:2629: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2629: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2629: @apply.arg"); argtab[3].bp_long = 2629; /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBODYBINDINGS__V46*/ curfptr[45]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V49*/ curfptr[47] = /*_.DEBUG_MSG_FUN__V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2629: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2629: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V50*/ curfptr[49] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2629: @cppif.else"); /*_.IFCPP___V49*/ curfptr[47] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2630: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2630: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2630: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODYBINDINGS__V46*/ curfptr[45]; BASILYS_LOCATION("warmelt-normal.bysl:2630: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.WNBODYLET__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LETSEQ*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NBODY__V45*/ curfptr[44]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2632: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2632: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 6, "NCTX_SYMBCACHEMAP");/*_.SYCMAP__V54*/ curfptr[53] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2634: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2634: @newclosure"); /*newclosure*/ /*_.LAMBDA___V56*/ curfptr[55] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:2634: @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)(/*_.SYCMAP__V54*/ curfptr[53]); ; /*_.LAMBDA___V55*/ curfptr[54] = /*_.LAMBDA___V56*/ curfptr[55];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2633: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2633: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V55*/ curfptr[54]; /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.SRESBIND__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V53*/ curfptr[52] = /*_.MULTIPLE_EVERY__V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2632: @clear"); /*clear*/ /*_.SYCMAP__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2632: @clear"); /*clear*/ /*_.LAMBDA___V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2632: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V57*/ curfptr[56] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @block"); /*block*/{ /*_.LASTNBODY__V59*/ curfptr[54] = (basilys_multiple_nth((basilys_ptr_t)(/*_.NBODY__V45*/ curfptr[44]), (-1)));; BASILYS_LOCATION("warmelt-normal.bysl:2639: @cond"); /*cond*/ if (/*_.LASTNBODY__V59*/ curfptr[54]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2639: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2639: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2639: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2639: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEWENV__V19*/ curfptr[18]; /*_.GET_CTYPE__V61*/ curfptr[60] = basilysgc_send((basilys_ptr_t)(/*_.LASTNBODY__V59*/ curfptr[54]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[18])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LASTNTYPE__V60*/ curfptr[56] = /*_.GET_CTYPE__V61*/ curfptr[60];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2639: @clear"); /*clear*/ /*_.GET_CTYPE__V61*/ curfptr[60] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2639: @cond.else"); /*_.LASTNTYPE__V60*/ curfptr[56] = (/*!CTYPE_VOID*/ curfrout->tabval[19]);; } ; BASILYS_LOCATION("warmelt-normal.bysl:2640: @apply"); /*apply*/{ /*_.CSYM__V62*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[20])), (basilys_ptr_t)((/*!konst_21_MULTI_*/ curfrout->tabval[21])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2641: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2641: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V64*/ curfptr[63] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2641: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63]))));basilys_putfield_object((/*_.INST__V64*/ curfptr[63]), (0), (/*_.CSYM__V62*/ curfptr[60]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2641: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63]))));basilys_putfield_object((/*_.INST__V64*/ curfptr[63]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2641: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V64*/ curfptr[63]))));basilys_putfield_object((/*_.INST__V64*/ curfptr[63]), (1), (/*_.LASTNTYPE__V60*/ curfptr[56]), "LETBIND_TYPE"); ; /*_.CBIND__V63*/ curfptr[62] = /*_.INST__V64*/ curfptr[63];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2647: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2647: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[6])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V66*/ curfptr[65] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2647: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65]))));basilys_putfield_object((/*_.INST__V66*/ curfptr[65]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2647: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65]))));basilys_putfield_object((/*_.INST__V66*/ curfptr[65]), (2), (/*_.LASTNTYPE__V60*/ curfptr[56]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2647: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65]))));basilys_putfield_object((/*_.INST__V66*/ curfptr[65]), (1), (/*_.CSYM__V62*/ curfptr[60]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2647: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V66*/ curfptr[65]))));basilys_putfield_object((/*_.INST__V66*/ curfptr[65]), (3), (/*_.CBIND__V63*/ curfptr[62]), "NOCC_BIND"); ; /*_.CLOCC__V65*/ curfptr[64] = /*_.INST__V66*/ curfptr[65];;} ; /*_#IS_A__L11*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SRC_APPLY*/ curfrout->tabval[23])));; BASILYS_LOCATION("warmelt-normal.bysl:2655: @cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2655: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2655: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2656: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2656: @block"); /*block*/{ /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), (basilys_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[24])));; BASILYS_LOCATION("warmelt-normal.bysl:2656: @cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2656: @cond.then"); /*_.IFELSE___V69*/ curfptr[68] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2656: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2656: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_multicall check nrealcall apply"),( "warmelt-normal.bysl"),(2656), __FUNCTION__); /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V68*/ curfptr[67] = /*_.IFELSE___V69*/ curfptr[68];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2656: @clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2656: @clear"); /*clear*/ /*_.IFELSE___V69*/ curfptr[68] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2656: @cppif.else"); /*_.IFCPP___V68*/ curfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2659: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), 1, "NAPP_FUN");/*_.NAPP_FUN__V71*/ curfptr[70] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2660: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), 2, "NAPP_ARGS");/*_.NAPP_ARGS__V72*/ curfptr[71] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2657: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MULTIAPPLY*/ curfrout->tabval[25])), (5), "CLASS_NREP_MULTIAPPLY");/*_.INST__V74*/ curfptr[73] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73]))));basilys_putfield_object((/*_.INST__V74*/ curfptr[73]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73]))));basilys_putfield_object((/*_.INST__V74*/ curfptr[73]), (1), (/*_.NAPP_FUN__V71*/ curfptr[70]), "NAPP_FUN"); ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73]))));basilys_putfield_object((/*_.INST__V74*/ curfptr[73]), (2), (/*_.NAPP_ARGS__V72*/ curfptr[71]), "NAPP_ARGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73]))));basilys_putfield_object((/*_.INST__V74*/ curfptr[73]), (3), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULAPP_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V74*/ curfptr[73]))));basilys_putfield_object((/*_.INST__V74*/ curfptr[73]), (4), (/*_.WNBODYLET__V52*/ curfptr[51]), "NMULAPP_BODY"); ; /*_.NRES__V73*/ curfptr[72] = /*_.INST__V74*/ curfptr[73];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2663: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2663: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62]))));basilys_putfield_object((/*_.CBIND__V63*/ curfptr[62]), (2), (/*_.NRES__V73*/ curfptr[72]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:2663: @touch"); basilysgc_touch(/*_.CBIND__V63*/ curfptr[62]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NINCALLBINDINGS__V33*/ curfptr[32]), (basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2665: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2665: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2665: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2665: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall multiapply result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2665: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:2665: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2665: @apply.arg"); argtab[3].bp_long = 2665; /*_.DEBUG_MSG_FUN__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V65*/ curfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V75*/ curfptr[74] = /*_.DEBUG_MSG_FUN__V76*/ curfptr[75];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2665: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2665: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V76*/ curfptr[75] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2665: @cppif.else"); /*_.IFCPP___V75*/ curfptr[74] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2666: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2666: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2666: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2666: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall multiapply result nincallbindings"; BASILYS_LOCATION("warmelt-normal.bysl:2666: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:2666: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2666: @apply.arg"); argtab[3].bp_long = 2666; /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NINCALLBINDINGS__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V77*/ curfptr[75] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2666: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2666: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2666: @cppif.else"); /*_.IFCPP___V77*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2667: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V65*/ curfptr[64];; BASILYS_LOCATION("warmelt-normal.bysl:2667: @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) (/*_.NINCALLBINDINGS__V33*/ curfptr[32]); ; BASILYS_LOCATION("warmelt-normal.bysl:2667: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V70*/ curfptr[68] = /*_.RETURN___V79*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.NAPP_FUN__V71*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.NAPP_ARGS__V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.NRES__V73*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.IFCPP___V75*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.IFCPP___V77*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2657: @clear"); /*clear*/ /*_.RETURN___V79*/ curfptr[77] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2655: @block"); /*block*/{ /*_.PROGN___V80*/ curfptr[70] = /*_.LET___V70*/ curfptr[68];;} ; /*_.IFELSE___V67*/ curfptr[66] = /*_.PROGN___V80*/ curfptr[70];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2655: @clear"); /*clear*/ /*_.IFCPP___V68*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2655: @clear"); /*clear*/ /*_.LET___V70*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2655: @clear"); /*clear*/ /*_.PROGN___V80*/ curfptr[70] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2655: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2655: @block"); /*block*/{ /*_#IS_A__L15*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCALL__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SRC_MSEND*/ curfrout->tabval[26])));; BASILYS_LOCATION("warmelt-normal.bysl:2670: @cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2670: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2670: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2671: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2671: @block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2671: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2671: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall multicall nrealcall"; BASILYS_LOCATION("warmelt-normal.bysl:2671: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[15]; BASILYS_LOCATION("warmelt-normal.bysl:2671: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2671: @apply.arg"); argtab[3].bp_long = 2671; /*_.DEBUG_MSG_FUN__V83*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V82*/ curfptr[72] = /*_.DEBUG_MSG_FUN__V83*/ curfptr[74];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2671: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2671: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V83*/ curfptr[74] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2671: @cppif.else"); /*_.IFCPP___V82*/ curfptr[72] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2672: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2672: @block"); /*block*/{ /*_#IS_A__L17*/ curfnum[15] = basilys_is_instance_of((basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), (basilys_ptr_t)((/*!CLASS_NREP_MSEND*/ curfrout->tabval[27])));; BASILYS_LOCATION("warmelt-normal.bysl:2672: @cond"); /*cond*/ if (/*_#IS_A__L17*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2672: @cond.then"); /*_.IFELSE___V85*/ curfptr[77] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2672: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2672: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_multicall check nrealcall send"),( "warmelt-normal.bysl"),(2672), __FUNCTION__); /*clear*/ /*_.IFELSE___V85*/ curfptr[77] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V84*/ curfptr[75] = /*_.IFELSE___V85*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2672: @clear"); /*clear*/ /*_#IS_A__L17*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2672: @clear"); /*clear*/ /*_.IFELSE___V85*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2672: @cppif.else"); /*_.IFCPP___V84*/ curfptr[75] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2675: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), 1, "NSEND_SEL");/*_.NSEND_SEL__V87*/ curfptr[68] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2676: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), 2, "NSEND_RECV");/*_.NSEND_RECV__V88*/ curfptr[70] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2677: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NREALCALL__V32*/ curfptr[31]), 3, "NSEND_ARGS");/*_.NSEND_ARGS__V89*/ curfptr[74] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2673: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MULTIMSEND*/ curfrout->tabval[28])), (6), "CLASS_NREP_MULTIMSEND");/*_.INST__V91*/ curfptr[90] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (1), (/*_.NSEND_SEL__V87*/ curfptr[68]), "NSEND_SEL"); ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (2), (/*_.NSEND_RECV__V88*/ curfptr[70]), "NSEND_RECV"); ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (3), (/*_.NSEND_ARGS__V89*/ curfptr[74]), "NSEND_ARGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (4), (/*_.SRESBIND__V16*/ curfptr[15]), "NMULSEND_BINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V91*/ curfptr[90]))));basilys_putfield_object((/*_.INST__V91*/ curfptr[90]), (5), (/*_.WNBODYLET__V52*/ curfptr[51]), "NMULSEND_BODY"); ; /*_.NRES__V90*/ curfptr[77] = /*_.INST__V91*/ curfptr[90];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2680: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2680: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62]))));basilys_putfield_object((/*_.CBIND__V63*/ curfptr[62]), (2), (/*_.NRES__V90*/ curfptr[77]), "LETBIND_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:2680: @touch"); basilysgc_touch(/*_.CBIND__V63*/ curfptr[62]); ; /*epilog*/} ; basilysgc_append_list((basilys_ptr_t)(/*_.NINCALLBINDINGS__V33*/ curfptr[32]), (basilys_ptr_t)(/*_.CBIND__V63*/ curfptr[62])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2682: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2682: @block"); /*block*/{ /*_#THE_CALLCOUNT__L18*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2682: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2682: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall multisend result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2682: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L18*/ curfnum[15]; BASILYS_LOCATION("warmelt-normal.bysl:2682: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2682: @apply.arg"); argtab[3].bp_long = 2682; /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V65*/ curfptr[64]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2682: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L18*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2682: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2682: @cppif.else"); /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2683: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2683: @block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[15] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2683: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2683: @apply.arg"); argtab[0].bp_cstring = "normexp_multicall multisend result nincallbindings"; BASILYS_LOCATION("warmelt-normal.bysl:2683: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[15]; BASILYS_LOCATION("warmelt-normal.bysl:2683: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2683: @apply.arg"); argtab[3].bp_long = 2683; /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NINCALLBINDINGS__V33*/ curfptr[32]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V94*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2683: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2683: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2683: @cppif.else"); /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2684: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V65*/ curfptr[64];; BASILYS_LOCATION("warmelt-normal.bysl:2684: @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) (/*_.NINCALLBINDINGS__V33*/ curfptr[32]); ; BASILYS_LOCATION("warmelt-normal.bysl:2684: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V86*/ curfptr[67] = /*_.RETURN___V96*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.NSEND_SEL__V87*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.NSEND_RECV__V88*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.NSEND_ARGS__V89*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.NRES__V90*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2673: @clear"); /*clear*/ /*_.RETURN___V96*/ curfptr[94] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @block"); /*block*/{ /*_.PROGN___V97*/ curfptr[68] = /*_.LET___V86*/ curfptr[67];;} ; /*_.IFELSE___V81*/ curfptr[71] = /*_.PROGN___V97*/ curfptr[68];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.IFCPP___V82*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.IFCPP___V84*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.LET___V86*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.PROGN___V97*/ curfptr[68] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2670: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2670: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "multi-called expression neither apply nor send"), (basilys_ptr_t)0); /*_.THE_NULL__V98*/ curfptr[70] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2689: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V98*/ curfptr[70];; BASILYS_LOCATION("warmelt-normal.bysl:2689: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2687: @block"); /*block*/{ /*_.PROGN___V100*/ curfptr[77] = /*_.RETURN___V99*/ curfptr[74];;} ; /*_.IFELSE___V81*/ curfptr[71] = /*_.PROGN___V100*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.THE_NULL__V98*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.RETURN___V99*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2670: @clear"); /*clear*/ /*_.PROGN___V100*/ curfptr[77] = 0 ;} ; } ; /*_.IFELSE___V67*/ curfptr[66] = /*_.IFELSE___V81*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2655: @clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2655: @clear"); /*clear*/ /*_.IFELSE___V81*/ curfptr[71] = 0 ;} ; } ; /*_.LET___V58*/ curfptr[53] = /*_.IFELSE___V67*/ curfptr[66];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.LASTNBODY__V59*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.LASTNTYPE__V60*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.CSYM__V62*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.CBIND__V63*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.CLOCC__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2637: @clear"); /*clear*/ /*_.IFELSE___V67*/ curfptr[66] = 0 ;} ; /*_.LET___V51*/ curfptr[49] = /*_.LET___V58*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2630: @clear"); /*clear*/ /*_.WNBODYLET__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2630: @clear"); /*clear*/ /*_.LET___V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2630: @clear"); /*clear*/ /*_.LET___V58*/ curfptr[53] = 0 ;} ; /*_.MULTI___V44*/ curfptr[43] = /*_.LET___V51*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2625: @clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2625: @clear"); /*clear*/ /*_.IFCPP___V49*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2625: @clear"); /*clear*/ /*_.LET___V51*/ curfptr[49] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2625: @clear"); /*clear*/ /*_.NBODYBINDINGS__V46*/ curfptr[45] = 0 ;} ; /*_.LET___V29*/ curfptr[27] = /*_.MULTI___V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.NCALLSYM__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.NBOXCALL__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.NREALCALL__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.NINCALLBINDINGS__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.LAMBDA___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.LIST_ITERATE_TEST__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.BOX_CONTENT__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.SETQ___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.LAMBDA___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2605: @clear"); /*clear*/ /*_.MULTI___V44*/ curfptr[43] = 0 ;} ; /*_.MULTI___V20*/ curfptr[19] = /*_.LET___V29*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2596: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2596: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2596: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2596: @clear"); /*clear*/ /*_.LET___V29*/ curfptr[27] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2596: @clear"); /*clear*/ /*_.NCALLBINDINGS__V22*/ curfptr[21] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.SRESBIND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.SCALL__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.SBODY__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.NEWENV__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2590: @clear"); /*clear*/ /*_.MULTI___V20*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2585: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2585: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2585: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2585: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2585: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2585: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2585: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_MULTICALL", 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_NORMEXP_MULTICALL*/ static basilys_ptr_t rout_82_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_82_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 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2612: @getarg"); /*_.CBND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2612: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2613: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2613: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CBND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2613: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2613: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2613: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2613: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "normexp_multicall check cbnd"),( "warmelt-normal.bysl"),(2613), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2613: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2613: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2613: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2614: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; }; ; /*_#__L2*/ curfnum[0] = (((/*~NCALLSYM*/ curfclos->tabval[0])) == (/*_.BINDER__V5*/ curfptr[3]));; BASILYS_LOCATION("warmelt-normal.bysl:2614: @cond"); /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2614: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2614: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2615: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2615: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CBND__V2*/ curfptr[1]), 2, "LETBIND_EXPR");/*_.NREALCALL__V8*/ curfptr[7] = slot; }; ; basilysgc_box_put((basilys_ptr_t)((/*~NBOXCALL*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.NREALCALL__V8*/ curfptr[7])); /*_.LET___V7*/ curfptr[6] = (/*nil*/NULL);; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2615: @clear"); /*clear*/ /*_.NREALCALL__V8*/ curfptr[7] = 0 ;} ; /*_.IFELSE___V6*/ curfptr[5] = /*_.LET___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2614: @clear"); /*clear*/ /*_.LET___V7*/ curfptr[6] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2614: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2614: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)((/*~NINCALLBINDINGS*/ curfclos->tabval[2])), (basilys_ptr_t)(/*_.CBND__V2*/ curfptr[1])); BASILYS_LOCATION("warmelt-normal.bysl:2618: @block"); /*block*/{ /*_.PROGN___V9*/ curfptr[7] = /*_.CBND__V2*/ curfptr[1];;} ; /*_.IFELSE___V6*/ curfptr[5] = /*_.PROGN___V9*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2614: @clear"); /*clear*/ /*_.PROGN___V9*/ curfptr[7] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V6*/ curfptr[5];; BASILYS_LOCATION("warmelt-normal.bysl:2612: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2612: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @clear"); /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @clear"); /*clear*/ /*_#__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2612: @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_82_LAMBDA_*/ static basilys_ptr_t rout_83_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_83_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_; } curfram__; 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-normal.bysl:2623: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2623: @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-normal.bysl:2623: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2624: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2624: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BND__V2*/ curfptr[1]; /*_.PUT_ENV__V3*/ curfptr[2] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)((/*~NEWENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2623: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.PUT_ENV__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:2623: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2623: @clear"); /*clear*/ /*_.PUT_ENV__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_83_LAMBDA_*/ static basilys_ptr_t rout_84_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_84_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_; } curfram__; 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-normal.bysl:2634: @getarg"); /*_.BND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2634: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2635: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V3*/ curfptr[2] = slot; }; ; basilysgc_remove_mapobjects( (basilysmapobjects_ptr_t) ((/*~SYCMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.BINDER__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2634: @clear"); /*clear*/ /*_.BINDER__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_84_LAMBDA_*/ static basilys_ptr_t rout_85_NORMAL_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_85_NORMAL_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 22 void* varptr[22]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMAL_PREDEF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @getarg"); /*_.PRED__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MSG__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MSG__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2700: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2700: @block"); /*block*/{ /*_#IS_OBJECT__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.PRED__V2*/ curfptr[1])) == OBMAG_OBJECT);; BASILYS_LOCATION("warmelt-normal.bysl:2700: @cond"); /*cond*/ if (/*_#IS_OBJECT__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2700: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2700: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2700: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pred"),( "warmelt-normal.bysl"),(2700), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2700: @clear"); /*clear*/ /*_#IS_OBJECT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2700: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2700: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2701: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2701: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2701: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2701: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2701: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2701: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2701), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2701: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2701: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2701: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2702: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2702: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V11*/ curfptr[10] = slot; }; ; /*_.BRK__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.PRED__V2*/ curfptr[1])));; /*_#IS_INTEGERBOX__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BRK__V12*/ curfptr[11])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond.then"); /*_#OR___L4*/ curfnum[3] = /*_#IS_INTEGERBOX__L3*/ curfnum[0];; } else { BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2704: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.BRK__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; /*_#OR___L4*/ curfnum[3] = /*_#IS_A__L5*/ curfnum[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2704: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond"); /*cond*/ if (/*_#OR___L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2704: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2705: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2705: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[2])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2705: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.SLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2705: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), (/*_.BRK__V12*/ curfptr[11]), "NRPREDEF"); ; /*_.INST___V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} ; /*_.IFELSE___V13*/ curfptr[12] = /*_.INST___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2704: @clear"); /*clear*/ /*_.INST___V14*/ curfptr[13] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2704: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2704: @block"); /*block*/{ /*_#IS_STRING__L6*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.MSG__V5*/ curfptr[4])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-normal.bysl:2708: @cond"); /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2708: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2708: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2710: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2710: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2710: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2710: @apply.arg"); argtab[0].bp_cstring = "normalpredef predefmap"; BASILYS_LOCATION("warmelt-normal.bysl:2710: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2710: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2710: @apply.arg"); argtab[3].bp_long = 2710; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PREDEFMAP__V11*/ curfptr[10]), (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-normal.bysl:2710: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2710: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2710: @cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2711: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2711: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2711: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2711: @apply.arg"); argtab[0].bp_cstring = "normalpredef pred"; BASILYS_LOCATION("warmelt-normal.bysl:2711: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2711: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2711: @apply.arg"); argtab[3].bp_long = 2711; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.PRED__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-normal.bysl:2711: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2711: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2711: @cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3]), ( "not a predef:"), (basilys_ptr_t)(/*_.MSG__V5*/ curfptr[4])); /*_.THE_NULL__V21*/ curfptr[19] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:2709: @block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.THE_NULL__V21*/ curfptr[19];;} ; /*_.IF___V16*/ curfptr[13] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2708: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2708: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2708: @clear"); /*clear*/ /*_.THE_NULL__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2708: @clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2708: @cond.else"); /*_.IF___V16*/ curfptr[13] = NULL;; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IF___V16*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2704: @clear"); /*clear*/ /*_#IS_STRING__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2704: @clear"); /*clear*/ /*_.IF___V16*/ curfptr[13] = 0 ;} ; } ; /*_.LET___V10*/ curfptr[8] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2702: @clear"); /*clear*/ /*_.PREDEFMAP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2702: @clear"); /*clear*/ /*_.BRK__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2702: @clear"); /*clear*/ /*_#IS_INTEGERBOX__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2702: @clear"); /*clear*/ /*_#OR___L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2702: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2699: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-normal.bysl:2699: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2699: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2699: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2699: @clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_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_85_NORMAL_PREDEF*/ static basilys_ptr_t rout_86_NORMAL_SYMBOL_DATA(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_NORMAL_SYMBOL_DATA_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 36 void* varptr[36]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 36; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMAL_SYMBOL_DATA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2718: @getarg"); /*_.SYM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2718: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2718: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2718: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2720: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2720: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2720: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2720: @apply.arg"); argtab[0].bp_cstring = "normal_symbol_data start sym"; BASILYS_LOCATION("warmelt-normal.bysl:2720: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2720: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2720: @apply.arg"); argtab[3].bp_long = 2720; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYM__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-normal.bysl:2720: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2720: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2720: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2721: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2721: @block"); /*block*/{ /*_.DISCRIM__V8*/ curfptr[7] = (basilys_discr((basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1])));; /*_#__L2*/ curfnum[0] = ((/*_.DISCRIM__V8*/ curfptr[7]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2721: @cond"); /*cond*/ if (/*_#__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2721: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2721: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2721: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check symb"),( "warmelt-normal.bysl"),(2721), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2721: @clear"); /*clear*/ /*_.DISCRIM__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2721: @clear"); /*clear*/ /*_#__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2721: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2721: @cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2722: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2722: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2722: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2722: @cond.then"); /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2722: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2722: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2722), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2722: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2722: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2722: @cppif.else"); /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2723: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2723: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V13*/ curfptr[12] = slot; }; ; /*_.OSYDATA__V14*/ curfptr[13] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.VALMAP__V13*/ curfptr[12]), (basilysobject_ptr_t)(/*_.SYM__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2725: @cond"); /*cond*/ if (/*_.OSYDATA__V14*/ curfptr[13]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2725: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2725: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2727: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2727: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2727: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2727: @apply.arg"); argtab[0].bp_cstring = "normal_symbol_data found osydata"; BASILYS_LOCATION("warmelt-normal.bysl:2727: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2727: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2727: @apply.arg"); argtab[3].bp_long = 2727; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OSYDATA__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-normal.bysl:2727: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2727: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2727: @cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2728: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OSYDATA__V14*/ curfptr[13];; BASILYS_LOCATION("warmelt-normal.bysl:2728: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2726: @block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.RETURN___V18*/ curfptr[16];;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2725: @clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2725: @clear"); /*clear*/ /*_.RETURN___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2725: @clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2725: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2725: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2729: @block"); /*block*/{ /*_#SYHASH__L5*/ curfnum[0] = (basilys_obj_hash((basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2730: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V21*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2734: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2734: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2734: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2734: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V22*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2733: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2733: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[3])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2733: @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), (/*_.NORMAL_PREDEF__V22*/ curfptr[18]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2733: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NSTR_STRING"); ; /*_.SYNAMSTRDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2738: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V25*/ curfptr[24] = slot; }; ; /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V25*/ curfptr[24])));; /*_.SYSLOTS__V26*/ curfptr[25] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2741: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2741: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2741: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2741: @apply.arg"); argtab[2].bp_cstring = "class_symbol"; /*_.NORMAL_PREDEF__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[8])), (/*_#SYHASH__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2739: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2739: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[7])), (10), "CLASS_NREP_DATASYMBOL");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2739: @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), (/*_.SYM__V2*/ curfptr[1]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2739: @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), (/*_.NORMAL_PREDEF__V27*/ curfptr[26]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2739: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (7), (/*_.MAKE_INTEGERBOX__V28*/ curfptr[27]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:2739: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (8), (/*_.SYSLOTS__V26*/ curfptr[25]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2739: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (9), (/*_.SYNAMSTR__V21*/ curfptr[16]), "NDSY_NAMESTR"); ; /*_.SYDATA__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; /*_#OBJ_NUM__L7*/ curfnum[6] = (basilys_obj_num((basilys_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[9]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SYSLOTS__V26*/ curfptr[25]), (/*_#OBJ_NUM__L7*/ curfnum[6]), (basilys_ptr_t)(/*_.SYNAMSTRDATA__V23*/ curfptr[22])); BASILYS_LOCATION("warmelt-normal.bysl:2747: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2747: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYDATA__V29*/ curfptr[28]; /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2748: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2748: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYNAMSTRDATA__V23*/ curfptr[22]; /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.VALMAP__V13*/ curfptr[12]), (basilysobject_ptr_t) (/*_.SYM__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.SYDATA__V29*/ curfptr[28])); BASILYS_LOCATION("warmelt-normal.bysl:2750: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 4, "NCTX_SYMBMAP");/*_.NCTX_SYMBMAP__V33*/ curfptr[32] = slot; }; ; basilysgc_put_mapstrings((struct basilysmapstrings_st *) (/*_.NCTX_SYMBMAP__V33*/ curfptr[32]), basilys_string_str((basilys_ptr_t)(/*_.SYNAMSTR__V21*/ curfptr[16])), (basilys_ptr_t)(/*_.SYDATA__V29*/ curfptr[28])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2751: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2751: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2751: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2751: @apply.arg"); argtab[0].bp_cstring = "normal_symbol_data return sydata"; BASILYS_LOCATION("warmelt-normal.bysl:2751: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:2751: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2751: @apply.arg"); argtab[3].bp_long = 2751; /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYDATA__V29*/ curfptr[28]), (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-normal.bysl:2751: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2751: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[34] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2751: @cppif.else"); /*_.IFCPP___V34*/ curfptr[33] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2752: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V29*/ curfptr[28];; BASILYS_LOCATION("warmelt-normal.bysl:2752: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V20*/ curfptr[15] = /*_.RETURN___V36*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_#SYHASH__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.SYNAMSTR__V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.SYNAMSTRDATA__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.CLASS_FIELDS__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.SYSLOTS__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.SYDATA__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_#OBJ_NUM__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.NCTX_SYMBMAP__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2729: @clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[34] = 0 ;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.LET___V20*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2725: @clear"); /*clear*/ /*_.LET___V20*/ curfptr[15] = 0 ;} ; } ; /*_.LET___V12*/ curfptr[8] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2723: @clear"); /*clear*/ /*_.VALMAP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2723: @clear"); /*clear*/ /*_.OSYDATA__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2723: @clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2718: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[8];; BASILYS_LOCATION("warmelt-normal.bysl:2718: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2718: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2718: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2718: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2718: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_SYMBOL_DATA", 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_NORMAL_SYMBOL_DATA*/ static basilys_ptr_t rout_87_NORMAL_KEYWORD_DATA(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_NORMAL_KEYWORD_DATA_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 5 long varnum[5]; /*others*/ long _spare_; } curfram__; 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("NORMAL_KEYWORD_DATA", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2758: @getarg"); /*_.KEYW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2758: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2758: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2758: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2760: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2760: @block"); /*block*/{ /*_.DISCRIM__V6*/ curfptr[5] = (basilys_discr((basilys_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));; /*_#__L1*/ curfnum[0] = ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2760: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2760: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2760: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2760: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check keywb"),( "warmelt-normal.bysl"),(2760), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2760: @clear"); /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2760: @clear"); /*clear*/ /*_#__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2760: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2760: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2761: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2761: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2761: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2761: @cond.then"); /*_.IFELSE___V9*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2761: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2761: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2761), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[5] = /*_.IFELSE___V9*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2761: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2761: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2761: @cppif.else"); /*_.IFCPP___V8*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2762: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2762: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 8, "NCTX_VALMAP");/*_.VALMAP__V11*/ curfptr[10] = slot; }; ; /*_.OSYDATA__V12*/ curfptr[11] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)(/*_.VALMAP__V11*/ curfptr[10]), (basilysobject_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2764: @cond"); /*cond*/ if (/*_.OSYDATA__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2764: @cond.then"); /*_.IFELSE___V13*/ curfptr[12] = /*_.OSYDATA__V12*/ curfptr[11];; } else { BASILYS_LOCATION("warmelt-normal.bysl:2764: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2764: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2765: @block"); /*block*/{ /*_#SYHASH__L3*/ curfnum[0] = (basilys_obj_hash((basilys_ptr_t)(/*_.KEYW__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2766: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.KEYW__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.SYNAMSTR__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2770: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2770: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2770: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2770: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2769: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2769: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V18*/ curfptr[17] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2769: @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), (/*_.NORMAL_PREDEF__V16*/ curfptr[15]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2769: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V18*/ curfptr[17]))));basilys_putfield_object((/*_.INST__V18*/ curfptr[17]), (5), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NSTR_STRING"); ; /*_.SYNAMSTRDATA__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2774: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V19*/ curfptr[18] = slot; }; ; /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V19*/ curfptr[18])));; /*_.SYSLOTS__V20*/ curfptr[19] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[5])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[3])));; BASILYS_LOCATION("warmelt-normal.bysl:2777: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2777: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:2777: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2777: @apply.arg"); argtab[2].bp_cstring = "class_keyword"; /*_.NORMAL_PREDEF__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[7])), (/*_#SYHASH__L3*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2775: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2775: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[6])), (10), "CLASS_NREP_DATAKEYWORD");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2775: @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), (/*_.KEYW__V2*/ curfptr[1]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2775: @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), (/*_.NORMAL_PREDEF__V21*/ curfptr[20]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2775: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (7), (/*_.MAKE_INTEGERBOX__V22*/ curfptr[21]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:2775: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (8), (/*_.SYSLOTS__V20*/ curfptr[19]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2775: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (9>=0 && 9< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (9), (/*_.SYNAMSTR__V15*/ curfptr[14]), "NDSY_NAMESTR"); ; /*_.SYDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; /*_#OBJ_NUM__L5*/ curfnum[4] = (basilys_obj_num((basilys_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[8]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SYSLOTS__V20*/ curfptr[19]), (/*_#OBJ_NUM__L5*/ curfnum[4]), (basilys_ptr_t)(/*_.SYNAMSTRDATA__V17*/ curfptr[16])); BASILYS_LOCATION("warmelt-normal.bysl:2783: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2783: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYDATA__V23*/ curfptr[22]; /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2784: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2784: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYNAMSTRDATA__V17*/ curfptr[16]; /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.VALMAP__V11*/ curfptr[10]), (basilysobject_ptr_t) (/*_.KEYW__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.SYDATA__V23*/ curfptr[22])); BASILYS_LOCATION("warmelt-normal.bysl:2786: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), 5, "NCTX_KEYWMAP");/*_.NCTX_KEYWMAP__V27*/ curfptr[26] = slot; }; ; basilysgc_put_mapstrings((struct basilysmapstrings_st *) (/*_.NCTX_KEYWMAP__V27*/ curfptr[26]), basilys_string_str((basilys_ptr_t)(/*_.SYNAMSTR__V15*/ curfptr[14])), (basilys_ptr_t)(/*_.SYDATA__V23*/ curfptr[22])); BASILYS_LOCATION("warmelt-normal.bysl:2787: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SYDATA__V23*/ curfptr[22];; BASILYS_LOCATION("warmelt-normal.bysl:2787: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[13] = /*_.RETURN___V28*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_#SYHASH__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.SYNAMSTR__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.SYNAMSTRDATA__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.CLASS_FIELDS__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.SYSLOTS__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.SYDATA__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_#OBJ_NUM__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.NCTX_KEYWMAP__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2765: @clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[27] = 0 ;} ; /*_.IFELSE___V13*/ curfptr[12] = /*_.LET___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2764: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[13] = 0 ;} ; } ; /*_.LET___V10*/ curfptr[6] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2762: @clear"); /*clear*/ /*_.VALMAP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2762: @clear"); /*clear*/ /*_.OSYDATA__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2762: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2758: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[6];; BASILYS_LOCATION("warmelt-normal.bysl:2758: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2758: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2758: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2758: @clear"); /*clear*/ /*_.LET___V10*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_KEYWORD_DATA", 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_NORMAL_KEYWORD_DATA*/ static basilys_ptr_t rout_88_CREATE_DATA_SLOTS(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_CREATE_DATA_SLOTS_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 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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("CREATE_DATA_SLOTS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2792: @getarg"); /*_.CLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2792: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2793: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2793: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2793: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2793: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2793: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2793: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cla"),( "warmelt-normal.bysl"),(2793), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2793: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2793: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2793: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2794: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2794: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2794: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2794: @apply.arg"); argtab[0].bp_cstring = "create_data_slots cla"; BASILYS_LOCATION("warmelt-normal.bysl:2794: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2794: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2794: @apply.arg"); argtab[3].bp_long = 2794; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CLA__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-normal.bysl:2794: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2794: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2794: @cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2795: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2796: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V8*/ curfptr[7] = slot; }; ; /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V8*/ curfptr[7])));; /*_.TUPSLO__V9*/ curfptr[8] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[2])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[0])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2798: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2798: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2798: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2798: @apply.arg"); argtab[0].bp_cstring = "create_data_slots tupslo"; BASILYS_LOCATION("warmelt-normal.bysl:2798: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:2798: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2798: @apply.arg"); argtab[3].bp_long = 2798; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.TUPSLO__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-normal.bysl:2798: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2798: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2798: @cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V7*/ curfptr[5] = /*_.TUPSLO__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2795: @clear"); /*clear*/ /*_.CLASS_FIELDS__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2795: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2795: @clear"); /*clear*/ /*_.TUPSLO__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2795: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2792: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-normal.bysl:2792: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2792: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2792: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2792: @clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("CREATE_DATA_SLOTS", 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_CREATE_DATA_SLOTS*/ static basilys_ptr_t rout_89_FILL_DATA_SLOT(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_FILL_DATA_SLOT_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 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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("FILL_DATA_SLOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2803: @getarg"); /*_.DI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2803: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.FIELD__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FIELD__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2803: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.VAL__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2803: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2804: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2804: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.DI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2804: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2804: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2804: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2804: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check di"),( "warmelt-normal.bysl"),(2804), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2804: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2804: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2804: @cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2805: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2805: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.FIELD__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2805: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2805: @cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2805: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2805: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check field"),( "warmelt-normal.bysl"),(2805), __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2805: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2805: @clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2805: @cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2806: @block"); /*block*/{ /*_#FIX__L3*/ curfnum[0] = (basilys_obj_num((basilys_ptr_t)(/*_.FIELD__V3*/ curfptr[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2807: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DI__V2*/ curfptr[1]), 8, "NINST_SLOTS");/*_.SLOTS__V9*/ curfptr[7] = slot; }; ; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTS__V9*/ curfptr[7]), (/*_#FIX__L3*/ curfnum[0]), (basilys_ptr_t)(/*_.VAL__V4*/ curfptr[3])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2806: @clear"); /*clear*/ /*_#FIX__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2806: @clear"); /*clear*/ /*_.SLOTS__V9*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2803: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2803: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("FILL_DATA_SLOT", 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_89_FILL_DATA_SLOT*/ static basilys_ptr_t rout_90_NORMEXP_QUOTE(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_NORMEXP_QUOTE_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_; } curfram__; 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("NORMEXP_QUOTE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2814: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2814: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_QUOTE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2814: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2814: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2814: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2814: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check quote recv"),( "warmelt-normal.bysl"),(2814), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2814: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2814: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2814: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2815: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2815: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2815: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2815: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2815: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2815: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2815), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2815: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2815: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2815: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2816: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2816: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2816: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2816: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2816: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2816: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2816), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2816: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2816: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2816: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2818: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2818: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2818: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2818: @apply.arg"); argtab[0].bp_cstring = "normexp_quote recv"; BASILYS_LOCATION("warmelt-normal.bysl:2818: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2818: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2818: @apply.arg"); argtab[3].bp_long = 2818; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2818: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2818: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2818: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2819: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2819: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2820: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SQUOTED");/*_.QUOTEDSY__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2821: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2821: @block"); /*block*/{ /*_.DISCRIM__V18*/ curfptr[17] = (basilys_discr((basilys_ptr_t)(/*_.QUOTEDSY__V16*/ curfptr[15])));; /*_#__L5*/ curfnum[0] = ((/*_.DISCRIM__V18*/ curfptr[17]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2821: @cond"); /*cond*/ if (/*_#__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2821: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2821: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2821: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check quotedsy"),( "warmelt-normal.bysl"),(2821), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2821: @clear"); /*clear*/ /*_.DISCRIM__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2821: @clear"); /*clear*/ /*_#__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2821: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2821: @cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2822: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2822: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2822: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2822: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; /*_.SDATA__V21*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.QUOTEDSY__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2823: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V22*/ curfptr[21] = slot; }; ; /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROC__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:2825: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2825: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2825: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2826: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2827: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2827: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[7])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V26*/ curfptr[25] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2827: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2827: @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), (/*_.QUOTEDSY__V16*/ curfptr[15]), "NCONST_SVAL"); ; BASILYS_LOCATION("warmelt-normal.bysl:2827: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V26*/ curfptr[25]))));basilys_putfield_object((/*_.INST__V26*/ curfptr[25]), (3), (/*_.SDATA__V21*/ curfptr[18]), "NCONST_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:2827: @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), (/*_.CURPROC__V22*/ curfptr[21]), "NCONST_PROC"); ; /*_.NCONST__V25*/ curfptr[24] = /*_.INST__V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2833: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V22*/ curfptr[21]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V27*/ curfptr[26] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NRPRO_CONST__V27*/ curfptr[26]), (basilys_ptr_t)(/*_.SDATA__V21*/ curfptr[18])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2834: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2834: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2834: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2834: @apply.arg"); argtab[0].bp_cstring = "normexp_quote in routine nconst"; BASILYS_LOCATION("warmelt-normal.bysl:2834: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2834: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2834: @apply.arg"); argtab[3].bp_long = 2834; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCONST__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-normal.bysl:2834: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2834: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2834: @cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2835: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V25*/ curfptr[24];; BASILYS_LOCATION("warmelt-normal.bysl:2835: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V24*/ curfptr[23] = /*_.RETURN___V30*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2826: @clear"); /*clear*/ /*_.NCONST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2826: @clear"); /*clear*/ /*_.NRPRO_CONST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2826: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2826: @clear"); /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;} ; /*_.IFELSE___V23*/ curfptr[22] = /*_.LET___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2825: @clear"); /*clear*/ /*_.LET___V24*/ curfptr[23] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2825: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2825: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2837: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2837: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2837: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2837: @apply.arg"); argtab[0].bp_cstring = "normexp_quote in init sdata"; BASILYS_LOCATION("warmelt-normal.bysl:2837: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2837: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2837: @apply.arg"); argtab[3].bp_long = 2837; /*_.DEBUG_MSG_FUN__V32*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SDATA__V21*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V31*/ curfptr[24] = /*_.DEBUG_MSG_FUN__V32*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2837: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2837: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2837: @cppif.else"); /*_.IFCPP___V31*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2838: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SDATA__V21*/ curfptr[18];; BASILYS_LOCATION("warmelt-normal.bysl:2838: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2836: @block"); /*block*/{ /*_.PROGN___V34*/ curfptr[28] = /*_.RETURN___V33*/ curfptr[27];;} ; /*_.IFELSE___V23*/ curfptr[22] = /*_.PROGN___V34*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2825: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2825: @clear"); /*clear*/ /*_.RETURN___V33*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2825: @clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[28] = 0 ;} ; } ; /*_.LET___V20*/ curfptr[17] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2822: @clear"); /*clear*/ /*_.SDATA__V21*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2822: @clear"); /*clear*/ /*_.CURPROC__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2822: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2822: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V20*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2819: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2819: @clear"); /*clear*/ /*_.QUOTEDSY__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2819: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2819: @clear"); /*clear*/ /*_.LET___V20*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2813: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2813: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2813: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2813: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2813: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2813: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2813: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_QUOTE", 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_NORMEXP_QUOTE*/ static basilys_ptr_t rout_91_NORMEXP_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_91_NORMEXP_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 34 void* varptr[34]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_COMMENT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2844: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2844: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_COMMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2844: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2844: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2844: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2844: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check comment recv"),( "warmelt-normal.bysl"),(2844), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2844: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2844: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2844: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2845: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2845: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2845: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2845: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2845: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2845: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2845), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2845: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2845: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2845: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2846: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2846: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2846: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2846: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2846: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2846: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2846), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2846: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2846: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2846: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2847: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2847: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2847: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2847: @apply.arg"); argtab[0].bp_cstring = "normexp_comment start recv"; BASILYS_LOCATION("warmelt-normal.bysl:2847: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2847: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2847: @apply.arg"); argtab[3].bp_long = 2847; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2847: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2847: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2847: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2848: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2849: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SCOMM_STR");/*_.SCOMM__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2850: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2850: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_COMMENT*/ curfrout->tabval[4])), (2), "CLASS_NREP_COMMENT");/*_.INST__V18*/ curfptr[17] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2850: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2850: @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), (/*_.SCOMM__V16*/ curfptr[15]), "NCOMM_STRING"); ; /*_.NCOMM__V17*/ curfptr[16] = /*_.INST__V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2854: @apply"); /*apply*/{ /*_.CSYM__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (basilys_ptr_t)((/*!konst_6_COMMENT_*/ curfrout->tabval[6])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2855: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2855: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2855: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2855: @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), (/*_.CSYM__V19*/ curfptr[18]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:2855: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:2855: @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), (/*_.NCOMM__V17*/ curfptr[16]), "LETBIND_EXPR"); ; /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2860: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2860: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[9])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2860: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2860: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[8])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:2860: @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), (/*_.CSYM__V19*/ curfptr[18]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:2860: @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), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND"); ; /*_.CLOCC__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; /*_.BINDLIST__V24*/ curfptr[23] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[10]))));; BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond"); /*cond*/ if (/*_.SCOMM__V16*/ curfptr[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2867: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2867: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2867: @block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SCOMM__V16*/ curfptr[15])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond.then"); /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2867: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check scomm"),( "warmelt-normal.bysl"),(2867), __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[25] = /*_.IFELSE___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2867: @clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2867: @clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2867: @cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IF___V25*/ curfptr[24] = /*_.IFCPP___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2867: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2867: @cond.else"); /*_.IF___V25*/ curfptr[24] = NULL;; } ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (basilys_ptr_t)(/*_.CBIND__V20*/ curfptr[19])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2869: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2869: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2869: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2869: @apply.arg"); argtab[0].bp_cstring = "normexp_comment end ncomm"; BASILYS_LOCATION("warmelt-normal.bysl:2869: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2869: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2869: @apply.arg"); argtab[3].bp_long = 2869; /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCOMM__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2869: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2869: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2869: @cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2870: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2870: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2870: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2870: @apply.arg"); argtab[0].bp_cstring = "normexp_comment return clocc"; BASILYS_LOCATION("warmelt-normal.bysl:2870: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2870: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2870: @apply.arg"); argtab[3].bp_long = 2870; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[25] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2870: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2870: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2870: @cppif.else"); /*_.IFCPP___V30*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2871: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2871: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2871: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2871: @apply.arg"); argtab[0].bp_cstring = "normexp_comment return bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:2871: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2871: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2871: @apply.arg"); argtab[3].bp_long = 2871; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDLIST__V24*/ curfptr[23]), (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-normal.bysl:2871: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2871: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2871: @cppif.else"); /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2872: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V22*/ curfptr[21];; BASILYS_LOCATION("warmelt-normal.bysl:2872: @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) (/*_.BINDLIST__V24*/ curfptr[23]); ; BASILYS_LOCATION("warmelt-normal.bysl:2872: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V34*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.NCOMM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.CSYM__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.CLOCC__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.BINDLIST__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2848: @clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[32] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2843: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2843: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2843: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2843: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2843: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2843: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2843: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_91_NORMEXP_COMMENT*/ static basilys_ptr_t rout_92_NORMEXP_KEYWORD(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_NORMEXP_KEYWORD_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 32 void* varptr[32]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 32; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_KEYWORD", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2878: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2878: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_KEYWORD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2878: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2878: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2878: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2878: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check keyword recv"),( "warmelt-normal.bysl"),(2878), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2878: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2878: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2878: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2879: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2879: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2879: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2879: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2879: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2879: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2879), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2879: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2879: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2879: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2880: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2880: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2880: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2880: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2880: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2880: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2880), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2880: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2880: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2880: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2882: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2882: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2882: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2882: @apply.arg"); argtab[0].bp_cstring = "normexp_keyword recv"; BASILYS_LOCATION("warmelt-normal.bysl:2882: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:2882: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2882: @apply.arg"); argtab[3].bp_long = 2882; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2882: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2882: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2882: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2883: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2883: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2883: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2883: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[4]; /*_.KDATA__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_KEYWORD_DATA*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2884: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2886: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2886: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2886: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2886: @cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2886: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2886: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curproc"),( "warmelt-normal.bysl"),(2886), __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2886: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2886: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2886: @cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:2887: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2887: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2887: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2888: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2889: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.CONSTLIST__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2890: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2890: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CONSTANT*/ curfrout->tabval[7])), (4), "CLASS_NREP_CONSTANT");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2890: @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), (/*_.PSLOC__V5*/ curfptr[4]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2890: @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), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); ; BASILYS_LOCATION("warmelt-normal.bysl:2890: @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), (/*_.KDATA__V15*/ curfptr[14]), "NCONST_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:2890: @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), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC"); ; /*_.NCONST__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2896: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2896: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2896: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2896: @apply.arg"); argtab[0].bp_cstring = "normexp_keyword routine curproc"; BASILYS_LOCATION("warmelt-normal.bysl:2896: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2896: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2896: @apply.arg"); argtab[3].bp_long = 2896; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (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-normal.bysl:2896: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2896: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2896: @cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.CONSTLIST__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.KDATA__V15*/ curfptr[14])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2898: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2898: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2898: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2898: @apply.arg"); argtab[0].bp_cstring = "normexp_keyword result nconst"; BASILYS_LOCATION("warmelt-normal.bysl:2898: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2898: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2898: @apply.arg"); argtab[3].bp_long = 2898; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCONST__V22*/ curfptr[21]), (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-normal.bysl:2898: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2898: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2898: @cppif.else"); /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2899: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NCONST__V22*/ curfptr[21];; BASILYS_LOCATION("warmelt-normal.bysl:2899: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V20*/ curfptr[19] = /*_.RETURN___V28*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2888: @clear"); /*clear*/ /*_.CONSTLIST__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2888: @clear"); /*clear*/ /*_.NCONST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2888: @clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2888: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2888: @clear"); /*clear*/ /*_.RETURN___V28*/ curfptr[26] = 0 ;} ; /*_.IFELSE___V19*/ curfptr[17] = /*_.LET___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2887: @clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2887: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2887: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2902: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2902: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2902: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2902: @apply.arg"); argtab[0].bp_cstring = "normexp_keyword routineinit result kdata"; BASILYS_LOCATION("warmelt-normal.bysl:2902: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:2902: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2902: @apply.arg"); argtab[3].bp_long = 2902; /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.KDATA__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2902: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2902: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2902: @cppif.else"); /*_.IFCPP___V29*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2903: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.KDATA__V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-normal.bysl:2903: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2901: @block"); /*block*/{ /*_.PROGN___V32*/ curfptr[24] = /*_.RETURN___V31*/ curfptr[23];;} ; /*_.IFELSE___V19*/ curfptr[17] = /*_.PROGN___V32*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2887: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2887: @clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2887: @clear"); /*clear*/ /*_.PROGN___V32*/ curfptr[24] = 0 ;} ; } ; /*_.LET___V14*/ curfptr[12] = /*_.IFELSE___V19*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2883: @clear"); /*clear*/ /*_.KDATA__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2883: @clear"); /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2883: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2883: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2883: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[17] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2877: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:2877: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2877: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2877: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2877: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2877: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2877: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_KEYWORD", 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_NORMEXP_KEYWORD*/ static basilys_ptr_t rout_93_FILL_NORMAL_FORMALS(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_FILL_NORMAL_FORMALS_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]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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("FILL_NORMAL_FORMALS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); /*_.SARGS__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NARGTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.FORMSYMBMAP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FORMSYMBMAP__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); /*getarg#4*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); /*getarg#5*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V7*/ curfptr[6])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2913: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2913: @newclosure"); /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (4)); ; BASILYS_LOCATION("warmelt-normal.bysl:2913: @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)(/*_.SLOC__V7*/ curfptr[6]); ; BASILYS_LOCATION("warmelt-normal.bysl:2913: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[1] = (basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5]); ; BASILYS_LOCATION("warmelt-normal.bysl:2913: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[2] = (basilys_ptr_t)(/*_.NARGTUPLE__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:2913: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V9*/ curfptr[8])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V9*/ curfptr[8]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V9*/ curfptr[8])->tabval[3] = (basilys_ptr_t)(/*_.FORMSYMBMAP__V4*/ curfptr[3]); ; /*_.LAMBDA___V8*/ curfptr[7] = /*_.LAMBDA___V9*/ curfptr[8];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2911: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2911: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V8*/ curfptr[7]; /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SARGS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2910: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V10*/ curfptr[9];; BASILYS_LOCATION("warmelt-normal.bysl:2910: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2910: @clear"); /*clear*/ /*_.LAMBDA___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2910: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V10*/ curfptr[9] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("FILL_NORMAL_FORMALS", 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_FILL_NORMAL_FORMALS*/ static basilys_ptr_t rout_94_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_94_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 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2913: @getarg"); /*_.FARGB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2913: @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-normal.bysl:2913: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2914: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2914: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2914: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2914: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2914: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2914: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fargb"),( "warmelt-normal.bysl"),(2914), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2914: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2914: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2914: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2915: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.FTYP__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2916: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FARGB__V2*/ curfptr[1]), 0, "BINDER");/*_.FSYMB__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2917: @apply"); /*apply*/{ /*_.FDATASLOT__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[1])), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2922: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2922: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2922: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2922: @apply.arg"); argtab[2].bp_cstring = "class_formal_binding"; /*_.NORMAL_PREDEF__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NONZERO_HASH__L3*/ curfnum[1] = (basilys_nonzerohash());; /*_.MAKE_INTEGERBOX__V9*/ curfptr[8] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#NONZERO_HASH__L3*/ curfnum[1])));; /*_.MAKE_INTEGERBOX__V10*/ curfptr[9] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[4])), (/*_#IX__L1*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2919: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2919: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V12*/ curfptr[11] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2919: @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), ((/*~SLOC*/ curfclos->tabval[0])), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2919: @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), (/*_.NORMAL_PREDEF__V8*/ curfptr[7]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2919: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (7), (/*_.MAKE_INTEGERBOX__V9*/ curfptr[8]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:2919: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (8), (/*_.FDATASLOT__V7*/ curfptr[6]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:2919: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V12*/ curfptr[11]))));basilys_putfield_object((/*_.INST__V12*/ curfptr[11]), (5), (/*_.MAKE_INTEGERBOX__V10*/ curfptr[9]), "NINST_OBJNUM"); ; /*_.FARGDATA__V11*/ curfptr[10] = /*_.INST__V12*/ curfptr[11];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2927: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2927: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2927: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[0]); /*_.FSYMBDATA__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.FSYMB__V6*/ curfptr[5]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2928: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2928: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2928: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2928: @apply.arg"); argtab[2].bp_cstring = "primitive arg type"; /*_.FTYPDATA__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FTYP__V5*/ curfptr[3]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2930: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2930: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.FTYP__V5*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:2930: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2930: @cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2930: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2930: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ftyp"),( "warmelt-normal.bysl"),(2930), __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2930: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2930: @clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2930: @cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2931: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2931: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FARGDATA__V11*/ curfptr[10]; /*_.ADD_NCTX_DATA__V17*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[7])), (basilys_ptr_t)((/*~NCX*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2932: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2932: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!BINDER*/ curfrout->tabval[9]); BASILYS_LOCATION("warmelt-normal.bysl:2932: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FSYMBDATA__V13*/ curfptr[12]; /*_.FILL_DATA_SLOT__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.FARGDATA__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2933: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2933: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!FBIND_TYPE*/ curfrout->tabval[10]); BASILYS_LOCATION("warmelt-normal.bysl:2933: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FTYPDATA__V14*/ curfptr[13]; /*_.FILL_DATA_SLOT__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.FARGDATA__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NARGTUPLE*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.FARGDATA__V11*/ curfptr[10])); basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~FORMSYMBMAP*/ curfclos->tabval[3])), (basilysobject_ptr_t) (/*_.FSYMB__V6*/ curfptr[5]), (basilys_ptr_t)(/*_.FARGDATA__V11*/ curfptr[10])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FTYP__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FSYMB__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FDATASLOT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_#NONZERO_HASH__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FARGDATA__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FSYMBDATA__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FTYPDATA__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2915: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2913: @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_94_LAMBDA_*/ static basilys_ptr_t rout_95_FILL_NORMAL_EXPANSION(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_FILL_NORMAL_EXPANSION_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]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } curfram__; 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("FILL_NORMAL_EXPANSION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @getarg"); /*_.SEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXPTUPLE__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.SLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2942: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2942: @newclosure"); /*newclosure*/ /*_.LAMBDA___V7*/ curfptr[6] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); ; BASILYS_LOCATION("warmelt-normal.bysl:2942: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[0] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:2942: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[1] = (basilys_ptr_t)(/*_.SLOC__V5*/ curfptr[4]); ; BASILYS_LOCATION("warmelt-normal.bysl:2942: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V7*/ curfptr[6])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V7*/ curfptr[6]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V7*/ curfptr[6])->tabval[2] = (basilys_ptr_t)(/*_.NEXPTUPLE__V3*/ curfptr[2]); ; /*_.LAMBDA___V6*/ curfptr[5] = /*_.LAMBDA___V7*/ curfptr[6];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2940: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2940: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V6*/ curfptr[5]; /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2939: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_EVERY__V8*/ curfptr[7];; BASILYS_LOCATION("warmelt-normal.bysl:2939: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2939: @clear"); /*clear*/ /*_.LAMBDA___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2939: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V8*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("FILL_NORMAL_EXPANSION", 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_95_FILL_NORMAL_EXPANSION*/ 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 12 void* varptr[12]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:2942: @getarg"); /*_.EXPCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2942: @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-normal.bysl:2942: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2943: @block"); /*block*/{ /*_.DISCRCOMP__V3*/ curfptr[2] = (basilys_discr((basilys_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1])));; /*_#__L2*/ curfnum[1] = ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2945: @cond"); /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2945: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2945: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2949: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2949: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2949: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:2949: @apply.arg"); argtab[2].bp_cstring = "discr_verbatimstring"; /*_.NORMAL_PREDEF__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2947: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2947: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[2])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V7*/ curfptr[6] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2947: @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), (/*_.NORMAL_PREDEF__V5*/ curfptr[4]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2947: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V7*/ curfptr[6]))));basilys_putfield_object((/*_.INST__V7*/ curfptr[6]), (5), (/*_.EXPCOMP__V2*/ curfptr[1]), "NSTR_STRING"); ; /*_.INST___V6*/ curfptr[5] = /*_.INST__V7*/ curfptr[6];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2946: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2946: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INST___V6*/ curfptr[5]; /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~NCX*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.COMPDATA__V4*/ curfptr[3] = /*_.ADD_NCTX_DATA__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2945: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2945: @clear"); /*clear*/ /*_.INST___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2945: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V8*/ curfptr[7] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2945: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2945: @block"); /*block*/{ /*_#__L3*/ curfnum[2] = ((/*_.DISCRCOMP__V3*/ curfptr[2]) == ((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2952: @cond"); /*cond*/ if (/*_#__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2952: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:2952: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2953: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2953: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:2953: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[1]); /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V9*/ curfptr[4] = /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2952: @clear"); /*clear*/ /*_.NORMAL_SYMBOL_DATA__V10*/ curfptr[5] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:2952: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2952: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2956: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2956: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:2956: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2956: @apply.arg"); argtab[0].bp_cstring = "bad component in C code expansion expcomp"; BASILYS_LOCATION("warmelt-normal.bysl:2956: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:2956: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:2956: @apply.arg"); argtab[3].bp_long = 2956; /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.EXPCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2956: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2956: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2956: @cppif.else"); /*_.IFCPP___V11*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "unexpected component in C code expansion"), (basilys_ptr_t)0); BASILYS_LOCATION("warmelt-normal.bysl:2955: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2952: @clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[7] = 0 ;} ; } ; /*_.COMPDATA__V4*/ curfptr[3] = /*_.IFELSE___V9*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2945: @clear"); /*clear*/ /*_#__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2945: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[4] = 0 ;} ; } ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NEXPTUPLE*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.COMPDATA__V4*/ curfptr[3])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2943: @clear"); /*clear*/ /*_.DISCRCOMP__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2943: @clear"); /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2943: @clear"); /*clear*/ /*_.COMPDATA__V4*/ curfptr[3] = 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_96_LAMBDA_*/ static basilys_ptr_t rout_97_NORMEXP_DEFPRIMITIVE(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_NORMEXP_DEFPRIMITIVE_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 50 void* varptr[50]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 50; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFPRIMITIVE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2965: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2965: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFPRIMITIVE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:2965: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2965: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2965: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2965: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check defprimitive recv"),( "warmelt-normal.bysl"),(2965), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2965: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2965: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2965: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2966: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2966: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:2966: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2966: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2966: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2966: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(2966), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2966: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2966: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2966: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:2967: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:2967: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:2967: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:2967: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:2967: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:2967: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(2967), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2967: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2967: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:2967: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2968: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2969: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2970: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SFORMAL_ARGS");/*_.SARGS__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2971: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SPRIM_TYPE");/*_.STYPE__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2972: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SPRIM_EXPANSION");/*_.SEXP__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2973: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2973: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SNAME__V14*/ curfptr[13]; /*_.SPRIMBIND__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2975: @apply"); /*apply*/{ /*_.NSLOTUPLE__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!CREATE_DATA_SLOTS*/ curfrout->tabval[4])), (basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.SEXP__V17*/ curfptr[16])));; /*_.NEXPTUPLE__V20*/ curfptr[19] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])));; /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = (basilys_multiple_length((basilys_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));; /*_.NARGTUPLE__V21*/ curfptr[20] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[4])));; BASILYS_LOCATION("warmelt-normal.bysl:2983: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2983: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2983: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:2983: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2980: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2980: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V24*/ curfptr[23] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2980: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2980: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2980: @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), (/*_.NORMAL_PREDEF__V22*/ curfptr[21]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2980: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V24*/ curfptr[23]))));basilys_putfield_object((/*_.INST__V24*/ curfptr[23]), (5), (/*_.NEXPTUPLE__V20*/ curfptr[19]), "NTUP_COMP"); ; /*_.NEXPDATA__V23*/ curfptr[22] = /*_.INST__V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2988: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2988: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2988: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:2988: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:2985: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2985: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[7])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V27*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2985: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2985: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2985: @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), (/*_.NORMAL_PREDEF__V25*/ curfptr[24]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2985: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NARGTUPLE__V21*/ curfptr[20]), "NTUP_COMP"); ; /*_.NARGDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2993: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2993: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2993: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:2993: @apply.arg"); argtab[2].bp_cstring = "class_primitive"; /*_.NORMAL_PREDEF__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (basilys_ptr_t)((/*!CLASS_PRIMITIVE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NONZERO_HASH__L6*/ curfnum[5] = (basilys_nonzerohash());; /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NONZERO_HASH__L6*/ curfnum[5])));; BASILYS_LOCATION("warmelt-normal.bysl:2990: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2990: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V31*/ curfptr[30] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:2990: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:2990: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:2990: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (2), (/*_.NORMAL_PREDEF__V28*/ curfptr[27]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:2990: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (7), (/*_.MAKE_INTEGERBOX__V29*/ curfptr[28]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:2990: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[30]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[30]), (8), (/*_.NSLOTUPLE__V19*/ curfptr[18]), "NINST_SLOTS"); ; /*_.NPRIMDATA__V30*/ curfptr[29] = /*_.INST__V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2996: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2996: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:2996: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.NSYMDATA__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.SARGS__V15*/ curfptr[14])));; /*_#I__L8*/ curfnum[7] = ((/*_#MULTIPLE_LENGTH__L7*/ curfnum[6]) * (2));; /*_#I__L9*/ curfnum[8] = ((3) + (/*_#I__L8*/ curfnum[7]));; /*_.FORMSYMBMAP__V33*/ curfptr[32] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[12])), (/*_#I__L9*/ curfnum[8])));; BASILYS_LOCATION("warmelt-normal.bysl:3000: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3000: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NPRIMDATA__V30*/ curfptr[29]; /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3001: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3001: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22]; /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3002: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3002: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25]; /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NARGTUPLE__V21*/ curfptr[20]; BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FORMSYMBMAP__V33*/ curfptr[32]; BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3005: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.SARGS__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3007: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3007: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEXPTUPLE__V20*/ curfptr[19]; BASILYS_LOCATION("warmelt-normal.bysl:3007: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3007: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.SEXP__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3014: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3014: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3014: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3014: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[19])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3015: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[39] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3012: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3012: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[18])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V42*/ curfptr[41] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3012: @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), (/*_.NORMAL_PREDEF__V39*/ curfptr[38]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3012: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.NAMED_NAME__V40*/ curfptr[39]), "NSTR_STRING"); ; /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3010: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3010: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INST___V41*/ curfptr[40]; /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3009: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3009: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[17]); BASILYS_LOCATION("warmelt-normal.bysl:3009: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ADD_NCTX_DATA__V43*/ curfptr[42]; /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3016: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3016: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!PRIM_FORMALS*/ curfrout->tabval[20]); BASILYS_LOCATION("warmelt-normal.bysl:3016: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NARGDATA__V26*/ curfptr[25]; /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3017: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3017: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!PRIM_EXPANSION*/ curfrout->tabval[21]); BASILYS_LOCATION("warmelt-normal.bysl:3017: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NEXPDATA__V23*/ curfptr[22]; /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3019: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3019: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3019: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3019: @apply.arg"); argtab[2].bp_cstring = "primitive res type"; /*_.NORMAL_PREDEF__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.STYPE__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3018: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3018: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!PRIM_TYPE*/ curfrout->tabval[22]); BASILYS_LOCATION("warmelt-normal.bysl:3018: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NORMAL_PREDEF__V47*/ curfptr[46]; /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.NPRIMDATA__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L10*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_PRIMITIVE_BINDING*/ curfrout->tabval[23])));; BASILYS_LOCATION("warmelt-normal.bysl:3021: @cond"); /*cond*/ if (/*_#IS_A__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3021: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3021: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3022: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3022: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.SPRIMBIND__V18*/ curfptr[17]))));basilys_putfield_object((/*_.SPRIMBIND__V18*/ curfptr[17]), (3), (/*_.NPRIMDATA__V30*/ curfptr[29]), "PBIND_PRIMDATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:3022: @touch"); basilysgc_touch(/*_.SPRIMBIND__V18*/ curfptr[17]); ; /*epilog*/} ; /*epilog*/} ; } /*noelse*/ ; /*_.THE_NULL__V49*/ curfptr[48] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3023: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V49*/ curfptr[48];; BASILYS_LOCATION("warmelt-normal.bysl:3023: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V50*/ curfptr[49];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.SARGS__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.STYPE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.SEXP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.SPRIMBIND__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NSLOTUPLE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NEXPTUPLE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NARGTUPLE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NEXPDATA__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NARGDATA__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#NONZERO_HASH__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NPRIMDATA__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NSYMDATA__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FORMSYMBMAP__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_NORMAL_FORMALS__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_NORMAL_EXPANSION__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V47*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_#IS_A__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.THE_NULL__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2968: @clear"); /*clear*/ /*_.RETURN___V50*/ curfptr[49] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:2964: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:2964: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:2964: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2964: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2964: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:2964: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFPRIMITIVE", 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_NORMEXP_DEFPRIMITIVE*/ static basilys_ptr_t rout_98_NORMEXP_DEFCITERATOR(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_NORMEXP_DEFCITERATOR_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 67 void* varptr[67]; #define CURFRAM_NBVARNUM 23 long varnum[23]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 67; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFCITERATOR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3031: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3031: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFCITERATOR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3031: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3031: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3031: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3031: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check defciterator recv"),( "warmelt-normal.bysl"),(3031), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3031: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3031: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3031: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3032: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3032: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3032: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3032: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3032: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3032: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3032), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3032: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3032: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3032: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3033: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3033: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3033: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3033: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3033: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3033: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3033), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3033: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3033: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3033: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3035: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3036: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3037: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3037: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCITERDEF_CITERATOR");/*_.SC__V16*/ curfptr[15] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3038: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3038: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3038: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3038: @cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3038: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3038: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sciter"),( "warmelt-normal.bysl"),(3038), __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3038: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3038: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3038: @cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V15*/ curfptr[14] = /*_.SC__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3037: @clear"); /*clear*/ /*_.SC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3037: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ;} ; /*_.SCITER__V19*/ curfptr[17] = /*_.LET___V15*/ curfptr[14];; BASILYS_LOCATION("warmelt-normal.bysl:3040: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 2, "CITER_START_FORMALS");/*_.CITSTAFOR__V20*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3042: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V21*/ curfptr[16] = slot; }; ; /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V21*/ curfptr[16])));; /*_.SLOTUP__V22*/ curfptr[21] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));; /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITSTAFOR__V20*/ curfptr[15])));; /*_.FORMSTATUP__V23*/ curfptr[22] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L6*/ curfnum[5])));; BASILYS_LOCATION("warmelt-normal.bysl:3045: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 4, "CITER_BODY_FORMALS");/*_.CITBODFOR__V24*/ curfptr[23] = slot; }; ; /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITBODFOR__V24*/ curfptr[23])));; /*_.FORMBODTUP__V25*/ curfptr[24] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L7*/ curfnum[6])));; BASILYS_LOCATION("warmelt-normal.bysl:3048: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 3, "CITER_STATE");/*_.CITSTATSY__V26*/ curfptr[25] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3049: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEF__V27*/ curfptr[26] = slot; }; ; /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITEXPBEF__V27*/ curfptr[26])));; /*_.EXPBEFTUP__V28*/ curfptr[27] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L8*/ curfnum[7])));; BASILYS_LOCATION("warmelt-normal.bysl:3051: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCITER__V19*/ curfptr[17]), 6, "CITER_EXPAFTER");/*_.CITEXPAFT__V29*/ curfptr[28] = slot; }; ; /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITEXPAFT__V29*/ curfptr[28])));; /*_.EXPAFTTUP__V30*/ curfptr[29] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L9*/ curfnum[8])));; /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITSTAFOR__V20*/ curfptr[15])));; /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITBODFOR__V24*/ curfptr[23])));; /*_#I__L12*/ curfnum[11] = ((/*_#MULTIPLE_LENGTH__L10*/ curfnum[9]) + (/*_#MULTIPLE_LENGTH__L11*/ curfnum[10]));; /*_#I__L13*/ curfnum[12] = ((/*_#I__L12*/ curfnum[11]) * (2));; /*_#I__L14*/ curfnum[13] = ((5) + (/*_#I__L13*/ curfnum[12]));; /*_.FORMSYMBMAP__V31*/ curfptr[30] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[5])), (/*_#I__L14*/ curfnum[13])));; BASILYS_LOCATION("warmelt-normal.bysl:3058: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3058: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3058: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3058: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[8])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3059: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V33*/ curfptr[32] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3056: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3056: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[6])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V35*/ curfptr[34] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3056: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3056: @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), (/*_.NORMAL_PREDEF__V32*/ curfptr[31]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3056: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V35*/ curfptr[34]))));basilys_putfield_object((/*_.INST__V35*/ curfptr[34]), (5), (/*_.NAMED_NAME__V33*/ curfptr[32]), "NSTR_STRING"); ; /*_.NAMSTRDATA__V34*/ curfptr[33] = /*_.INST__V35*/ curfptr[34];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3063: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3063: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3063: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3063: @apply.arg"); argtab[2].bp_cstring = "class_citerator"; /*_.NORMAL_PREDEF__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NONZERO_HASH__L15*/ curfnum[14] = (basilys_nonzerohash());; /*_.MAKE_INTEGERBOX__V37*/ curfptr[36] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[10])), (/*_#NONZERO_HASH__L15*/ curfnum[14])));; BASILYS_LOCATION("warmelt-normal.bysl:3060: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3060: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3060: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3060: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3060: @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), (/*_.NORMAL_PREDEF__V36*/ curfptr[35]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3060: @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), (/*_.MAKE_INTEGERBOX__V37*/ curfptr[36]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:3060: @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), (/*_.SLOTUP__V22*/ curfptr[21]), "NINST_SLOTS"); ; /*_.INSDATA__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3068: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3068: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INSDATA__V38*/ curfptr[37]; /*_.ADD_NCTX_DATA__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3069: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3069: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAMSTRDATA__V34*/ curfptr[33]; /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L16*/ curfnum[15] = (basilys_get_int((basilys_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[12]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L16*/ curfnum[15]), (basilys_ptr_t)(/*_.NAMSTRDATA__V34*/ curfptr[33])); BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FORMSTATUP__V23*/ curfptr[22]; BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FORMSYMBMAP__V31*/ curfptr[30]; BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3073: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_FORMALS__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.CITSTAFOR__V20*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3077: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3077: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3077: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3077: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3074: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[14])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V45*/ curfptr[44] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @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), (/*_.NORMAL_PREDEF__V43*/ curfptr[42]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @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), (/*_.FORMSTATUP__V23*/ curfptr[22]), "NTUP_COMP"); ; /*_.NSTATUPDATA__V44*/ curfptr[43] = /*_.INST__V45*/ curfptr[44];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3080: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3080: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NSTATUPDATA__V44*/ curfptr[43]; /*_.ADD_NCTX_DATA__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L17*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)((/*!CITER_START_FORMALS*/ curfrout->tabval[15]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L17*/ curfnum[16]), (basilys_ptr_t)(/*_.NSTATUPDATA__V44*/ curfptr[43])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3074: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @clear"); /*clear*/ /*_.NSTATUPDATA__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3074: @clear"); /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3085: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3085: @block"); /*block*/{ /*_#IS_A__L18*/ curfnum[16] = basilys_is_instance_of((basilys_ptr_t)(/*_.CITSTATSY__V26*/ curfptr[25]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[16])));; BASILYS_LOCATION("warmelt-normal.bysl:3085: @cond"); /*cond*/ if (/*_#IS_A__L18*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3085: @cond.then"); /*_.IFELSE___V48*/ curfptr[43] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3085: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3085: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check citstatsy"),( "warmelt-normal.bysl"),(3085), __FUNCTION__); /*clear*/ /*_.IFELSE___V48*/ curfptr[43] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V47*/ curfptr[42] = /*_.IFELSE___V48*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3085: @clear"); /*clear*/ /*_#IS_A__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3085: @clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3085: @cppif.else"); /*_.IFCPP___V47*/ curfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3086: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3086: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3086: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3086: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.NSTATSYDATA__V49*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.CITSTATSY__V26*/ curfptr[25]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L19*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)((/*!CITER_STATE*/ curfrout->tabval[18]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L19*/ curfnum[16]), (basilys_ptr_t)(/*_.NSTATSYDATA__V49*/ curfptr[45])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3086: @clear"); /*clear*/ /*_.NSTATSYDATA__V49*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3086: @clear"); /*clear*/ /*_#GET_INT__L19*/ curfnum[16] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FORMBODTUP__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FORMSYMBMAP__V31*/ curfptr[30]; BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3091: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_FORMALS__V50*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_FORMALS*/ curfrout->tabval[13])), (basilys_ptr_t)(/*_.CITBODFOR__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3095: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3095: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3095: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3095: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V51*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3092: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[14])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.NORMAL_PREDEF__V51*/ curfptr[45]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (5), (/*_.FORMBODTUP__V25*/ curfptr[24]), "NTUP_COMP"); ; /*_.NBODTUPDATA__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3098: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3098: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODTUPDATA__V52*/ curfptr[51]; /*_.ADD_NCTX_DATA__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L20*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)((/*!CITER_BODY_FORMALS*/ curfrout->tabval[19]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L20*/ curfnum[16]), (basilys_ptr_t)(/*_.NBODTUPDATA__V52*/ curfptr[51])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3092: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V51*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @clear"); /*clear*/ /*_.NBODTUPDATA__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3092: @clear"); /*clear*/ /*_#GET_INT__L20*/ curfnum[16] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3102: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3102: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.EXPBEFTUP__V28*/ curfptr[27]; BASILYS_LOCATION("warmelt-normal.bysl:3102: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3102: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_EXPANSION__V55*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.CITEXPBEF__V27*/ curfptr[26]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3106: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3106: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3106: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3106: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V56*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3103: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[14])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V58*/ curfptr[57] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INST__V58*/ curfptr[57]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @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), (/*_.NORMAL_PREDEF__V56*/ curfptr[51]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @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), (/*_.EXPBEFTUP__V28*/ curfptr[27]), "NTUP_COMP"); ; /*_.NBEFTUPDATA__V57*/ curfptr[53] = /*_.INST__V58*/ curfptr[57];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3109: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3109: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBEFTUPDATA__V57*/ curfptr[53]; /*_.ADD_NCTX_DATA__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L21*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)((/*!CITER_EXPBEFORE*/ curfrout->tabval[21]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L21*/ curfnum[16]), (basilys_ptr_t)(/*_.NBEFTUPDATA__V57*/ curfptr[53])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3103: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V56*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @clear"); /*clear*/ /*_.NBEFTUPDATA__V57*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3103: @clear"); /*clear*/ /*_#GET_INT__L21*/ curfnum[16] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3113: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3113: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.EXPAFTTUP__V30*/ curfptr[29]; BASILYS_LOCATION("warmelt-normal.bysl:3113: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3113: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.FILL_NORMAL_EXPANSION__V60*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_NORMAL_EXPANSION*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.CITEXPAFT__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3117: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3117: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3117: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3117: @apply.arg"); argtab[2].bp_cstring = "discr_multiple"; /*_.NORMAL_PREDEF__V61*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[7])), (basilys_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3114: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[14])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V63*/ curfptr[62] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.NORMAL_PREDEF__V61*/ curfptr[53]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (5), (/*_.EXPAFTTUP__V30*/ curfptr[29]), "NTUP_COMP"); ; /*_.NAFTTUPDATA__V62*/ curfptr[58] = /*_.INST__V63*/ curfptr[62];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3120: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3120: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAFTTUPDATA__V62*/ curfptr[58]; /*_.ADD_NCTX_DATA__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L22*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)((/*!CITER_EXPAFTER*/ curfrout->tabval[22]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V22*/ curfptr[21]), (/*_#GET_INT__L22*/ curfnum[16]), (basilys_ptr_t)(/*_.NAFTTUPDATA__V62*/ curfptr[58])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3114: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V61*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @clear"); /*clear*/ /*_.NAFTTUPDATA__V62*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3114: @clear"); /*clear*/ /*_#GET_INT__L22*/ curfnum[16] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3125: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3125: @block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3125: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3125: @apply.arg"); argtab[0].bp_cstring = "normexp_defciterator return insdata"; BASILYS_LOCATION("warmelt-normal.bysl:3125: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[16]; BASILYS_LOCATION("warmelt-normal.bysl:3125: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3125: @apply.arg"); argtab[3].bp_long = 3125; /*_.DEBUG_MSG_FUN__V66*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[23])), (basilys_ptr_t)(/*_.INSDATA__V38*/ curfptr[37]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V65*/ curfptr[53] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3125: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3125: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3125: @cppif.else"); /*_.IFCPP___V65*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3126: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.INSDATA__V38*/ curfptr[37];; BASILYS_LOCATION("warmelt-normal.bysl:3126: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V67*/ curfptr[63];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.SCITER__V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CITSTAFOR__V20*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CLASS_FIELDS__V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.SLOTUP__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FORMSTATUP__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CITBODFOR__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FORMBODTUP__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CITSTATSY__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CITEXPBEF__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.EXPBEFTUP__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.CITEXPAFT__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.EXPAFTTUP__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FORMSYMBMAP__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.NAMED_NAME__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.NAMSTRDATA__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#NONZERO_HASH__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.INSDATA__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_#GET_INT__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FILL_NORMAL_FORMALS__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FILL_NORMAL_FORMALS__V50*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FILL_NORMAL_EXPANSION__V55*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.FILL_NORMAL_EXPANSION__V60*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.IFCPP___V65*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3034: @clear"); /*clear*/ /*_.RETURN___V67*/ curfptr[63] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3030: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:3030: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3030: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3030: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3030: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3030: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFCITERATOR", 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_98_NORMEXP_DEFCITERATOR*/ static basilys_ptr_t rout_99_NORMEXP_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_99_NORMEXP_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 123 void* varptr[123]; #define CURFRAM_NBVARNUM 34 long varnum[34]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 123; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_CITERATION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3135: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3135: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3135: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3135: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration recv"; BASILYS_LOCATION("warmelt-normal.bysl:3135: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3135: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3135: @apply.arg"); argtab[3].bp_long = 3135; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 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___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3135: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3135: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3135: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3136: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3136: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_CITERATION*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3136: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3136: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3136: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3136: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check citeration recv"),( "warmelt-normal.bysl"),(3136), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3136: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3136: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3136: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3137: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3137: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3137: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3137: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3137: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3137: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3137), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3137: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3137: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3137: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3138: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3138: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3138: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3138: @cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3138: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3138: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3138), __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3138: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3138: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3138: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3139: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3140: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SCITER_OPER");/*_.SOPER__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3141: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SCITER_ARGS");/*_.SARGS__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3142: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SCITER_VARBIND");/*_.SVBIND__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3143: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SCITER_BODY");/*_.SBODY__V19*/ curfptr[18] = slot; }; ; /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));; /*_.NBNDTUP__V20*/ curfptr[19] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#MULTIPLE_LENGTH__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3145: @apply"); /*apply*/{ /*_.BODYENV__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!FRESH_ENV*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3147: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3147: @block"); /*block*/{ /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:3147: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3147: @cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3147: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3147: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check soper"),( "warmelt-normal.bysl"),(3147), __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3147: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3147: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3147: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDINGS__V26*/ curfptr[25]; BASILYS_LOCATION("warmelt-normal.bysl:3148: @multiapply.appl"); /*_.NARGS__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.SARGS__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @block"); /*block*/{ /*_#NULL__L7*/ curfnum[5] = ((/*_.NBINDINGS__V26*/ curfptr[25]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3151: @cond"); /*cond*/ if (/*_#NULL__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3151: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3151: @block"); /*block*/{ /*_.MAKE_LIST__V28*/ curfptr[27] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[8]))));; BASILYS_LOCATION("warmelt-normal.bysl:3151: @compute"); /*_.NBINDINGS__V26*/ curfptr[25] = /*_.SETQ___V29*/ curfptr[28] = /*_.MAKE_LIST__V28*/ curfptr[27];; /*_.IF___V27*/ curfptr[26] = /*_.SETQ___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3151: @clear"); /*clear*/ /*_.MAKE_LIST__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3151: @clear"); /*clear*/ /*_.SETQ___V29*/ curfptr[28] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3151: @cond.else"); /*_.IF___V27*/ curfptr[26] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3152: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3152: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3152: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3152: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nargs"; BASILYS_LOCATION("warmelt-normal.bysl:3152: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:3152: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3152: @apply.arg"); argtab[3].bp_long = 3152; /*_.DEBUG_MSG_FUN__V31*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NARGS__V25*/ curfptr[24]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V30*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V31*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3152: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3152: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3152: @cppif.else"); /*_.IFCPP___V30*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3153: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3153: @block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3153: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3153: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nbindings"; BASILYS_LOCATION("warmelt-normal.bysl:3153: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:3153: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3153: @apply.arg"); argtab[3].bp_long = 3153; /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBINDINGS__V26*/ curfptr[25]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[28] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3153: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3153: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3153: @cppif.else"); /*_.IFCPP___V32*/ curfptr[28] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3154: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 2, "CITER_START_FORMALS");/*_.STARFORMALS__V35*/ curfptr[34] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3155: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3155: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3155: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3155: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration starformals"; BASILYS_LOCATION("warmelt-normal.bysl:3155: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:3155: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3155: @apply.arg"); argtab[3].bp_long = 3155; /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STARFORMALS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V36*/ curfptr[35] = /*_.DEBUG_MSG_FUN__V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3155: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3155: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V37*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3155: @cppif.else"); /*_.IFCPP___V36*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = (basilys_multiple_length((basilys_ptr_t)(/*_.STARFORMALS__V35*/ curfptr[34])));; /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = (basilys_multiple_length((basilys_ptr_t)(/*_.NARGS__V25*/ curfptr[24])));; /*_#__L13*/ curfnum[12] = ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[7]) != (/*_#MULTIPLE_LENGTH__L12*/ curfnum[11]));; BASILYS_LOCATION("warmelt-normal.bysl:3156: @cond"); /*cond*/ if (/*_#__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3156: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3156: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3158: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V39*/ curfptr[38] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "start formals and actuals length mismatch in citerator"), (basilys_ptr_t)(/*_.NAMED_NAME__V39*/ curfptr[38])); BASILYS_LOCATION("warmelt-normal.bysl:3159: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-normal.bysl:3159: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3157: @block"); /*block*/{ /*_.PROGN___V41*/ curfptr[40] = /*_.RETURN___V40*/ curfptr[39];;} ; /*_.IF___V38*/ curfptr[36] = /*_.PROGN___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3156: @clear"); /*clear*/ /*_.NAMED_NAME__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3156: @clear"); /*clear*/ /*_.RETURN___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3156: @clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[40] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3156: @cond.else"); /*_.IF___V38*/ curfptr[36] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3162: @newclosure"); /*newclosure*/ /*_.LAMBDA___V43*/ curfptr[39] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (4)); ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[39])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[39])->tabval[1] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[39])->tabval[2] = (basilys_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]); ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V43*/ curfptr[39])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V43*/ curfptr[39]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V43*/ curfptr[39])->tabval[3] = (basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]); ; /*_.LAMBDA___V42*/ curfptr[38] = /*_.LAMBDA___V43*/ curfptr[39];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3160: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3160: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.STARFORMALS__V35*/ curfptr[34]; BASILYS_LOCATION("warmelt-normal.bysl:3160: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V42*/ curfptr[38]; /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.NARGS__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3184: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3184: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3184: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3184: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nbndtup"; BASILYS_LOCATION("warmelt-normal.bysl:3184: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:3184: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3184: @apply.arg"); argtab[3].bp_long = 3184; /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBNDTUP__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V45*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3184: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3184: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V46*/ curfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3184: @cppif.else"); /*_.IFCPP___V45*/ curfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3186: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3186: @block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3186: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3186: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration svbind"; BASILYS_LOCATION("warmelt-normal.bysl:3186: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:3186: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3186: @apply.arg"); argtab[3].bp_long = 3186; /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V47*/ curfptr[45] = /*_.DEBUG_MSG_FUN__V48*/ curfptr[47];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3186: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3186: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V48*/ curfptr[47] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3186: @cppif.else"); /*_.IFCPP___V47*/ curfptr[45] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3187: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 4, "CITER_BODY_FORMALS");/*_.CITBFORM__V50*/ curfptr[49] = slot; }; ; /*_#NBCITBFORM__L16*/ curfnum[13] = (basilys_multiple_length((basilys_ptr_t)(/*_.CITBFORM__V50*/ curfptr[49])));; /*_.NLOCBINDTUP__V51*/ curfptr[50] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));; /*_.NSYMOCCTUP__V52*/ curfptr[51] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[4])), (/*_#NBCITBFORM__L16*/ curfnum[13])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3192: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3192: @block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3192: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3192: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration citbform"; BASILYS_LOCATION("warmelt-normal.bysl:3192: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16]; BASILYS_LOCATION("warmelt-normal.bysl:3192: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3192: @apply.arg"); argtab[3].bp_long = 3192; /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CITBFORM__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V53*/ curfptr[52] = /*_.DEBUG_MSG_FUN__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3192: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3192: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V54*/ curfptr[53] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3192: @cppif.else"); /*_.IFCPP___V53*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = (basilys_multiple_length((basilys_ptr_t)(/*_.SVBIND__V18*/ curfptr[17])));; /*_#__L19*/ curfnum[18] = ((/*_#NBCITBFORM__L16*/ curfnum[13]) != (/*_#MULTIPLE_LENGTH__L18*/ curfnum[16]));; BASILYS_LOCATION("warmelt-normal.bysl:3193: @cond"); /*cond*/ if (/*_#__L19*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3193: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3193: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3195: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V56*/ curfptr[55] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "body formals and actuals length mismatch in citerator"), (basilys_ptr_t)(/*_.NAMED_NAME__V56*/ curfptr[55])); BASILYS_LOCATION("warmelt-normal.bysl:3196: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-normal.bysl:3196: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3194: @block"); /*block*/{ /*_.PROGN___V58*/ curfptr[57] = /*_.RETURN___V57*/ curfptr[56];;} ; /*_.IF___V55*/ curfptr[53] = /*_.PROGN___V58*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3193: @clear"); /*clear*/ /*_.NAMED_NAME__V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3193: @clear"); /*clear*/ /*_.RETURN___V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3193: @clear"); /*clear*/ /*_.PROGN___V58*/ curfptr[57] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3193: @cond.else"); /*_.IF___V55*/ curfptr[53] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3199: @newclosure"); /*newclosure*/ /*_.LAMBDA___V60*/ curfptr[56] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (5)); ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[56])->tabval[0] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[56])->tabval[1] = (basilys_ptr_t)(/*_.NLOCBINDTUP__V51*/ curfptr[50]); ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[56])->tabval[2] = (basilys_ptr_t)(/*_.NSYMOCCTUP__V52*/ curfptr[51]); ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[56])->tabval[3] = (basilys_ptr_t)(/*_.BODYENV__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[56])->tabval[4] = (basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]); ; /*_.LAMBDA___V59*/ curfptr[55] = /*_.LAMBDA___V60*/ curfptr[56];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3197: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3197: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CITBFORM__V50*/ curfptr[49]; BASILYS_LOCATION("warmelt-normal.bysl:3197: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V59*/ curfptr[55]; /*_.MULTIPLE_EVERY_BOTH__V61*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.SVBIND__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3234: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3234: @block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3234: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3234: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nlocbindtup"; BASILYS_LOCATION("warmelt-normal.bysl:3234: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; BASILYS_LOCATION("warmelt-normal.bysl:3234: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3234: @apply.arg"); argtab[3].bp_long = 3234; /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLOCBINDTUP__V51*/ curfptr[50]), (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-normal.bysl:3234: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3234: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V63*/ curfptr[62] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3234: @cppif.else"); /*_.IFCPP___V62*/ curfptr[61] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3235: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3235: @block"); /*block*/{ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3235: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3235: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nsymocctup"; BASILYS_LOCATION("warmelt-normal.bysl:3235: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L21*/ curfnum[19]; BASILYS_LOCATION("warmelt-normal.bysl:3235: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3235: @apply.arg"); argtab[3].bp_long = 3235; /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NSYMOCCTUP__V52*/ curfptr[51]), (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-normal.bysl:3235: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L21*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3235: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V65*/ curfptr[64] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3235: @cppif.else"); /*_.IFCPP___V64*/ curfptr[62] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3236: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply"); /*multiapply 4args, 1x.res*/ { union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&restab, 0, sizeof(restab)); memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BODYENV__V21*/ curfptr[20]; BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBODBINDINGS__V68*/ curfptr[67]; BASILYS_LOCATION("warmelt-normal.bysl:3236: @multiapply.appl"); /*_.NBODY__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMALIZE_TUPLE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.SBODY__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3236: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3239: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3239: @block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3239: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3239: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nbody"; BASILYS_LOCATION("warmelt-normal.bysl:3239: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[19]; BASILYS_LOCATION("warmelt-normal.bysl:3239: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3239: @apply.arg"); argtab[3].bp_long = 3239; /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBODY__V67*/ curfptr[66]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V69*/ curfptr[68] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3239: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3239: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3239: @cppif.else"); /*_.IFCPP___V69*/ curfptr[68] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3240: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3240: @block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[19] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3240: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3240: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nbodbindings"; BASILYS_LOCATION("warmelt-normal.bysl:3240: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[19]; BASILYS_LOCATION("warmelt-normal.bysl:3240: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3240: @apply.arg"); argtab[3].bp_long = 3240; /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBODBINDINGS__V68*/ curfptr[67]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V71*/ curfptr[69] = /*_.DEBUG_MSG_FUN__V72*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3240: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3240: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V72*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3240: @cppif.else"); /*_.IFCPP___V71*/ curfptr[69] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3241: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 3, "CITER_STATE");/*_.CITSTATE__V74*/ curfptr[73] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3242: @apply"); /*apply*/{ /*_.CITSTSYM__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.CITSTATE__V74*/ curfptr[73]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3243: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3243: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V77*/ curfptr[76] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3243: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V77*/ curfptr[76]))));basilys_putfield_object((/*_.INST__V77*/ curfptr[76]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3243: @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), (/*_.CITSTSYM__V75*/ curfptr[74]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3243: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3243: @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), ((/*nil*/NULL)), "LETBIND_EXPR"); ; /*_.CITSTBIND__V76*/ curfptr[75] = /*_.INST__V77*/ curfptr[76];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3248: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3248: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V79*/ curfptr[78] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3248: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78]))));basilys_putfield_object((/*_.INST__V79*/ curfptr[78]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3248: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78]))));basilys_putfield_object((/*_.INST__V79*/ curfptr[78]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3248: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78]))));basilys_putfield_object((/*_.INST__V79*/ curfptr[78]), (1), (/*_.CITSTSYM__V75*/ curfptr[74]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3248: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V79*/ curfptr[78]))));basilys_putfield_object((/*_.INST__V79*/ curfptr[78]), (3), (/*_.CITSTBIND__V76*/ curfptr[75]), "NOCC_BIND"); ; /*_.CITSTOCC__V78*/ curfptr[77] = /*_.INST__V79*/ curfptr[78];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3253: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 5, "CITER_EXPBEFORE");/*_.CITEXPBEFORE__V80*/ curfptr[79] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3254: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 6, "CITER_EXPAFTER");/*_.CITEXPAFTER__V81*/ curfptr[80] = slot; }; ; /*_#I__L24*/ curfnum[19] = ((10) + (/*_#NBCITBFORM__L16*/ curfnum[13]));; /*_.CITLOCMAP__V82*/ curfptr[81] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[25])), (/*_#I__L24*/ curfnum[19])));; BASILYS_LOCATION("warmelt-normal.bysl:3257: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3257: @newclosure"); /*newclosure*/ /*_.LAMBDA___V84*/ curfptr[83] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_30*/ curfrout->tabval[30])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:3257: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V84*/ curfptr[83])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V84*/ curfptr[83]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V84*/ curfptr[83])->tabval[0] = (basilys_ptr_t)(/*_.CITLOCMAP__V82*/ curfptr[81]); ; /*_.CITEXPANDER__V83*/ curfptr[82] = /*_.LAMBDA___V84*/ curfptr[83];;} ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) (/*_.CITLOCMAP__V82*/ curfptr[81]), (basilysobject_ptr_t) (/*_.CITSTATE__V74*/ curfptr[73]), (basilys_ptr_t)(/*_.CITSTOCC__V78*/ curfptr[77])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3273: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3273: @block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3273: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3273: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration starformals again"; BASILYS_LOCATION("warmelt-normal.bysl:3273: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3273: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3273: @apply.arg"); argtab[3].bp_long = 3273; /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.STARFORMALS__V35*/ curfptr[34]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V85*/ curfptr[84] = /*_.DEBUG_MSG_FUN__V86*/ curfptr[85];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3273: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3273: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V86*/ curfptr[85] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3273: @cppif.else"); /*_.IFCPP___V85*/ curfptr[84] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3274: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3274: @block"); /*block*/{ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3274: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3274: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nsymocctup again"; BASILYS_LOCATION("warmelt-normal.bysl:3274: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3274: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3274: @apply.arg"); argtab[3].bp_long = 3274; /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NSYMOCCTUP__V52*/ curfptr[51]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V87*/ curfptr[85] = /*_.DEBUG_MSG_FUN__V88*/ curfptr[87];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3274: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3274: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V88*/ curfptr[87] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3274: @cppif.else"); /*_.IFCPP___V87*/ curfptr[85] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3277: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3277: @newclosure"); /*newclosure*/ /*_.LAMBDA___V90*/ curfptr[89] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_32*/ curfrout->tabval[32])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:3277: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V90*/ curfptr[89])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V90*/ curfptr[89]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V90*/ curfptr[89])->tabval[0] = (basilys_ptr_t)(/*_.CITLOCMAP__V82*/ curfptr[81]); ; /*_.LAMBDA___V89*/ curfptr[87] = /*_.LAMBDA___V90*/ curfptr[89];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3275: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3275: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NARGS__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:3275: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V89*/ curfptr[87]; /*_.MULTIPLE_EVERY_BOTH__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY_BOTH*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.STARFORMALS__V35*/ curfptr[34]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3282: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3282: @block"); /*block*/{ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3282: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3282: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration citlocmap middle"; BASILYS_LOCATION("warmelt-normal.bysl:3282: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L27*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3282: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3282: @apply.arg"); argtab[3].bp_long = 3282; /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CITLOCMAP__V82*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V92*/ curfptr[91] = /*_.DEBUG_MSG_FUN__V93*/ curfptr[92];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3282: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L27*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3282: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V93*/ curfptr[92] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3282: @cppif.else"); /*_.IFCPP___V92*/ curfptr[91] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3283: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3283: @block"); /*block*/{ /*_#THE_CALLCOUNT__L28*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3283: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3283: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration citbform again"; BASILYS_LOCATION("warmelt-normal.bysl:3283: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L28*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3283: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3283: @apply.arg"); argtab[3].bp_long = 3283; /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CITBFORM__V50*/ curfptr[49]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V94*/ curfptr[92] = /*_.DEBUG_MSG_FUN__V95*/ curfptr[94];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3283: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L28*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3283: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V95*/ curfptr[94] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3283: @cppif.else"); /*_.IFCPP___V94*/ curfptr[92] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3286: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3286: @newclosure"); /*newclosure*/ /*_.LAMBDA___V97*/ curfptr[96] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_35*/ curfrout->tabval[35])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:3286: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V97*/ curfptr[96])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V97*/ curfptr[96]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V97*/ curfptr[96])->tabval[0] = (basilys_ptr_t)(/*_.CITLOCMAP__V82*/ curfptr[81]); ; BASILYS_LOCATION("warmelt-normal.bysl:3286: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V97*/ curfptr[96])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V97*/ curfptr[96]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V97*/ curfptr[96])->tabval[1] = (basilys_ptr_t)(/*_.NSYMOCCTUP__V52*/ curfptr[51]); ; /*_.LAMBDA___V96*/ curfptr[94] = /*_.LAMBDA___V97*/ curfptr[96];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3284: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3284: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V96*/ curfptr[94]; /*_.MULTIPLE_EVERY__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[33])), (basilys_ptr_t)(/*_.CITBFORM__V50*/ curfptr[49]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3293: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3293: @block"); /*block*/{ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3293: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3293: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration citlocmap done"; BASILYS_LOCATION("warmelt-normal.bysl:3293: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L29*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3293: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3293: @apply.arg"); argtab[3].bp_long = 3293; /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CITLOCMAP__V82*/ curfptr[81]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V99*/ curfptr[98] = /*_.DEBUG_MSG_FUN__V100*/ curfptr[99];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3293: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L29*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3293: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V100*/ curfptr[99] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3293: @cppif.else"); /*_.IFCPP___V99*/ curfptr[98] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3294: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3294: @apply"); /*apply*/{ /*_.CHKBEFORE__V102*/ curfptr[101] = basilys_apply ((basilysclosure_ptr_t)(/*_.CITEXPANDER__V83*/ curfptr[82]), (basilys_ptr_t)(/*_.CITEXPBEFORE__V80*/ curfptr[79]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3295: @apply"); /*apply*/{ /*_.CHKAFTER__V103*/ curfptr[102] = basilys_apply ((basilysclosure_ptr_t)(/*_.CITEXPANDER__V83*/ curfptr[82]), (basilys_ptr_t)(/*_.CITEXPAFTER__V81*/ curfptr[80]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3297: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3297: @block"); /*block*/{ /*_#THE_CALLCOUNT__L30*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3297: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3297: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration chkbefore"; BASILYS_LOCATION("warmelt-normal.bysl:3297: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L30*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3297: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3297: @apply.arg"); argtab[3].bp_long = 3297; /*_.DEBUG_MSG_FUN__V105*/ curfptr[104] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CHKBEFORE__V102*/ curfptr[101]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V104*/ curfptr[103] = /*_.DEBUG_MSG_FUN__V105*/ curfptr[104];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3297: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L30*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3297: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V105*/ curfptr[104] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3297: @cppif.else"); /*_.IFCPP___V104*/ curfptr[103] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3298: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3298: @block"); /*block*/{ /*_#THE_CALLCOUNT__L31*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3298: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3298: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration chkafter"; BASILYS_LOCATION("warmelt-normal.bysl:3298: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L31*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3298: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3298: @apply.arg"); argtab[3].bp_long = 3298; /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CHKAFTER__V103*/ curfptr[102]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V106*/ curfptr[104] = /*_.DEBUG_MSG_FUN__V107*/ curfptr[106];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3298: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L31*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3298: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V107*/ curfptr[106] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3298: @cppif.else"); /*_.IFCPP___V106*/ curfptr[104] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3300: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3300: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_CITERATION*/ curfrout->tabval[36])), (8), "CLASS_NREP_CITERATION");/*_.INST__V110*/ curfptr[109] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (1), (/*_.SOPER__V16*/ curfptr[15]), "NCITER_CITERATOR"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (2), (/*_.NLOCBINDTUP__V51*/ curfptr[50]), "NCITER_LOCBINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (3), (/*_.CHKBEFORE__V102*/ curfptr[101]), "NCITER_CHUNKBEFORE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (4), (/*_.NBODY__V67*/ curfptr[66]), "NCITER_BODY"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (5), (/*_.CITSTOCC__V78*/ curfptr[77]), "NCITER_STATOCC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (6), (/*_.NBODBINDINGS__V68*/ curfptr[67]), "NCITER_BODBINDINGS"); ; BASILYS_LOCATION("warmelt-normal.bysl:3300: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V110*/ curfptr[109]))));basilys_putfield_object((/*_.INST__V110*/ curfptr[109]), (7), (/*_.CHKAFTER__V103*/ curfptr[102]), "NCITER_CHUNKAFTER"); ; /*_.NCITER__V109*/ curfptr[108] = /*_.INST__V110*/ curfptr[109];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3310: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SOPER__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V111*/ curfptr[110] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3310: @apply"); /*apply*/{ /*_.CSYM__V112*/ curfptr[111] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.NAMED_NAME__V111*/ curfptr[110]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3311: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3311: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[22])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V114*/ curfptr[113] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3311: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113]))));basilys_putfield_object((/*_.INST__V114*/ curfptr[113]), (3), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3311: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113]))));basilys_putfield_object((/*_.INST__V114*/ curfptr[113]), (0), (/*_.CSYM__V112*/ curfptr[111]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3311: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113]))));basilys_putfield_object((/*_.INST__V114*/ curfptr[113]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3311: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V114*/ curfptr[113]))));basilys_putfield_object((/*_.INST__V114*/ curfptr[113]), (2), (/*_.NCITER__V109*/ curfptr[108]), "LETBIND_EXPR"); ; /*_.CBIND__V113*/ curfptr[112] = /*_.INST__V114*/ curfptr[113];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3316: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3316: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[24])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V116*/ curfptr[115] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115]))));basilys_putfield_object((/*_.INST__V116*/ curfptr[115]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115]))));basilys_putfield_object((/*_.INST__V116*/ curfptr[115]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[23])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115]))));basilys_putfield_object((/*_.INST__V116*/ curfptr[115]), (1), (/*_.CSYM__V112*/ curfptr[111]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V116*/ curfptr[115]))));basilys_putfield_object((/*_.INST__V116*/ curfptr[115]), (3), (/*_.CBIND__V113*/ curfptr[112]), "NOCC_BIND"); ; /*_.CLOCC__V115*/ curfptr[114] = /*_.INST__V116*/ curfptr[115];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDINGS__V26*/ curfptr[25]), (basilys_ptr_t)(/*_.CBIND__V113*/ curfptr[112])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3323: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3323: @block"); /*block*/{ /*_#THE_CALLCOUNT__L32*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3323: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3323: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nciter"; BASILYS_LOCATION("warmelt-normal.bysl:3323: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L32*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3323: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3323: @apply.arg"); argtab[3].bp_long = 3323; /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCITER__V109*/ curfptr[108]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V117*/ curfptr[116] = /*_.DEBUG_MSG_FUN__V118*/ curfptr[117];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3323: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L32*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3323: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V118*/ curfptr[117] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3323: @cppif.else"); /*_.IFCPP___V117*/ curfptr[116] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3324: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3324: @block"); /*block*/{ /*_#THE_CALLCOUNT__L33*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3324: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3324: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:3324: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L33*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3324: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3324: @apply.arg"); argtab[3].bp_long = 3324; /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CLOCC__V115*/ curfptr[114]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V119*/ curfptr[117] = /*_.DEBUG_MSG_FUN__V120*/ curfptr[119];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3324: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L33*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3324: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V120*/ curfptr[119] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3324: @cppif.else"); /*_.IFCPP___V119*/ curfptr[117] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3325: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3325: @block"); /*block*/{ /*_#THE_CALLCOUNT__L34*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3325: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3325: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration result nbindings"; BASILYS_LOCATION("warmelt-normal.bysl:3325: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L34*/ curfnum[24]; BASILYS_LOCATION("warmelt-normal.bysl:3325: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3325: @apply.arg"); argtab[3].bp_long = 3325; /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBINDINGS__V26*/ curfptr[25]), (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-normal.bysl:3325: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L34*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3325: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V122*/ curfptr[121] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3325: @cppif.else"); /*_.IFCPP___V121*/ curfptr[119] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3326: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V115*/ curfptr[114];; BASILYS_LOCATION("warmelt-normal.bysl:3326: @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) (/*_.NBINDINGS__V26*/ curfptr[25]); ; BASILYS_LOCATION("warmelt-normal.bysl:3326: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V108*/ curfptr[106] = /*_.RETURN___V123*/ curfptr[121];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.NCITER__V109*/ curfptr[108] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.NAMED_NAME__V111*/ curfptr[110] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.CSYM__V112*/ curfptr[111] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.CBIND__V113*/ curfptr[112] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.CLOCC__V115*/ curfptr[114] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.IFCPP___V117*/ curfptr[116] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.IFCPP___V119*/ curfptr[117] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.IFCPP___V121*/ curfptr[119] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3299: @clear"); /*clear*/ /*_.RETURN___V123*/ curfptr[121] = 0 ;} ; /*_.LET___V101*/ curfptr[99] = /*_.LET___V108*/ curfptr[106];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3294: @clear"); /*clear*/ /*_.CHKBEFORE__V102*/ curfptr[101] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3294: @clear"); /*clear*/ /*_.CHKAFTER__V103*/ curfptr[102] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3294: @clear"); /*clear*/ /*_.IFCPP___V104*/ curfptr[103] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3294: @clear"); /*clear*/ /*_.IFCPP___V106*/ curfptr[104] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3294: @clear"); /*clear*/ /*_.LET___V108*/ curfptr[106] = 0 ;} ; /*_.LET___V73*/ curfptr[71] = /*_.LET___V101*/ curfptr[99];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITSTATE__V74*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITSTSYM__V75*/ curfptr[74] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITSTBIND__V76*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITSTOCC__V78*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITEXPBEFORE__V80*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITEXPAFTER__V81*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_#I__L24*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITLOCMAP__V82*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.CITEXPANDER__V83*/ curfptr[82] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.IFCPP___V85*/ curfptr[84] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.IFCPP___V87*/ curfptr[85] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.LAMBDA___V89*/ curfptr[87] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V91*/ curfptr[90] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.IFCPP___V92*/ curfptr[91] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.IFCPP___V94*/ curfptr[92] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.LAMBDA___V96*/ curfptr[94] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V98*/ curfptr[97] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.IFCPP___V99*/ curfptr[98] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3241: @clear"); /*clear*/ /*_.LET___V101*/ curfptr[99] = 0 ;} ; /*_.MULTI___V66*/ curfptr[64] = /*_.LET___V73*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3236: @clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[68] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3236: @clear"); /*clear*/ /*_.IFCPP___V71*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3236: @clear"); /*clear*/ /*_.LET___V73*/ curfptr[71] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3236: @clear"); /*clear*/ /*_.NBODBINDINGS__V68*/ curfptr[67] = 0 ;} ; /*_.LET___V49*/ curfptr[47] = /*_.MULTI___V66*/ curfptr[64];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.CITBFORM__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_#NBCITBFORM__L16*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.NLOCBINDTUP__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.NSYMOCCTUP__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.IFCPP___V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_#__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.IF___V55*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.LAMBDA___V59*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V61*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.IFCPP___V62*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.IFCPP___V64*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3187: @clear"); /*clear*/ /*_.MULTI___V66*/ curfptr[64] = 0 ;} ; /*_.LET___V34*/ curfptr[32] = /*_.LET___V49*/ curfptr[47];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.STARFORMALS__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.IFCPP___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_#__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.IF___V38*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.LAMBDA___V42*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.MULTIPLE_EVERY_BOTH__V44*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.IFCPP___V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3154: @clear"); /*clear*/ /*_.LET___V49*/ curfptr[47] = 0 ;} ; /*_.MULTI___V24*/ curfptr[22] = /*_.LET___V34*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_#NULL__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_.IF___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_.LET___V34*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3148: @clear"); /*clear*/ /*_.NBINDINGS__V26*/ curfptr[25] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V24*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.SOPER__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.SARGS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.SVBIND__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.SBODY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.NBNDTUP__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.BODYENV__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3139: @clear"); /*clear*/ /*_.MULTI___V24*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3134: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3134: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3134: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3134: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3134: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3134: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3134: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_99_NORMEXP_CITERATION*/ 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 16 void* varptr[16]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3162: @getarg"); /*_.CURNARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3162: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CURFORB__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CURFORB__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3162: @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-normal.bysl:3162: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3163: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3163: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3163: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3163: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curnarg"; BASILYS_LOCATION("warmelt-normal.bysl:3163: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3163: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3163: @apply.arg"); argtab[3].bp_long = 3163; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURNARG__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-normal.bysl:3163: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3163: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3163: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3164: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3164: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3164: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3164: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curforb"; BASILYS_LOCATION("warmelt-normal.bysl:3164: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3164: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3164: @apply.arg"); argtab[3].bp_long = 3164; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURFORB__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-normal.bysl:3164: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3164: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3164: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3165: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3165: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3165: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3165: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3165: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3165: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curforb"),( "warmelt-normal.bysl"),(3165), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3165: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3165: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3165: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3166: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3166: @msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3166: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); /*_.CURCTYP__V10*/ curfptr[8] = basilysgc_send((basilys_ptr_t)(/*_.CURNARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3167: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FORMCTYP__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3168: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFORB__V3*/ curfptr[2]), 0, "BINDER");/*_.FORMARG__V12*/ curfptr[11] = slot; }; ; /*_#__L5*/ curfnum[1] = ((/*_.CURCTYP__V10*/ curfptr[8]) == (/*_.FORMCTYP__V11*/ curfptr[10]));; BASILYS_LOCATION("warmelt-normal.bysl:3170: @cond"); /*cond*/ if (/*_#__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3170: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3170: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3171: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3171: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3171: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[3])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V14*/ curfptr[13] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3171: @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), ((/*~SLOC*/ curfclos->tabval[1])), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3171: @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), (/*_.FORMARG__V12*/ curfptr[11]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3171: @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), (/*_.CURCTYP__V10*/ curfptr[8]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3171: @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), (/*_.CURNARG__V2*/ curfptr[1]), "LETBIND_EXPR"); ; /*_.NLBIND__V13*/ curfptr[12] = /*_.INST__V14*/ curfptr[13];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NBNDTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.NLBIND__V13*/ curfptr[12])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3171: @clear"); /*clear*/ /*_.NLBIND__V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3170: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3170: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3180: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~SOPER*/ curfclos->tabval[3])), 1, "NAMED_NAME");/*_.NAMED_NAME__V15*/ curfptr[12] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "start formal and actual type mismatch in citerator"), (basilys_ptr_t)(/*_.NAMED_NAME__V15*/ curfptr[12])); BASILYS_LOCATION("warmelt-normal.bysl:3181: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FORMARG__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V16*/ curfptr[15] = slot; }; ; basilys_inform_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[1])), ( "mismatched citerator start formal argument"), (basilys_ptr_t)(/*_.NAMED_NAME__V16*/ curfptr[15])); BASILYS_LOCATION("warmelt-normal.bysl:3179: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3170: @clear"); /*clear*/ /*_.NAMED_NAME__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3170: @clear"); /*clear*/ /*_.NAMED_NAME__V16*/ curfptr[15] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3166: @clear"); /*clear*/ /*_.CURCTYP__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3166: @clear"); /*clear*/ /*_.FORMCTYP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3166: @clear"); /*clear*/ /*_.FORMARG__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3166: @clear"); /*clear*/ /*_#__L5*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3162: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3162: @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_100_LAMBDA_*/ static basilys_ptr_t rout_101_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_101_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 7 long varnum[7]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3199: @getarg"); /*_.CURVBIND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3199: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CURBFORM__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3199: @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-normal.bysl:3199: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3200: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3200: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3200: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3200: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curvbind"; BASILYS_LOCATION("warmelt-normal.bysl:3200: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3200: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3200: @apply.arg"); argtab[3].bp_long = 3200; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURVBIND__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-normal.bysl:3200: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3200: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3200: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3201: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3201: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3201: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3201: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curbform"; BASILYS_LOCATION("warmelt-normal.bysl:3201: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3201: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3201: @apply.arg"); argtab[3].bp_long = 3201; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURBFORM__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-normal.bysl:3201: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3201: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3201: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3202: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3202: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3202: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3202: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3202: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3202: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curvbind"),( "warmelt-normal.bysl"),(3202), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3202: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3202: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3202: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3203: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3203: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3203: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3203: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3203: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3203: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curbform"),( "warmelt-normal.bysl"),(3203), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3203: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3203: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3203: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3204: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.CURVSYM__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3205: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 1, "FBIND_TYPE");/*_.CURCTYP__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3206: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 0, "BINDER");/*_.CURVFOR__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3208: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURBFORM__V3*/ curfptr[2]), 1, "FBIND_TYPE");/*_.FBIND_TYPE__V16*/ curfptr[15] = slot; }; ; /*_#__L6*/ curfnum[1] = ((/*_.CURCTYP__V14*/ curfptr[13]) == (/*_.FBIND_TYPE__V16*/ curfptr[15]));; BASILYS_LOCATION("warmelt-normal.bysl:3208: @cond"); /*cond*/ if (/*_#__L6*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3208: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3208: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3209: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3209: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3209: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[2])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V20*/ curfptr[19] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (3), ((/*~SLOC*/ curfclos->tabval[0])), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.CURVSYM__V13*/ curfptr[12]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (1), (/*_.CURCTYP__V14*/ curfptr[13]), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (2), ((/*nil*/NULL)), "LETBIND_EXPR"); ; /*_.NLVBIND__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3215: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3215: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[3])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V22*/ curfptr[21] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3215: @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), ((/*~SLOC*/ curfclos->tabval[0])), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3215: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V22*/ curfptr[21]))));basilys_putfield_object((/*_.INST__V22*/ curfptr[21]), (2), (/*_.CURCTYP__V14*/ curfptr[13]), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3215: @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), (/*_.CURVSYM__V13*/ curfptr[12]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3215: @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), (/*_.NLVBIND__V19*/ curfptr[18]), "NOCC_BIND"); ; /*_.CLOCC__V21*/ curfptr[20] = /*_.INST__V22*/ curfptr[21];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NLOCBINDTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.NLVBIND__V19*/ curfptr[18])); basilysgc_multiple_put_nth((basilys_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[2])), (/*_#IX__L1*/ curfnum[0]), (basilys_ptr_t)(/*_.CLOCC__V21*/ curfptr[20])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3223: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3223: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3223: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3223: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration nlvbind"; BASILYS_LOCATION("warmelt-normal.bysl:3223: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:3223: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3223: @apply.arg"); argtab[3].bp_long = 3223; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NLVBIND__V19*/ curfptr[18]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3223: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3223: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3223: @cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3224: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3224: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NLVBIND__V19*/ curfptr[18]; /*_.PUT_ENV__V25*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[4])), (basilys_ptr_t)((/*~BODYENV*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V18*/ curfptr[17] = /*_.PUT_ENV__V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3209: @clear"); /*clear*/ /*_.NLVBIND__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @clear"); /*clear*/ /*_.CLOCC__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3209: @clear"); /*clear*/ /*_.PUT_ENV__V25*/ curfptr[23] = 0 ;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.LET___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3208: @clear"); /*clear*/ /*_.LET___V18*/ curfptr[17] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3208: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3208: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3227: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~SOPER*/ curfclos->tabval[4])), 1, "NAMED_NAME");/*_.NAMED_NAME__V26*/ curfptr[18] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "local formal and actual type mismatch in citerator"), (basilys_ptr_t)(/*_.NAMED_NAME__V26*/ curfptr[18])); BASILYS_LOCATION("warmelt-normal.bysl:3229: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVBIND__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V27*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3229: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BINDER__V27*/ curfptr[20]), 1, "NAMED_NAME");/*_.NAMED_NAME__V28*/ curfptr[22] = slot; }; ; basilys_inform_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[0])), ( "mismatched citerator local variable"), (basilys_ptr_t)(/*_.NAMED_NAME__V28*/ curfptr[22])); BASILYS_LOCATION("warmelt-normal.bysl:3226: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3208: @clear"); /*clear*/ /*_.NAMED_NAME__V26*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3208: @clear"); /*clear*/ /*_.BINDER__V27*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3208: @clear"); /*clear*/ /*_.NAMED_NAME__V28*/ curfptr[22] = 0 ;} ; } ; /*_.LET___V12*/ curfptr[10] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_.CURVSYM__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_.CURCTYP__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_.CURVFOR__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_.FBIND_TYPE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_#__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3204: @clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:3199: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3199: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3199: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 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_101_LAMBDA_*/ static basilys_ptr_t rout_102_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_102_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 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3257: @getarg"); /*_.XTUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3257: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3258: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3258: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3258: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3258: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration exanding xtup"; BASILYS_LOCATION("warmelt-normal.bysl:3258: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3258: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3258: @apply.arg"); argtab[3].bp_long = 3258; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.XTUP__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-normal.bysl:3258: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3258: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3258: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3261: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3261: @newclosure"); /*newclosure*/ /*_.LAMBDA___V6*/ curfptr[5] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-normal.bysl:3261: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V6*/ curfptr[5])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V6*/ curfptr[5]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V6*/ curfptr[5])->tabval[0] = (basilys_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])); ; /*_.LAMBDA___V5*/ curfptr[3] = /*_.LAMBDA___V6*/ curfptr[5];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3259: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3259: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V5*/ curfptr[3]; /*_.MULTIPLE_MAP__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_MAP*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.XTUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3257: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTIPLE_MAP__V7*/ curfptr[6];; BASILYS_LOCATION("warmelt-normal.bysl:3257: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3257: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3257: @clear"); /*clear*/ /*_.LAMBDA___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3257: @clear"); /*clear*/ /*_.MULTIPLE_MAP__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)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_102_LAMBDA_*/ static basilys_ptr_t rout_103_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_103_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 4 long varnum[4]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3261: @getarg"); /*_.CURELEM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3261: @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-normal.bysl:3261: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3262: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3262: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3262: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3263: @block"); /*block*/{ /*_.EXELEM__V5*/ curfptr[4] = (basilys_get_mapobjects((basilysmapobjects_ptr_t)((/*~CITLOCMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t)(/*_.CURELEM__V2*/ curfptr[1])));; /*_#NULL__L3*/ curfnum[2] = ((/*_.EXELEM__V5*/ curfptr[4]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3264: @cond"); /*cond*/ if (/*_#NULL__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3264: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3264: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3265: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3265: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3265: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3265: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration bad curelem"; BASILYS_LOCATION("warmelt-normal.bysl:3265: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:3265: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3265: @apply.arg"); argtab[3].bp_long = 3265; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURELEM__V2*/ curfptr[1]), (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-normal.bysl:3265: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3265: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3265: @cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.IF___V6*/ curfptr[5] = /*_.IFCPP___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3264: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3264: @cond.else"); /*_.IF___V6*/ curfptr[5] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3266: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3266: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3266: @cond"); /*cond*/ if (/*_.EXELEM__V5*/ curfptr[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3266: @cond.then"); /*_.IFELSE___V10*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3266: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3266: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check exelem in citeration"),( "warmelt-normal.bysl"),(3266), __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3266: @clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3266: @cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V4*/ curfptr[3] = /*_.EXELEM__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3263: @clear"); /*clear*/ /*_.EXELEM__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3263: @clear"); /*clear*/ /*_#NULL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3263: @clear"); /*clear*/ /*_.IF___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3263: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} ; /*_.IFELSE___V3*/ curfptr[2] = /*_.LET___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3262: @clear"); /*clear*/ /*_.LET___V4*/ curfptr[3] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3262: @cond.else"); /*_.IFELSE___V3*/ curfptr[2] = /*_.CURELEM__V2*/ curfptr[1];; } ; BASILYS_LOCATION("warmelt-normal.bysl:3261: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-normal.bysl:3261: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3261: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3261: @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_103_LAMBDA_*/ 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 8 void* varptr[8]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3277: @getarg"); /*_.CURVLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3277: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CURNARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CURNARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3277: @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-normal.bysl:3277: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3278: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3278: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3278: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3278: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curvloc"; BASILYS_LOCATION("warmelt-normal.bysl:3278: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3278: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3278: @apply.arg"); argtab[3].bp_long = 3278; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURVLOC__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-normal.bysl:3278: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3278: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3278: @cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3279: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3279: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3279: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3279: @apply.arg"); argtab[0].bp_cstring = "normexp_citeration curnarg"; BASILYS_LOCATION("warmelt-normal.bysl:3279: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3279: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3279: @apply.arg"); argtab[3].bp_long = 3279; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURNARG__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-normal.bysl:3279: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3279: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3279: @cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3280: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURVLOC__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V8*/ curfptr[6] = slot; }; ; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t) (/*_.BINDER__V8*/ curfptr[6]), (basilys_ptr_t)(/*_.CURNARG__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3277: @clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3277: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3277: @clear"); /*clear*/ /*_.BINDER__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_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 6 void* varptr[6]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:3286: @getarg"); /*_.CURFORMB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3286: @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-normal.bysl:3286: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3287: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3287: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3287: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3287: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3287: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3287: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curform"),( "warmelt-normal.bysl"),(3287), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3287: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3287: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3287: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3289: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFORMB__V2*/ curfptr[1]), 0, "BINDER");/*_.BINDER__V5*/ curfptr[3] = slot; }; ; /*_.MULTIPLE_NTH__V6*/ curfptr[5] = (basilys_multiple_nth((basilys_ptr_t)((/*~NSYMOCCTUP*/ curfclos->tabval[1])), (/*_#IX__L1*/ curfnum[0])));; basilysgc_put_mapobjects( (basilysmapobjects_ptr_t) ((/*~CITLOCMAP*/ curfclos->tabval[0])), (basilysobject_ptr_t) (/*_.BINDER__V5*/ curfptr[3]), (basilys_ptr_t)(/*_.MULTIPLE_NTH__V6*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3286: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3286: @clear"); /*clear*/ /*_.BINDER__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3286: @clear"); /*clear*/ /*_.MULTIPLE_NTH__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)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_105_LAMBDA_*/ static basilys_ptr_t rout_106_NORMEXP_DEFCLASS(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_NORMEXP_DEFCLASS_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 98 void* varptr[98]; #define CURFRAM_NBVARNUM 35 long varnum[35]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 98; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFCLASS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3340: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3340: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFCLASS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3340: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3340: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3340: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3340: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check defclass recv"),( "warmelt-normal.bysl"),(3340), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3340: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3340: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3340: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3341: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3341: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3341: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3341: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3341: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3341: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3341), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3341: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3341: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3341: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3342: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3342: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3342: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3342: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3342: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3342: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3342), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3342: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3342: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3342: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3343: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3344: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAME__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3345: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SOBJ_PREDEF");/*_.SPREDEF__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3346: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SCLASS_CLABIND");/*_.SCLABIND__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3347: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SCLASS_SUPERBIND");/*_.SUPERBIND__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3348: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SCLASS_FLDBINDS");/*_.SFLDBINDS__V18*/ curfptr[17] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3350: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3350: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3350: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3350: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3350: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3350: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sclabind"),( "warmelt-normal.bysl"),(3350), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[18] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3350: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3350: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3350: @cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3351: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), 2, "CBIND_CLASS");/*_.CLAOBJ__V22*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3352: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3352: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3352: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.NAMSYMDATA__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3355: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3355: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3355: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3355: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3356: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V14*/ curfptr[13]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3354: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3354: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V27*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3354: @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), (/*_.NORMAL_PREDEF__V24*/ curfptr[23]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3354: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V27*/ curfptr[26]))));basilys_putfield_object((/*_.INST__V27*/ curfptr[26]), (5), (/*_.NAMED_NAME__V25*/ curfptr[24]), "NSTR_STRING"); ; /*_.NAMSTRDATA__V26*/ curfptr[25] = /*_.INST__V27*/ curfptr[26];;} ; /*_#OBJ_LEN__L5*/ curfnum[0] = (basilys_obj_len((basilys_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));; /*_.CLASLOTS__V28*/ curfptr[27] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L5*/ curfnum[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3363: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3363: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3363: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3363: @apply.arg"); argtab[2].bp_cstring = "class_class"; /*_.NORMAL_PREDEF__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#OBJ_HASH__L6*/ curfnum[5] = (basilys_obj_hash((basilys_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21])));; /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L6*/ curfnum[5])));; BASILYS_LOCATION("warmelt-normal.bysl:3360: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3360: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), (/*_.NORMAL_PREDEF__V29*/ curfptr[28]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V32*/ curfptr[31]))));basilys_putfield_object((/*_.INST__V32*/ curfptr[31]), (7), (/*_.MAKE_INTEGERBOX__V30*/ curfptr[29]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), (/*_.SPREDEF__V15*/ curfptr[14]), "NINST_PREDEF"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), (/*_.CLASLOTS__V28*/ curfptr[27]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:3360: @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), ((/*!konst_12_OBMAG_OBJECT*/ curfrout->tabval[12])), "NINST_OBJNUM"); ; /*_.CLADATA__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3369: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 5, "CLASS_ANCESTORS");/*_.ANCSEQ__V33*/ curfptr[32] = slot; }; ; /*_#NBANC__L7*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.ANCSEQ__V33*/ curfptr[32])));; /*_.ANCTUP__V34*/ curfptr[33] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBANC__L7*/ curfnum[6])));; BASILYS_LOCATION("warmelt-normal.bysl:3376: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3376: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3376: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3376: @apply.arg"); argtab[2].bp_cstring = "discr_seqclass"; /*_.NORMAL_PREDEF__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!DISCR_SEQCLASS*/ curfrout->tabval[14])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3372: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3372: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V37*/ curfptr[36] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3372: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3372: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3372: @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), (/*_.NORMAL_PREDEF__V35*/ curfptr[34]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3372: @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), (/*_.ANCTUP__V34*/ curfptr[33]), "NTUP_COMP"); ; /*_.ANCDATA__V36*/ curfptr[35] = /*_.INST__V37*/ curfptr[36];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3379: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), 6, "CLASS_FIELDS");/*_.FLDSEQ__V38*/ curfptr[37] = slot; }; ; /*_#NBFLD__L8*/ curfnum[7] = (basilys_multiple_length((basilys_ptr_t)(/*_.FLDSEQ__V38*/ curfptr[37])));; /*_#NBOWNFLD__L9*/ curfnum[8] = (basilys_multiple_length((basilys_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17])));; /*_#NBSUPFLD__L10*/ curfnum[9] = ((/*_#NBFLD__L8*/ curfnum[7]) - (/*_#NBOWNFLD__L9*/ curfnum[8]));; /*_#IX__L11*/ curfnum[10] = 0;; /*_.FLDTUP__V39*/ curfptr[38] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#NBFLD__L8*/ curfnum[7])));; BASILYS_LOCATION("warmelt-normal.bysl:3389: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3389: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3389: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3389: @apply.arg"); argtab[2].bp_cstring = "discr_seqfield"; /*_.NORMAL_PREDEF__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!DISCR_SEQFIELD*/ curfrout->tabval[15])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3385: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3385: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATATUPLE*/ curfrout->tabval[13])), (6), "CLASS_NREP_DATATUPLE");/*_.INST__V42*/ curfptr[41] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3385: @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), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3385: @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), (/*_.SNAME__V14*/ curfptr[13]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3385: @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), (/*_.NORMAL_PREDEF__V40*/ curfptr[39]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3385: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V42*/ curfptr[41]))));basilys_putfield_object((/*_.INST__V42*/ curfptr[41]), (5), (/*_.FLDTUP__V39*/ curfptr[38]), "NTUP_COMP"); ; /*_.FLDDATA__V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} ; /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[16])));; BASILYS_LOCATION("warmelt-normal.bysl:3393: @cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3393: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3393: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3394: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SUPERBIND__V17*/ curfptr[16]), 0, "BINDER");/*_.BINDER__V44*/ curfptr[43] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3394: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3394: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3394: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3394: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.NORMAL_EXP__V45*/ curfptr[44] = basilysgc_send((basilys_ptr_t)(/*_.BINDER__V44*/ curfptr[43]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.SUPERDATA__V43*/ curfptr[42] = /*_.NORMAL_EXP__V45*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3393: @clear"); /*clear*/ /*_.BINDER__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3393: @clear"); /*clear*/ /*_.NORMAL_EXP__V45*/ curfptr[44] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3393: @cond.else"); /*_.SUPERDATA__V43*/ curfptr[42] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3396: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3396: @block"); /*block*/{ /*_#IS_A__L13*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLAOBJ__V22*/ curfptr[21]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[10])));; BASILYS_LOCATION("warmelt-normal.bysl:3396: @cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3396: @cond.then"); /*_.IFELSE___V47*/ curfptr[44] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3396: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3396: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check claobj"),( "warmelt-normal.bysl"),(3396), __FUNCTION__); /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V46*/ curfptr[43] = /*_.IFELSE___V47*/ curfptr[44];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3396: @clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3396: @clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3396: @cppif.else"); /*_.IFCPP___V46*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3397: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3397: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30]; /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3398: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3398: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25]; /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3399: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3399: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35]; /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3400: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3400: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40]; /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3401: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3401: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]); BASILYS_LOCATION("warmelt-normal.bysl:3401: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NAMSTRDATA__V26*/ curfptr[25]; /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3402: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3402: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!CLASS_ANCESTORS*/ curfrout->tabval[21]); BASILYS_LOCATION("warmelt-normal.bysl:3402: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.ANCDATA__V36*/ curfptr[35]; /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3403: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3403: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!CLASS_FIELDS*/ curfrout->tabval[22]); BASILYS_LOCATION("warmelt-normal.bysl:3403: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.FLDDATA__V41*/ curfptr[40]; /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3404: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3404: @block"); /*block*/{ /*_#IS_A__L14*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3404: @cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3404: @cond.then"); /*_.IFELSE___V56*/ curfptr[55] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3404: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3404: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sclabind"),( "warmelt-normal.bysl"),(3404), __FUNCTION__); /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V55*/ curfptr[54] = /*_.IFELSE___V56*/ curfptr[55];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3404: @clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3404: @clear"); /*clear*/ /*_.IFELSE___V56*/ curfptr[55] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3404: @cppif.else"); /*_.IFCPP___V55*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3405: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.SCLABIND__V16*/ curfptr[15]))));basilys_putfield_object((/*_.SCLABIND__V16*/ curfptr[15]), (3), (/*_.CLADATA__V31*/ curfptr[30]), "CBIND_CLADATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:3405: @touch"); basilysgc_touch(/*_.SCLABIND__V16*/ curfptr[15]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:3407: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L15*/ curfnum[12] = 0;; BASILYS_LOCATION("warmelt-normal.bysl:3408: @loop"); /*loop*/{ labloop_LOOPSUPERFIELD_1:; BASILYS_LOCATION("warmelt-normal.bysl:3408: @loopbody"); BASILYS_LOCATION("warmelt-normal.bysl:3408: @block"); /*block*/{ /*_#I__L16*/ curfnum[15] = ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBSUPFLD__L10*/ curfnum[9]));; BASILYS_LOCATION("warmelt-normal.bysl:3409: @cond"); /*cond*/ if (/*_#I__L16*/ curfnum[15]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3409: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3409: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3409: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3409: @compute"); /*_.LOOPSUPERFIELD__V58*/ curfptr[57] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3409: @exit"); /*exit*/{ goto labexit_LOOPSUPERFIELD_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3410: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3414: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3414: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V60*/ curfptr[59] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:3414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V60*/ curfptr[59]))));basilys_putfield_object((/*_.INST__V60*/ curfptr[59]), (2), ((/*!CLASS_FIELDS*/ curfrout->tabval[22])), "NACCF_FLD"); ; /*_.INST___V59*/ curfptr[58] = /*_.INST__V60*/ curfptr[59];;} ; /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));; BASILYS_LOCATION("warmelt-normal.bysl:3411: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3411: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V63*/ curfptr[62] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3411: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3411: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (1), (/*_.INST___V59*/ curfptr[58]), "NACCM_MUL"); ; BASILYS_LOCATION("warmelt-normal.bysl:3411: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V63*/ curfptr[62]))));basilys_putfield_object((/*_.INST__V63*/ curfptr[62]), (2), (/*_.MAKE_INTEGERBOX__V61*/ curfptr[60]), "NACCM_IX"); ; /*_.SUPFLDATA__V62*/ curfptr[61] = /*_.INST__V63*/ curfptr[62];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#IX__L11*/ curfnum[10]), (basilys_ptr_t)(/*_.SUPFLDATA__V62*/ curfptr[61])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3410: @clear"); /*clear*/ /*_.INST___V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3410: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3410: @clear"); /*clear*/ /*_.SUPFLDATA__V62*/ curfptr[61] = 0 ;} ; /*_#I__L17*/ curfnum[16] = ((/*_#IX__L11*/ curfnum[10]) + (1));; BASILYS_LOCATION("warmelt-normal.bysl:3424: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L18*/ curfnum[17] = /*_#I__L17*/ curfnum[16];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3408: @clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3408: @clear"); /*clear*/ /*_#I__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3408: @clear"); /*clear*/ /*_#SETQ___L18*/ curfnum[17] = 0 ;} ; ; goto labloop_LOOPSUPERFIELD_1; labexit_LOOPSUPERFIELD_1:; BASILYS_LOCATION("warmelt-normal.bysl:3408: @loopepilog"); /*loopepilog*/ /*_.FOREVER___V57*/ curfptr[55] = /*_.LOOPSUPERFIELD__V58*/ curfptr[57];; } ; BASILYS_LOCATION("warmelt-normal.bysl:3426: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L19*/ curfnum[15] = 0;; BASILYS_LOCATION("warmelt-normal.bysl:3428: @loop"); /*loop*/{ labloop_LOOPOWNFIELD_1:; BASILYS_LOCATION("warmelt-normal.bysl:3428: @loopbody"); BASILYS_LOCATION("warmelt-normal.bysl:3428: @block"); /*block*/{ /*_#I__L20*/ curfnum[16] = ((/*_#IX__L11*/ curfnum[10]) >= (/*_#NBOWNFLD__L9*/ curfnum[8]));; BASILYS_LOCATION("warmelt-normal.bysl:3429: @cond"); /*cond*/ if (/*_#I__L20*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3429: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3429: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3429: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3429: @compute"); /*_.LOOPOWNFIELD__V65*/ curfptr[60] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3429: @exit"); /*exit*/{ goto labexit_LOOPOWNFIELD_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3430: @block"); /*block*/{ /*_.OWNFLDBIND__V66*/ curfptr[61] = (basilys_multiple_nth((basilys_ptr_t)(/*_.SFLDBINDS__V18*/ curfptr[17]), (/*_#IX__L11*/ curfnum[10])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3431: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3431: @block"); /*block*/{ /*_#IS_A__L21*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), (basilys_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[25])));; BASILYS_LOCATION("warmelt-normal.bysl:3431: @cond"); /*cond*/ if (/*_#IS_A__L21*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3431: @cond.then"); /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3431: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3431: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ownfldbind"),( "warmelt-normal.bysl"),(3431), __FUNCTION__); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3431: @clear"); /*clear*/ /*_#IS_A__L21*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3431: @clear"); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3431: @cppif.else"); /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3432: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3432: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 0, "BINDER");/*_.OWNFLDSYM__V69*/ curfptr[67] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3433: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]), 2, "FLBIND_FIELD");/*_.OWNFLD__V70*/ curfptr[69] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3435: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3435: @block"); /*block*/{ /*_#IS_A__L22*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[26])));; BASILYS_LOCATION("warmelt-normal.bysl:3435: @cond"); /*cond*/ if (/*_#IS_A__L22*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3435: @cond.then"); /*_.IFELSE___V72*/ curfptr[71] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3435: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3435: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ownfldsym"),( "warmelt-normal.bysl"),(3435), __FUNCTION__); /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V71*/ curfptr[70] = /*_.IFELSE___V72*/ curfptr[71];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3435: @clear"); /*clear*/ /*_#IS_A__L22*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3435: @clear"); /*clear*/ /*_.IFELSE___V72*/ curfptr[71] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3435: @cppif.else"); /*_.IFCPP___V71*/ curfptr[70] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3436: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3436: @block"); /*block*/{ /*_#IS_A__L23*/ curfnum[17] = basilys_is_instance_of((basilys_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])));; BASILYS_LOCATION("warmelt-normal.bysl:3436: @cond"); /*cond*/ if (/*_#IS_A__L23*/ curfnum[17]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3436: @cond.then"); /*_.IFELSE___V74*/ curfptr[73] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3436: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3436: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ownfld"),( "warmelt-normal.bysl"),(3436), __FUNCTION__); /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V73*/ curfptr[71] = /*_.IFELSE___V74*/ curfptr[73];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3436: @clear"); /*clear*/ /*_#IS_A__L23*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3436: @clear"); /*clear*/ /*_.IFELSE___V74*/ curfptr[73] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3436: @cppif.else"); /*_.IFCPP___V73*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3437: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3437: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3437: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OWNFLDSYM__V69*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#OBJ_LEN__L24*/ curfnum[17] = (basilys_obj_len((basilys_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; /*_.OWNFLDSLOTS__V76*/ curfptr[75] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[8])), (/*_#OBJ_LEN__L24*/ curfnum[17])));; BASILYS_LOCATION("warmelt-normal.bysl:3441: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3441: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3441: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3441: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3442: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69]), 1, "NAMED_NAME");/*_.NAMED_NAME__V78*/ curfptr[77] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3440: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3440: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[5])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V80*/ curfptr[79] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3440: @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), (/*_.NORMAL_PREDEF__V77*/ curfptr[76]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3440: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V80*/ curfptr[79]))));basilys_putfield_object((/*_.INST__V80*/ curfptr[79]), (5), (/*_.NAMED_NAME__V78*/ curfptr[77]), "NSTR_STRING"); ; /*_.OWNFLSTRDATA__V79*/ curfptr[78] = /*_.INST__V80*/ curfptr[79];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3447: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3447: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3447: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3447: @apply.arg"); argtab[2].bp_cstring = "class_field"; /*_.NORMAL_PREDEF__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[27])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#OBJ_HASH__L25*/ curfnum[24] = (basilys_obj_hash((basilys_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_HASH__L25*/ curfnum[24])));; /*_#OBJ_NUM__L26*/ curfnum[25] = (basilys_obj_num((basilys_ptr_t)(/*_.OWNFLD__V70*/ curfptr[69])));; /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#OBJ_NUM__L26*/ curfnum[25])));; BASILYS_LOCATION("warmelt-normal.bysl:3444: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3444: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[9])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V85*/ curfptr[84] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (1), (/*_.OWNFLDSYM__V69*/ curfptr[67]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (2), (/*_.NORMAL_PREDEF__V81*/ curfptr[80]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (7), (/*_.MAKE_INTEGERBOX__V82*/ curfptr[81]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (5), (/*_.MAKE_INTEGERBOX__V83*/ curfptr[82]), "NINST_OBJNUM"); ; BASILYS_LOCATION("warmelt-normal.bysl:3444: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V85*/ curfptr[84]))));basilys_putfield_object((/*_.INST__V85*/ curfptr[84]), (8), (/*_.OWNFLDSLOTS__V76*/ curfptr[75]), "NINST_SLOTS"); ; /*_.OWNFLDATA__V84*/ curfptr[83] = /*_.INST__V85*/ curfptr[84];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3452: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3452: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OWNFLDATA__V84*/ curfptr[83]; /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3453: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3453: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78]; /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3454: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3454: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!NAMED_NAME*/ curfrout->tabval[20]); BASILYS_LOCATION("warmelt-normal.bysl:3454: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.OWNFLSTRDATA__V79*/ curfptr[78]; /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3455: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3455: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!FLD_OWNCLASS*/ curfrout->tabval[28]); BASILYS_LOCATION("warmelt-normal.bysl:3455: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.CLADATA__V31*/ curfptr[30]; /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L27*/ curfnum[26] = ((/*_#IX__L11*/ curfnum[10]) + (/*_#NBSUPFLD__L10*/ curfnum[9]));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.FLDTUP__V39*/ curfptr[38]), (/*_#I__L27*/ curfnum[26]), (basilys_ptr_t)(/*_.OWNFLDATA__V84*/ curfptr[83])); BASILYS_LOCATION("warmelt-normal.bysl:3458: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3458: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.OWNFLDBIND__V66*/ curfptr[61]))));basilys_putfield_object((/*_.OWNFLDBIND__V66*/ curfptr[61]), (3), (/*_.OWNFLDATA__V84*/ curfptr[83]), "FLBIND_FDATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:3458: @touch"); basilysgc_touch(/*_.OWNFLDBIND__V66*/ curfptr[61]); ; /*epilog*/} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.OWNFLDSYMDATA__V75*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_#OBJ_LEN__L24*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.OWNFLDSLOTS__V76*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V77*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.NAMED_NAME__V78*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.OWNFLSTRDATA__V79*/ curfptr[78] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V81*/ curfptr[80] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_#OBJ_HASH__L25*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V82*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_#OBJ_NUM__L26*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V83*/ curfptr[82] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.OWNFLDATA__V84*/ curfptr[83] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V86*/ curfptr[85] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V87*/ curfptr[86] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V88*/ curfptr[87] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V89*/ curfptr[88] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3437: @clear"); /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3432: @clear"); /*clear*/ /*_.OWNFLDSYM__V69*/ curfptr[67] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3432: @clear"); /*clear*/ /*_.OWNFLD__V70*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3432: @clear"); /*clear*/ /*_.IFCPP___V71*/ curfptr[70] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3432: @clear"); /*clear*/ /*_.IFCPP___V73*/ curfptr[71] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3430: @clear"); /*clear*/ /*_.OWNFLDBIND__V66*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3430: @clear"); /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ;} ; /*_#I__L28*/ curfnum[17] = ((/*_#IX__L11*/ curfnum[10]) + (1));; BASILYS_LOCATION("warmelt-normal.bysl:3460: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L29*/ curfnum[24] = /*_#I__L28*/ curfnum[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3428: @clear"); /*clear*/ /*_#I__L20*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3428: @clear"); /*clear*/ /*_#I__L28*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3428: @clear"); /*clear*/ /*_#SETQ___L29*/ curfnum[24] = 0 ;} ; ; goto labloop_LOOPOWNFIELD_1; labexit_LOOPOWNFIELD_1:; BASILYS_LOCATION("warmelt-normal.bysl:3428: @loopepilog"); /*loopepilog*/ /*_.FOREVER___V64*/ curfptr[58] = /*_.LOOPOWNFIELD__V65*/ curfptr[60];; } ; BASILYS_LOCATION("warmelt-normal.bysl:3463: @cond"); /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3463: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3463: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3463: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3463: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISC_SUPER*/ curfrout->tabval[29]); BASILYS_LOCATION("warmelt-normal.bysl:3463: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SUPERDATA__V43*/ curfptr[42]; /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)((/*!FILL_DATA_SLOT*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.CLADATA__V31*/ curfptr[30]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V90*/ curfptr[73] = /*_.FILL_DATA_SLOT__V91*/ curfptr[75];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3463: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V91*/ curfptr[75] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3463: @cond.else"); /*_.IF___V90*/ curfptr[73] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3465: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L30*/ curfnum[25] = 0;; BASILYS_LOCATION("warmelt-normal.bysl:3467: @loop"); /*loop*/{ labloop_LOOPANCESTORSUPER_1:; BASILYS_LOCATION("warmelt-normal.bysl:3467: @loopbody"); BASILYS_LOCATION("warmelt-normal.bysl:3467: @block"); /*block*/{ /*_#I__L31*/ curfnum[26] = ((/*_#NBANC__L7*/ curfnum[6]) - (1));; /*_#I__L32*/ curfnum[16] = ((/*_#IX__L11*/ curfnum[10]) >= (/*_#I__L31*/ curfnum[26]));; BASILYS_LOCATION("warmelt-normal.bysl:3468: @cond"); /*cond*/ if (/*_#I__L32*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3468: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3468: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3468: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3468: @compute"); /*_.LOOPANCESTORSUPER__V93*/ curfptr[77] = NULL;; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3468: @exit"); /*exit*/{ goto labexit_LOOPANCESTORSUPER_1;} ;} ; /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3469: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3473: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3473: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_FIELDACC*/ curfrout->tabval[24])), (3), "CLASS_NREP_FIELDACC");/*_.INST__V95*/ curfptr[80] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3473: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80]))));basilys_putfield_object((/*_.INST__V95*/ curfptr[80]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3473: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80]))));basilys_putfield_object((/*_.INST__V95*/ curfptr[80]), (1), (/*_.SUPERDATA__V43*/ curfptr[42]), "NACCF_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:3473: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V95*/ curfptr[80]))));basilys_putfield_object((/*_.INST__V95*/ curfptr[80]), (2), ((/*!CLASS_ANCESTORS*/ curfrout->tabval[21])), "NACCF_FLD"); ; /*_.INST___V94*/ curfptr[78] = /*_.INST__V95*/ curfptr[80];;} ; /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[11])), (/*_#IX__L11*/ curfnum[10])));; BASILYS_LOCATION("warmelt-normal.bysl:3470: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3470: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_MULTACC*/ curfrout->tabval[23])), (3), "CLASS_NREP_MULTACC");/*_.INST__V98*/ curfptr[83] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3470: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V98*/ curfptr[83]), (0), (/*_.SLOC__V13*/ curfptr[12]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3470: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V98*/ curfptr[83]), (1), (/*_.INST___V94*/ curfptr[78]), "NACCM_MUL"); ; BASILYS_LOCATION("warmelt-normal.bysl:3470: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V98*/ curfptr[83]))));basilys_putfield_object((/*_.INST__V98*/ curfptr[83]), (2), (/*_.MAKE_INTEGERBOX__V96*/ curfptr[81]), "NACCM_IX"); ; /*_.SUPANCDATA__V97*/ curfptr[82] = /*_.INST__V98*/ curfptr[83];;} ; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#IX__L11*/ curfnum[10]), (basilys_ptr_t)(/*_.SUPANCDATA__V97*/ curfptr[82])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3469: @clear"); /*clear*/ /*_.INST___V94*/ curfptr[78] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3469: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V96*/ curfptr[81] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3469: @clear"); /*clear*/ /*_.SUPANCDATA__V97*/ curfptr[82] = 0 ;} ; /*_#I__L33*/ curfnum[17] = ((/*_#IX__L11*/ curfnum[10]) + (1));; BASILYS_LOCATION("warmelt-normal.bysl:3480: @compute"); /*_#IX__L11*/ curfnum[10] = /*_#SETQ___L34*/ curfnum[24] = /*_#I__L33*/ curfnum[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3467: @clear"); /*clear*/ /*_#I__L31*/ curfnum[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3467: @clear"); /*clear*/ /*_#I__L32*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3467: @clear"); /*clear*/ /*_#I__L33*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3467: @clear"); /*clear*/ /*_#SETQ___L34*/ curfnum[24] = 0 ;} ; ; goto labloop_LOOPANCESTORSUPER_1; labexit_LOOPANCESTORSUPER_1:; BASILYS_LOCATION("warmelt-normal.bysl:3467: @loopepilog"); /*loopepilog*/ /*_.FOREVER___V92*/ curfptr[76] = /*_.LOOPANCESTORSUPER__V93*/ curfptr[77];; } ; BASILYS_LOCATION("warmelt-normal.bysl:3483: @cond"); /*cond*/ if (/*_.SUPERDATA__V43*/ curfptr[42]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3483: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3483: @block"); /*block*/{ /*_#I__L35*/ curfnum[26] = ((/*_#NBANC__L7*/ curfnum[6]) - (1));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.ANCTUP__V34*/ curfptr[33]), (/*_#I__L35*/ curfnum[26]), (basilys_ptr_t)(/*_.SUPERDATA__V43*/ curfptr[42])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3483: @clear"); /*clear*/ /*_#I__L35*/ curfnum[26] = 0 ;} ; } /*noelse*/ ; /*_.LET___V21*/ curfptr[19] = /*_.CLADATA__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.CLAOBJ__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NAMSYMDATA__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NAMSTRDATA__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#OBJ_LEN__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.CLASLOTS__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#OBJ_HASH__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.CLADATA__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ANCSEQ__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#NBANC__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ANCTUP__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ANCDATA__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FLDSEQ__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#NBFLD__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#NBOWNFLD__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#NBSUPFLD__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#IX__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FLDTUP__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FLDDATA__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.SUPERDATA__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V48*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FILL_DATA_SLOT__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.IFCPP___V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#SETQ___L15*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FOREVER___V57*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#SETQ___L19*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FOREVER___V64*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.IF___V90*/ curfptr[73] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_#SETQ___L30*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3351: @clear"); /*clear*/ /*_.FOREVER___V92*/ curfptr[76] = 0 ;} ; /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SLOC__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SNAME__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SPREDEF__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SCLABIND__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SUPERBIND__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.SFLDBINDS__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3343: @clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3339: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:3339: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3339: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3339: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3339: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3339: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFCLASS", 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_106_NORMEXP_DEFCLASS*/ static basilys_ptr_t rout_107_NORMEXP_DEFINSTANCE(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_NORMEXP_DEFINSTANCE_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 66 void* varptr[66]; #define CURFRAM_NBVARNUM 20 long varnum[20]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 66; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFINSTANCE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3495: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3495: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFINSTANCE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3495: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3495: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3495: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3495: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check definstance recv"),( "warmelt-normal.bysl"),(3495), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3495: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3495: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3495: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3496: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3496: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3496: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3496: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3496: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3496: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3496), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3496: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3496: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3496: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3497: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3497: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3497: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3497: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3497: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3497: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3497), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3497: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3497: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3497: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3498: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3498: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3498: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3498: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance recv"; BASILYS_LOCATION("warmelt-normal.bysl:3498: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3498: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3498: @apply.arg"); argtab[3].bp_long = 3498; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3498: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3498: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3498: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3499: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3500: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3501: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3502: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SOBJ_DOCSTR");/*_.SDOCSTR__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3503: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3504: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:3505: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3505: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3505: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3505: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; }; ; /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3505: @clear"); /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3505: @cond.else"); /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3506: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3507: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; }; ; /*_.NBINDLIST__V25*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.NBINDBOX__V26*/ curfptr[25] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]));; BASILYS_LOCATION("warmelt-normal.bysl:3510: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3510: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; /*_.BINDINS__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3511: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3511: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3511: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NAMDATA__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3513: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3513: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3513: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3514: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3514: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3514: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3514: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NORMAL_EXP__V30*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.ICLADATA__V29*/ curfptr[28] = /*_.NORMAL_EXP__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3513: @clear"); /*clear*/ /*_.NORMAL_EXP__V30*/ curfptr[29] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3513: @cond.else"); /*_.ICLADATA__V29*/ curfptr[28] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3516: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3516: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3516: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3516: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance bindins"; BASILYS_LOCATION("warmelt-normal.bysl:3516: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:3516: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3516: @apply.arg"); argtab[3].bp_long = 3516; /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (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-normal.bysl:3516: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3516: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3516: @cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3517: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3517: @block"); /*block*/{ /*_#IS_A__L8*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_INSTANCE_BINDING*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-normal.bysl:3517: @cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3517: @cond.then"); /*_.IFELSE___V34*/ curfptr[33] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3517: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3517: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindins"),( "warmelt-normal.bysl"),(3517), __FUNCTION__); /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V33*/ curfptr[31] = /*_.IFELSE___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3517: @clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3517: @clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3517: @cppif.else"); /*_.IFCPP___V33*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L9*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.ICLADATA__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));; /*_#NOT__L10*/ curfnum[9] = (!(/*_#IS_A__L9*/ curfnum[6]));; BASILYS_LOCATION("warmelt-normal.bysl:3518: @cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3518: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3518: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3520: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in definstance"), (basilys_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35])); /*_.THE_NULL__V37*/ curfptr[36] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3521: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V37*/ curfptr[36];; BASILYS_LOCATION("warmelt-normal.bysl:3521: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3519: @block"); /*block*/{ /*_.PROGN___V39*/ curfptr[38] = /*_.RETURN___V38*/ curfptr[37];;} ; /*_.IF___V35*/ curfptr[33] = /*_.PROGN___V39*/ curfptr[38];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3518: @clear"); /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3518: @clear"); /*clear*/ /*_.THE_NULL__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3518: @clear"); /*clear*/ /*_.RETURN___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3518: @clear"); /*clear*/ /*_.PROGN___V39*/ curfptr[38] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3518: @cond.else"); /*_.IF___V35*/ curfptr[33] = NULL;; } ; /*_#NULL__L11*/ curfnum[10] = ((/*_.SPREDEF__V17*/ curfptr[16]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3523: @cond"); /*cond*/ if (/*_#NULL__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3523: @cond.then"); /*_.IFELSE___V40*/ curfptr[35] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3523: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3523: @block"); /*block*/{ /*_#IS_INTEGERBOX__L12*/ curfnum[11] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-normal.bysl:3524: @cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3524: @cond.then"); /*_.IFELSE___V41*/ curfptr[36] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3524: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3524: @block"); /*block*/{ /*_#IS_A__L13*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3525: @cond"); /*cond*/ if (/*_#IS_A__L13*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3525: @cond.then"); /*_.IFELSE___V42*/ curfptr[37] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3525: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3525: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3527: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V43*/ curfptr[38] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in DEFINSTANCE"), (basilys_ptr_t)(/*_.NAMED_NAME__V43*/ curfptr[38])); /*_.THE_NULL__V44*/ curfptr[43] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3528: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V44*/ curfptr[43];; BASILYS_LOCATION("warmelt-normal.bysl:3528: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3526: @block"); /*block*/{ /*_.PROGN___V46*/ curfptr[45] = /*_.RETURN___V45*/ curfptr[44];;} ; /*_.IFELSE___V42*/ curfptr[37] = /*_.PROGN___V46*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3525: @clear"); /*clear*/ /*_.NAMED_NAME__V43*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3525: @clear"); /*clear*/ /*_.THE_NULL__V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3525: @clear"); /*clear*/ /*_.RETURN___V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3525: @clear"); /*clear*/ /*_.PROGN___V46*/ curfptr[45] = 0 ;} ; } ; /*_.IFELSE___V41*/ curfptr[36] = /*_.IFELSE___V42*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3524: @clear"); /*clear*/ /*_#IS_A__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3524: @clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[37] = 0 ;} ; } ; /*_.IFELSE___V40*/ curfptr[35] = /*_.IFELSE___V41*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3523: @clear"); /*clear*/ /*_#IS_INTEGERBOX__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3523: @clear"); /*clear*/ /*_.IFELSE___V41*/ curfptr[36] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3529: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3529: @block"); /*block*/{ /*_#IS_A__L14*/ curfnum[12] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:3529: @cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3529: @cond.then"); /*_.IFELSE___V48*/ curfptr[43] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3529: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3529: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sinstclass"),( "warmelt-normal.bysl"),(3529), __FUNCTION__); /*clear*/ /*_.IFELSE___V48*/ curfptr[43] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V47*/ curfptr[38] = /*_.IFELSE___V48*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3529: @clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3529: @clear"); /*clear*/ /*_.IFELSE___V48*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3529: @cppif.else"); /*_.IFCPP___V47*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3530: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3530: @block"); /*block*/{ /*_#IS_A__L15*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3530: @cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3530: @cond.then"); /*_.IFELSE___V50*/ curfptr[45] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3530: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3530: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sinstclasym"),( "warmelt-normal.bysl"),(3530), __FUNCTION__); /*clear*/ /*_.IFELSE___V50*/ curfptr[45] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V49*/ curfptr[44] = /*_.IFELSE___V50*/ curfptr[45];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3530: @clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3530: @clear"); /*clear*/ /*_.IFELSE___V50*/ curfptr[45] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3530: @cppif.else"); /*_.IFCPP___V49*/ curfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3533: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V52*/ curfptr[36] = slot; }; ; /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V52*/ curfptr[36])));; /*_.SLOTUP__V53*/ curfptr[43] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L16*/ curfnum[12])));; /*_#NONZERO_HASH__L17*/ curfnum[11] = (basilys_nonzerohash());; /*_.MAKE_INTEGERBOX__V54*/ curfptr[45] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[16])), (/*_#NONZERO_HASH__L17*/ curfnum[11])));; BASILYS_LOCATION("warmelt-normal.bysl:3534: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3534: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[15])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V56*/ curfptr[55] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.ICLADATA__V29*/ curfptr[28]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (7), (/*_.MAKE_INTEGERBOX__V54*/ curfptr[45]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (8), (/*_.SLOTUP__V53*/ curfptr[43]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:3534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM"); ; /*_.INSDATA__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3544: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3544: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INSDATA__V55*/ curfptr[54]; /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[17])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3545: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3545: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.BINDINS__V27*/ curfptr[26]; /*_.PUT_ENV__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!PUT_ENV*/ curfrout->tabval[18])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3546: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3546: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.BINDINS__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.BINDINS__V27*/ curfptr[26]))));basilys_putfield_object((/*_.BINDINS__V27*/ curfptr[26]), (2), (/*_.INSDATA__V55*/ curfptr[54]), "IBIND_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:3546: @touch"); basilysgc_touch(/*_.BINDINS__V27*/ curfptr[26]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3550: @newclosure"); /*newclosure*/ /*_.LAMBDA___V60*/ curfptr[59] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_25*/ curfrout->tabval[25])), (6)); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[0] = (basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[1] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[2] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[3] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[4] = (basilys_ptr_t)(/*_.SLOTUP__V53*/ curfptr[43]); ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V60*/ curfptr[59])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V60*/ curfptr[59]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V60*/ curfptr[59])->tabval[5] = (basilys_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]); ; /*_.LAMBDA___V59*/ curfptr[58] = /*_.LAMBDA___V60*/ curfptr[59];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3548: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3548: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V59*/ curfptr[58]; /*_.MULTIPLE_EVERY__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[19])), (basilys_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3572: @block"); /*block*/{ /*_.NBINDLIST__V63*/ curfptr[62] = basilys_box_content((basilysbox_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]));; BASILYS_LOCATION("warmelt-normal.bysl:3573: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3573: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); /*_.NBINDTUP__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[26])), (basilys_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = (basilys_multiple_length((basilys_ptr_t)(/*_.NBINDTUP__V64*/ curfptr[63])));; /*_#I__L19*/ curfnum[18] = ((/*_#MULTIPLE_LENGTH__L18*/ curfnum[17]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:3575: @cond"); /*cond*/ if (/*_#I__L19*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3575: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3575: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3576: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3576: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INSDATA__V55*/ curfptr[54])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INSDATA__V55*/ curfptr[54]))));basilys_putfield_object((/*_.INSDATA__V55*/ curfptr[54]), (4), (/*_.NBINDTUP__V64*/ curfptr[63]), "NDATA_LOCBIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:3576: @touch"); basilysgc_touch(/*_.INSDATA__V55*/ curfptr[54]); ; /*epilog*/} ; /*epilog*/} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3578: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3578: @block"); /*block*/{ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3578: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3578: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance return insdata"; BASILYS_LOCATION("warmelt-normal.bysl:3578: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L20*/ curfnum[19]; BASILYS_LOCATION("warmelt-normal.bysl:3578: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3578: @apply.arg"); argtab[3].bp_long = 3578; /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.INSDATA__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V65*/ curfptr[64] = /*_.DEBUG_MSG_FUN__V66*/ curfptr[65];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3578: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3578: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V66*/ curfptr[65] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3578: @cppif.else"); /*_.IFCPP___V65*/ curfptr[64] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V62*/ curfptr[61] = /*_.INSDATA__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3572: @clear"); /*clear*/ /*_.NBINDLIST__V63*/ curfptr[62] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3572: @clear"); /*clear*/ /*_.NBINDTUP__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3572: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L18*/ curfnum[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3572: @clear"); /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3572: @clear"); /*clear*/ /*_.IFCPP___V65*/ curfptr[64] = 0 ;} ; /*_.LET___V51*/ curfptr[37] = /*_.LET___V62*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.CLASS_FIELDS__V52*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L16*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.SLOTUP__V53*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_#NONZERO_HASH__L17*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V54*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.INSDATA__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.PUT_ENV__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.LAMBDA___V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3531: @clear"); /*clear*/ /*_.LET___V62*/ curfptr[61] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V51*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.NBINDLIST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.NBINDBOX__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.BINDINS__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.NAMDATA__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.ICLADATA__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IF___V35*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_#NULL__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IFCPP___V47*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.IFCPP___V49*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3499: @clear"); /*clear*/ /*_.LET___V51*/ curfptr[37] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3494: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3494: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3494: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3494: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3494: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3494: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3494: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFINSTANCE", 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_NORMEXP_DEFINSTANCE*/ 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 23 void* varptr[23]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } curfram__; 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("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3550: @getarg"); /*_.FLDA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3550: @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-normal.bysl:3550: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3551: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3551: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3551: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3551: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance flda"; BASILYS_LOCATION("warmelt-normal.bysl:3551: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3551: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3551: @apply.arg"); argtab[3].bp_long = 3551; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FLDA__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-normal.bysl:3551: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3551: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3551: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3552: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3552: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3552: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3552: @cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3552: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3552: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check flda"),( "warmelt-normal.bysl"),(3552), __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3552: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3552: @clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3552: @cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3553: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 1, "SFLA_FIELD");/*_.CURFLD__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3554: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_EXPR");/*_.CUREXP__V8*/ curfptr[7] = slot; }; ; /*_#CUROFF__L4*/ curfnum[1] = (basilys_obj_num((basilys_ptr_t)(/*_.CURFLD__V7*/ curfptr[5])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3557: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3557: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFLD__V7*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3557: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3557: @cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3557: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3557: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curfld"),( "warmelt-normal.bysl"),(3557), __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3557: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3557: @clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3557: @cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3558: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3558: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3559: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V12*/ curfptr[11] = slot; }; ; /*_.MULTIPLE_NTH__V13*/ curfptr[12] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CLASS_FIELDS__V12*/ curfptr[11]), (/*_#CUROFF__L4*/ curfnum[1])));; /*_#__L6*/ curfnum[4] = ((/*_.MULTIPLE_NTH__V13*/ curfptr[12]) == (/*_.CURFLD__V7*/ curfptr[5]));; BASILYS_LOCATION("warmelt-normal.bysl:3558: @cond"); /*cond*/ if (/*_#__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3558: @cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3558: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3558: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "good curfld"),( "warmelt-normal.bysl"),(3558), __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3558: @clear"); /*clear*/ /*_.CLASS_FIELDS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3558: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3558: @clear"); /*clear*/ /*_#__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3558: @clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3558: @cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3561: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3561: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3561: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3561: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance field curexp"; BASILYS_LOCATION("warmelt-normal.bysl:3561: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[4]; BASILYS_LOCATION("warmelt-normal.bysl:3561: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3561: @apply.arg"); argtab[3].bp_long = 3561; /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3561: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3561: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3561: @cppif.else"); /*_.IFCPP___V15*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3562: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12]; BASILYS_LOCATION("warmelt-normal.bysl:3562: @multimsend.send"); /*_.NCUR__V17*/ curfptr[13] = basilysgc_send ((basilys_ptr_t)(/*_.CUREXP__V8*/ curfptr[7]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3562: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3565: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3565: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3565: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3565: @apply.arg"); argtab[0].bp_cstring = "normexp_definstance field ncur"; BASILYS_LOCATION("warmelt-normal.bysl:3565: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[4]; BASILYS_LOCATION("warmelt-normal.bysl:3565: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3565: @apply.arg"); argtab[3].bp_long = 3565; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCUR__V17*/ curfptr[13]), (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-normal.bysl:3565: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3565: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3565: @cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_multiple_put_nth((basilys_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L4*/ curfnum[1]), (basilys_ptr_t)(/*_.NCUR__V17*/ curfptr[13])); /*_#IS_LIST__L9*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDCUR__V18*/ curfptr[12])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3567: @cond"); /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3567: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3567: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3568: @block"); /*block*/{ /*_.NBINDLIST__V21*/ curfptr[19] = basilys_box_content((basilysbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:3569: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3569: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDCUR__V18*/ curfptr[12]; /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NBINDLIST__V21*/ curfptr[19]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3569: @compute"); /*_.NBINDLIST__V21*/ curfptr[19] = /*_.SETQ___V23*/ curfptr[22] = /*_.LIST_APPEND2LIST__V22*/ curfptr[21];; basilysgc_box_put((basilys_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.NBINDLIST__V21*/ curfptr[19])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3568: @clear"); /*clear*/ /*_.NBINDLIST__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3568: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3568: @clear"); /*clear*/ /*_.SETQ___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3562: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3562: @clear"); /*clear*/ /*_#IS_LIST__L9*/ curfnum[4] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3562: @clear"); /*clear*/ /*_.NBINDCUR__V18*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_.CURFLD__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_.CUREXP__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_#CUROFF__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3553: @clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3550: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3550: @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_108_LAMBDA_*/ static basilys_ptr_t rout_109_NORMEXP_DEFSELECTOR(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_NORMEXP_DEFSELECTOR_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 69 void* varptr[69]; #define CURFRAM_NBVARNUM 22 long varnum[22]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 69; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_DEFSELECTOR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3587: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3587: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_DEFSELECTOR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3587: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3587: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3587: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3587: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check defselector recv"),( "warmelt-normal.bysl"),(3587), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3587: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3587: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3587: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3588: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3588: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3588: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3588: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3588: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3588: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3588), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3588: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3588: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3588: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3589: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3589: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3589: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3589: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3589: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3589: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3589), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3589: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3589: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3589: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3590: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3590: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3590: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3590: @apply.arg"); argtab[0].bp_cstring = "normexp defselector recv"; BASILYS_LOCATION("warmelt-normal.bysl:3590: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3590: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3590: @apply.arg"); argtab[3].bp_long = 3590; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3590: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3590: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3590: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3592: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3593: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SDEF_NAME");/*_.SNAME__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3594: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SOBJ_PREDEF");/*_.SPREDEF__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3595: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "SOBJ_DOCSTR");/*_.SDOCSTR__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3596: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "SINST_CLASS");/*_.SINSTCLASS__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3597: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "SINST_CLABIND");/*_.SINSTCLABND__V20*/ curfptr[19] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), (basilys_ptr_t)((/*!CLASS_ANY_BINDING*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:3598: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3598: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3598: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3598: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SINSTCLABND__V20*/ curfptr[19]), 0, "BINDER");/*_.BINDER__V22*/ curfptr[21] = slot; }; ; /*_.SINSTCLASYM__V21*/ curfptr[20] = /*_.BINDER__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3598: @clear"); /*clear*/ /*_.BINDER__V22*/ curfptr[21] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3598: @cond.else"); /*_.SINSTCLASYM__V21*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3599: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 6, "SINST_OBJNUM");/*_.SINSTOBJNUM__V23*/ curfptr[21] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3600: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 7, "SINST_FIELDS");/*_.SINSTFIELDS__V24*/ curfptr[23] = slot; }; ; /*_.NBINDLIST__V25*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[5]))));; /*_.NBINDBOX__V26*/ curfptr[25] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]));; BASILYS_LOCATION("warmelt-normal.bysl:3603: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3603: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SNAME__V16*/ curfptr[15]; /*_.BINDSEL__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3604: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3604: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3604: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NAMDATA__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L6*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3606: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3606: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3606: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3607: @msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3607: @ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:3607: @ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3607: @ojbmsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; /*_.NORMAL_EXP__V30*/ curfptr[29] = basilysgc_send((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[10])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.ICLADATA__V29*/ curfptr[28] = /*_.NORMAL_EXP__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3606: @clear"); /*clear*/ /*_.NORMAL_EXP__V30*/ curfptr[29] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3606: @cond.else"); /*_.ICLADATA__V29*/ curfptr[28] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3609: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3609: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.BINDSEL__V27*/ curfptr[26]), (basilys_ptr_t)((/*!CLASS_SELECTOR_BINDING*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-normal.bysl:3609: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3609: @cond.then"); /*_.IFELSE___V32*/ curfptr[31] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3609: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3609: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindsel"),( "warmelt-normal.bysl"),(3609), __FUNCTION__); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V31*/ curfptr[29] = /*_.IFELSE___V32*/ curfptr[31];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3609: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3609: @clear"); /*clear*/ /*_.IFELSE___V32*/ curfptr[31] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3609: @cppif.else"); /*_.IFCPP___V31*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L8*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.ICLADATA__V29*/ curfptr[28]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[12])));; /*_#NOT__L9*/ curfnum[8] = (!(/*_#IS_A__L8*/ curfnum[6]));; BASILYS_LOCATION("warmelt-normal.bysl:3610: @cond"); /*cond*/ if (/*_#NOT__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3610: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3610: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3612: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "invalid class in defselector"), (basilys_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33])); /*_.THE_NULL__V35*/ curfptr[34] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3613: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V35*/ curfptr[34];; BASILYS_LOCATION("warmelt-normal.bysl:3613: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3611: @block"); /*block*/{ /*_.PROGN___V37*/ curfptr[36] = /*_.RETURN___V36*/ curfptr[35];;} ; /*_.IF___V33*/ curfptr[31] = /*_.PROGN___V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3610: @clear"); /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3610: @clear"); /*clear*/ /*_.THE_NULL__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3610: @clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3610: @clear"); /*clear*/ /*_.PROGN___V37*/ curfptr[36] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3610: @cond.else"); /*_.IF___V33*/ curfptr[31] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3614: @cond"); /*cond*/ if (/*_.SPREDEF__V17*/ curfptr[16]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3614: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3614: @block"); /*block*/{ /*_#IS_INTEGERBOX__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond.then"); /*_#OR___L11*/ curfnum[10] = /*_#IS_INTEGERBOX__L10*/ curfnum[9];; } else { BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3615: @block"); /*block*/{ /*_#IS_A__L12*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPREDEF__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; /*_#OR___L11*/ curfnum[10] = /*_#IS_A__L12*/ curfnum[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3615: @clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[11] = 0 ;} ; } ; /*_#NOT__L13*/ curfnum[11] = (!(/*_#OR___L11*/ curfnum[10]));; BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond"); /*cond*/ if (/*_#NOT__L13*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3615: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3616: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V40*/ curfptr[35] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "bad predef in defselector"), (basilys_ptr_t)(/*_.NAMED_NAME__V40*/ curfptr[35])); /*_.THE_NULL__V41*/ curfptr[36] = (NULL);; BASILYS_LOCATION("warmelt-normal.bysl:3617: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V41*/ curfptr[36];; BASILYS_LOCATION("warmelt-normal.bysl:3617: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3616: @block"); /*block*/{ /*_.PROGN___V43*/ curfptr[42] = /*_.RETURN___V42*/ curfptr[41];;} ; /*_.IF___V39*/ curfptr[34] = /*_.PROGN___V43*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3615: @clear"); /*clear*/ /*_.NAMED_NAME__V40*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3615: @clear"); /*clear*/ /*_.THE_NULL__V41*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3615: @clear"); /*clear*/ /*_.RETURN___V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3615: @clear"); /*clear*/ /*_.PROGN___V43*/ curfptr[42] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3615: @cond.else"); /*_.IF___V39*/ curfptr[34] = NULL;; } ; /*_.IF___V38*/ curfptr[33] = /*_.IF___V39*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3614: @clear"); /*clear*/ /*_#IS_INTEGERBOX__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3614: @clear"); /*clear*/ /*_#OR___L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3614: @clear"); /*clear*/ /*_#NOT__L13*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3614: @clear"); /*clear*/ /*_.IF___V39*/ curfptr[34] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3614: @cond.else"); /*_.IF___V38*/ curfptr[33] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3618: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3618: @block"); /*block*/{ /*_#IS_A__L14*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[13])));; BASILYS_LOCATION("warmelt-normal.bysl:3618: @cond"); /*cond*/ if (/*_#IS_A__L14*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3618: @cond.then"); /*_.IFELSE___V45*/ curfptr[36] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3618: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3618: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sinstclass"),( "warmelt-normal.bysl"),(3618), __FUNCTION__); /*clear*/ /*_.IFELSE___V45*/ curfptr[36] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V44*/ curfptr[35] = /*_.IFELSE___V45*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3618: @clear"); /*clear*/ /*_#IS_A__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3618: @clear"); /*clear*/ /*_.IFELSE___V45*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3618: @cppif.else"); /*_.IFCPP___V44*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3619: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3619: @block"); /*block*/{ /*_#IS_A__L15*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.SINSTCLASYM__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3619: @cond"); /*cond*/ if (/*_#IS_A__L15*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3619: @cond.then"); /*_.IFELSE___V47*/ curfptr[42] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3619: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3619: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sinstclasym"),( "warmelt-normal.bysl"),(3619), __FUNCTION__); /*clear*/ /*_.IFELSE___V47*/ curfptr[42] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V46*/ curfptr[41] = /*_.IFELSE___V47*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3619: @clear"); /*clear*/ /*_#IS_A__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3619: @clear"); /*clear*/ /*_.IFELSE___V47*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3619: @cppif.else"); /*_.IFCPP___V46*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3620: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3620: @block"); /*block*/{ /*_#IS_A__L16*/ curfnum[11] = basilys_is_instance_of((basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3620: @cond"); /*cond*/ if (/*_#IS_A__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3620: @cond.then"); /*_.IFELSE___V49*/ curfptr[36] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3620: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3620: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sname"),( "warmelt-normal.bysl"),(3620), __FUNCTION__); /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V48*/ curfptr[34] = /*_.IFELSE___V49*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3620: @clear"); /*clear*/ /*_#IS_A__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3620: @clear"); /*clear*/ /*_.IFELSE___V49*/ curfptr[36] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3620: @cppif.else"); /*_.IFCPP___V48*/ curfptr[34] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3623: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V51*/ curfptr[36] = slot; }; ; /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V51*/ curfptr[36])));; /*_.SLOTUP__V52*/ curfptr[51] = (basilysgc_new_multiple((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[14])), (/*_#MULTIPLE_LENGTH__L17*/ curfnum[9])));; BASILYS_LOCATION("warmelt-normal.bysl:3626: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3626: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3626: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3626: @apply.arg"); argtab[2].bp_cstring = "discr_string"; /*_.NORMAL_PREDEF__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_PREDEF*/ curfrout->tabval[16])), (basilys_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3627: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SNAME__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V54*/ curfptr[53] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3624: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3624: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATASTRING*/ curfrout->tabval[15])), (6), "CLASS_NREP_DATASTRING");/*_.INST__V56*/ curfptr[55] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3624: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3624: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), (/*_.NORMAL_PREDEF__V53*/ curfptr[52]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3624: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (5), (/*_.NAMED_NAME__V54*/ curfptr[53]), "NSTR_STRING"); ; /*_.NAMSTRDATA__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} ; /*_#NONZERO_HASH__L18*/ curfnum[10] = (basilys_nonzerohash());; /*_.MAKE_INTEGERBOX__V57*/ curfptr[56] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[19])), (/*_#NONZERO_HASH__L18*/ curfnum[10])));; BASILYS_LOCATION("warmelt-normal.bysl:3628: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3628: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[18])), (9), "CLASS_NREP_DATAINSTANCE");/*_.INST__V59*/ curfptr[58] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @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), (/*_.SNAME__V16*/ curfptr[15]), "NDATA_NAME"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @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), (/*_.ICLADATA__V29*/ curfptr[28]), "NDATA_DISCRX"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (7>=0 && 7< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (7), (/*_.MAKE_INTEGERBOX__V57*/ curfptr[56]), "NINST_HASH"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (6), (/*_.SPREDEF__V17*/ curfptr[16]), "NINST_PREDEF"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (8>=0 && 8< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (8), (/*_.SLOTUP__V52*/ curfptr[51]), "NINST_SLOTS"); ; BASILYS_LOCATION("warmelt-normal.bysl:3628: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.INST__V59*/ curfptr[58]))));basilys_putfield_object((/*_.INST__V59*/ curfptr[58]), (5), (/*_.SINSTOBJNUM__V23*/ curfptr[21]), "NINST_OBJNUM"); ; /*_.INSDATA__V58*/ curfptr[57] = /*_.INST__V59*/ curfptr[58];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3638: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3638: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INSDATA__V58*/ curfptr[57]; /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3639: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3639: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NAMSTRDATA__V55*/ curfptr[54]; /*_.ADD_NCTX_DATA__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD_NCTX_DATA*/ curfrout->tabval[20])), (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3640: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3640: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.BINDSEL__V27*/ curfptr[26])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.BINDSEL__V27*/ curfptr[26]))));basilys_putfield_object((/*_.BINDSEL__V27*/ curfptr[26]), (2), (/*_.INSDATA__V58*/ curfptr[57]), "IBIND_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:3640: @touch"); basilysgc_touch(/*_.BINDSEL__V27*/ curfptr[26]); ; /*epilog*/} ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3644: @newclosure"); /*newclosure*/ /*_.LAMBDA___V63*/ curfptr[62] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (6)); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[0] = (basilys_ptr_t)(/*_.SINSTCLASS__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[1] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[2] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[3] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[4] = (basilys_ptr_t)(/*_.SLOTUP__V52*/ curfptr[51]); ; BASILYS_LOCATION("warmelt-normal.bysl:3644: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V63*/ curfptr[62])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V63*/ curfptr[62]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V63*/ curfptr[62])->tabval[5] = (basilys_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]); ; /*_.LAMBDA___V62*/ curfptr[61] = /*_.LAMBDA___V63*/ curfptr[62];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3642: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3642: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V62*/ curfptr[61]; /*_.MULTIPLE_EVERY__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[21])), (basilys_ptr_t)(/*_.SINSTFIELDS__V24*/ curfptr[23]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @block"); /*block*/{ /*_.NBINDLIST__V66*/ curfptr[65] = basilys_box_content((basilysbox_ptr_t)(/*_.NBINDBOX__V26*/ curfptr[25]));; BASILYS_LOCATION("warmelt-normal.bysl:3664: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3664: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!DISCR_MULTIPLE*/ curfrout->tabval[14]); /*_.NBINDTUP__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[27])), (basilys_ptr_t)(/*_.NBINDLIST__V25*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = (basilys_multiple_length((basilys_ptr_t)(/*_.NBINDTUP__V67*/ curfptr[66])));; /*_#I__L20*/ curfnum[19] = ((/*_#MULTIPLE_LENGTH__L19*/ curfnum[11]) > (0));; BASILYS_LOCATION("warmelt-normal.bysl:3666: @cond"); /*cond*/ if (/*_#I__L20*/ curfnum[19]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3666: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3666: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3667: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3667: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INSDATA__V58*/ curfptr[57])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INSDATA__V58*/ curfptr[57]))));basilys_putfield_object((/*_.INSDATA__V58*/ curfptr[57]), (4), (/*_.NBINDTUP__V67*/ curfptr[66]), "NDATA_LOCBIND"); ; BASILYS_LOCATION("warmelt-normal.bysl:3667: @touch"); basilysgc_touch(/*_.INSDATA__V58*/ curfptr[57]); ; /*epilog*/} ; /*epilog*/} ; } /*noelse*/ ; /*_#GET_INT__L21*/ curfnum[20] = (basilys_get_int((basilys_ptr_t)((/*!NAMED_NAME*/ curfrout->tabval[28]))));; basilysgc_multiple_put_nth((basilys_ptr_t)(/*_.SLOTUP__V52*/ curfptr[51]), (/*_#GET_INT__L21*/ curfnum[20]), (basilys_ptr_t)(/*_.NAMSTRDATA__V55*/ curfptr[54])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3671: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3671: @block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[21] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3671: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3671: @apply.arg"); argtab[0].bp_cstring = "normexp_defselector return insdata"; BASILYS_LOCATION("warmelt-normal.bysl:3671: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[21]; BASILYS_LOCATION("warmelt-normal.bysl:3671: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3671: @apply.arg"); argtab[3].bp_long = 3671; /*_.DEBUG_MSG_FUN__V69*/ curfptr[68] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.INSDATA__V58*/ curfptr[57]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V68*/ curfptr[67] = /*_.DEBUG_MSG_FUN__V69*/ curfptr[68];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3671: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3671: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V69*/ curfptr[68] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3671: @cppif.else"); /*_.IFCPP___V68*/ curfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V65*/ curfptr[64] = /*_.INSDATA__V58*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_.NBINDLIST__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_.NBINDTUP__V67*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L19*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_#GET_INT__L21*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3663: @clear"); /*clear*/ /*_.IFCPP___V68*/ curfptr[67] = 0 ;} ; /*_.LET___V50*/ curfptr[42] = /*_.LET___V65*/ curfptr[64];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.CLASS_FIELDS__V51*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L17*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.SLOTUP__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.NORMAL_PREDEF__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.NAMED_NAME__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.NAMSTRDATA__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_#NONZERO_HASH__L18*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.MAKE_INTEGERBOX__V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.INSDATA__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V60*/ curfptr[59] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.ADD_NCTX_DATA__V61*/ curfptr[60] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.LAMBDA___V62*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3621: @clear"); /*clear*/ /*_.LET___V65*/ curfptr[64] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V50*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SNAME__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SPREDEF__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SDOCSTR__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SINSTCLASS__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SINSTCLABND__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SINSTCLASYM__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SINSTOBJNUM__V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.SINSTFIELDS__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.NBINDLIST__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.NBINDBOX__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.BINDSEL__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.NAMDATA__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.ICLADATA__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IFCPP___V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_#NOT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IF___V33*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IF___V38*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.IFCPP___V48*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3591: @clear"); /*clear*/ /*_.LET___V50*/ curfptr[42] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3586: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3586: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3586: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3586: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3586: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3586: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3586: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_DEFSELECTOR", 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_NORMEXP_DEFSELECTOR*/ static basilys_ptr_t rout_110_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_110_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_; } curfram__; 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-normal.bysl:3644: @getarg"); /*_.FLDA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3644: @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-normal.bysl:3644: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3645: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3645: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FIELDASSIGN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3645: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3645: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3645: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3645: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check flda"),( "warmelt-normal.bysl"),(3645), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3645: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3645: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3645: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3646: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3646: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 1, "SFLA_FIELD");/*_.CURFLD__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3647: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDA__V2*/ curfptr[1]), 2, "SFLA_EXPR");/*_.CUREXP__V6*/ curfptr[5] = slot; }; ; /*_#CUROFF__L3*/ curfnum[1] = (basilys_obj_num((basilys_ptr_t)(/*_.CURFLD__V5*/ curfptr[3])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3650: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3650: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFLD__V5*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3650: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3650: @cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3650: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3650: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curfld"),( "warmelt-normal.bysl"),(3650), __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3650: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3650: @clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3650: @cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3651: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3651: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3652: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~SINSTCLASS*/ curfclos->tabval[0])), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V10*/ curfptr[9] = slot; }; ; /*_.MULTIPLE_NTH__V11*/ curfptr[10] = (basilys_multiple_nth((basilys_ptr_t)(/*_.CLASS_FIELDS__V10*/ curfptr[9]), (/*_#CUROFF__L3*/ curfnum[1])));; /*_#__L5*/ curfnum[3] = ((/*_.MULTIPLE_NTH__V11*/ curfptr[10]) == (/*_.CURFLD__V5*/ curfptr[3]));; BASILYS_LOCATION("warmelt-normal.bysl:3651: @cond"); /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3651: @cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3651: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3651: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "good curfld"),( "warmelt-normal.bysl"),(3651), __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3651: @clear"); /*clear*/ /*_.CLASS_FIELDS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3651: @clear"); /*clear*/ /*_.MULTIPLE_NTH__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3651: @clear"); /*clear*/ /*_#__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3651: @clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3651: @cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3654: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10]; BASILYS_LOCATION("warmelt-normal.bysl:3654: @multimsend.send"); /*_.NCUR__V13*/ curfptr[9] = basilysgc_send ((basilys_ptr_t)(/*_.CUREXP__V6*/ curfptr[5]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3654: @block"); /*block*/{ basilysgc_multiple_put_nth((basilys_ptr_t)((/*~SLOTUP*/ curfclos->tabval[4])), (/*_#CUROFF__L3*/ curfnum[1]), (basilys_ptr_t)(/*_.NCUR__V13*/ curfptr[9])); /*_#IS_LIST__L6*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.NBINDCUR__V14*/ curfptr[10])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3658: @cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3658: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3658: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3659: @block"); /*block*/{ /*_.NBINDLIST__V15*/ curfptr[11] = basilys_box_content((basilysbox_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:3660: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3660: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDCUR__V14*/ curfptr[10]; /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDLIST__V15*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3660: @compute"); /*_.NBINDLIST__V15*/ curfptr[11] = /*_.SETQ___V17*/ curfptr[16] = /*_.LIST_APPEND2LIST__V16*/ curfptr[15];; basilysgc_box_put((basilys_ptr_t)((/*~NBINDBOX*/ curfclos->tabval[5])), (basilys_ptr_t)(/*_.NBINDLIST__V15*/ curfptr[11])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3659: @clear"); /*clear*/ /*_.NBINDLIST__V15*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3659: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3659: @clear"); /*clear*/ /*_.SETQ___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3654: @clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3654: @clear"); /*clear*/ /*_.NBINDCUR__V14*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3646: @clear"); /*clear*/ /*_.CURFLD__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3646: @clear"); /*clear*/ /*_.CUREXP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3646: @clear"); /*clear*/ /*_#CUROFF__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3646: @clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3646: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3644: @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_110_LAMBDA_*/ static basilys_ptr_t rout_111_NORMAL_VALUE_EXPORTER(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_NORMAL_VALUE_EXPORTER_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 3 long varnum[3]; /*others*/ long _spare_; } curfram__; 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("NORMAL_VALUE_EXPORTER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @getarg"); /*_.ENV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3693: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3693: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3693: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3693: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3693: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3693: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3693), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3693: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3693: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3693: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3694: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3694: @block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3694: @cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3694: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3694: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3694: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindslist"),( "warmelt-normal.bysl"),(3694), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3694: @clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3694: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3694: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3695: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3695: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3695: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3695: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3695: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3695: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-normal.bysl"),(3695), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3695: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3695: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3695: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3696: @apply"); /*apply*/{ /*_.CSYMVALEXP__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[2])), (basilys_ptr_t)((/*!konst_3_VALUEXPORTER_*/ curfrout->tabval[3])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3697: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3697: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[4])), (2), "CLASS_NREP_PREDEF");/*_.INST__V15*/ curfptr[14] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3697: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (0), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3697: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V15*/ curfptr[14]))));basilys_putfield_object((/*_.INST__V15*/ curfptr[14]), (1), ((/*!konst_5_INITIAL_SYSTEM_DATA*/ curfrout->tabval[5])), "NRPREDEF"); ; /*_.NSYSDAT__V14*/ curfptr[13] = /*_.INST__V15*/ curfptr[14];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3704: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3704: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[8])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3704: @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), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3704: @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), (/*_.NSYSDAT__V14*/ curfptr[13]), "NUGET_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:3704: @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), ((/*!SYSDATA_VALUE_EXPORTER*/ curfrout->tabval[9])), "NUGET_FIELD"); ; /*_.INST___V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3700: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3700: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[6])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3700: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3700: @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), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3700: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3700: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.INST___V16*/ curfptr[15]), "LETBIND_EXPR"); ; /*_.CBIND__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3708: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3708: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3708: @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), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3708: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[7])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3708: @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), (/*_.CSYMVALEXP__V13*/ curfptr[12]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3708: @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), (/*_.CBIND__V18*/ curfptr[17]), "NOCC_BIND"); ; /*_.LOCSYM__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (basilys_ptr_t)(/*_.CBIND__V18*/ curfptr[17])); BASILYS_LOCATION("warmelt-normal.bysl:3715: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:3715: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V12*/ curfptr[10] = /*_.RETURN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.CSYMVALEXP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.NSYSDAT__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.INST___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.CBIND__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.LOCSYM__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3696: @clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3692: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-normal.bysl:3692: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3692: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3692: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3692: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3692: @clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_VALUE_EXPORTER", 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_NORMAL_VALUE_EXPORTER*/ static basilys_ptr_t rout_112_NORMAL_EXPORTED_VALUE(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_NORMAL_EXPORTED_VALUE_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 60 void* varptr[60]; #define CURFRAM_NBVARNUM 14 long varnum[14]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 60; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMAL_EXPORTED_VALUE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); /*_.SYM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NVALUEXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); /*getarg#4*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); /*getarg#5*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); /*getarg#6*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @getarg"); if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3728: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3728: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3728: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3728: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value start sym"; BASILYS_LOCATION("warmelt-normal.bysl:3728: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3728: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3728: @apply.arg"); argtab[3].bp_long = 3728; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (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-normal.bysl:3728: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3728: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3728: @cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3729: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3729: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3729: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3729: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value start nexp"; BASILYS_LOCATION("warmelt-normal.bysl:3729: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3729: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3729: @apply.arg"); argtab[3].bp_long = 3729; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (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-normal.bysl:3729: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3729: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3729: @cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3730: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3730: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3730: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3730: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value start nvaluexp"; BASILYS_LOCATION("warmelt-normal.bysl:3730: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3730: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3730: @apply.arg"); argtab[3].bp_long = 3730; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (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-normal.bysl:3730: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3730: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3730: @cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3731: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3731: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3731: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3731: @cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3731: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3731: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sym"),( "warmelt-normal.bysl"),(3731), __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3731: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3731: @clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3731: @cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3732: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3732: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3732: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3732: @cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3732: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3732: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nexp"),( "warmelt-normal.bysl"),(3732), __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3732: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3732: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3732: @cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3733: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3733: @block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NVALUEXP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3733: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3733: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3733: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3733: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nvaluexp"),( "warmelt-normal.bysl"),(3733), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3733: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3733: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3733: @cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3734: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3734: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3734: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3734: @cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3734: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3734: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3734), __FUNCTION__); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3734: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3734: @clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3734: @cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3735: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3735: @block"); /*block*/{ /*_#IS_A__L8*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:3735: @cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3735: @cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3735: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3735: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-normal.bysl"),(3735), __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3735: @clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3735: @clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3735: @cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3736: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3736: @block"); /*block*/{ /*_#IS_LIST__L9*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3736: @cond"); /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3736: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3736: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3736: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindslist"),( "warmelt-normal.bysl"),(3736), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3736: @clear"); /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3736: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3736: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3737: @apply"); /*apply*/{ /*_.CSYMEXPO__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (basilys_ptr_t)((/*!konst_6_EXPORTED_*/ curfrout->tabval[6])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3738: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3738: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:3738: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; /*_.SYMDATA__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3739: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 0, "NCTX_INITPROC");/*_.INIPROC__V30*/ curfptr[29] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3740: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5]), 10, "NCTX_CURPROC");/*_.CURPROC__V31*/ curfptr[30] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3741: @block"); /*block*/{ /*_.SB__V33*/ curfptr[32] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V33*/ curfptr[32]), ( "norm.exp.val : ")); BASILYS_LOCATION("warmelt-normal.bysl:3743: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[33] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V33*/ curfptr[32]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[33]))); /*_.LET___V32*/ curfptr[31] = /*_.SB__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3741: @clear"); /*clear*/ /*_.SB__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3741: @clear"); /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[33] = 0 ;} ; /*_.CSBUF__V35*/ curfptr[32] = /*_.LET___V32*/ curfptr[31];; /*_.STRBUF2STRING__V36*/ curfptr[33] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), basilys_strbuf_str((basilys_ptr_t)(/*_.CSBUF__V35*/ curfptr[32]))));; BASILYS_LOCATION("warmelt-normal.bysl:3745: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3745: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (2), "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3745: @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), (/*_.PSLOC__V7*/ curfptr[6]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3745: @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[33]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3749: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3749: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3749: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3749: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value scurenvbox"; BASILYS_LOCATION("warmelt-normal.bysl:3749: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3749: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3749: @apply.arg"); argtab[3].bp_long = 3749; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (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-normal.bysl:3749: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3749: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3749: @cppif.else"); /*_.IFCPP___V39*/ curfptr[38] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3750: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V5*/ curfptr[4]; BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42]; BASILYS_LOCATION("warmelt-normal.bysl:3750: @multimsend.send"); /*_.NCURENVBOX__V42*/ curfptr[41] = basilysgc_send ((basilys_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3750: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3753: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3753: @block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3753: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3753: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value ncurenvbox"; BASILYS_LOCATION("warmelt-normal.bysl:3753: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3753: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3753: @apply.arg"); argtab[3].bp_long = 3753; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41]), (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-normal.bysl:3753: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3753: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3753: @cppif.else"); /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3754: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3754: @block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3754: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3754: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value curenvbinds"; BASILYS_LOCATION("warmelt-normal.bysl:3754: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3754: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3754: @apply.arg"); argtab[3].bp_long = 3754; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURENVBINDS__V43*/ curfptr[42]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3754: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3754: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3754: @cppif.else"); /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3756: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3756: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENVBINDS__V43*/ curfptr[42]; /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @block"); /*block*/{ /*_.MAKE_TUPLE3__V50*/ curfptr[49] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (basilys_ptr_t)(/*_.NCURENVBOX__V42*/ curfptr[41])));; BASILYS_LOCATION("warmelt-normal.bysl:3762: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3762: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[15])), (3), "CLASS_NREP_APPLY");/*_.INST__V52*/ curfptr[51] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3762: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3762: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (1), (/*_.NVALUEXP__V4*/ curfptr[3]), "NAPP_FUN"); ; BASILYS_LOCATION("warmelt-normal.bysl:3762: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V52*/ curfptr[51]))));basilys_putfield_object((/*_.INST__V52*/ curfptr[51]), (2), (/*_.MAKE_TUPLE3__V50*/ curfptr[49]), "NAPP_ARGS"); ; /*_.INST___V51*/ curfptr[50] = /*_.INST__V52*/ curfptr[51];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3758: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3758: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V54*/ curfptr[53] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3758: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3758: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (0), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3758: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (1), ((/*!CTYPE_VOID*/ curfrout->tabval[14])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3758: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V54*/ curfptr[53]))));basilys_putfield_object((/*_.INST__V54*/ curfptr[53]), (2), (/*_.INST___V51*/ curfptr[50]), "LETBIND_EXPR"); ; /*_.CBIND__V53*/ curfptr[52] = /*_.INST__V54*/ curfptr[53];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3766: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3766: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V56*/ curfptr[55] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3766: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (0), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3766: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (2), ((/*!CTYPE_VOID*/ curfrout->tabval[14])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3766: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (1), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3766: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V56*/ curfptr[55]))));basilys_putfield_object((/*_.INST__V56*/ curfptr[55]), (3), (/*_.CBIND__V53*/ curfptr[52]), "NOCC_BIND"); ; /*_.SYOCC__V55*/ curfptr[54] = /*_.INST__V56*/ curfptr[55];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3772: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3772: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3772: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3772: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value cbind"; BASILYS_LOCATION("warmelt-normal.bysl:3772: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3772: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3772: @apply.arg"); argtab[3].bp_long = 3772; /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CBIND__V53*/ curfptr[52]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V57*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V58*/ curfptr[57];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3772: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3772: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V58*/ curfptr[57] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3772: @cppif.else"); /*_.IFCPP___V57*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3773: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3773: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3773: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3773: @apply.arg"); argtab[0].bp_cstring = "normal_exported_value return syocc"; BASILYS_LOCATION("warmelt-normal.bysl:3773: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3773: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3773: @apply.arg"); argtab[3].bp_long = 3773; /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYOCC__V55*/ curfptr[54]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V59*/ curfptr[57] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3773: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3773: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3773: @cppif.else"); /*_.IFCPP___V59*/ curfptr[57] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.CBIND__V53*/ curfptr[52])); /*_.LET___V49*/ curfptr[48] = /*_.SYOCC__V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.MAKE_TUPLE3__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.INST___V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.CBIND__V53*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.SYOCC__V55*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.IFCPP___V57*/ curfptr[56] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3757: @clear"); /*clear*/ /*_.IFCPP___V59*/ curfptr[57] = 0 ;} ; /*_.MULTI___V41*/ curfptr[39] = /*_.LET___V49*/ curfptr[48];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3750: @clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3750: @clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3750: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V48*/ curfptr[46] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3750: @clear"); /*clear*/ /*_.LET___V49*/ curfptr[48] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3750: @clear"); /*clear*/ /*_.CURENVBINDS__V43*/ curfptr[42] = 0 ;} ; /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V41*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.INIPROC__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.CURPROC__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.LET___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.CSBUF__V35*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3737: @clear"); /*clear*/ /*_.MULTI___V41*/ curfptr[39] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];; BASILYS_LOCATION("warmelt-normal.bysl:3727: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3727: @clear"); /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_EXPORTED_VALUE", 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_NORMAL_EXPORTED_VALUE*/ static basilys_ptr_t rout_113_NORMEXP_EXPORT_VALUES(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_NORMEXP_EXPORT_VALUES_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 30 void* varptr[30]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 30; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_EXPORT_VALUES", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3788: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3788: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_EXPORT_VALUES*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3788: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3788: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3788: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3788: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check exportval recv"),( "warmelt-normal.bysl"),(3788), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3788: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3788: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3788: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3789: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3789: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3789: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3789: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3789: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3789: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3789), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3789: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3789: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3789: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3790: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3790: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3790: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3790: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3790: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3790: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3790), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3790: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3790: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3790: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3791: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3791: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3791: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3791: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values recv"; BASILYS_LOCATION("warmelt-normal.bysl:3791: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3791: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3791: @apply.arg"); argtab[3].bp_long = 3791; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3791: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3791: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3791: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3793: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3794: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; }; ; /*_.BINDSLIST__V17*/ curfptr[16] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-normal.bysl:3796: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3796: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3796: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3796: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16]; /*_.NVALUEXPORTER__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3797: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3797: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3797: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3800: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3800: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3800: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3800: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values nvaluexporter"; BASILYS_LOCATION("warmelt-normal.bysl:3800: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3800: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3800: @apply.arg"); argtab[3].bp_long = 3800; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3800: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3800: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3800: @cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3803: @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-normal.bysl:3803: @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)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @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)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @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)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @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)(/*_.BINDSLIST__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @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)(/*_.NVALUEXPORTER__V18*/ curfptr[17]); ; /*_.LAMBDA___V23*/ curfptr[21] = /*_.LAMBDA___V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3801: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3801: @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[7])), (basilys_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3818: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3818: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3818: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3818: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values final nilnrep"; BASILYS_LOCATION("warmelt-normal.bysl:3818: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3818: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3818: @apply.arg"); argtab[3].bp_long = 3818; /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (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-normal.bysl:3818: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3818: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3818: @cppif.else"); /*_.IFCPP___V26*/ curfptr[25] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3819: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3819: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3819: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3819: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values final bindslist"; BASILYS_LOCATION("warmelt-normal.bysl:3819: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3819: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3819: @apply.arg"); argtab[3].bp_long = 3819; /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (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-normal.bysl:3819: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3819: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3819: @cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3820: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];; BASILYS_LOCATION("warmelt-normal.bysl:3820: @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) (/*_.BINDSLIST__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-normal.bysl:3820: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V30*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3792: @clear"); /*clear*/ /*_.RETURN___V30*/ curfptr[28] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3781: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3781: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3781: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3781: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3781: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3781: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3781: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_EXPORT_VALUES", 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_113_NORMEXP_EXPORT_VALUES*/ static basilys_ptr_t rout_114_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_114_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 22 void* varptr[22]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3803: @getarg"); /*_.XNAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3803: @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-normal.bysl:3803: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3804: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3804: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3804: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3804: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3804: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3804: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xnam"),( "warmelt-normal.bysl"),(3804), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3804: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3804: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3804: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3805: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3805: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3805: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3805: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values xnam"; BASILYS_LOCATION("warmelt-normal.bysl:3805: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3805: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3805: @apply.arg"); argtab[3].bp_long = 3805; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.XNAM__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-normal.bysl:3805: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3805: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3805: @cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8]; BASILYS_LOCATION("warmelt-normal.bysl:3806: @multimsend.send"); /*_.NSYM__V8*/ curfptr[7] = basilysgc_send ((basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[2]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3809: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3809: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3809: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3809: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values nsym"; BASILYS_LOCATION("warmelt-normal.bysl:3809: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3809: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3809: @apply.arg"); argtab[3].bp_long = 3809; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.NSYM__V8*/ curfptr[7]), (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-normal.bysl:3809: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3809: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3809: @cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3810: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3810: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3810: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3810: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values nsymbinds"; BASILYS_LOCATION("warmelt-normal.bysl:3810: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3810: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3810: @apply.arg"); argtab[3].bp_long = 3810; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.NSYMBINDS__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3810: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3810: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3810: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3811: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3811: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NSYMBINDS__V9*/ curfptr[8]; /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3812: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3812: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3812: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3812: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values xnam again"; BASILYS_LOCATION("warmelt-normal.bysl:3812: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3812: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3812: @apply.arg"); argtab[3].bp_long = 3812; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (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-normal.bysl:3812: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3812: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3812: @cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3813: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3813: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3813: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3813: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values before normal_exported_value bindslist"; BASILYS_LOCATION("warmelt-normal.bysl:3813: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3813: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3813: @apply.arg"); argtab[3].bp_long = 3813; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[3])), (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-normal.bysl:3813: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3813: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3813: @cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3814: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply"); /*apply*/{ union basilysparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NSYM__V8*/ curfptr[7]; BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3814: @apply.arg"); argtab[5].bp_aptr = (basilys_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[3]); /*_.NEXPV__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3816: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3816: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3816: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3816: @apply.arg"); argtab[0].bp_cstring = "normexp_export_values normal_exported_value gave nexpv"; BASILYS_LOCATION("warmelt-normal.bysl:3816: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3816: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3816: @apply.arg"); argtab[3].bp_long = 3816; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.NEXPV__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3816: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3816: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3816: @cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V19*/ curfptr[17] = /*_.IFCPP___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3814: @clear"); /*clear*/ /*_.NEXPV__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3814: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} ; /*_.MULTI___V7*/ curfptr[5] = /*_.LET___V19*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.LET___V19*/ curfptr[17] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3806: @clear"); /*clear*/ /*_.NSYMBINDS__V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.MULTI___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-normal.bysl:3803: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3803: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3803: @clear"); /*clear*/ /*_.MULTI___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_114_LAMBDA_*/ static basilys_ptr_t rout_115_NORMEXP_EXPORT_CLASS(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_NORMEXP_EXPORT_CLASS_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 7 long varnum[7]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_EXPORT_CLASS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3829: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3829: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_EXPORT_CLASS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3829: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3829: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3829: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3829: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check export_class recv"),( "warmelt-normal.bysl"),(3829), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3829: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3829: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3829: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3830: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3830: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3830: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3830: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3830: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3830: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3830), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3830: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3830: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3830: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3831: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3831: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3831: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3831: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3831: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3831: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3831), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3831: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3831: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3831: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3832: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3832: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3832: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3832: @apply.arg"); argtab[0].bp_cstring = "normexp export_class recv"; BASILYS_LOCATION("warmelt-normal.bysl:3832: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3832: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3832: @apply.arg"); argtab[3].bp_long = 3832; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3832: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3832: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3832: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3834: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3835: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SEXPORT_NAMES");/*_.SXNAMES__V16*/ curfptr[15] = slot; }; ; /*_.BINDSLIST__V17*/ curfptr[16] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-normal.bysl:3837: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3837: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:3837: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3837: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BINDSLIST__V17*/ curfptr[16]; /*_.NVALUEXPORTER__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_VALUE_EXPORTER*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3838: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3838: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V20*/ curfptr[19] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3838: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V20*/ curfptr[19]))));basilys_putfield_object((/*_.INST__V20*/ curfptr[19]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; /*_.NILNREP__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3840: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MOCX__V21*/ curfptr[20] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3842: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3842: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MOCX__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:3842: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3842: @cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3842: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3842: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check mocx"),( "warmelt-normal.bysl"),(3842), __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3842: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3842: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3842: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3845: @newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[24] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (6)); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[0] = (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[1] = (basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[2] = (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[3] = (basilys_ptr_t)(/*_.NVALUEXPORTER__V18*/ curfptr[17]); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[4] = (basilys_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[24])->tabval[5] = (basilys_ptr_t)(/*_.MOCX__V21*/ curfptr[20]); ; /*_.LAMBDA___V24*/ curfptr[22] = /*_.LAMBDA___V25*/ curfptr[24];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3843: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3843: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[22]; /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.SXNAMES__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3901: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3901: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3901: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3901: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class final nilnrep"; BASILYS_LOCATION("warmelt-normal.bysl:3901: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3901: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3901: @apply.arg"); argtab[3].bp_long = 3901; /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NILNREP__V19*/ curfptr[18]), (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-normal.bysl:3901: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3901: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V28*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3901: @cppif.else"); /*_.IFCPP___V27*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3902: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3902: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3902: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3902: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class final bindslist"; BASILYS_LOCATION("warmelt-normal.bysl:3902: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3902: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3902: @apply.arg"); argtab[3].bp_long = 3902; /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDSLIST__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V29*/ curfptr[27] = /*_.DEBUG_MSG_FUN__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3902: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3902: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V30*/ curfptr[29] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3902: @cppif.else"); /*_.IFCPP___V29*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3903: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NILNREP__V19*/ curfptr[18];; BASILYS_LOCATION("warmelt-normal.bysl:3903: @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) (/*_.BINDSLIST__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-normal.bysl:3903: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.SXNAMES__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.BINDSLIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.NVALUEXPORTER__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.NILNREP__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.MOCX__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.IFCPP___V29*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3833: @clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[29] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3828: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3828: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3828: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3828: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3828: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3828: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3828: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_EXPORT_CLASS", 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_NORMEXP_EXPORT_CLASS*/ 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 37 void* varptr[37]; #define CURFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } curfram__; 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("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3845: @getarg"); /*_.XNAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3845: @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-normal.bysl:3845: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3846: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3846: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3846: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3846: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3846: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3846: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xnam"),( "warmelt-normal.bysl"),(3846), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3846: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3846: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3846: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3847: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3847: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.XNAM__V2*/ curfptr[1]; /*_.XBIND__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~ENV*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3848: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3848: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3848: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); /*_.XSYMDATA__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3850: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3850: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3850: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3850: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class xbind"; BASILYS_LOCATION("warmelt-normal.bysl:3850: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-normal.bysl:3850: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3850: @apply.arg"); argtab[3].bp_long = 3850; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.XBIND__V6*/ 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-normal.bysl:3850: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3850: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3850: @cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3851: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3851: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.XSYMDATA__V7*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:3851: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3851: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3851: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3851: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xsymdata"),( "warmelt-normal.bysl"),(3851), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3851: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3851: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3851: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L5*/ curfnum[1] = !basilys_is_instance_of((basilys_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CLASS_BINDING*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:3852: @cond"); /*cond*/ if (/*_#IS_NOT_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3852: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3852: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3855: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "EXPORT_CLASS with non-class-bound symbol"), (basilys_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12])); BASILYS_LOCATION("warmelt-normal.bysl:3856: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-normal.bysl:3856: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3853: @block"); /*block*/{ /*_.PROGN___V15*/ curfptr[14] = /*_.RETURN___V14*/ curfptr[13];;} ; /*_.IF___V12*/ curfptr[10] = /*_.PROGN___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3852: @clear"); /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3852: @clear"); /*clear*/ /*_.RETURN___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3852: @clear"); /*clear*/ /*_.PROGN___V15*/ curfptr[14] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3852: @cond.else"); /*_.IF___V12*/ curfptr[10] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3858: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3858: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 3, "CBIND_CLADATA");/*_.XDATA__V17*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3859: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XBIND__V6*/ curfptr[5]), 2, "CBIND_CLASS");/*_.XCLASS__V18*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3861: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3861: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3861: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3861: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class xdata"; BASILYS_LOCATION("warmelt-normal.bysl:3861: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-normal.bysl:3861: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3861: @apply.arg"); argtab[3].bp_long = 3861; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (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-normal.bysl:3861: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3861: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3861: @cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_NOT_A__L7*/ curfnum[5] = !basilys_is_instance_of((basilys_ptr_t)(/*_.XDATA__V17*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_NREP_DATA*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:3862: @cond"); /*cond*/ if (/*_#IS_NOT_A__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3862: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3862: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3864: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V21*/ curfptr[19] = slot; }; ; basilys_error_str((basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])), ( "forward defined class symbol to EXPORT_CLASS"), (basilys_ptr_t)(/*_.NAMED_NAME__V21*/ curfptr[19])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3862: @clear"); /*clear*/ /*_.NAMED_NAME__V21*/ curfptr[19] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3865: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply"); /*apply*/{ union basilysparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.XDATA__V17*/ curfptr[13]; BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3865: @apply.arg"); argtab[5].bp_aptr = (basilys_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[4]); /*_.NCLAV__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.XNAM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3867: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3867: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3867: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3867: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class nclav"; BASILYS_LOCATION("warmelt-normal.bysl:3867: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:3867: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3867: @apply.arg"); argtab[3].bp_long = 3867; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NCLAV__V23*/ curfptr[22]), (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-normal.bysl:3867: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3867: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3867: @cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3868: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3868: @block"); /*block*/{ /*_#IS_A__L9*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[8])));; BASILYS_LOCATION("warmelt-normal.bysl:3868: @cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3868: @cond.then"); /*_.IFELSE___V27*/ curfptr[26] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3868: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3868: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xclass"),( "warmelt-normal.bysl"),(3868), __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[24] = /*_.IFELSE___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3868: @clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3868: @clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3868: @cppif.else"); /*_.IFCPP___V26*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3869: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 6, "CLASS_FIELDS");/*_.XCLFIELDS__V29*/ curfptr[28] = slot; }; ; /*_#OBJECT_LENGTH__L10*/ curfnum[7] = ((long)basilys_object_length((basilys_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));; /*_#GET_INT__L11*/ curfnum[10] = (basilys_get_int((basilys_ptr_t)((/*!MOCX_EXPCLASSDICT*/ curfrout->tabval[9]))));; /*_#I__L12*/ curfnum[11] = ((/*_#OBJECT_LENGTH__L10*/ curfnum[7]) > (/*_#GET_INT__L11*/ curfnum[10]));; BASILYS_LOCATION("warmelt-normal.bysl:3873: @cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3873: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3873: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3874: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = slot; }; ; /*_.EXPCLADIC__V30*/ curfptr[29] = /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3873: @clear"); /*clear*/ /*_.MOCX_EXPCLASSDICT__V31*/ curfptr[30] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3873: @cond.else"); /*_.EXPCLADIC__V30*/ curfptr[29] = NULL;; } ; /*_#OBJECT_LENGTH__L13*/ curfnum[12] = ((long)basilys_object_length((basilys_ptr_t)((/*~MOCX*/ curfclos->tabval[5]))));; /*_#GET_INT__L14*/ curfnum[13] = (basilys_get_int((basilys_ptr_t)((/*!MOCX_EXPFIELDICT*/ curfrout->tabval[10]))));; /*_#I__L15*/ curfnum[14] = ((/*_#OBJECT_LENGTH__L13*/ curfnum[12]) > (/*_#GET_INT__L14*/ curfnum[13]));; BASILYS_LOCATION("warmelt-normal.bysl:3876: @cond"); /*cond*/ if (/*_#I__L15*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3876: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3876: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3877: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~MOCX*/ curfclos->tabval[5])), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = slot; }; ; /*_.EXPFLDIC__V32*/ curfptr[30] = /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3876: @clear"); /*clear*/ /*_.MOCX_EXPFIELDICT__V33*/ curfptr[32] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3876: @cond.else"); /*_.EXPFLDIC__V32*/ curfptr[30] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3879: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.XCLASS__V18*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V34*/ curfptr[32] = slot; }; ; basilysgc_put_mapstrings((struct basilysmapstrings_st *) (/*_.EXPCLADIC__V30*/ curfptr[29]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V34*/ curfptr[32])), (basilys_ptr_t)(/*_.XCLASS__V18*/ curfptr[14])); BASILYS_LOCATION("warmelt-normal.bysl:3882: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3882: @newclosure"); /*newclosure*/ /*_.LAMBDA___V36*/ curfptr[35] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (7)); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @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)(/*_.XCLASS__V18*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @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)((/*~ENV*/ curfclos->tabval[0])); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[2] = (basilys_ptr_t)((/*~NVALUEXPORTER*/ curfclos->tabval[3])); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[3] = (basilys_ptr_t)((/*~NCX*/ curfclos->tabval[1])); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[4] = (basilys_ptr_t)((/*~SLOC*/ curfclos->tabval[2])); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 5>= 0 && 5< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[5] = (basilys_ptr_t)((/*~BINDSLIST*/ curfclos->tabval[4])); ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V36*/ curfptr[35])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 6>= 0 && 6< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V36*/ curfptr[35]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V36*/ curfptr[35])->tabval[6] = (basilys_ptr_t)(/*_.EXPFLDIC__V32*/ curfptr[30]); ; /*_.LAMBDA___V35*/ curfptr[34] = /*_.LAMBDA___V36*/ curfptr[35];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3880: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3880: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V35*/ curfptr[34]; /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.XCLFIELDS__V29*/ curfptr[28]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V28*/ curfptr[26] = /*_.MULTIPLE_EVERY__V37*/ curfptr[36];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.XCLFIELDS__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#OBJECT_LENGTH__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.EXPCLADIC__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#OBJECT_LENGTH__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#GET_INT__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.EXPFLDIC__V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.NAMED_NAME__V34*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.LAMBDA___V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3869: @clear"); /*clear*/ /*_.MULTIPLE_EVERY__V37*/ curfptr[36] = 0 ;} ; /*_.LET___V22*/ curfptr[19] = /*_.LET___V28*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3865: @clear"); /*clear*/ /*_.NCLAV__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3865: @clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3865: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3865: @clear"); /*clear*/ /*_.LET___V28*/ curfptr[26] = 0 ;} ; /*_.LET___V16*/ curfptr[12] = /*_.LET___V22*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3858: @clear"); /*clear*/ /*_.XDATA__V17*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3858: @clear"); /*clear*/ /*_.XCLASS__V18*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3858: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3858: @clear"); /*clear*/ /*_#IS_NOT_A__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3858: @clear"); /*clear*/ /*_.LET___V22*/ curfptr[19] = 0 ;} ; /*_.LET___V5*/ curfptr[3] = /*_.LET___V16*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.XBIND__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.XSYMDATA__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_#IS_NOT_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.IF___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3847: @clear"); /*clear*/ /*_.LET___V16*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:3845: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3845: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3845: @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_116_LAMBDA_*/ static basilys_ptr_t rout_117_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_117_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 22 void* varptr[22]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*others*/ long _spare_; } curfram__; 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("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3882: @getarg"); /*_.CURFLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3882: @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-normal.bysl:3882: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3883: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3883: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3883: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3883: @cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3883: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3883: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curfld"),( "warmelt-normal.bysl"),(3883), __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3883: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3883: @clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3883: @cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3884: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3884: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.FLDNAM__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3885: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURFLD__V2*/ curfptr[1]), 2, "FLD_OWNCLASS");/*_.FLDCLASS__V7*/ curfptr[6] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.FLDCLASS__V7*/ curfptr[6]) == ((/*~XCLASS*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3887: @cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3887: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3887: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3888: @block"); /*block*/{ /*_.FLDSYM__V10*/ curfptr[9] = basilysgc_named_symbol( basilys_string_str((basilys_ptr_t)(/*_.FLDNAM__V6*/ curfptr[5])), BASILYS_GET);; BASILYS_LOCATION("warmelt-normal.bysl:3889: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3889: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FLDSYM__V10*/ curfptr[9]; /*_.FLDBIND__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~ENV*/ curfclos->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3891: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3891: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_FIELD_BINDING*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3891: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3891: @cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3891: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3891: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fldbind"),( "warmelt-normal.bysl"),(3891), __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3891: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3891: @clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3891: @cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3892: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 3, "FLBIND_FDATA");/*_.FLDATA__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3893: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLDBIND__V11*/ curfptr[10]), 2, "FLBIND_FIELD");/*_.FIELD__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply"); /*apply*/{ union basilysparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FLDATA__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NVALUEXPORTER*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &(/*~ENV*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &(/*~SLOC*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-normal.bysl:3894: @apply.arg"); argtab[5].bp_aptr = (basilys_ptr_t*) &(/*~BINDSLIST*/ curfclos->tabval[5]); /*_.NFLD__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_EXPORTED_VALUE*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.FLDSYM__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3896: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3896: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3896: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3896: @cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3896: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3896: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check field"),( "warmelt-normal.bysl"),(3896), __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[17] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3896: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3896: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3896: @cppif.else"); /*_.IFCPP___V18*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3897: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FIELD__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V20*/ curfptr[18] = slot; }; ; basilysgc_put_mapstrings((struct basilysmapstrings_st *) ((/*~EXPFLDIC*/ curfclos->tabval[6])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V20*/ curfptr[18])), (basilys_ptr_t)(/*_.FIELD__V16*/ curfptr[15])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3898: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3898: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3898: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3898: @apply.arg"); argtab[0].bp_cstring = "normexp_export_class nfld"; BASILYS_LOCATION("warmelt-normal.bysl:3898: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3]; BASILYS_LOCATION("warmelt-normal.bysl:3898: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3898: @apply.arg"); argtab[3].bp_long = 3898; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.NFLD__V17*/ curfptr[16]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3898: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3898: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3898: @cppif.else"); /*_.IFCPP___V21*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V14*/ curfptr[12] = /*_.IFCPP___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.FLDATA__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.FIELD__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.NFLD__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.NAMED_NAME__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3892: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[20] = 0 ;} ; /*_.LET___V9*/ curfptr[8] = /*_.LET___V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3888: @clear"); /*clear*/ /*_.FLDSYM__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3888: @clear"); /*clear*/ /*_.FLDBIND__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3888: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3888: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; /*_.IF___V8*/ curfptr[7] = /*_.LET___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3887: @clear"); /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3887: @cond.else"); /*_.IF___V8*/ curfptr[7] = NULL;; } ; /*_.LET___V5*/ curfptr[3] = /*_.IF___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3884: @clear"); /*clear*/ /*_.FLDNAM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3884: @clear"); /*clear*/ /*_.FLDCLASS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3884: @clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3884: @clear"); /*clear*/ /*_.IF___V8*/ curfptr[7] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-normal.bysl:3882: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3882: @clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3882: @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_117_LAMBDA_*/ static basilys_ptr_t rout_118_NORMAL_MACRO_EXPORTER(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_NORMAL_MACRO_EXPORTER_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 5 long varnum[5]; /*others*/ long _spare_; } curfram__; 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("NORMAL_MACRO_EXPORTER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @getarg"); /*_.ENV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3911: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3911: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3911: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3911: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3911: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3911: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3911), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3911: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3911: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3911: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3912: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3912: @block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3912: @cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3912: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3912: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3912: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindslist"),( "warmelt-normal.bysl"),(3912), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3912: @clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3912: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3912: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3913: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3913: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3913: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3913: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3913: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3913: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-normal.bysl"),(3913), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3913: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3913: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3913: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3914: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3914: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3914: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3914: @apply.arg"); argtab[0].bp_cstring = "normal_macro_exporter start psloc"; BASILYS_LOCATION("warmelt-normal.bysl:3914: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3914: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3914: @apply.arg"); argtab[3].bp_long = 3914; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PSLOC__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3914: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3914: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3914: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3915: @apply"); /*apply*/{ /*_.CSYMVALEXP__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!konst_4_MACROXPORTER_*/ curfrout->tabval[4])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3916: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3916: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[5])), (2), "CLASS_NREP_PREDEF");/*_.INST__V17*/ curfptr[16] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3916: @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), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3916: @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), ((/*!konst_6_INITIAL_SYSTEM_DATA*/ curfrout->tabval[6])), "NRPREDEF"); ; /*_.NSYSDAT__V16*/ curfptr[15] = /*_.INST__V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3923: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3923: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_UNSAFE_GET_FIELD*/ curfrout->tabval[9])), (3), "CLASS_NREP_UNSAFE_GET_FIELD");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3923: @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), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3923: @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), (/*_.NSYSDAT__V16*/ curfptr[15]), "NUGET_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:3923: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), ((/*!SYSDATA_MACRO_EXPORTER*/ curfrout->tabval[10])), "NUGET_FIELD"); ; /*_.INST___V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3919: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3919: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[7])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3919: @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), (/*_.PSLOC__V4*/ curfptr[3]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3919: @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), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3919: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3919: @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), (/*_.INST___V18*/ curfptr[17]), "LETBIND_EXPR"); ; /*_.CBIND__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3927: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3927: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[11])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V23*/ curfptr[22] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3927: @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), (/*_.PSLOC__V4*/ curfptr[3]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3927: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[8])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3927: @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), (/*_.CSYMVALEXP__V15*/ curfptr[14]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3927: @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), (/*_.CBIND__V20*/ curfptr[19]), "NOCC_BIND"); ; /*_.LOCSYM__V22*/ curfptr[21] = /*_.INST__V23*/ curfptr[22];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDSLIST__V5*/ curfptr[4]), (basilys_ptr_t)(/*_.CBIND__V20*/ curfptr[19])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3934: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3934: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3934: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3934: @apply.arg"); argtab[0].bp_cstring = "normal_macro_exporter return locsym"; BASILYS_LOCATION("warmelt-normal.bysl:3934: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3934: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3934: @apply.arg"); argtab[3].bp_long = 3934; /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.LOCSYM__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-normal.bysl:3934: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3934: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3934: @cppif.else"); /*_.IFCPP___V24*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3935: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LOCSYM__V22*/ curfptr[21];; BASILYS_LOCATION("warmelt-normal.bysl:3935: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V26*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.CSYMVALEXP__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.NSYSDAT__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.INST___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.CBIND__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.LOCSYM__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3915: @clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3910: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3910: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3910: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3910: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3910: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3910: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3910: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_MACRO_EXPORTER", 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_NORMAL_MACRO_EXPORTER*/ static basilys_ptr_t rout_119_NORMAL_EXPORTED_MACRO(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_NORMAL_EXPORTED_MACRO_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 15 long varnum[15]; /*others*/ long _spare_; } curfram__; 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("NORMAL_EXPORTED_MACRO", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); /*_.SYM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.NEXP__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NMACROXP__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.ENV__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4])) != NULL); /*getarg#4*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[3] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V6*/ curfptr[5] = (xargtab_[3].bp_aptr) ? (*(xargtab_[3].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5])) != NULL); /*getarg#5*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[4] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V7*/ curfptr[6] = (xargtab_[4].bp_aptr) ? (*(xargtab_[4].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V7*/ curfptr[6])) != NULL); /*getarg#6*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @getarg"); if (xargdescr_[5] != BPAR_PTR) goto lab_endgetargs; /*_.BINDSLIST__V8*/ curfptr[7] = (xargtab_[5].bp_aptr) ? (*(xargtab_[5].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3941: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3941: @block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3941: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3941: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro start sym"; BASILYS_LOCATION("warmelt-normal.bysl:3941: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3941: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3941: @apply.arg"); argtab[3].bp_long = 3941; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (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-normal.bysl:3941: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3941: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3941: @cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3942: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3942: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3942: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3942: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro start nexp"; BASILYS_LOCATION("warmelt-normal.bysl:3942: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3942: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3942: @apply.arg"); argtab[3].bp_long = 3942; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (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-normal.bysl:3942: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3942: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3942: @cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3943: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3943: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3943: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3943: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro start nmacroxp"; BASILYS_LOCATION("warmelt-normal.bysl:3943: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3943: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3943: @apply.arg"); argtab[3].bp_long = 3943; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (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-normal.bysl:3943: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3943: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3943: @cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3944: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3944: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3944: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3944: @cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3944: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3944: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sym"),( "warmelt-normal.bysl"),(3944), __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3944: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3944: @clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3944: @cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3945: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3945: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3945: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3945: @cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3945: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3945: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nexp"),( "warmelt-normal.bysl"),(3945), __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[15] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3945: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3945: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3945: @cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3946: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3946: @block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NMACROXP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3946: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3946: @cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3946: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3946: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nmacroxp"),( "warmelt-normal.bysl"),(3946), __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3946: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3946: @clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3946: @cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3947: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3947: @block"); /*block*/{ /*_#IS_A__L7*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V5*/ curfptr[4]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-normal.bysl:3947: @cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3947: @cond.then"); /*_.IFELSE___V22*/ curfptr[21] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3947: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3947: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3947), __FUNCTION__); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.IFELSE___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3947: @clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3947: @clear"); /*clear*/ /*_.IFELSE___V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3947: @cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3948: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3948: @block"); /*block*/{ /*_#IS_A__L8*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:3948: @cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3948: @cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3948: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3948: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-normal.bysl"),(3948), __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[21] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3948: @clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3948: @clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3948: @cppif.else"); /*_.IFCPP___V23*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3949: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3949: @block"); /*block*/{ /*_#IS_LIST__L9*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3949: @cond"); /*cond*/ if (/*_#IS_LIST__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3949: @cond.then"); /*_.IFELSE___V26*/ curfptr[25] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3949: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3949: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check bindslist"),( "warmelt-normal.bysl"),(3949), __FUNCTION__); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V25*/ curfptr[23] = /*_.IFELSE___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3949: @clear"); /*clear*/ /*_#IS_LIST__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3949: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3949: @cppif.else"); /*_.IFCPP___V25*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3950: @apply"); /*apply*/{ /*_.CSYMEXPO__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[5])), (basilys_ptr_t)((/*!konst_6_EXPORTEDM_*/ curfrout->tabval[6])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3951: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3951: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:3951: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; /*_.SYMDATA__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_SYMBOL_DATA*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:3952: @block"); /*block*/{ /*_.SB__V31*/ curfptr[30] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V31*/ curfptr[30]), ( "norm.exp.val : ")); BASILYS_LOCATION("warmelt-normal.bysl:3954: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SYM__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V31*/ curfptr[30]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31]))); /*_.LET___V30*/ curfptr[29] = /*_.SB__V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3952: @clear"); /*clear*/ /*_.SB__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3952: @clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ;} ; /*_.CSBUF__V33*/ curfptr[30] = /*_.LET___V30*/ curfptr[29];; /*_.STRBUF2STRING__V34*/ curfptr[31] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), basilys_strbuf_str((basilys_ptr_t)(/*_.CSBUF__V33*/ curfptr[30]))));; BASILYS_LOCATION("warmelt-normal.bysl:3956: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3956: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (2), "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ curfptr[35] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3956: @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), (/*_.PSLOC__V7*/ curfptr[6]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3956: @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), (/*_.STRBUF2STRING__V34*/ curfptr[31]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3960: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3960: @block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3960: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3960: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro sgetcurenvbox"; BASILYS_LOCATION("warmelt-normal.bysl:3960: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3960: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3960: @apply.arg"); argtab[3].bp_long = 3960; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SCURENVBOX__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-normal.bysl:3960: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3960: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3960: @cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V5*/ curfptr[4]; BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V6*/ curfptr[5]; BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V7*/ curfptr[6]; BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40]; BASILYS_LOCATION("warmelt-normal.bysl:3961: @multimsend.send"); /*_.NCURENVBOX__V40*/ curfptr[39] = basilysgc_send ((basilys_ptr_t)(/*_.SCURENVBOX__V35*/ curfptr[34]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[11]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3964: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3964: @block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3964: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3964: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro ncurenvbox"; BASILYS_LOCATION("warmelt-normal.bysl:3964: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3964: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3964: @apply.arg"); argtab[3].bp_long = 3964; /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V42*/ curfptr[41] = /*_.DEBUG_MSG_FUN__V43*/ curfptr[42];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3964: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3964: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V43*/ curfptr[42] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3964: @cppif.else"); /*_.IFCPP___V42*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3965: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3965: @block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3965: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3965: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro curenvbinds"; BASILYS_LOCATION("warmelt-normal.bysl:3965: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3965: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3965: @apply.arg"); argtab[3].bp_long = 3965; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40]), (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-normal.bysl:3965: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3965: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3965: @cppif.else"); /*_.IFCPP___V44*/ curfptr[42] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_LIST__L13*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.CURENVBINDS__V41*/ curfptr[40])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-normal.bysl:3966: @cond"); /*cond*/ if (/*_#IS_LIST__L13*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3966: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:3966: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3966: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3966: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENVBINDS__V41*/ curfptr[40]; /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V46*/ curfptr[44] = /*_.LIST_APPEND2LIST__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3966: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V47*/ curfptr[46] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:3966: @cond.else"); /*_.IF___V46*/ curfptr[44] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @block"); /*block*/{ /*_.MAKE_TUPLE3__V49*/ curfptr[48] = (basilysgc_new_mult3((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[16])), (basilys_ptr_t)(/*_.SYMDATA__V29*/ curfptr[28]), (basilys_ptr_t)(/*_.NEXP__V3*/ curfptr[2]), (basilys_ptr_t)(/*_.NCURENVBOX__V40*/ curfptr[39])));; BASILYS_LOCATION("warmelt-normal.bysl:3972: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3972: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_APPLY*/ curfrout->tabval[15])), (3), "CLASS_NREP_APPLY");/*_.INST__V51*/ curfptr[50] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3972: @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), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3972: @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), (/*_.NMACROXP__V4*/ curfptr[3]), "NAPP_FUN"); ; BASILYS_LOCATION("warmelt-normal.bysl:3972: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V51*/ curfptr[50]))));basilys_putfield_object((/*_.INST__V51*/ curfptr[50]), (2), (/*_.MAKE_TUPLE3__V49*/ curfptr[48]), "NAPP_ARGS"); ; /*_.INST___V50*/ curfptr[49] = /*_.INST__V51*/ curfptr[50];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3968: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3968: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V53*/ curfptr[52] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3968: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (3), (/*_.PSLOC__V7*/ curfptr[6]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3968: @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), (/*_.CSYMEXPO__V28*/ curfptr[27]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:3968: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[14])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:3968: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V53*/ curfptr[52]))));basilys_putfield_object((/*_.INST__V53*/ curfptr[52]), (2), (/*_.INST___V50*/ curfptr[49]), "LETBIND_EXPR"); ; /*_.CBIND__V52*/ curfptr[51] = /*_.INST__V53*/ curfptr[52];;} ; BASILYS_LOCATION("warmelt-normal.bysl:3976: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3976: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[17])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V55*/ curfptr[54] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3976: @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), (/*_.PSLOC__V7*/ curfptr[6]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:3976: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[14])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:3976: @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), (/*_.CSYMEXPO__V28*/ curfptr[27]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:3976: @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), (/*_.CBIND__V52*/ curfptr[51]), "NOCC_BIND"); ; /*_.SYOCC__V54*/ curfptr[53] = /*_.INST__V55*/ curfptr[54];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3982: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3982: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3982: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3982: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro cbind"; BASILYS_LOCATION("warmelt-normal.bysl:3982: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:3982: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3982: @apply.arg"); argtab[3].bp_long = 3982; /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CBIND__V52*/ curfptr[51]), (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-normal.bysl:3982: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3982: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3982: @cppif.else"); /*_.IFCPP___V56*/ curfptr[55] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3983: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3983: @block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3983: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3983: @apply.arg"); argtab[0].bp_cstring = "normal_exported_macro return syocc"; BASILYS_LOCATION("warmelt-normal.bysl:3983: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[13]; BASILYS_LOCATION("warmelt-normal.bysl:3983: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3983: @apply.arg"); argtab[3].bp_long = 3983; /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYOCC__V54*/ curfptr[53]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V58*/ curfptr[56] = /*_.DEBUG_MSG_FUN__V59*/ curfptr[58];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3983: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3983: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V59*/ curfptr[58] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3983: @cppif.else"); /*_.IFCPP___V58*/ curfptr[56] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)(/*_.BINDSLIST__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.CBIND__V52*/ curfptr[51])); /*_.LET___V48*/ curfptr[46] = /*_.SYOCC__V54*/ curfptr[53];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.MAKE_TUPLE3__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.INST___V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.CBIND__V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.SYOCC__V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[55] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3967: @clear"); /*clear*/ /*_.IFCPP___V58*/ curfptr[56] = 0 ;} ; /*_.MULTI___V39*/ curfptr[37] = /*_.LET___V48*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_.IFCPP___V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_#IS_LIST__L13*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_.IF___V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_.LET___V48*/ curfptr[46] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3961: @clear"); /*clear*/ /*_.CURENVBINDS__V41*/ curfptr[40] = 0 ;} ; /*_.LET___V27*/ curfptr[25] = /*_.MULTI___V39*/ curfptr[37];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.CSYMEXPO__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.SYMDATA__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.LET___V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.CSBUF__V33*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.STRBUF2STRING__V34*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.SCURENVBOX__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3950: @clear"); /*clear*/ /*_.MULTI___V39*/ curfptr[37] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V27*/ curfptr[25];; BASILYS_LOCATION("warmelt-normal.bysl:3940: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3940: @clear"); /*clear*/ /*_.LET___V27*/ curfptr[25] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMAL_EXPORTED_MACRO", 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_NORMAL_EXPORTED_MACRO*/ static basilys_ptr_t rout_120_NORMEXP_EXPORT_MACRO(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_NORMEXP_EXPORT_MACRO_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 36 void* varptr[36]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 36; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_EXPORT_MACRO", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3991: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3991: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_EXPORT_MACRO*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:3991: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3991: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3991: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3991: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check export_macro recv"),( "warmelt-normal.bysl"),(3991), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3991: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3991: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3991: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3992: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3992: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:3992: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3992: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3992: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3992: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(3992), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3992: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3992: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3992: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3993: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3993: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:3993: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:3993: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:3993: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:3993: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(3993), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3993: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3993: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3993: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:3994: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:3994: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:3994: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3994: @apply.arg"); argtab[0].bp_cstring = "normexp export_macro recv"; BASILYS_LOCATION("warmelt-normal.bysl:3994: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:3994: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:3994: @apply.arg"); argtab[3].bp_long = 3994; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3994: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3994: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:3994: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3996: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3997: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SEXPMAC_MNAME");/*_.MNAME__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:3998: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SEXPMAC_MVAL");/*_.MVALEXP__V17*/ curfptr[16] = slot; }; ; /*_.BINDSLIST__V18*/ curfptr[17] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; BASILYS_LOCATION("warmelt-normal.bysl:4000: @apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4000: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:4000: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:4000: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; /*_.NMACEXP__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_MACRO_EXPORTER*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:4001: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4001: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[6])), (1), "CLASS_NREP_NIL");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4001: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; /*_.NREPNIL__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4003: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4003: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-normal.bysl:4003: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4003: @cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4003: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4003: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check mname"),( "warmelt-normal.bysl"),(4003), __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4003: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4003: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4003: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25]; BASILYS_LOCATION("warmelt-normal.bysl:4004: @multimsend.send"); /*_.NEXP__V25*/ curfptr[24] = basilysgc_send ((basilys_ptr_t)(/*_.MVALEXP__V17*/ curfptr[16]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4007: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4007: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDS__V26*/ curfptr[25]; /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:4008: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply"); /*apply*/{ union basilysparam_un argtab[6]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NEXP__V25*/ curfptr[24]; BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NMACEXP__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:4009: @apply.arg"); argtab[5].bp_aptr = (basilys_ptr_t*) &/*_.BINDSLIST__V18*/ curfptr[17]; /*_.NEXPM__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!NORMAL_EXPORTED_MACRO*/ curfrout->tabval[10])), (basilys_ptr_t)(/*_.MNAME__V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4011: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4011: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4011: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4011: @apply.arg"); argtab[0].bp_cstring = "normexp_export_macro nexpm"; BASILYS_LOCATION("warmelt-normal.bysl:4011: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4011: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4011: @apply.arg"); argtab[3].bp_long = 4011; /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NEXPM__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-normal.bysl:4011: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4011: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V31*/ curfptr[30] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4011: @cppif.else"); /*_.IFCPP___V30*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_.LET___V28*/ curfptr[27] = /*_.IFCPP___V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4008: @clear"); /*clear*/ /*_.NEXPM__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4008: @clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[29] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4013: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4013: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4013: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4013: @apply.arg"); argtab[0].bp_cstring = "normexp_export_macro final nrepnil"; BASILYS_LOCATION("warmelt-normal.bysl:4013: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4013: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4013: @apply.arg"); argtab[3].bp_long = 4013; /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NREPNIL__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[30] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4013: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4013: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4013: @cppif.else"); /*_.IFCPP___V32*/ curfptr[30] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4014: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4014: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4014: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4014: @apply.arg"); argtab[0].bp_cstring = "normexp_export_macro final bindslist"; BASILYS_LOCATION("warmelt-normal.bysl:4014: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4014: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4014: @apply.arg"); argtab[3].bp_long = 4014; /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDSLIST__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V34*/ curfptr[29] = /*_.DEBUG_MSG_FUN__V35*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4014: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4014: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V35*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4014: @cppif.else"); /*_.IFCPP___V34*/ curfptr[29] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4015: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NREPNIL__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:4015: @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) (/*_.BINDSLIST__V18*/ curfptr[17]); ; BASILYS_LOCATION("warmelt-normal.bysl:4015: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.MULTI___V24*/ curfptr[22] = /*_.RETURN___V36*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.LIST_APPEND2LIST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.LET___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.IFCPP___V34*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.RETURN___V36*/ curfptr[28] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4004: @clear"); /*clear*/ /*_.NBINDS__V26*/ curfptr[25] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V24*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.MNAME__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.MVALEXP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.BINDSLIST__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.NMACEXP__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.NREPNIL__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3995: @clear"); /*clear*/ /*_.MULTI___V24*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:3990: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:3990: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:3990: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3990: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3990: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3990: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:3990: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_EXPORT_MACRO", 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_NORMEXP_EXPORT_MACRO*/ static basilys_ptr_t rout_121_NORMEXP_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_121_NORMEXP_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 27 void* varptr[27]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 27; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4022: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4022: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4022: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4022: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4022: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4022: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check current_module_environment_container recv"),( "warmelt-normal.bysl"),(4022), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4022: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4022: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4022: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4023: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4023: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:4023: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4023: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4023: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4023: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(4023), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4023: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4023: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4023: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4024: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4024: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:4024: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4024: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4024: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4024: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(4024), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4024: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4024: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4024: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4025: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4025: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4025: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4025: @apply.arg"); argtab[0].bp_cstring = "normexp_current_module_environment_container recv"; BASILYS_LOCATION("warmelt-normal.bysl:4025: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4025: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4025: @apply.arg"); argtab[3].bp_long = 4025; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4025: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4025: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4025: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4027: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4028: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "CMEC_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4029: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 14, "NCTX_PROCURMODENVLIST");/*_.NCURMODENVLIST__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4030: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4031: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 12, "NCTX_QDATCURMODENVBOX");/*_.QDATCUR__V19*/ curfptr[18] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4032: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[4])), (5), "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V21*/ curfptr[20] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @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), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @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), (/*_.CURPROC__V18*/ curfptr[17]), "NCONST_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @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), (/*_.QDATCUR__V19*/ curfptr[18]), "NCONST_DATA"); ; BASILYS_LOCATION("warmelt-normal.bysl:4032: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.INST__V21*/ curfptr[20]))));basilys_putfield_object((/*_.INST__V21*/ curfptr[20]), (4), (/*_.SCOMM__V16*/ curfptr[15]), "NQCMEC_COMMENT"); ; /*_.NQUASI__V20*/ curfptr[19] = /*_.INST__V21*/ curfptr[20];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4040: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4040: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:4040: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4040: @cond.then"); /*_.IFELSE___V23*/ curfptr[22] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4040: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4040: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check qdatcur"),( "warmelt-normal.bysl"),(4040), __FUNCTION__); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V22*/ curfptr[21] = /*_.IFELSE___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4040: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4040: @clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4040: @cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:4041: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4041: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4041: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4043: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V18*/ curfptr[17]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V24*/ curfptr[22] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NRPRO_CONST__V24*/ curfptr[22]), (basilys_ptr_t)(/*_.QDATCUR__V19*/ curfptr[18])); basilysgc_append_list((basilys_ptr_t)(/*_.NCURMODENVLIST__V17*/ curfptr[16]), (basilys_ptr_t)(/*_.CURPROC__V18*/ curfptr[17])); BASILYS_LOCATION("warmelt-normal.bysl:4042: @block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4041: @clear"); /*clear*/ /*_.NRPRO_CONST__V24*/ curfptr[22] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4046: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4046: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4046: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4046: @apply.arg"); argtab[0].bp_cstring = "normexp_current_module_environment_container nquasi"; BASILYS_LOCATION("warmelt-normal.bysl:4046: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:4046: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4046: @apply.arg"); argtab[3].bp_long = 4046; /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NQUASI__V20*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V25*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4046: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4046: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V26*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4046: @cppif.else"); /*_.IFCPP___V25*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4047: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V20*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:4047: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V27*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.NCURMODENVLIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.CURPROC__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.QDATCUR__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.NQUASI__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.IFCPP___V25*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4026: @clear"); /*clear*/ /*_.RETURN___V27*/ curfptr[25] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4021: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:4021: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4021: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4021: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4021: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4021: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4021: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_121_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t rout_122_NORMEXP_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_122_NORMEXP_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 25 void* varptr[25]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_PARENT_MODULE_ENVIRONMENT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4054: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4054: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4054: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4054: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4054: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4054: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check parent_module_environment recv"),( "warmelt-normal.bysl"),(4054), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4054: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4054: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4054: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4055: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4055: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:4055: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4055: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4055: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4055: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(4055), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4055: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4055: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4055: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4056: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4056: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:4056: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4056: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4056: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4056: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(4056), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4056: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4056: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4056: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4057: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4057: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4057: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4057: @apply.arg"); argtab[0].bp_cstring = "normexp_parent_module_environment recv"; BASILYS_LOCATION("warmelt-normal.bysl:4057: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4057: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4057: @apply.arg"); argtab[3].bp_long = 4057; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4057: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4057: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4057: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4059: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4060: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4061: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 13, "NCTX_QDATPARMODENV");/*_.QDATPAR__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4062: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4062: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[4])), (4), "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT");/*_.INST__V19*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4062: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4062: @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), (/*_.RECV__V2*/ curfptr[1]), "NCONST_SVAL"); ; BASILYS_LOCATION("warmelt-normal.bysl:4062: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (2), (/*_.CURPROC__V16*/ curfptr[15]), "NCONST_PROC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4062: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V19*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V19*/ curfptr[18]), (3), (/*_.QDATPAR__V17*/ curfptr[16]), "NCONST_DATA"); ; /*_.NQUASI__V18*/ curfptr[17] = /*_.INST__V19*/ curfptr[18];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4069: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4069: @block"); /*block*/{ /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-normal.bysl:4069: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4069: @cond.then"); /*_.IFELSE___V21*/ curfptr[20] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4069: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4069: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check qdatpar"),( "warmelt-normal.bysl"),(4069), __FUNCTION__); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V20*/ curfptr[19] = /*_.IFELSE___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4069: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4069: @clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4069: @cppif.else"); /*_.IFCPP___V20*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-normal.bysl:4070: @cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4070: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4070: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4071: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURPROC__V16*/ curfptr[15]), 5, "NRPRO_CONST");/*_.NRPRO_CONST__V22*/ curfptr[20] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NRPRO_CONST__V22*/ curfptr[20]), (basilys_ptr_t)(/*_.QDATPAR__V17*/ curfptr[16])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4070: @clear"); /*clear*/ /*_.NRPRO_CONST__V22*/ curfptr[20] = 0 ;} ; } /*noelse*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4072: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4072: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4072: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4072: @apply.arg"); argtab[0].bp_cstring = "normexp_parent_module_environment nquasi"; BASILYS_LOCATION("warmelt-normal.bysl:4072: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:4072: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4072: @apply.arg"); argtab[3].bp_long = 4072; /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NQUASI__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V23*/ curfptr[20] = /*_.DEBUG_MSG_FUN__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4072: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4072: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4072: @cppif.else"); /*_.IFCPP___V23*/ curfptr[20] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4073: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NQUASI__V18*/ curfptr[17];; BASILYS_LOCATION("warmelt-normal.bysl:4073: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.CURPROC__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.QDATPAR__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.NQUASI__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.IFCPP___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4058: @clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[23] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4053: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:4053: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4053: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4053: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4053: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4053: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4053: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_122_NORMEXP_PARENT_MODULE_ENVIRONMENT*/ static basilys_ptr_t rout_123_NORMEXP_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_123_NORMEXP_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 58 void* varptr[58]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4080: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4080: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4080: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4080: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4080: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4080: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check update_current_module_environment_container recv"),( "warmelt-normal.bysl"),(4080), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4080: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4080: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4080: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4081: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4081: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:4081: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4081: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4081: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4081: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(4081), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4081: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4081: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4081: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4082: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4082: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:4082: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4082: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4082: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4082: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(4082), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4082: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4082: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4082: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4083: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4083: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4083: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4083: @apply.arg"); argtab[0].bp_cstring = "normexp_update_current_module_environment_container recv"; BASILYS_LOCATION("warmelt-normal.bysl:4083: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4083: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4083: @apply.arg"); argtab[3].bp_long = 4083; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4083: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4083: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4083: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4085: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4086: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SUCME_COMMENT");/*_.SCOMM__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4087: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 10, "NCTX_CURPROC");/*_.CURPROC__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4088: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 0, "NCTX_INITPROC");/*_.INIPROC__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4089: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 11, "NCTX_MODULCONTEXT");/*_.MODCTX__V19*/ curfptr[18] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:4090: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4090: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4090: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4090: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), 0, "MOCX_MODULENAME");/*_.MOCX_MODULENAME__V21*/ curfptr[20] = slot; }; ; /*_.MODNAM__V20*/ curfptr[19] = /*_.MOCX_MODULENAME__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4090: @clear"); /*clear*/ /*_.MOCX_MODULENAME__V21*/ curfptr[20] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4090: @cond.else"); /*_.MODNAM__V20*/ curfptr[19] = NULL;; } ; /*_#__L6*/ curfnum[5] = ((/*_.CURPROC__V17*/ curfptr[16]) != (/*_.INIPROC__V18*/ curfptr[17]));; BASILYS_LOCATION("warmelt-normal.bysl:4092: @cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4092: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4092: @block"); /*block*/{ basilys_error_str((basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "(UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER) not at toplevel"), (basilys_ptr_t)0); BASILYS_LOCATION("warmelt-normal.bysl:4095: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-normal.bysl:4095: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4093: @block"); /*block*/{ /*_.PROGN___V24*/ curfptr[23] = /*_.RETURN___V23*/ curfptr[22];;} ; /*_.IF___V22*/ curfptr[20] = /*_.PROGN___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4092: @clear"); /*clear*/ /*_.RETURN___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4092: @clear"); /*clear*/ /*_.PROGN___V24*/ curfptr[23] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4092: @cond.else"); /*_.IF___V22*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4096: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4096: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[5])), (3), "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V27*/ curfptr[26] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @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), (/*_.SCOMM__V16*/ curfptr[15]), "NCUMEB_COMMENT"); ; /*_.NUP__V26*/ curfptr[23] = /*_.INST__V27*/ curfptr[26];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4101: @apply"); /*apply*/{ /*_.CSYM__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[6])), (basilys_ptr_t)((/*!konst_7_UPDATCURMODENVBOX_*/ curfrout->tabval[7])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:4102: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4102: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[8])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V30*/ curfptr[29] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4102: @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), (/*_.SLOC__V15*/ curfptr[14]), "LETBIND_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V30*/ curfptr[29]))));basilys_putfield_object((/*_.INST__V30*/ curfptr[29]), (0), (/*_.CSYM__V28*/ curfptr[27]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:4102: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:4102: @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), (/*_.NUP__V26*/ curfptr[23]), "LETBIND_EXPR"); ; /*_.CBIND__V29*/ curfptr[28] = /*_.INST__V30*/ curfptr[29];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4109: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4109: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[10])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V32*/ curfptr[31] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4109: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4109: @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), ((/*!CTYPE_VOID*/ curfrout->tabval[9])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:4109: @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), (/*_.CSYM__V28*/ curfptr[27]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:4109: @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), (/*_.CBIND__V29*/ curfptr[28]), "NOCC_BIND"); ; /*_.CLOCC__V31*/ curfptr[30] = /*_.INST__V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4115: @block"); /*block*/{ /*_.SB__V34*/ curfptr[33] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[11])), (char*)0);; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V34*/ curfptr[33]), ( "cur.mod.env.cont : ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SB__V34*/ curfptr[33]), basilys_string_str((basilys_ptr_t)(/*_.SCOMM__V16*/ curfptr[15]))); /*_.LET___V33*/ curfptr[32] = /*_.SB__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4115: @clear"); /*clear*/ /*_.SB__V34*/ curfptr[33] = 0 ;} ; /*_.CSBUF__V35*/ curfptr[33] = /*_.LET___V33*/ curfptr[32];; /*_.STRBUF2STRING__V36*/ curfptr[35] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[13])), basilys_strbuf_str((basilys_ptr_t)(/*_.CSBUF__V35*/ curfptr[33]))));; BASILYS_LOCATION("warmelt-normal.bysl:4119: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4119: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[12])), (2), "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V38*/ curfptr[37] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4119: @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), (/*_.SLOC__V15*/ curfptr[14]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4119: @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]), "CMEC_COMMENT"); ; /*_.SCURENVBOX__V37*/ curfptr[36] = /*_.INST__V38*/ curfptr[37];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4136: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4136: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_FETCH_PREDEFINED*/ curfrout->tabval[18])), (2), "CLASS_SRC_FETCH_PREDEFINED");/*_.INST__V40*/ curfptr[39] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4136: @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), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4136: @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), ((/*!konst_19_INITIAL_SYSTEM_DATA*/ curfrout->tabval[19])), "SFEPD_PREDEF"); ; /*_.INST___V39*/ curfptr[38] = /*_.INST__V40*/ curfptr[39];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4133: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4133: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_UNSAFE_GET_FIELD*/ curfrout->tabval[17])), (3), "CLASS_SRC_UNSAFE_GET_FIELD");/*_.INST__V42*/ curfptr[41] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4133: @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), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4133: @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), (/*_.INST___V39*/ curfptr[38]), "SUGET_OBJ"); ; BASILYS_LOCATION("warmelt-normal.bysl:4133: @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), ((/*!SYSDATA_CONT_FRESH_ENV*/ curfrout->tabval[20])), "SUGET_FIELD"); ; /*_.INST___V41*/ curfptr[40] = /*_.INST__V42*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4144: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4144: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ curfrout->tabval[21])), (1), "CLASS_SRC_PARENT_MODULE_ENVIRONMENT");/*_.INST__V44*/ curfptr[43] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4144: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V44*/ curfptr[43]))));basilys_putfield_object((/*_.INST__V44*/ curfptr[43]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); ; /*_.INST___V43*/ curfptr[42] = /*_.INST__V44*/ curfptr[43];;} ; /*_.MAKE_TUPLE2__V45*/ curfptr[44] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.INST___V43*/ curfptr[42]), (basilys_ptr_t)(/*_.MODNAM__V20*/ curfptr[19])));; BASILYS_LOCATION("warmelt-normal.bysl:4130: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4130: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_APPLY*/ curfrout->tabval[16])), (3), "CLASS_SRC_APPLY");/*_.INST__V47*/ curfptr[46] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4130: @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), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4130: @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), (/*_.INST___V41*/ curfptr[40]), "SAPP_FUN"); ; BASILYS_LOCATION("warmelt-normal.bysl:4130: @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_TUPLE2__V45*/ curfptr[44]), "SAPP_ARGS"); ; /*_.INST___V46*/ curfptr[45] = /*_.INST__V47*/ curfptr[46];;} ; /*_.MAKE_TUPLE2__V48*/ curfptr[47] = (basilysgc_new_mult2((basilysobject_ptr_t)((/*!DISCR_MULTIPLE*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.SCURENVBOX__V37*/ curfptr[36]), (basilys_ptr_t)(/*_.INST___V46*/ curfptr[45])));; BASILYS_LOCATION("warmelt-normal.bysl:4123: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4123: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_OR*/ curfrout->tabval[14])), (2), "CLASS_SRC_OR");/*_.INST__V50*/ curfptr[49] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4123: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (0), (/*_.PSLOC__V5*/ curfptr[4]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4123: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V50*/ curfptr[49]))));basilys_putfield_object((/*_.INST__V50*/ curfptr[49]), (1), (/*_.MAKE_TUPLE2__V48*/ curfptr[47]), "SOR_DISJ"); ; /*_.SGETCURENVBOX__V49*/ curfptr[48] = /*_.INST__V50*/ curfptr[49];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4149: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.BINDLIST__V53*/ curfptr[52]; BASILYS_LOCATION("warmelt-normal.bysl:4149: @multimsend.send"); /*_.NCURENVBOX__V52*/ curfptr[51] = basilysgc_send ((basilys_ptr_t)(/*_.SGETCURENVBOX__V49*/ curfptr[48]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[22]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:4149: @block"); /*block*/{ basilysgc_append_list((basilys_ptr_t)(/*_.BINDLIST__V53*/ curfptr[52]), (basilys_ptr_t)(/*_.CBIND__V29*/ curfptr[28])); BASILYS_LOCATION("warmelt-normal.bysl:4153: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4153: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.NUP__V26*/ curfptr[23])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.NUP__V26*/ curfptr[23]))));basilys_putfield_object((/*_.NUP__V26*/ curfptr[23]), (1), (/*_.NCURENVBOX__V52*/ curfptr[51]), "NUCMEB_EXPR"); ; BASILYS_LOCATION("warmelt-normal.bysl:4153: @touch"); basilysgc_touch(/*_.NUP__V26*/ curfptr[23]); ; /*epilog*/} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4154: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4154: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4154: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4154: @apply.arg"); argtab[0].bp_cstring = "normexp_update_current_module_environment_container result bindlist"; BASILYS_LOCATION("warmelt-normal.bysl:4154: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:4154: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4154: @apply.arg"); argtab[3].bp_long = 4154; /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.BINDLIST__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-normal.bysl:4154: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4154: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4154: @cppif.else"); /*_.IFCPP___V54*/ curfptr[53] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4155: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4155: @block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4155: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4155: @apply.arg"); argtab[0].bp_cstring = "normexp_update_current_module_environment_container result clocc"; BASILYS_LOCATION("warmelt-normal.bysl:4155: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-normal.bysl:4155: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4155: @apply.arg"); argtab[3].bp_long = 4155; /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOCC__V31*/ curfptr[30]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V56*/ curfptr[54] = /*_.DEBUG_MSG_FUN__V57*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4155: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4155: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V57*/ curfptr[56] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4155: @cppif.else"); /*_.IFCPP___V56*/ curfptr[54] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4156: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.CLOCC__V31*/ curfptr[30];; BASILYS_LOCATION("warmelt-normal.bysl:4156: @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) (/*_.BINDLIST__V53*/ curfptr[52]); ; BASILYS_LOCATION("warmelt-normal.bysl:4156: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.MULTI___V51*/ curfptr[50] = /*_.RETURN___V58*/ curfptr[56];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4149: @clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[53] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4149: @clear"); /*clear*/ /*_.IFCPP___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4149: @clear"); /*clear*/ /*_.RETURN___V58*/ curfptr[56] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4149: @clear"); /*clear*/ /*_.BINDLIST__V53*/ curfptr[52] = 0 ;} ; /*_.LET___V25*/ curfptr[22] = /*_.MULTI___V51*/ curfptr[50];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.NUP__V26*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.CSYM__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.CBIND__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.CLOCC__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.LET___V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.CSBUF__V35*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.STRBUF2STRING__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.SCURENVBOX__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.INST___V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.INST___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.INST___V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.MAKE_TUPLE2__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.INST___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.MAKE_TUPLE2__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.SGETCURENVBOX__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4096: @clear"); /*clear*/ /*_.MULTI___V51*/ curfptr[50] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V25*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.SCOMM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.CURPROC__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.INIPROC__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.MODNAM__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.IF___V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4084: @clear"); /*clear*/ /*_.LET___V25*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4079: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:4079: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4079: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4079: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4079: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4079: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4079: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_123_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ static basilys_ptr_t rout_124_NORMEXP_FETCH_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_124_NORMEXP_FETCH_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 34 void* varptr[34]; #define CURFRAM_NBVARNUM 13 long varnum[13]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_FETCH_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4165: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4165: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_FETCH_PREDEFINED*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4165: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4165: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4165: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4165: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fetch_predefined recv"),( "warmelt-normal.bysl"),(4165), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4165: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4165: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4165: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4166: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4166: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:4166: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4166: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4166: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4166: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(4166), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4166: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4166: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4166: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4167: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4167: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:4167: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4167: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4167: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4167: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(4167), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4167: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4167: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4167: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4168: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4168: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4168: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4168: @apply.arg"); argtab[0].bp_cstring = "normexp_fetch_predefined recv"; BASILYS_LOCATION("warmelt-normal.bysl:4168: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4168: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4168: @apply.arg"); argtab[3].bp_long = 4168; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4168: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4168: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4168: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4170: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4171: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SFEPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4172: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V17*/ curfptr[16] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:4174: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4174: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4174: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4176: @block"); /*block*/{ /*_.BOXK__V19*/ curfptr[18] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)((/*nil*/NULL)));; BASILYS_LOCATION("warmelt-normal.bysl:4179: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4179: @newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:4179: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[0] = (basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]); ; BASILYS_LOCATION("warmelt-normal.bysl:4179: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V21*/ curfptr[20])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V21*/ curfptr[20]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V21*/ curfptr[20])->tabval[1] = (basilys_ptr_t)(/*_.BOXK__V19*/ curfptr[18]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4178: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4178: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.PREDEFMAP__V17*/ curfptr[16]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOX_CONTENT__V23*/ curfptr[22] = basilys_box_content((basilysbox_ptr_t)(/*_.BOXK__V19*/ curfptr[18]));; /*_#NULL__L6*/ curfnum[5] = ((/*_.BOX_CONTENT__V23*/ curfptr[22]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:4181: @cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4181: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4181: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4183: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V24*/ curfptr[23] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED unknown predef name"), (basilys_ptr_t)(/*_.NAMED_NAME__V24*/ curfptr[23])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4181: @clear"); /*clear*/ /*_.NAMED_NAME__V24*/ curfptr[23] = 0 ;} ; } /*noelse*/ ; /*_.IFELSE___V18*/ curfptr[17] = /*_.MAPOBJECT_EVERY__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4176: @clear"); /*clear*/ /*_.BOXK__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4176: @clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4176: @clear"); /*clear*/ /*_.MAPOBJECT_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4176: @clear"); /*clear*/ /*_.BOX_CONTENT__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4176: @clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4174: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4174: @block"); /*block*/{ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-normal.bysl:4186: @cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4186: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4186: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4188: @block"); /*block*/{ /*_#PREDRK__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));; /*_#I__L9*/ curfnum[8] = ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));; BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond"); /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond.then"); /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];; } else { BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4189: @block"); /*block*/{ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = BGLOB__LASTGLOB;; /*_#I__L12*/ curfnum[11] = ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));; /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4189: @clear"); /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4189: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond"); /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4189: @block"); /*block*/{ /*block*/{ basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "FETCH_PREDEFINED invalid predef rank"), (basilys_ptr_t)0); /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4189: @cond.else"); /*_.IFELSE___V25*/ curfptr[23] = NULL;; } ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4188: @clear"); /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4188: @clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4188: @clear"); /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4186: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4186: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4194: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4194: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4194: @cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4194: @cond.then"); /*_.IFELSE___V27*/ curfptr[19] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4194: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4194: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "FETCH_PREDEFINED bad predef"),( "warmelt-normal.bysl"),(4194), __FUNCTION__); /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V26*/ curfptr[18] = /*_.IFELSE___V27*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4194: @clear"); /*clear*/ /*_.IFELSE___V27*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4194: @cppif.else"); /*_.IFCPP___V26*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4193: @block"); /*block*/{ /*_.PROGN___V28*/ curfptr[21] = /*_.IFCPP___V26*/ curfptr[18];;} ; /*_.IFELSE___V25*/ curfptr[23] = /*_.PROGN___V28*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4186: @clear"); /*clear*/ /*_.IFCPP___V26*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4186: @clear"); /*clear*/ /*_.PROGN___V28*/ curfptr[21] = 0 ;} ; } ; /*_.IFELSE___V18*/ curfptr[17] = /*_.IFELSE___V25*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4174: @clear"); /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4174: @clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[23] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:4196: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4196: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4196: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_PREDEF*/ curfrout->tabval[8])), (2), "CLASS_NREP_PREDEF");/*_.INST__V31*/ curfptr[18] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4196: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[18]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4196: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V31*/ curfptr[18])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V31*/ curfptr[18]))));basilys_putfield_object((/*_.INST__V31*/ curfptr[18]), (1), (/*_.SPRED__V16*/ curfptr[15]), "NRPREDEF"); ; /*_.NPRE__V30*/ curfptr[19] = /*_.INST__V31*/ curfptr[18];;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4201: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4201: @block"); /*block*/{ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4201: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4201: @apply.arg"); argtab[0].bp_cstring = "normexp_fetch_predefined result npre"; BASILYS_LOCATION("warmelt-normal.bysl:4201: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L13*/ curfnum[10]; BASILYS_LOCATION("warmelt-normal.bysl:4201: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4201: @apply.arg"); argtab[3].bp_long = 4201; /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NPRE__V30*/ curfptr[19]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4201: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4201: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4201: @cppif.else"); /*_.IFCPP___V32*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4202: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.NPRE__V30*/ curfptr[19];; BASILYS_LOCATION("warmelt-normal.bysl:4202: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V29*/ curfptr[22] = /*_.RETURN___V34*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4196: @clear"); /*clear*/ /*_.NPRE__V30*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4196: @clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4196: @clear"); /*clear*/ /*_.RETURN___V34*/ curfptr[23] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.LET___V29*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_.PREDEFMAP__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4169: @clear"); /*clear*/ /*_.LET___V29*/ curfptr[22] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4164: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:4164: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4164: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4164: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4164: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4164: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4164: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_FETCH_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_124_NORMEXP_FETCH_PREDEFINED*/ static basilys_ptr_t rout_125_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_125_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_; } curfram__; 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-normal.bysl:4179: @getarg"); /*_.KEY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4179: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4179: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4180: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4180: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4180: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.KEY__V2*/ curfptr[1])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4179: @clear"); /*clear*/ /*_#__L1*/ 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_125_LAMBDA_*/ static basilys_ptr_t rout_126_NORMEXP_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_126_NORMEXP_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 48 void* varptr[48]; #define CURFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } curfram__; 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("NORMEXP_STORE_PREDEFINED", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @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); /*getarg#2*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.NCX__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.PSLOC__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.PSLOC__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4211: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4211: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_STORE_PREDEFINED*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4211: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4211: @cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4211: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4211: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check store_predefined recv"),( "warmelt-normal.bysl"),(4211), __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4211: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4211: @clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4211: @cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4212: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4212: @block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-normal.bysl:4212: @cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4212: @cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4212: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4212: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check env"),( "warmelt-normal.bysl"),(4212), __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4212: @clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4212: @clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4212: @cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4213: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4213: @block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-normal.bysl:4213: @cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4213: @cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4213: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4213: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check nctxt"),( "warmelt-normal.bysl"),(4213), __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4213: @clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4213: @clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4213: @cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4214: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4214: @block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4214: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4214: @apply.arg"); argtab[0].bp_cstring = "normexp_store_predefined recv"; BASILYS_LOCATION("warmelt-normal.bysl:4214: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4214: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4214: @apply.arg"); argtab[3].bp_long = 4214; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4214: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4214: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4214: @cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4216: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V15*/ curfptr[14] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4217: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "SSTPD_PREDEF");/*_.SPRED__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4218: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "SSTPD_VALUE");/*_.SVAL__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4219: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V4*/ curfptr[3]), 7, "NCTX_PREDEFMAP");/*_.PREDEFMAP__V18*/ curfptr[17] = slot; }; ; /*_#IS_A__L5*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-normal.bysl:4221: @cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4221: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4221: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4223: @block"); /*block*/{ /*_.BOXK__V20*/ curfptr[19] = basilysgc_new_box((basilysobject_ptr_t)((/*!DISCR_BOX*/ curfrout->tabval[5])), (basilys_ptr_t)((/*nil*/NULL)));; BASILYS_LOCATION("warmelt-normal.bysl:4226: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4226: @newclosure"); /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; BASILYS_LOCATION("warmelt-normal.bysl:4226: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[0] = (basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]); ; BASILYS_LOCATION("warmelt-normal.bysl:4226: @putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[1] = (basilys_ptr_t)(/*_.BOXK__V20*/ curfptr[19]); ; /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4225: @apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4225: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20]; /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MAPOBJECT_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.PREDEFMAP__V18*/ curfptr[17]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.BOX_CONTENT__V24*/ curfptr[23] = basilys_box_content((basilysbox_ptr_t)(/*_.BOXK__V20*/ curfptr[19]));; /*_#NULL__L6*/ curfnum[5] = ((/*_.BOX_CONTENT__V24*/ curfptr[23]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:4228: @cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4228: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4228: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4230: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; ; basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED unknown predef name"), (basilys_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24])); /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4228: @clear"); /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;} ; } /*noelse*/ ; /*_.IFELSE___V19*/ curfptr[18] = /*_.MAPOBJECT_EVERY__V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4223: @clear"); /*clear*/ /*_.BOXK__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4223: @clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4223: @clear"); /*clear*/ /*_.MAPOBJECT_EVERY__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4223: @clear"); /*clear*/ /*_.BOX_CONTENT__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4223: @clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4221: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4221: @block"); /*block*/{ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-normal.bysl:4233: @cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4233: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4233: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4235: @block"); /*block*/{ /*_#PREDRK__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.SPRED__V16*/ curfptr[15])));; /*_#I__L9*/ curfnum[8] = ((/*_#PREDRK__L8*/ curfnum[7]) <= (0));; BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond"); /*cond*/ if (/*_#I__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond.then"); /*_#OR___L10*/ curfnum[9] = /*_#I__L9*/ curfnum[8];; } else { BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4236: @block"); /*block*/{ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = BGLOB__LASTGLOB;; /*_#I__L12*/ curfnum[11] = ((/*_#PREDRK__L8*/ curfnum[7]) >= (/*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10]));; /*_#OR___L10*/ curfnum[9] = /*_#I__L12*/ curfnum[11];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4236: @clear"); /*clear*/ /*_#LAST_GLOBPREDEF_INDEX__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4236: @clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond"); /*cond*/ if (/*_#OR___L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4236: @block"); /*block*/{ /*block*/{ basilys_warning_str(0, (basilys_ptr_t)(/*_.SLOC__V15*/ curfptr[14]), ( "STORE_PREDEFINED invalid predef rank"), (basilys_ptr_t)0); /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4236: @cond.else"); /*_.IFELSE___V26*/ curfptr[24] = NULL;; } ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4235: @clear"); /*clear*/ /*_#PREDRK__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4235: @clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4235: @clear"); /*clear*/ /*_#OR___L10*/ curfnum[9] = 0 ;} ; /*epilog*/} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4233: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4233: @block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4241: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4241: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4241: @cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4241: @cond.then"); /*_.IFELSE___V28*/ curfptr[20] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4241: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4241: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "STORE_PREDEFINED bad predef"),( "warmelt-normal.bysl"),(4241), __FUNCTION__); /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V27*/ curfptr[19] = /*_.IFELSE___V28*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4241: @clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[20] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4241: @cppif.else"); /*_.IFCPP___V27*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4240: @block"); /*block*/{ /*_.PROGN___V29*/ curfptr[22] = /*_.IFCPP___V27*/ curfptr[19];;} ; /*_.IFELSE___V26*/ curfptr[24] = /*_.PROGN___V29*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4233: @clear"); /*clear*/ /*_.IFCPP___V27*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4233: @clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[22] = 0 ;} ; } ; /*_.IFELSE___V19*/ curfptr[18] = /*_.IFELSE___V26*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4221: @clear"); /*clear*/ /*_#IS_INTEGERBOX__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4221: @clear"); /*clear*/ /*_.IFELSE___V26*/ curfptr[24] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl:4243: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend"); /*multimsend*/{ union basilysparam_un argtab[3]; union basilysparam_un restab[1]; memset(&argtab, 0, sizeof(argtab)); memset(&restab, 0, sizeof(restab)); BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.ENV__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.NCX__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.SLOC__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBINDS__V32*/ curfptr[19]; BASILYS_LOCATION("warmelt-normal.bysl:4243: @multimsend.send"); /*_.NVAL__V31*/ curfptr[20] = basilysgc_send ((basilys_ptr_t)(/*_.SVAL__V17*/ curfptr[16]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[8]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-normal.bysl:4243: @block"); /*block*/{ /*_#NULL__L13*/ curfnum[10] = ((/*_.NBINDS__V32*/ curfptr[19]) == NULL);; BASILYS_LOCATION("warmelt-normal.bysl:4246: @cond"); /*cond*/ if (/*_#NULL__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4246: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4246: @block"); /*block*/{ /*_.MAKE_LIST__V34*/ curfptr[24] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[9]))));; BASILYS_LOCATION("warmelt-normal.bysl:4247: @compute"); /*_.NBINDS__V32*/ curfptr[19] = /*_.SETQ___V35*/ curfptr[34] = /*_.MAKE_LIST__V34*/ curfptr[24];; /*_.IF___V33*/ curfptr[22] = /*_.SETQ___V35*/ curfptr[34];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4246: @clear"); /*clear*/ /*_.MAKE_LIST__V34*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4246: @clear"); /*clear*/ /*_.SETQ___V35*/ curfptr[34] = 0 ;} ; } else { BASILYS_LOCATION("warmelt-normal.bysl:4246: @cond.else"); /*_.IF___V33*/ curfptr[22] = NULL;; } ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4248: @apply"); /*apply*/{ /*_.CSYM__V37*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!CLONE_SYMBOL*/ curfrout->tabval[10])), (basilys_ptr_t)((/*!konst_11_STOREPREDEF_*/ curfrout->tabval[11])), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:4249: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4249: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_STORE_PREDEFINED*/ curfrout->tabval[12])), (3), "CLASS_NREP_STORE_PREDEFINED");/*_.INST__V39*/ curfptr[38] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4249: @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), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4249: @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), (/*_.SPRED__V16*/ curfptr[15]), "NSTPD_PREDEF"); ; BASILYS_LOCATION("warmelt-normal.bysl:4249: @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), (/*_.NVAL__V31*/ curfptr[20]), "NSTPD_VALUE"); ; /*_.NFPRE__V38*/ curfptr[37] = /*_.INST__V39*/ curfptr[38];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4253: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4253: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NORMLET_BINDING*/ curfrout->tabval[13])), (4), "CLASS_NORMLET_BINDING");/*_.INST__V41*/ curfptr[40] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4253: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (0), (/*_.CSYM__V37*/ curfptr[34]), "BINDER"); ; BASILYS_LOCATION("warmelt-normal.bysl:4253: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (1), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "LETBIND_TYPE"); ; BASILYS_LOCATION("warmelt-normal.bysl:4253: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.INST__V41*/ curfptr[40]))));basilys_putfield_object((/*_.INST__V41*/ curfptr[40]), (2), (/*_.NFPRE__V38*/ curfptr[37]), "LETBIND_EXPR"); ; /*_.CBIND__V40*/ curfptr[39] = /*_.INST__V41*/ curfptr[40];;} ; BASILYS_LOCATION("warmelt-normal.bysl:4257: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4257: @rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_NREP_LOCSYMOCC*/ curfrout->tabval[15])), (4), "CLASS_NREP_LOCSYMOCC");/*_.INST__V43*/ curfptr[42] = newobj; }; ; BASILYS_LOCATION("warmelt-normal.bysl:4257: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (0>=0 && 0< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (0), (/*_.SLOC__V15*/ curfptr[14]), "NREP_LOC"); ; BASILYS_LOCATION("warmelt-normal.bysl:4257: @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), ((/*!CTYPE_VALUE*/ curfrout->tabval[14])), "NOCC_CTYP"); ; BASILYS_LOCATION("warmelt-normal.bysl:4257: @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), (/*_.CSYM__V37*/ curfptr[34]), "NOCC_SYMB"); ; BASILYS_LOCATION("warmelt-normal.bysl:4257: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.INST__V43*/ curfptr[42]))));basilys_putfield_object((/*_.INST__V43*/ curfptr[42]), (3), (/*_.CBIND__V40*/ curfptr[39]), "NOCC_BIND"); ; /*_.SYOCC__V42*/ curfptr[41] = /*_.INST__V43*/ curfptr[42];;} ; basilysgc_append_list((basilys_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (basilys_ptr_t)(/*_.CBIND__V40*/ curfptr[39])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4264: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4264: @block"); /*block*/{ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4264: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4264: @apply.arg"); argtab[0].bp_cstring = "normexp_store_predefined result nbinds"; BASILYS_LOCATION("warmelt-normal.bysl:4264: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L14*/ curfnum[11]; BASILYS_LOCATION("warmelt-normal.bysl:4264: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4264: @apply.arg"); argtab[3].bp_long = 4264; /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.NBINDS__V32*/ curfptr[19]), (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-normal.bysl:4264: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4264: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V45*/ curfptr[44] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4264: @cppif.else"); /*_.IFCPP___V44*/ curfptr[43] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4265: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4265: @block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4265: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4265: @apply.arg"); argtab[0].bp_cstring = "normexp_store_predefined result syocc"; BASILYS_LOCATION("warmelt-normal.bysl:4265: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[7]; BASILYS_LOCATION("warmelt-normal.bysl:4265: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4265: @apply.arg"); argtab[3].bp_long = 4265; /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SYOCC__V42*/ curfptr[41]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V46*/ curfptr[44] = /*_.DEBUG_MSG_FUN__V47*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4265: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4265: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V47*/ curfptr[46] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4265: @cppif.else"); /*_.IFCPP___V46*/ curfptr[44] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-normal.bysl:4266: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.SYOCC__V42*/ curfptr[41];; BASILYS_LOCATION("warmelt-normal.bysl:4266: @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) (/*_.NBINDS__V32*/ curfptr[19]); ; BASILYS_LOCATION("warmelt-normal.bysl:4266: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V36*/ curfptr[24] = /*_.RETURN___V48*/ curfptr[46];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.CSYM__V37*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.NFPRE__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.CBIND__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.SYOCC__V42*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.IFCPP___V44*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.IFCPP___V46*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4248: @clear"); /*clear*/ /*_.RETURN___V48*/ curfptr[46] = 0 ;} ; /*_.MULTI___V30*/ curfptr[23] = /*_.LET___V36*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4243: @clear"); /*clear*/ /*_#NULL__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4243: @clear"); /*clear*/ /*_.IF___V33*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4243: @clear"); /*clear*/ /*_.LET___V36*/ curfptr[24] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4243: @clear"); /*clear*/ /*_.NBINDS__V32*/ curfptr[19] = 0 ;} ; /*_.LET___V14*/ curfptr[12] = /*_.MULTI___V30*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.SLOC__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.SPRED__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.SVAL__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.PREDEFMAP__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4215: @clear"); /*clear*/ /*_.MULTI___V30*/ curfptr[23] = 0 ;} ; BASILYS_LOCATION("warmelt-normal.bysl:4210: @block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-normal.bysl:4210: @finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4210: @clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4210: @clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4210: @clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4210: @clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4210: @clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("NORMEXP_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_126_NORMEXP_STORE_PREDEFINED*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } curfram__; 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-normal.bysl:4226: @getarg"); /*_.KEY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-normal.bysl:4226: @getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.VAL__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.VAL__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-normal.bysl:4226: @block"); /*block*/{ /*_#__L1*/ curfnum[0] = ((/*_.VAL__V3*/ curfptr[2]) == ((/*~SPRED*/ curfclos->tabval[0])));; BASILYS_LOCATION("warmelt-normal.bysl:4227: @cond"); /*cond*/ if (/*_#__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4227: @cond.then"); BASILYS_LOCATION("warmelt-normal.bysl:4227: @block"); /*block*/{ basilysgc_box_put((basilys_ptr_t)((/*~BOXK*/ curfclos->tabval[1])), (basilys_ptr_t)(/*_.KEY__V2*/ curfptr[1])); /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4226: @clear"); /*clear*/ /*_#__L1*/ 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_*/ 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 1744 void* varptr[1744]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*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_SYMBOL; struct BASILYS_STRING_STRUCT(12) dstr_2__CLASS_SYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_3__CLASS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_4__CLASS_CLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_5__DEBUG_MSG_FUN; struct BASILYS_STRING_STRUCT(13) dstr_6__DEBUG_MSG_FUN; struct BASILYS_OBJECT_STRUCT(3) dsym_7__INSTALL_INITIAL_MACRO; struct BASILYS_STRING_STRUCT(21) dstr_8__INSTALL_INITIAL_; struct BASILYS_OBJECT_STRUCT(3) dsym_9__CLASS_NREP; struct BASILYS_STRING_STRUCT(10) dstr_10__CLASS_NREP; struct BASILYS_OBJECT_STRUCT(3) dsym_11__CLASS_ROOT; struct BASILYS_STRING_STRUCT(10) dstr_12__CLASS_ROOT; struct BASILYS_OBJECT_STRUCT(9) dobj_13__CLASS_NREP; struct BASILYS_STRING_STRUCT(10) dstr_14__CLASS_NREP; struct BASILYS_MULTIPLE_STRUCT(1) dtup_15__CLASS_NREP; struct BASILYS_MULTIPLE_STRUCT(1) dtup_16__CLASS_NREP; struct BASILYS_OBJECT_STRUCT(3) dsym_17__NREP_LOC; struct BASILYS_STRING_STRUCT(8) dstr_18__NREP_LOC; struct BASILYS_OBJECT_STRUCT(4) dobj_19__NREP_LOC; struct BASILYS_STRING_STRUCT(8) dstr_20__NREP_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_21__CLASS_NREP_SIMPLE; struct BASILYS_STRING_STRUCT(17) dstr_22__CLASS_NREP_SIMPL; struct BASILYS_OBJECT_STRUCT(9) dobj_23__CLASS_NREP_SIMPLE; struct BASILYS_STRING_STRUCT(17) dstr_24__CLASS_NREP_SIMPL; struct BASILYS_MULTIPLE_STRUCT(2) dtup_25__CLASS_NREP_SIMPLE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_26__CLASS_NREP_SIMPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_27__CLASS_NREP_EXPR; struct BASILYS_STRING_STRUCT(15) dstr_28__CLASS_NREP_EXPR; struct BASILYS_OBJECT_STRUCT(9) dobj_29__CLASS_NREP_EXPR; struct BASILYS_STRING_STRUCT(15) dstr_30__CLASS_NREP_EXPR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_31__CLASS_NREP_EXPR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_32__CLASS_NREP_EXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_33__CLASS_NREP_APPLY; struct BASILYS_STRING_STRUCT(16) dstr_34__CLASS_NREP_APPLY; struct BASILYS_OBJECT_STRUCT(9) dobj_35__CLASS_NREP_APPLY; struct BASILYS_STRING_STRUCT(16) dstr_36__CLASS_NREP_APPLY; struct BASILYS_MULTIPLE_STRUCT(3) dtup_37__CLASS_NREP_APPLY; struct BASILYS_MULTIPLE_STRUCT(3) dtup_38__CLASS_NREP_APPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_39__NAPP_FUN; struct BASILYS_STRING_STRUCT(8) dstr_40__NAPP_FUN; struct BASILYS_OBJECT_STRUCT(4) dobj_41__NAPP_FUN; struct BASILYS_STRING_STRUCT(8) dstr_42__NAPP_FUN; struct BASILYS_OBJECT_STRUCT(3) dsym_43__NAPP_ARGS; struct BASILYS_STRING_STRUCT(9) dstr_44__NAPP_ARGS; struct BASILYS_OBJECT_STRUCT(4) dobj_45__NAPP_ARGS; struct BASILYS_STRING_STRUCT(9) dstr_46__NAPP_ARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_47__CLASS_NREP_MULTIAPPLY; struct BASILYS_STRING_STRUCT(21) dstr_48__CLASS_NREP_MULTI; struct BASILYS_OBJECT_STRUCT(9) dobj_49__CLASS_NREP_MULTIAPPLY; struct BASILYS_STRING_STRUCT(21) dstr_50__CLASS_NREP_MULTI; struct BASILYS_MULTIPLE_STRUCT(4) dtup_51__CLASS_NREP_MULTIAPPLY; struct BASILYS_MULTIPLE_STRUCT(5) dtup_52__CLASS_NREP_MULTIAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_53__NMULAPP_BINDINGS; struct BASILYS_STRING_STRUCT(16) dstr_54__NMULAPP_BINDINGS; struct BASILYS_OBJECT_STRUCT(4) dobj_55__NMULAPP_BINDINGS; struct BASILYS_STRING_STRUCT(16) dstr_56__NMULAPP_BINDINGS; struct BASILYS_OBJECT_STRUCT(3) dsym_57__NMULAPP_BODY; struct BASILYS_STRING_STRUCT(12) dstr_58__NMULAPP_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_59__NMULAPP_BODY; struct BASILYS_STRING_STRUCT(12) dstr_60__NMULAPP_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_61__CLASS_NREP_MSEND; struct BASILYS_STRING_STRUCT(16) dstr_62__CLASS_NREP_MSEND; struct BASILYS_OBJECT_STRUCT(9) dobj_63__CLASS_NREP_MSEND; struct BASILYS_STRING_STRUCT(16) dstr_64__CLASS_NREP_MSEND; struct BASILYS_MULTIPLE_STRUCT(3) dtup_65__CLASS_NREP_MSEND; struct BASILYS_MULTIPLE_STRUCT(4) dtup_66__CLASS_NREP_MSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_67__NSEND_SEL; struct BASILYS_STRING_STRUCT(9) dstr_68__NSEND_SEL; struct BASILYS_OBJECT_STRUCT(4) dobj_69__NSEND_SEL; struct BASILYS_STRING_STRUCT(9) dstr_70__NSEND_SEL; struct BASILYS_OBJECT_STRUCT(3) dsym_71__NSEND_RECV; struct BASILYS_STRING_STRUCT(10) dstr_72__NSEND_RECV; struct BASILYS_OBJECT_STRUCT(4) dobj_73__NSEND_RECV; struct BASILYS_STRING_STRUCT(10) dstr_74__NSEND_RECV; struct BASILYS_OBJECT_STRUCT(3) dsym_75__NSEND_ARGS; struct BASILYS_STRING_STRUCT(10) dstr_76__NSEND_ARGS; struct BASILYS_OBJECT_STRUCT(4) dobj_77__NSEND_ARGS; struct BASILYS_STRING_STRUCT(10) dstr_78__NSEND_ARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_79__CLASS_NREP_MULTIMSEND; struct BASILYS_STRING_STRUCT(21) dstr_80__CLASS_NREP_MULTI; struct BASILYS_OBJECT_STRUCT(9) dobj_81__CLASS_NREP_MULTIMSEND; struct BASILYS_STRING_STRUCT(21) dstr_82__CLASS_NREP_MULTI; struct BASILYS_MULTIPLE_STRUCT(4) dtup_83__CLASS_NREP_MULTIMSEND; struct BASILYS_MULTIPLE_STRUCT(6) dtup_84__CLASS_NREP_MULTIMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_85__NMULSEND_BINDINGS; struct BASILYS_STRING_STRUCT(17) dstr_86__NMULSEND_BINDING; struct BASILYS_OBJECT_STRUCT(4) dobj_87__NMULSEND_BINDINGS; struct BASILYS_STRING_STRUCT(17) dstr_88__NMULSEND_BINDING; struct BASILYS_OBJECT_STRUCT(3) dsym_89__NMULSEND_BODY; struct BASILYS_STRING_STRUCT(13) dstr_90__NMULSEND_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_91__NMULSEND_BODY; struct BASILYS_STRING_STRUCT(13) dstr_92__NMULSEND_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_93__CLASS_NREP_CHUNK; struct BASILYS_STRING_STRUCT(16) dstr_94__CLASS_NREP_CHUNK; struct BASILYS_OBJECT_STRUCT(9) dobj_95__CLASS_NREP_CHUNK; struct BASILYS_STRING_STRUCT(16) dstr_96__CLASS_NREP_CHUNK; struct BASILYS_MULTIPLE_STRUCT(3) dtup_97__CLASS_NREP_CHUNK; struct BASILYS_MULTIPLE_STRUCT(3) dtup_98__CLASS_NREP_CHUNK; struct BASILYS_OBJECT_STRUCT(3) dsym_99__NCHUNK_EXPANSION; struct BASILYS_STRING_STRUCT(16) dstr_100__NCHUNK_EXPANSION; struct BASILYS_OBJECT_STRUCT(4) dobj_101__NCHUNK_EXPANSION; struct BASILYS_STRING_STRUCT(16) dstr_102__NCHUNK_EXPANSION; struct BASILYS_OBJECT_STRUCT(3) dsym_103__NCHUNK_PRIMITIVE; struct BASILYS_STRING_STRUCT(16) dstr_104__NCHUNK_PRIMITIVE; struct BASILYS_OBJECT_STRUCT(4) dobj_105__NCHUNK_PRIMITIVE; struct BASILYS_STRING_STRUCT(16) dstr_106__NCHUNK_PRIMITIVE; struct BASILYS_OBJECT_STRUCT(3) dsym_107__CLASS_NREP_COMMENT; struct BASILYS_STRING_STRUCT(18) dstr_108__CLASS_NREP_COMME; struct BASILYS_OBJECT_STRUCT(9) dobj_109__CLASS_NREP_COMMENT; struct BASILYS_STRING_STRUCT(18) dstr_110__CLASS_NREP_COMME; struct BASILYS_MULTIPLE_STRUCT(3) dtup_111__CLASS_NREP_COMMENT; struct BASILYS_MULTIPLE_STRUCT(2) dtup_112__CLASS_NREP_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_113__NCOMM_STRING; struct BASILYS_STRING_STRUCT(12) dstr_114__NCOMM_STRING; struct BASILYS_OBJECT_STRUCT(4) dobj_115__NCOMM_STRING; struct BASILYS_STRING_STRUCT(12) dstr_116__NCOMM_STRING; struct BASILYS_OBJECT_STRUCT(3) dsym_117__CLASS_NREP_LET; struct BASILYS_STRING_STRUCT(14) dstr_118__CLASS_NREP_LET; struct BASILYS_OBJECT_STRUCT(9) dobj_119__CLASS_NREP_LET; struct BASILYS_STRING_STRUCT(14) dstr_120__CLASS_NREP_LET; struct BASILYS_MULTIPLE_STRUCT(3) dtup_121__CLASS_NREP_LET; struct BASILYS_MULTIPLE_STRUCT(3) dtup_122__CLASS_NREP_LET; struct BASILYS_OBJECT_STRUCT(3) dsym_123__NLET_BINDINGS; struct BASILYS_STRING_STRUCT(13) dstr_124__NLET_BINDINGS; struct BASILYS_OBJECT_STRUCT(4) dobj_125__NLET_BINDINGS; struct BASILYS_STRING_STRUCT(13) dstr_126__NLET_BINDINGS; struct BASILYS_OBJECT_STRUCT(3) dsym_127__NLET_BODY; struct BASILYS_STRING_STRUCT(9) dstr_128__NLET_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_129__NLET_BODY; struct BASILYS_STRING_STRUCT(9) dstr_130__NLET_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_131__CLASS_NREP_RETURN; struct BASILYS_STRING_STRUCT(17) dstr_132__CLASS_NREP_RETUR; struct BASILYS_OBJECT_STRUCT(9) dobj_133__CLASS_NREP_RETURN; struct BASILYS_STRING_STRUCT(17) dstr_134__CLASS_NREP_RETUR; struct BASILYS_MULTIPLE_STRUCT(3) dtup_135__CLASS_NREP_RETURN; struct BASILYS_MULTIPLE_STRUCT(3) dtup_136__CLASS_NREP_RETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_137__NRET_MAIN; struct BASILYS_STRING_STRUCT(9) dstr_138__NRET_MAIN; struct BASILYS_OBJECT_STRUCT(4) dobj_139__NRET_MAIN; struct BASILYS_STRING_STRUCT(9) dstr_140__NRET_MAIN; struct BASILYS_OBJECT_STRUCT(3) dsym_141__NRET_REST; struct BASILYS_STRING_STRUCT(9) dstr_142__NRET_REST; struct BASILYS_OBJECT_STRUCT(4) dobj_143__NRET_REST; struct BASILYS_STRING_STRUCT(9) dstr_144__NRET_REST; struct BASILYS_OBJECT_STRUCT(3) dsym_145__CLASS_NREP_IF; struct BASILYS_STRING_STRUCT(13) dstr_146__CLASS_NREP_IF; struct BASILYS_OBJECT_STRUCT(9) dobj_147__CLASS_NREP_IF; struct BASILYS_STRING_STRUCT(13) dstr_148__CLASS_NREP_IF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_149__CLASS_NREP_IF; struct BASILYS_MULTIPLE_STRUCT(5) dtup_150__CLASS_NREP_IF; struct BASILYS_OBJECT_STRUCT(3) dsym_151__NIF_TEST; struct BASILYS_STRING_STRUCT(8) dstr_152__NIF_TEST; struct BASILYS_OBJECT_STRUCT(4) dobj_153__NIF_TEST; struct BASILYS_STRING_STRUCT(8) dstr_154__NIF_TEST; struct BASILYS_OBJECT_STRUCT(3) dsym_155__NIF_THEN; struct BASILYS_STRING_STRUCT(8) dstr_156__NIF_THEN; struct BASILYS_OBJECT_STRUCT(4) dobj_157__NIF_THEN; struct BASILYS_STRING_STRUCT(8) dstr_158__NIF_THEN; struct BASILYS_OBJECT_STRUCT(3) dsym_159__NIF_ELSE; struct BASILYS_STRING_STRUCT(8) dstr_160__NIF_ELSE; struct BASILYS_OBJECT_STRUCT(4) dobj_161__NIF_ELSE; struct BASILYS_STRING_STRUCT(8) dstr_162__NIF_ELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_163__NIF_CTYP; struct BASILYS_STRING_STRUCT(8) dstr_164__NIF_CTYP; struct BASILYS_OBJECT_STRUCT(4) dobj_165__NIF_CTYP; struct BASILYS_STRING_STRUCT(8) dstr_166__NIF_CTYP; struct BASILYS_OBJECT_STRUCT(3) dsym_167__CLASS_NREP_CPPIF; struct BASILYS_STRING_STRUCT(16) dstr_168__CLASS_NREP_CPPIF; struct BASILYS_OBJECT_STRUCT(9) dobj_169__CLASS_NREP_CPPIF; struct BASILYS_STRING_STRUCT(16) dstr_170__CLASS_NREP_CPPIF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_171__CLASS_NREP_CPPIF; struct BASILYS_MULTIPLE_STRUCT(5) dtup_172__CLASS_NREP_CPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_173__NIFP_COND; struct BASILYS_STRING_STRUCT(9) dstr_174__NIFP_COND; struct BASILYS_OBJECT_STRUCT(4) dobj_175__NIFP_COND; struct BASILYS_STRING_STRUCT(9) dstr_176__NIFP_COND; struct BASILYS_OBJECT_STRUCT(3) dsym_177__NIFP_THEN; struct BASILYS_STRING_STRUCT(9) dstr_178__NIFP_THEN; struct BASILYS_OBJECT_STRUCT(4) dobj_179__NIFP_THEN; struct BASILYS_STRING_STRUCT(9) dstr_180__NIFP_THEN; struct BASILYS_OBJECT_STRUCT(3) dsym_181__NIFP_ELSE; struct BASILYS_STRING_STRUCT(9) dstr_182__NIFP_ELSE; struct BASILYS_OBJECT_STRUCT(4) dobj_183__NIFP_ELSE; struct BASILYS_STRING_STRUCT(9) dstr_184__NIFP_ELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_185__NIFP_CTYP; struct BASILYS_STRING_STRUCT(9) dstr_186__NIFP_CTYP; struct BASILYS_OBJECT_STRUCT(4) dobj_187__NIFP_CTYP; struct BASILYS_STRING_STRUCT(9) dstr_188__NIFP_CTYP; struct BASILYS_OBJECT_STRUCT(3) dsym_189__CLASS_NREP_PROGN; struct BASILYS_STRING_STRUCT(16) dstr_190__CLASS_NREP_PROGN; struct BASILYS_OBJECT_STRUCT(9) dobj_191__CLASS_NREP_PROGN; struct BASILYS_STRING_STRUCT(16) dstr_192__CLASS_NREP_PROGN; struct BASILYS_MULTIPLE_STRUCT(3) dtup_193__CLASS_NREP_PROGN; struct BASILYS_MULTIPLE_STRUCT(3) dtup_194__CLASS_NREP_PROGN; struct BASILYS_OBJECT_STRUCT(3) dsym_195__NPROGN_SEQ; struct BASILYS_STRING_STRUCT(10) dstr_196__NPROGN_SEQ; struct BASILYS_OBJECT_STRUCT(4) dobj_197__NPROGN_SEQ; struct BASILYS_STRING_STRUCT(10) dstr_198__NPROGN_SEQ; struct BASILYS_OBJECT_STRUCT(3) dsym_199__NPROGN_LAST; struct BASILYS_STRING_STRUCT(11) dstr_200__NPROGN_LAST; struct BASILYS_OBJECT_STRUCT(4) dobj_201__NPROGN_LAST; struct BASILYS_STRING_STRUCT(11) dstr_202__NPROGN_LAST; struct BASILYS_OBJECT_STRUCT(3) dsym_203__CLASS_NREP_UNSAFE_GET_FIELD; struct BASILYS_STRING_STRUCT(27) dstr_204__CLASS_NREP_UNSAF; struct BASILYS_OBJECT_STRUCT(9) dobj_205__CLASS_NREP_UNSAFE_GET_FIELD; struct BASILYS_STRING_STRUCT(27) dstr_206__CLASS_NREP_UNSAF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_207__CLASS_NREP_UNSAFE_GET_FIELD; struct BASILYS_MULTIPLE_STRUCT(3) dtup_208__CLASS_NREP_UNSAFE_GET_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_209__NUGET_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_210__NUGET_OBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_211__NUGET_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_212__NUGET_OBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_213__NUGET_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_214__NUGET_FIELD; struct BASILYS_OBJECT_STRUCT(4) dobj_215__NUGET_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_216__NUGET_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_STRING_STRUCT(28) dstr_218__CLASS_NREP_UNSAF; struct BASILYS_OBJECT_STRUCT(9) dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_STRING_STRUCT(28) dstr_220__CLASS_NREP_UNSAF; struct BASILYS_MULTIPLE_STRUCT(3) dtup_221__CLASS_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_MULTIPLE_STRUCT(3) dtup_222__CLASS_NREP_UNSAFE_PUT_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_223__NUPUT_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_224__NUPUT_OBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_225__NUPUT_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_226__NUPUT_OBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_227__NUPUT_FIELDS; struct BASILYS_STRING_STRUCT(12) dstr_228__NUPUT_FIELDS; struct BASILYS_OBJECT_STRUCT(4) dobj_229__NUPUT_FIELDS; struct BASILYS_STRING_STRUCT(12) dstr_230__NUPUT_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_231__CLASS_NREP_SETQ; struct BASILYS_STRING_STRUCT(15) dstr_232__CLASS_NREP_SETQ; struct BASILYS_OBJECT_STRUCT(9) dobj_233__CLASS_NREP_SETQ; struct BASILYS_STRING_STRUCT(15) dstr_234__CLASS_NREP_SETQ; struct BASILYS_MULTIPLE_STRUCT(3) dtup_235__CLASS_NREP_SETQ; struct BASILYS_MULTIPLE_STRUCT(3) dtup_236__CLASS_NREP_SETQ; struct BASILYS_OBJECT_STRUCT(3) dsym_237__NSTQ_VAR; struct BASILYS_STRING_STRUCT(8) dstr_238__NSTQ_VAR; struct BASILYS_OBJECT_STRUCT(4) dobj_239__NSTQ_VAR; struct BASILYS_STRING_STRUCT(8) dstr_240__NSTQ_VAR; struct BASILYS_OBJECT_STRUCT(3) dsym_241__NSTQ_EXP; struct BASILYS_STRING_STRUCT(8) dstr_242__NSTQ_EXP; struct BASILYS_OBJECT_STRUCT(4) dobj_243__NSTQ_EXP; struct BASILYS_STRING_STRUCT(8) dstr_244__NSTQ_EXP; struct BASILYS_OBJECT_STRUCT(3) dsym_245__CLASS_NREP_FOREVER; struct BASILYS_STRING_STRUCT(18) dstr_246__CLASS_NREP_FOREV; struct BASILYS_OBJECT_STRUCT(9) dobj_247__CLASS_NREP_FOREVER; struct BASILYS_STRING_STRUCT(18) dstr_248__CLASS_NREP_FOREV; struct BASILYS_MULTIPLE_STRUCT(3) dtup_249__CLASS_NREP_FOREVER; struct BASILYS_MULTIPLE_STRUCT(4) dtup_250__CLASS_NREP_FOREVER; struct BASILYS_OBJECT_STRUCT(3) dsym_251__NFOREVER_BIND; struct BASILYS_STRING_STRUCT(13) dstr_252__NFOREVER_BIND; struct BASILYS_OBJECT_STRUCT(4) dobj_253__NFOREVER_BIND; struct BASILYS_STRING_STRUCT(13) dstr_254__NFOREVER_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_255__NFOREVER_BODY; struct BASILYS_STRING_STRUCT(13) dstr_256__NFOREVER_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_257__NFOREVER_BODY; struct BASILYS_STRING_STRUCT(13) dstr_258__NFOREVER_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_259__NFOREVER_RESULT; struct BASILYS_STRING_STRUCT(15) dstr_260__NFOREVER_RESULT; struct BASILYS_OBJECT_STRUCT(4) dobj_261__NFOREVER_RESULT; struct BASILYS_STRING_STRUCT(15) dstr_262__NFOREVER_RESULT; struct BASILYS_OBJECT_STRUCT(3) dsym_263__CLASS_NREP_EXIT; struct BASILYS_STRING_STRUCT(15) dstr_264__CLASS_NREP_EXIT; struct BASILYS_OBJECT_STRUCT(9) dobj_265__CLASS_NREP_EXIT; struct BASILYS_STRING_STRUCT(15) dstr_266__CLASS_NREP_EXIT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_267__CLASS_NREP_EXIT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_268__CLASS_NREP_EXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_269__NEXIT_BIND; struct BASILYS_STRING_STRUCT(10) dstr_270__NEXIT_BIND; struct BASILYS_OBJECT_STRUCT(4) dobj_271__NEXIT_BIND; struct BASILYS_STRING_STRUCT(10) dstr_272__NEXIT_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_273__NEXIT_VAL; struct BASILYS_STRING_STRUCT(9) dstr_274__NEXIT_VAL; struct BASILYS_OBJECT_STRUCT(4) dobj_275__NEXIT_VAL; struct BASILYS_STRING_STRUCT(9) dstr_276__NEXIT_VAL; struct BASILYS_OBJECT_STRUCT(3) dsym_277__CLASS_NREP_FIELDASSIGN; struct BASILYS_STRING_STRUCT(22) dstr_278__CLASS_NREP_FIELD; struct BASILYS_OBJECT_STRUCT(9) dobj_279__CLASS_NREP_FIELDASSIGN; struct BASILYS_STRING_STRUCT(22) dstr_280__CLASS_NREP_FIELD; struct BASILYS_MULTIPLE_STRUCT(2) dtup_281__CLASS_NREP_FIELDASSIGN; struct BASILYS_MULTIPLE_STRUCT(3) dtup_282__CLASS_NREP_FIELDASSIGN; struct BASILYS_OBJECT_STRUCT(3) dsym_283__NFLA_FIELD; struct BASILYS_STRING_STRUCT(10) dstr_284__NFLA_FIELD; struct BASILYS_OBJECT_STRUCT(4) dobj_285__NFLA_FIELD; struct BASILYS_STRING_STRUCT(10) dstr_286__NFLA_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_287__NFLA_VAL; struct BASILYS_STRING_STRUCT(8) dstr_288__NFLA_VAL; struct BASILYS_OBJECT_STRUCT(4) dobj_289__NFLA_VAL; struct BASILYS_STRING_STRUCT(8) dstr_290__NFLA_VAL; struct BASILYS_OBJECT_STRUCT(3) dsym_291__CLASS_NREP_MAKE_INSTANCE; struct BASILYS_STRING_STRUCT(24) dstr_292__CLASS_NREP_MAKE_; struct BASILYS_OBJECT_STRUCT(9) dobj_293__CLASS_NREP_MAKE_INSTANCE; struct BASILYS_STRING_STRUCT(24) dstr_294__CLASS_NREP_MAKE_; struct BASILYS_MULTIPLE_STRUCT(3) dtup_295__CLASS_NREP_MAKE_INSTANCE; struct BASILYS_MULTIPLE_STRUCT(4) dtup_296__CLASS_NREP_MAKE_INSTANCE; struct BASILYS_OBJECT_STRUCT(3) dsym_297__NMINS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_298__NMINS_CLASS; struct BASILYS_OBJECT_STRUCT(4) dobj_299__NMINS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_300__NMINS_CLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_301__NMINS_CLADATA; struct BASILYS_STRING_STRUCT(13) dstr_302__NMINS_CLADATA; struct BASILYS_OBJECT_STRUCT(4) dobj_303__NMINS_CLADATA; struct BASILYS_STRING_STRUCT(13) dstr_304__NMINS_CLADATA; struct BASILYS_OBJECT_STRUCT(3) dsym_305__NMINS_FIELDS; struct BASILYS_STRING_STRUCT(12) dstr_306__NMINS_FIELDS; struct BASILYS_OBJECT_STRUCT(4) dobj_307__NMINS_FIELDS; struct BASILYS_STRING_STRUCT(12) dstr_308__NMINS_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_309__CLASS_NREP_LAMBDA; struct BASILYS_STRING_STRUCT(17) dstr_310__CLASS_NREP_LAMBD; struct BASILYS_OBJECT_STRUCT(9) dobj_311__CLASS_NREP_LAMBDA; struct BASILYS_STRING_STRUCT(17) dstr_312__CLASS_NREP_LAMBD; struct BASILYS_MULTIPLE_STRUCT(3) dtup_313__CLASS_NREP_LAMBDA; struct BASILYS_MULTIPLE_STRUCT(4) dtup_314__CLASS_NREP_LAMBDA; struct BASILYS_OBJECT_STRUCT(3) dsym_315__NLAMBDA_PROC; struct BASILYS_STRING_STRUCT(12) dstr_316__NLAMBDA_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_317__NLAMBDA_PROC; struct BASILYS_STRING_STRUCT(12) dstr_318__NLAMBDA_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_319__NLAMBDA_CONSTROUT; struct BASILYS_STRING_STRUCT(17) dstr_320__NLAMBDA_CONSTROU; struct BASILYS_OBJECT_STRUCT(4) dobj_321__NLAMBDA_CONSTROUT; struct BASILYS_STRING_STRUCT(17) dstr_322__NLAMBDA_CONSTROU; struct BASILYS_OBJECT_STRUCT(3) dsym_323__NLAMBDA_CLOSEDV; struct BASILYS_STRING_STRUCT(15) dstr_324__NLAMBDA_CLOSEDV; struct BASILYS_OBJECT_STRUCT(4) dobj_325__NLAMBDA_CLOSEDV; struct BASILYS_STRING_STRUCT(15) dstr_326__NLAMBDA_CLOSEDV; struct BASILYS_OBJECT_STRUCT(3) dsym_327__CLASS_NREP_CITERATION; struct BASILYS_STRING_STRUCT(21) dstr_328__CLASS_NREP_CITER; struct BASILYS_OBJECT_STRUCT(9) dobj_329__CLASS_NREP_CITERATION; struct BASILYS_STRING_STRUCT(21) dstr_330__CLASS_NREP_CITER; struct BASILYS_MULTIPLE_STRUCT(3) dtup_331__CLASS_NREP_CITERATION; struct BASILYS_MULTIPLE_STRUCT(8) dtup_332__CLASS_NREP_CITERATION; struct BASILYS_OBJECT_STRUCT(3) dsym_333__NCITER_CITERATOR; struct BASILYS_STRING_STRUCT(16) dstr_334__NCITER_CITERATOR; struct BASILYS_OBJECT_STRUCT(4) dobj_335__NCITER_CITERATOR; struct BASILYS_STRING_STRUCT(16) dstr_336__NCITER_CITERATOR; struct BASILYS_OBJECT_STRUCT(3) dsym_337__NCITER_LOCBINDINGS; struct BASILYS_STRING_STRUCT(18) dstr_338__NCITER_LOCBINDIN; struct BASILYS_OBJECT_STRUCT(4) dobj_339__NCITER_LOCBINDINGS; struct BASILYS_STRING_STRUCT(18) dstr_340__NCITER_LOCBINDIN; struct BASILYS_OBJECT_STRUCT(3) dsym_341__NCITER_CHUNKBEFORE; struct BASILYS_STRING_STRUCT(18) dstr_342__NCITER_CHUNKBEFO; struct BASILYS_OBJECT_STRUCT(4) dobj_343__NCITER_CHUNKBEFORE; struct BASILYS_STRING_STRUCT(18) dstr_344__NCITER_CHUNKBEFO; struct BASILYS_OBJECT_STRUCT(3) dsym_345__NCITER_BODY; struct BASILYS_STRING_STRUCT(11) dstr_346__NCITER_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_347__NCITER_BODY; struct BASILYS_STRING_STRUCT(11) dstr_348__NCITER_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_349__NCITER_STATOCC; struct BASILYS_STRING_STRUCT(14) dstr_350__NCITER_STATOCC; struct BASILYS_OBJECT_STRUCT(4) dobj_351__NCITER_STATOCC; struct BASILYS_STRING_STRUCT(14) dstr_352__NCITER_STATOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_353__NCITER_BODBINDINGS; struct BASILYS_STRING_STRUCT(18) dstr_354__NCITER_BODBINDIN; struct BASILYS_OBJECT_STRUCT(4) dobj_355__NCITER_BODBINDINGS; struct BASILYS_STRING_STRUCT(18) dstr_356__NCITER_BODBINDIN; struct BASILYS_OBJECT_STRUCT(3) dsym_357__NCITER_CHUNKAFTER; struct BASILYS_STRING_STRUCT(17) dstr_358__NCITER_CHUNKAFTE; struct BASILYS_OBJECT_STRUCT(4) dobj_359__NCITER_CHUNKAFTER; struct BASILYS_STRING_STRUCT(17) dstr_360__NCITER_CHUNKAFTE; struct BASILYS_OBJECT_STRUCT(3) dsym_361__CLASS_NREP_ANYPROC; struct BASILYS_STRING_STRUCT(18) dstr_362__CLASS_NREP_ANYPR; struct BASILYS_OBJECT_STRUCT(9) dobj_363__CLASS_NREP_ANYPROC; struct BASILYS_STRING_STRUCT(18) dstr_364__CLASS_NREP_ANYPR; struct BASILYS_MULTIPLE_STRUCT(2) dtup_365__CLASS_NREP_ANYPROC; struct BASILYS_MULTIPLE_STRUCT(2) dtup_366__CLASS_NREP_ANYPROC; struct BASILYS_OBJECT_STRUCT(3) dsym_367__NPROC_BODY; struct BASILYS_STRING_STRUCT(10) dstr_368__NPROC_BODY; struct BASILYS_OBJECT_STRUCT(4) dobj_369__NPROC_BODY; struct BASILYS_STRING_STRUCT(10) dstr_370__NPROC_BODY; struct BASILYS_OBJECT_STRUCT(3) dsym_371__CLASS_NREP_INITPROC; struct BASILYS_STRING_STRUCT(19) dstr_372__CLASS_NREP_INITP; struct BASILYS_OBJECT_STRUCT(9) dobj_373__CLASS_NREP_INITPROC; struct BASILYS_STRING_STRUCT(19) dstr_374__CLASS_NREP_INITP; struct BASILYS_MULTIPLE_STRUCT(3) dtup_375__CLASS_NREP_INITPROC; struct BASILYS_MULTIPLE_STRUCT(3) dtup_376__CLASS_NREP_INITPROC; struct BASILYS_OBJECT_STRUCT(3) dsym_377__NINIT_TOPL; struct BASILYS_STRING_STRUCT(10) dstr_378__NINIT_TOPL; struct BASILYS_OBJECT_STRUCT(4) dobj_379__NINIT_TOPL; struct BASILYS_STRING_STRUCT(10) dstr_380__NINIT_TOPL; struct BASILYS_OBJECT_STRUCT(3) dsym_381__CLASS_NREP_ROUTPROC; struct BASILYS_STRING_STRUCT(19) dstr_382__CLASS_NREP_ROUTP; struct BASILYS_OBJECT_STRUCT(9) dobj_383__CLASS_NREP_ROUTPROC; struct BASILYS_STRING_STRUCT(19) dstr_384__CLASS_NREP_ROUTP; struct BASILYS_MULTIPLE_STRUCT(3) dtup_385__CLASS_NREP_ROUTPROC; struct BASILYS_MULTIPLE_STRUCT(9) dtup_386__CLASS_NREP_ROUTPROC; struct BASILYS_OBJECT_STRUCT(3) dsym_387__NRPRO_NAME; struct BASILYS_STRING_STRUCT(10) dstr_388__NRPRO_NAME; struct BASILYS_OBJECT_STRUCT(4) dobj_389__NRPRO_NAME; struct BASILYS_STRING_STRUCT(10) dstr_390__NRPRO_NAME; struct BASILYS_OBJECT_STRUCT(3) dsym_391__NRPRO_ARGB; struct BASILYS_STRING_STRUCT(10) dstr_392__NRPRO_ARGB; struct BASILYS_OBJECT_STRUCT(4) dobj_393__NRPRO_ARGB; struct BASILYS_STRING_STRUCT(10) dstr_394__NRPRO_ARGB; struct BASILYS_OBJECT_STRUCT(3) dsym_395__NRPRO_CLOSEDB; struct BASILYS_STRING_STRUCT(13) dstr_396__NRPRO_CLOSEDB; struct BASILYS_OBJECT_STRUCT(4) dobj_397__NRPRO_CLOSEDB; struct BASILYS_STRING_STRUCT(13) dstr_398__NRPRO_CLOSEDB; struct BASILYS_OBJECT_STRUCT(3) dsym_399__NRPRO_CONST; struct BASILYS_STRING_STRUCT(11) dstr_400__NRPRO_CONST; struct BASILYS_OBJECT_STRUCT(4) dobj_401__NRPRO_CONST; struct BASILYS_STRING_STRUCT(11) dstr_402__NRPRO_CONST; struct BASILYS_OBJECT_STRUCT(3) dsym_403__NRPRO_DATAROUT; struct BASILYS_STRING_STRUCT(14) dstr_404__NRPRO_DATAROUT; struct BASILYS_OBJECT_STRUCT(4) dobj_405__NRPRO_DATAROUT; struct BASILYS_STRING_STRUCT(14) dstr_406__NRPRO_DATAROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_407__NRPRO_DATACLOS; struct BASILYS_STRING_STRUCT(14) dstr_408__NRPRO_DATACLOS; struct BASILYS_OBJECT_STRUCT(4) dobj_409__NRPRO_DATACLOS; struct BASILYS_STRING_STRUCT(14) dstr_410__NRPRO_DATACLOS; struct BASILYS_OBJECT_STRUCT(3) dsym_411__NRPRO_THUNKLIST; struct BASILYS_STRING_STRUCT(15) dstr_412__NRPRO_THUNKLIST; struct BASILYS_OBJECT_STRUCT(4) dobj_413__NRPRO_THUNKLIST; struct BASILYS_STRING_STRUCT(15) dstr_414__NRPRO_THUNKLIST; struct BASILYS_OBJECT_STRUCT(3) dsym_415__CLASS_NREP_PREDEF; struct BASILYS_STRING_STRUCT(17) dstr_416__CLASS_NREP_PREDE; struct BASILYS_OBJECT_STRUCT(9) dobj_417__CLASS_NREP_PREDEF; struct BASILYS_STRING_STRUCT(17) dstr_418__CLASS_NREP_PREDE; struct BASILYS_MULTIPLE_STRUCT(3) dtup_419__CLASS_NREP_PREDEF; struct BASILYS_MULTIPLE_STRUCT(2) dtup_420__CLASS_NREP_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_421__NRPREDEF; struct BASILYS_STRING_STRUCT(8) dstr_422__NRPREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_423__NRPREDEF; struct BASILYS_STRING_STRUCT(8) dstr_424__NRPREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_425__CLASS_NREP_NIL; struct BASILYS_STRING_STRUCT(14) dstr_426__CLASS_NREP_NIL; struct BASILYS_OBJECT_STRUCT(9) dobj_427__CLASS_NREP_NIL; struct BASILYS_STRING_STRUCT(14) dstr_428__CLASS_NREP_NIL; struct BASILYS_MULTIPLE_STRUCT(3) dtup_429__CLASS_NREP_NIL; struct BASILYS_MULTIPLE_STRUCT(1) dtup_430__CLASS_NREP_NIL; struct BASILYS_OBJECT_STRUCT(3) dsym_431__CLASS_NREP_QUASIDATA; struct BASILYS_STRING_STRUCT(20) dstr_432__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_433__CLASS_NREP_QUASIDATA; struct BASILYS_STRING_STRUCT(20) dstr_434__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(2) dtup_435__CLASS_NREP_QUASIDATA; struct BASILYS_MULTIPLE_STRUCT(1) dtup_436__CLASS_NREP_QUASIDATA; struct BASILYS_OBJECT_STRUCT(3) dsym_437__CLASS_NREP_DATA; struct BASILYS_STRING_STRUCT(15) dstr_438__CLASS_NREP_DATA; struct BASILYS_OBJECT_STRUCT(9) dobj_439__CLASS_NREP_DATA; struct BASILYS_STRING_STRUCT(15) dstr_440__CLASS_NREP_DATA; struct BASILYS_MULTIPLE_STRUCT(3) dtup_441__CLASS_NREP_DATA; struct BASILYS_MULTIPLE_STRUCT(5) dtup_442__CLASS_NREP_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_443__NDATA_NAME; struct BASILYS_STRING_STRUCT(10) dstr_444__NDATA_NAME; struct BASILYS_OBJECT_STRUCT(4) dobj_445__NDATA_NAME; struct BASILYS_STRING_STRUCT(10) dstr_446__NDATA_NAME; struct BASILYS_OBJECT_STRUCT(3) dsym_447__NDATA_DISCRX; struct BASILYS_STRING_STRUCT(12) dstr_448__NDATA_DISCRX; struct BASILYS_OBJECT_STRUCT(4) dobj_449__NDATA_DISCRX; struct BASILYS_STRING_STRUCT(12) dstr_450__NDATA_DISCRX; struct BASILYS_OBJECT_STRUCT(3) dsym_451__NDATA_RANK; struct BASILYS_STRING_STRUCT(10) dstr_452__NDATA_RANK; struct BASILYS_OBJECT_STRUCT(4) dobj_453__NDATA_RANK; struct BASILYS_STRING_STRUCT(10) dstr_454__NDATA_RANK; struct BASILYS_OBJECT_STRUCT(3) dsym_455__NDATA_LOCBIND; struct BASILYS_STRING_STRUCT(13) dstr_456__NDATA_LOCBIND; struct BASILYS_OBJECT_STRUCT(4) dobj_457__NDATA_LOCBIND; struct BASILYS_STRING_STRUCT(13) dstr_458__NDATA_LOCBIND; struct BASILYS_OBJECT_STRUCT(3) dsym_459__CLASS_NREP_DATAINSTANCE; struct BASILYS_STRING_STRUCT(23) dstr_460__CLASS_NREP_DATAI; struct BASILYS_OBJECT_STRUCT(9) dobj_461__CLASS_NREP_DATAINSTANCE; struct BASILYS_STRING_STRUCT(23) dstr_462__CLASS_NREP_DATAI; struct BASILYS_MULTIPLE_STRUCT(4) dtup_463__CLASS_NREP_DATAINSTANCE; struct BASILYS_MULTIPLE_STRUCT(9) dtup_464__CLASS_NREP_DATAINSTANCE; struct BASILYS_OBJECT_STRUCT(3) dsym_465__NINST_OBJNUM; struct BASILYS_STRING_STRUCT(12) dstr_466__NINST_OBJNUM; struct BASILYS_OBJECT_STRUCT(4) dobj_467__NINST_OBJNUM; struct BASILYS_STRING_STRUCT(12) dstr_468__NINST_OBJNUM; struct BASILYS_OBJECT_STRUCT(3) dsym_469__NINST_PREDEF; struct BASILYS_STRING_STRUCT(12) dstr_470__NINST_PREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_471__NINST_PREDEF; struct BASILYS_STRING_STRUCT(12) dstr_472__NINST_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_473__NINST_HASH; struct BASILYS_STRING_STRUCT(10) dstr_474__NINST_HASH; struct BASILYS_OBJECT_STRUCT(4) dobj_475__NINST_HASH; struct BASILYS_STRING_STRUCT(10) dstr_476__NINST_HASH; struct BASILYS_OBJECT_STRUCT(3) dsym_477__NINST_SLOTS; struct BASILYS_STRING_STRUCT(11) dstr_478__NINST_SLOTS; struct BASILYS_OBJECT_STRUCT(4) dobj_479__NINST_SLOTS; struct BASILYS_STRING_STRUCT(11) dstr_480__NINST_SLOTS; struct BASILYS_OBJECT_STRUCT(3) dsym_481__CLASS_NREP_DATASTRING; struct BASILYS_STRING_STRUCT(21) dstr_482__CLASS_NREP_DATAS; struct BASILYS_OBJECT_STRUCT(9) dobj_483__CLASS_NREP_DATASTRING; struct BASILYS_STRING_STRUCT(21) dstr_484__CLASS_NREP_DATAS; struct BASILYS_MULTIPLE_STRUCT(4) dtup_485__CLASS_NREP_DATASTRING; struct BASILYS_MULTIPLE_STRUCT(6) dtup_486__CLASS_NREP_DATASTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_487__NSTR_STRING; struct BASILYS_STRING_STRUCT(11) dstr_488__NSTR_STRING; struct BASILYS_OBJECT_STRUCT(4) dobj_489__NSTR_STRING; struct BASILYS_STRING_STRUCT(11) dstr_490__NSTR_STRING; struct BASILYS_OBJECT_STRUCT(3) dsym_491__CLASS_NREP_DATATUPLE; struct BASILYS_STRING_STRUCT(20) dstr_492__CLASS_NREP_DATAT; struct BASILYS_OBJECT_STRUCT(9) dobj_493__CLASS_NREP_DATATUPLE; struct BASILYS_STRING_STRUCT(20) dstr_494__CLASS_NREP_DATAT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_495__CLASS_NREP_DATATUPLE; struct BASILYS_MULTIPLE_STRUCT(6) dtup_496__CLASS_NREP_DATATUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_497__NTUP_COMP; struct BASILYS_STRING_STRUCT(9) dstr_498__NTUP_COMP; struct BASILYS_OBJECT_STRUCT(4) dobj_499__NTUP_COMP; struct BASILYS_STRING_STRUCT(9) dstr_500__NTUP_COMP; struct BASILYS_OBJECT_STRUCT(3) dsym_501__CLASS_NREP_DATASYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_502__CLASS_NREP_DATAS; struct BASILYS_OBJECT_STRUCT(9) dobj_503__CLASS_NREP_DATASYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_504__CLASS_NREP_DATAS; struct BASILYS_MULTIPLE_STRUCT(5) dtup_505__CLASS_NREP_DATASYMBOL; struct BASILYS_MULTIPLE_STRUCT(10) dtup_506__CLASS_NREP_DATASYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_507__NDSY_NAMESTR; struct BASILYS_STRING_STRUCT(12) dstr_508__NDSY_NAMESTR; struct BASILYS_OBJECT_STRUCT(4) dobj_509__NDSY_NAMESTR; struct BASILYS_STRING_STRUCT(12) dstr_510__NDSY_NAMESTR; struct BASILYS_OBJECT_STRUCT(3) dsym_511__CLASS_NREP_DATAKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_512__CLASS_NREP_DATAK; struct BASILYS_OBJECT_STRUCT(9) dobj_513__CLASS_NREP_DATAKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_514__CLASS_NREP_DATAK; struct BASILYS_MULTIPLE_STRUCT(6) dtup_515__CLASS_NREP_DATAKEYWORD; struct BASILYS_MULTIPLE_STRUCT(10) dtup_516__CLASS_NREP_DATAKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_517__CLASS_NREP_DATAROUTINE; struct BASILYS_STRING_STRUCT(22) dstr_518__CLASS_NREP_DATAR; struct BASILYS_OBJECT_STRUCT(9) dobj_519__CLASS_NREP_DATAROUTINE; struct BASILYS_STRING_STRUCT(22) dstr_520__CLASS_NREP_DATAR; struct BASILYS_MULTIPLE_STRUCT(4) dtup_521__CLASS_NREP_DATAROUTINE; struct BASILYS_MULTIPLE_STRUCT(6) dtup_522__CLASS_NREP_DATAROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_523__NDROU_PROC; struct BASILYS_STRING_STRUCT(10) dstr_524__NDROU_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_525__NDROU_PROC; struct BASILYS_STRING_STRUCT(10) dstr_526__NDROU_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_527__CLASS_NREP_DATACLOSURE; struct BASILYS_STRING_STRUCT(22) dstr_528__CLASS_NREP_DATAC; struct BASILYS_OBJECT_STRUCT(9) dobj_529__CLASS_NREP_DATACLOSURE; struct BASILYS_STRING_STRUCT(22) dstr_530__CLASS_NREP_DATAC; struct BASILYS_MULTIPLE_STRUCT(4) dtup_531__CLASS_NREP_DATACLOSURE; struct BASILYS_MULTIPLE_STRUCT(7) dtup_532__CLASS_NREP_DATACLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_533__NDCLO_PROC; struct BASILYS_STRING_STRUCT(10) dstr_534__NDCLO_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_535__NDCLO_PROC; struct BASILYS_STRING_STRUCT(10) dstr_536__NDCLO_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_537__NDCLO_CLOSV; struct BASILYS_STRING_STRUCT(11) dstr_538__NDCLO_CLOSV; struct BASILYS_OBJECT_STRUCT(4) dobj_539__NDCLO_CLOSV; struct BASILYS_STRING_STRUCT(11) dstr_540__NDCLO_CLOSV; struct BASILYS_OBJECT_STRUCT(3) dsym_541__CLASS_NREP_IMPORTEDVAL; struct BASILYS_STRING_STRUCT(22) dstr_542__CLASS_NREP_IMPOR; struct BASILYS_OBJECT_STRUCT(9) dobj_543__CLASS_NREP_IMPORTEDVAL; struct BASILYS_STRING_STRUCT(22) dstr_544__CLASS_NREP_IMPOR; struct BASILYS_MULTIPLE_STRUCT(3) dtup_545__CLASS_NREP_IMPORTEDVAL; struct BASILYS_MULTIPLE_STRUCT(3) dtup_546__CLASS_NREP_IMPORTEDVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_547__NIMPORT_SYMB; struct BASILYS_STRING_STRUCT(12) dstr_548__NIMPORT_SYMB; struct BASILYS_OBJECT_STRUCT(4) dobj_549__NIMPORT_SYMB; struct BASILYS_STRING_STRUCT(12) dstr_550__NIMPORT_SYMB; struct BASILYS_OBJECT_STRUCT(3) dsym_551__NIMPORT_SYDATA; struct BASILYS_STRING_STRUCT(14) dstr_552__NIMPORT_SYDATA; struct BASILYS_OBJECT_STRUCT(4) dobj_553__NIMPORT_SYDATA; struct BASILYS_STRING_STRUCT(14) dstr_554__NIMPORT_SYDATA; struct BASILYS_OBJECT_STRUCT(3) dsym_555__CLASS_NREP_SYMOCC; struct BASILYS_STRING_STRUCT(17) dstr_556__CLASS_NREP_SYMOC; struct BASILYS_OBJECT_STRUCT(9) dobj_557__CLASS_NREP_SYMOCC; struct BASILYS_STRING_STRUCT(17) dstr_558__CLASS_NREP_SYMOC; struct BASILYS_MULTIPLE_STRUCT(3) dtup_559__CLASS_NREP_SYMOCC; struct BASILYS_MULTIPLE_STRUCT(4) dtup_560__CLASS_NREP_SYMOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_561__NOCC_SYMB; struct BASILYS_STRING_STRUCT(9) dstr_562__NOCC_SYMB; struct BASILYS_OBJECT_STRUCT(4) dobj_563__NOCC_SYMB; struct BASILYS_STRING_STRUCT(9) dstr_564__NOCC_SYMB; struct BASILYS_OBJECT_STRUCT(3) dsym_565__NOCC_CTYP; struct BASILYS_STRING_STRUCT(9) dstr_566__NOCC_CTYP; struct BASILYS_OBJECT_STRUCT(4) dobj_567__NOCC_CTYP; struct BASILYS_STRING_STRUCT(9) dstr_568__NOCC_CTYP; struct BASILYS_OBJECT_STRUCT(3) dsym_569__NOCC_BIND; struct BASILYS_STRING_STRUCT(9) dstr_570__NOCC_BIND; struct BASILYS_OBJECT_STRUCT(4) dobj_571__NOCC_BIND; struct BASILYS_STRING_STRUCT(9) dstr_572__NOCC_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_573__CLASS_NREP_LOCSYMOCC; struct BASILYS_STRING_STRUCT(20) dstr_574__CLASS_NREP_LOCSY; struct BASILYS_OBJECT_STRUCT(9) dobj_575__CLASS_NREP_LOCSYMOCC; struct BASILYS_STRING_STRUCT(20) dstr_576__CLASS_NREP_LOCSY; struct BASILYS_MULTIPLE_STRUCT(4) dtup_577__CLASS_NREP_LOCSYMOCC; struct BASILYS_MULTIPLE_STRUCT(4) dtup_578__CLASS_NREP_LOCSYMOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_579__CLASS_NREP_CLOSEDOCC; struct BASILYS_STRING_STRUCT(20) dstr_580__CLASS_NREP_CLOSE; struct BASILYS_OBJECT_STRUCT(9) dobj_581__CLASS_NREP_CLOSEDOCC; struct BASILYS_STRING_STRUCT(20) dstr_582__CLASS_NREP_CLOSE; struct BASILYS_MULTIPLE_STRUCT(4) dtup_583__CLASS_NREP_CLOSEDOCC; struct BASILYS_MULTIPLE_STRUCT(5) dtup_584__CLASS_NREP_CLOSEDOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_585__NCLOC_PROCS; struct BASILYS_STRING_STRUCT(11) dstr_586__NCLOC_PROCS; struct BASILYS_OBJECT_STRUCT(4) dobj_587__NCLOC_PROCS; struct BASILYS_STRING_STRUCT(11) dstr_588__NCLOC_PROCS; struct BASILYS_OBJECT_STRUCT(3) dsym_589__CLASS_NREP_CONSTOCC; struct BASILYS_STRING_STRUCT(19) dstr_590__CLASS_NREP_CONST; struct BASILYS_OBJECT_STRUCT(9) dobj_591__CLASS_NREP_CONSTOCC; struct BASILYS_STRING_STRUCT(19) dstr_592__CLASS_NREP_CONST; struct BASILYS_MULTIPLE_STRUCT(5) dtup_593__CLASS_NREP_CONSTOCC; struct BASILYS_MULTIPLE_STRUCT(5) dtup_594__CLASS_NREP_CONSTOCC; struct BASILYS_OBJECT_STRUCT(3) dsym_595__CLASS_NREP_QUASICONSTANT; struct BASILYS_STRING_STRUCT(24) dstr_596__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_597__CLASS_NREP_QUASICONSTANT; struct BASILYS_STRING_STRUCT(24) dstr_598__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(3) dtup_599__CLASS_NREP_QUASICONSTANT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_600__CLASS_NREP_QUASICONSTANT; struct BASILYS_OBJECT_STRUCT(3) dsym_601__NCONST_SVAL; struct BASILYS_STRING_STRUCT(11) dstr_602__NCONST_SVAL; struct BASILYS_OBJECT_STRUCT(4) dobj_603__NCONST_SVAL; struct BASILYS_STRING_STRUCT(11) dstr_604__NCONST_SVAL; struct BASILYS_OBJECT_STRUCT(3) dsym_605__NCONST_PROC; struct BASILYS_STRING_STRUCT(11) dstr_606__NCONST_PROC; struct BASILYS_OBJECT_STRUCT(4) dobj_607__NCONST_PROC; struct BASILYS_STRING_STRUCT(11) dstr_608__NCONST_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_609__NCONST_DATA; struct BASILYS_STRING_STRUCT(11) dstr_610__NCONST_DATA; struct BASILYS_OBJECT_STRUCT(4) dobj_611__NCONST_DATA; struct BASILYS_STRING_STRUCT(11) dstr_612__NCONST_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_613__CLASS_NREP_CONSTANT; struct BASILYS_STRING_STRUCT(19) dstr_614__CLASS_NREP_CONST; struct BASILYS_OBJECT_STRUCT(9) dobj_615__CLASS_NREP_CONSTANT; struct BASILYS_STRING_STRUCT(19) dstr_616__CLASS_NREP_CONST; struct BASILYS_MULTIPLE_STRUCT(4) dtup_617__CLASS_NREP_CONSTANT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_618__CLASS_NREP_CONSTANT; struct BASILYS_OBJECT_STRUCT(3) dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(58) dstr_620__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(58) dstr_622__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(4) dtup_623__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_MULTIPLE_STRUCT(5) dtup_624__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_625__NQCMEC_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_626__NQCMEC_COMMENT; struct BASILYS_OBJECT_STRUCT(4) dobj_627__NQCMEC_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_628__NQCMEC_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(57) dstr_630__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(57) dstr_632__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(3) dtup_633__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_MULTIPLE_STRUCT(1) dtup_634__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(47) dstr_636__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(47) dstr_638__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(4) dtup_639__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; struct BASILYS_MULTIPLE_STRUCT(4) dtup_640__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(46) dstr_642__CLASS_NREP_QUASI; struct BASILYS_OBJECT_STRUCT(9) dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(46) dstr_644__CLASS_NREP_QUASI; struct BASILYS_MULTIPLE_STRUCT(3) dtup_645__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_MULTIPLE_STRUCT(1) dtup_646__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_647__CLASS_NREP_FIELDACC; struct BASILYS_STRING_STRUCT(19) dstr_648__CLASS_NREP_FIELD; struct BASILYS_OBJECT_STRUCT(9) dobj_649__CLASS_NREP_FIELDACC; struct BASILYS_STRING_STRUCT(19) dstr_650__CLASS_NREP_FIELD; struct BASILYS_MULTIPLE_STRUCT(3) dtup_651__CLASS_NREP_FIELDACC; struct BASILYS_MULTIPLE_STRUCT(3) dtup_652__CLASS_NREP_FIELDACC; struct BASILYS_OBJECT_STRUCT(3) dsym_653__NACCF_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_654__NACCF_OBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_655__NACCF_OBJ; struct BASILYS_STRING_STRUCT(9) dstr_656__NACCF_OBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_657__NACCF_FLD; struct BASILYS_STRING_STRUCT(9) dstr_658__NACCF_FLD; struct BASILYS_OBJECT_STRUCT(4) dobj_659__NACCF_FLD; struct BASILYS_STRING_STRUCT(9) dstr_660__NACCF_FLD; struct BASILYS_OBJECT_STRUCT(3) dsym_661__CLASS_NREP_MULTACC; struct BASILYS_STRING_STRUCT(18) dstr_662__CLASS_NREP_MULTA; struct BASILYS_OBJECT_STRUCT(9) dobj_663__CLASS_NREP_MULTACC; struct BASILYS_STRING_STRUCT(18) dstr_664__CLASS_NREP_MULTA; struct BASILYS_MULTIPLE_STRUCT(3) dtup_665__CLASS_NREP_MULTACC; struct BASILYS_MULTIPLE_STRUCT(3) dtup_666__CLASS_NREP_MULTACC; struct BASILYS_OBJECT_STRUCT(3) dsym_667__NACCM_MUL; struct BASILYS_STRING_STRUCT(9) dstr_668__NACCM_MUL; struct BASILYS_OBJECT_STRUCT(4) dobj_669__NACCM_MUL; struct BASILYS_STRING_STRUCT(9) dstr_670__NACCM_MUL; struct BASILYS_OBJECT_STRUCT(3) dsym_671__NACCM_IX; struct BASILYS_STRING_STRUCT(8) dstr_672__NACCM_IX; struct BASILYS_OBJECT_STRUCT(4) dobj_673__NACCM_IX; struct BASILYS_STRING_STRUCT(8) dstr_674__NACCM_IX; struct BASILYS_OBJECT_STRUCT(3) dsym_675__CLASS_NREP_STORE_PREDEFINED; struct BASILYS_STRING_STRUCT(27) dstr_676__CLASS_NREP_STORE; struct BASILYS_OBJECT_STRUCT(9) dobj_677__CLASS_NREP_STORE_PREDEFINED; struct BASILYS_STRING_STRUCT(27) dstr_678__CLASS_NREP_STORE; struct BASILYS_MULTIPLE_STRUCT(3) dtup_679__CLASS_NREP_STORE_PREDEFINED; struct BASILYS_MULTIPLE_STRUCT(3) dtup_680__CLASS_NREP_STORE_PREDEFINED; struct BASILYS_OBJECT_STRUCT(3) dsym_681__NSTPD_PREDEF; struct BASILYS_STRING_STRUCT(12) dstr_682__NSTPD_PREDEF; struct BASILYS_OBJECT_STRUCT(4) dobj_683__NSTPD_PREDEF; struct BASILYS_STRING_STRUCT(12) dstr_684__NSTPD_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_685__NSTPD_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_686__NSTPD_VALUE; struct BASILYS_OBJECT_STRUCT(4) dobj_687__NSTPD_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_688__NSTPD_VALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(54) dstr_690__CLASS_NREP_UPDAT; struct BASILYS_OBJECT_STRUCT(9) dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(54) dstr_692__CLASS_NREP_UPDAT; struct BASILYS_MULTIPLE_STRUCT(3) dtup_693__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_MULTIPLE_STRUCT(3) dtup_694__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_695__NUCMEB_EXPR; struct BASILYS_STRING_STRUCT(11) dstr_696__NUCMEB_EXPR; struct BASILYS_OBJECT_STRUCT(4) dobj_697__NUCMEB_EXPR; struct BASILYS_STRING_STRUCT(11) dstr_698__NUCMEB_EXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_699__NCUMEB_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_700__NCUMEB_COMMENT; struct BASILYS_OBJECT_STRUCT(4) dobj_701__NCUMEB_COMMENT; struct BASILYS_STRING_STRUCT(14) dstr_702__NCUMEB_COMMENT; struct BASILYS_ROUTINE_STRUCT(3) drout_703__ADD_NCTX_DATA; struct BASILYS_CLOSURE_STRUCT(0) dclo_704__ADD_NCTX_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_705__CLASS_NORMCONTEXT; struct BASILYS_STRING_STRUCT(17) dstr_706__CLASS_NORMCONTEX; struct BASILYS_OBJECT_STRUCT(3) dsym_707__DISCR_INTEGER; struct BASILYS_STRING_STRUCT(13) dstr_708__DISCR_INTEGER; struct BASILYS_OBJECT_STRUCT(3) dsym_709__GLOBAL_ATOM_TRUE; struct BASILYS_STRING_STRUCT(16) dstr_710__GLOBAL_ATOM_TRUE; struct BASILYS_OBJECT_STRUCT(5) dobj_711__GLOBAL_ATOM_TRUE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_712__GLOBAL_ATOM_TRUE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_713__GLOBAL_ATOM_TRUE; struct BASILYS_STRING_STRUCT(26) dstr_714__void_BASILYSG_; struct BASILYS_STRING_STRUCT(16) dstr_715__GLOBAL_ATOM_TRUE; struct BASILYS_OBJECT_STRUCT(3) dsym_716__GLOBAL_CLASS_CITERATOR; struct BASILYS_STRING_STRUCT(22) dstr_717__GLOBAL_CLASS_CIT; struct BASILYS_OBJECT_STRUCT(5) dobj_718__GLOBAL_CLASS_CITERATOR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_719__GLOBAL_CLASS_CITERATOR; struct BASILYS_MULTIPLE_STRUCT(0) dtup_720__GLOBAL_CLASS_CITERATOR; struct BASILYS_STRING_STRUCT(32) dstr_721__void_BASILYSG_; struct BASILYS_STRING_STRUCT(22) dstr_722__GLOBAL_CLASS_CIT; struct BASILYS_OBJECT_STRUCT(3) dsym_723__GLOBAL_CLASS_CLASS; struct BASILYS_STRING_STRUCT(18) dstr_724__GLOBAL_CLASS_CLA; struct BASILYS_OBJECT_STRUCT(5) dobj_725__GLOBAL_CLASS_CLASS; struct BASILYS_MULTIPLE_STRUCT(1) dtup_726__GLOBAL_CLASS_CLASS; struct BASILYS_MULTIPLE_STRUCT(0) dtup_727__GLOBAL_CLASS_CLASS; struct BASILYS_STRING_STRUCT(28) dstr_728__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_729__GLOBAL_CLASS_CLA; struct BASILYS_OBJECT_STRUCT(3) dsym_730__GLOBAL_CLASS_CONTAINER; struct BASILYS_STRING_STRUCT(22) dstr_731__GLOBAL_CLASS_CON; struct BASILYS_OBJECT_STRUCT(5) dobj_732__GLOBAL_CLASS_CONTAINER; struct BASILYS_MULTIPLE_STRUCT(1) dtup_733__GLOBAL_CLASS_CONTAINER; struct BASILYS_MULTIPLE_STRUCT(0) dtup_734__GLOBAL_CLASS_CONTAINER; struct BASILYS_STRING_STRUCT(32) dstr_735__void_BASILYSG_; struct BASILYS_STRING_STRUCT(22) dstr_736__GLOBAL_CLASS_CON; struct BASILYS_OBJECT_STRUCT(3) dsym_737__GLOBAL_CLASS_DISCR; struct BASILYS_STRING_STRUCT(18) dstr_738__GLOBAL_CLASS_DIS; struct BASILYS_OBJECT_STRUCT(5) dobj_739__GLOBAL_CLASS_DISCR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_740__GLOBAL_CLASS_DISCR; struct BASILYS_MULTIPLE_STRUCT(0) dtup_741__GLOBAL_CLASS_DISCR; struct BASILYS_STRING_STRUCT(28) dstr_742__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_743__GLOBAL_CLASS_DIS; struct BASILYS_OBJECT_STRUCT(3) dsym_744__GLOBAL_CLASS_FIELD; struct BASILYS_STRING_STRUCT(18) dstr_745__GLOBAL_CLASS_FIE; struct BASILYS_OBJECT_STRUCT(5) dobj_746__GLOBAL_CLASS_FIELD; struct BASILYS_MULTIPLE_STRUCT(1) dtup_747__GLOBAL_CLASS_FIELD; struct BASILYS_MULTIPLE_STRUCT(0) dtup_748__GLOBAL_CLASS_FIELD; struct BASILYS_STRING_STRUCT(28) dstr_749__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_750__GLOBAL_CLASS_FIE; struct BASILYS_OBJECT_STRUCT(3) dsym_751__GLOBAL_CLASS_FORMAL_BINDING; struct BASILYS_STRING_STRUCT(27) dstr_752__GLOBAL_CLASS_FOR; struct BASILYS_OBJECT_STRUCT(5) dobj_753__GLOBAL_CLASS_FORMAL_BINDING; struct BASILYS_MULTIPLE_STRUCT(1) dtup_754__GLOBAL_CLASS_FORMAL_BINDING; struct BASILYS_MULTIPLE_STRUCT(0) dtup_755__GLOBAL_CLASS_FORMAL_BINDING; struct BASILYS_STRING_STRUCT(37) dstr_756__void_BASILYSG_; struct BASILYS_STRING_STRUCT(27) dstr_757__GLOBAL_CLASS_FOR; struct BASILYS_OBJECT_STRUCT(3) dsym_758__GLOBAL_CLASS_KEYWORD; struct BASILYS_STRING_STRUCT(20) dstr_759__GLOBAL_CLASS_KEY; struct BASILYS_OBJECT_STRUCT(5) dobj_760__GLOBAL_CLASS_KEYWORD; struct BASILYS_MULTIPLE_STRUCT(1) dtup_761__GLOBAL_CLASS_KEYWORD; struct BASILYS_MULTIPLE_STRUCT(0) dtup_762__GLOBAL_CLASS_KEYWORD; struct BASILYS_STRING_STRUCT(30) dstr_763__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_764__GLOBAL_CLASS_KEY; struct BASILYS_OBJECT_STRUCT(3) dsym_765__GLOBAL_CLASS_LOCATED; struct BASILYS_STRING_STRUCT(20) dstr_766__GLOBAL_CLASS_LOC; struct BASILYS_OBJECT_STRUCT(5) dobj_767__GLOBAL_CLASS_LOCATED; struct BASILYS_MULTIPLE_STRUCT(1) dtup_768__GLOBAL_CLASS_LOCATED; struct BASILYS_MULTIPLE_STRUCT(0) dtup_769__GLOBAL_CLASS_LOCATED; struct BASILYS_STRING_STRUCT(30) dstr_770__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_771__GLOBAL_CLASS_LOC; struct BASILYS_OBJECT_STRUCT(3) dsym_772__GLOBAL_CLASS_NAMED; struct BASILYS_STRING_STRUCT(18) dstr_773__GLOBAL_CLASS_NAM; struct BASILYS_OBJECT_STRUCT(5) dobj_774__GLOBAL_CLASS_NAMED; struct BASILYS_MULTIPLE_STRUCT(1) dtup_775__GLOBAL_CLASS_NAMED; struct BASILYS_MULTIPLE_STRUCT(0) dtup_776__GLOBAL_CLASS_NAMED; struct BASILYS_STRING_STRUCT(28) dstr_777__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_778__GLOBAL_CLASS_NAM; struct BASILYS_OBJECT_STRUCT(3) dsym_779__GLOBAL_CLASS_PRIMITIVE; struct BASILYS_STRING_STRUCT(22) dstr_780__GLOBAL_CLASS_PRI; struct BASILYS_OBJECT_STRUCT(5) dobj_781__GLOBAL_CLASS_PRIMITIVE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_782__GLOBAL_CLASS_PRIMITIVE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_783__GLOBAL_CLASS_PRIMITIVE; struct BASILYS_STRING_STRUCT(32) dstr_784__void_BASILYSG_; struct BASILYS_STRING_STRUCT(22) dstr_785__GLOBAL_CLASS_PRI; struct BASILYS_OBJECT_STRUCT(3) dsym_786__GLOBAL_CLASS_PROPED; struct BASILYS_STRING_STRUCT(19) dstr_787__GLOBAL_CLASS_PRO; struct BASILYS_OBJECT_STRUCT(5) dobj_788__GLOBAL_CLASS_PROPED; struct BASILYS_MULTIPLE_STRUCT(1) dtup_789__GLOBAL_CLASS_PROPED; struct BASILYS_MULTIPLE_STRUCT(0) dtup_790__GLOBAL_CLASS_PROPED; struct BASILYS_STRING_STRUCT(29) dstr_791__void_BASILYSG_; struct BASILYS_STRING_STRUCT(19) dstr_792__GLOBAL_CLASS_PRO; struct BASILYS_OBJECT_STRUCT(3) dsym_793__GLOBAL_CLASS_ROOT; struct BASILYS_STRING_STRUCT(17) dstr_794__GLOBAL_CLASS_ROO; struct BASILYS_OBJECT_STRUCT(5) dobj_795__GLOBAL_CLASS_ROOT; struct BASILYS_MULTIPLE_STRUCT(1) dtup_796__GLOBAL_CLASS_ROOT; struct BASILYS_MULTIPLE_STRUCT(0) dtup_797__GLOBAL_CLASS_ROOT; struct BASILYS_STRING_STRUCT(27) dstr_798__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_799__GLOBAL_CLASS_ROO; struct BASILYS_OBJECT_STRUCT(3) dsym_800__GLOBAL_CLASS_SELECTOR; struct BASILYS_STRING_STRUCT(21) dstr_801__GLOBAL_CLASS_SEL; struct BASILYS_OBJECT_STRUCT(5) dobj_802__GLOBAL_CLASS_SELECTOR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_803__GLOBAL_CLASS_SELECTOR; struct BASILYS_MULTIPLE_STRUCT(0) dtup_804__GLOBAL_CLASS_SELECTOR; struct BASILYS_STRING_STRUCT(31) dstr_805__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_806__GLOBAL_CLASS_SEL; struct BASILYS_OBJECT_STRUCT(3) dsym_807__GLOBAL_CLASS_SEXPR; struct BASILYS_STRING_STRUCT(18) dstr_808__GLOBAL_CLASS_SEX; struct BASILYS_OBJECT_STRUCT(5) dobj_809__GLOBAL_CLASS_SEXPR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_810__GLOBAL_CLASS_SEXPR; struct BASILYS_MULTIPLE_STRUCT(0) dtup_811__GLOBAL_CLASS_SEXPR; struct BASILYS_STRING_STRUCT(28) dstr_812__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_813__GLOBAL_CLASS_SEX; struct BASILYS_OBJECT_STRUCT(3) dsym_814__GLOBAL_CLASS_SYMBOL; struct BASILYS_STRING_STRUCT(19) dstr_815__GLOBAL_CLASS_SYM; struct BASILYS_OBJECT_STRUCT(5) dobj_816__GLOBAL_CLASS_SYMBOL; struct BASILYS_MULTIPLE_STRUCT(1) dtup_817__GLOBAL_CLASS_SYMBOL; struct BASILYS_MULTIPLE_STRUCT(0) dtup_818__GLOBAL_CLASS_SYMBOL; struct BASILYS_STRING_STRUCT(29) dstr_819__void_BASILYSG_; struct BASILYS_STRING_STRUCT(19) dstr_820__GLOBAL_CLASS_SYM; struct BASILYS_OBJECT_STRUCT(3) dsym_821__GLOBAL_CLASS_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(24) dstr_822__GLOBAL_CLASS_SYS; struct BASILYS_OBJECT_STRUCT(5) dobj_823__GLOBAL_CLASS_SYSTEM_DATA; struct BASILYS_MULTIPLE_STRUCT(1) dtup_824__GLOBAL_CLASS_SYSTEM_DATA; struct BASILYS_MULTIPLE_STRUCT(0) dtup_825__GLOBAL_CLASS_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(34) dstr_826__void_BASILYSG_; struct BASILYS_STRING_STRUCT(24) dstr_827__GLOBAL_CLASS_SYS; struct BASILYS_OBJECT_STRUCT(3) dsym_828__GLOBAL_CTYPE_CSTRING; struct BASILYS_STRING_STRUCT(20) dstr_829__GLOBAL_CTYPE_CST; struct BASILYS_OBJECT_STRUCT(5) dobj_830__GLOBAL_CTYPE_CSTRING; struct BASILYS_MULTIPLE_STRUCT(1) dtup_831__GLOBAL_CTYPE_CSTRING; struct BASILYS_MULTIPLE_STRUCT(0) dtup_832__GLOBAL_CTYPE_CSTRING; struct BASILYS_STRING_STRUCT(30) dstr_833__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_834__GLOBAL_CTYPE_CST; struct BASILYS_OBJECT_STRUCT(3) dsym_835__GLOBAL_CTYPE_LONG; struct BASILYS_STRING_STRUCT(17) dstr_836__GLOBAL_CTYPE_LON; struct BASILYS_OBJECT_STRUCT(5) dobj_837__GLOBAL_CTYPE_LONG; struct BASILYS_MULTIPLE_STRUCT(1) dtup_838__GLOBAL_CTYPE_LONG; struct BASILYS_MULTIPLE_STRUCT(0) dtup_839__GLOBAL_CTYPE_LONG; struct BASILYS_STRING_STRUCT(27) dstr_840__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_841__GLOBAL_CTYPE_LON; struct BASILYS_OBJECT_STRUCT(3) dsym_842__GLOBAL_CTYPE_TREE; struct BASILYS_STRING_STRUCT(17) dstr_843__GLOBAL_CTYPE_TRE; struct BASILYS_OBJECT_STRUCT(5) dobj_844__GLOBAL_CTYPE_TREE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_845__GLOBAL_CTYPE_TREE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_846__GLOBAL_CTYPE_TREE; struct BASILYS_STRING_STRUCT(27) dstr_847__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_848__GLOBAL_CTYPE_TRE; struct BASILYS_OBJECT_STRUCT(3) dsym_849__GLOBAL_CTYPE_VALUE; struct BASILYS_STRING_STRUCT(18) dstr_850__GLOBAL_CTYPE_VAL; struct BASILYS_OBJECT_STRUCT(5) dobj_851__GLOBAL_CTYPE_VALUE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_852__GLOBAL_CTYPE_VALUE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_853__GLOBAL_CTYPE_VALUE; struct BASILYS_STRING_STRUCT(28) dstr_854__void_BASILYSG_; struct BASILYS_STRING_STRUCT(18) dstr_855__GLOBAL_CTYPE_VAL; struct BASILYS_OBJECT_STRUCT(3) dsym_856__GLOBAL_CTYPE_VOID; struct BASILYS_STRING_STRUCT(17) dstr_857__GLOBAL_CTYPE_VOI; struct BASILYS_OBJECT_STRUCT(5) dobj_858__GLOBAL_CTYPE_VOID; struct BASILYS_MULTIPLE_STRUCT(1) dtup_859__GLOBAL_CTYPE_VOID; struct BASILYS_MULTIPLE_STRUCT(0) dtup_860__GLOBAL_CTYPE_VOID; struct BASILYS_STRING_STRUCT(27) dstr_861__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_862__GLOBAL_CTYPE_VOI; struct BASILYS_OBJECT_STRUCT(3) dsym_863__GLOBAL_DISCR_BOX; struct BASILYS_STRING_STRUCT(16) dstr_864__GLOBAL_DISCR_BOX; struct BASILYS_OBJECT_STRUCT(5) dobj_865__GLOBAL_DISCR_BOX; struct BASILYS_MULTIPLE_STRUCT(1) dtup_866__GLOBAL_DISCR_BOX; struct BASILYS_MULTIPLE_STRUCT(0) dtup_867__GLOBAL_DISCR_BOX; struct BASILYS_STRING_STRUCT(26) dstr_868__void_BASILYSG_; struct BASILYS_STRING_STRUCT(16) dstr_869__GLOBAL_DISCR_BOX; struct BASILYS_OBJECT_STRUCT(3) dsym_870__GLOBAL_DISCR_CHARINTEGER; struct BASILYS_STRING_STRUCT(24) dstr_871__GLOBAL_DISCR_CHA; struct BASILYS_OBJECT_STRUCT(5) dobj_872__GLOBAL_DISCR_CHARINTEGER; struct BASILYS_MULTIPLE_STRUCT(1) dtup_873__GLOBAL_DISCR_CHARINTEGER; struct BASILYS_MULTIPLE_STRUCT(0) dtup_874__GLOBAL_DISCR_CHARINTEGER; struct BASILYS_STRING_STRUCT(34) dstr_875__void_BASILYSG_; struct BASILYS_STRING_STRUCT(24) dstr_876__GLOBAL_DISCR_CHA; struct BASILYS_OBJECT_STRUCT(3) dsym_877__GLOBAL_DISCR_CLOSURE; struct BASILYS_STRING_STRUCT(20) dstr_878__GLOBAL_DISCR_CLO; struct BASILYS_OBJECT_STRUCT(5) dobj_879__GLOBAL_DISCR_CLOSURE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_880__GLOBAL_DISCR_CLOSURE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_881__GLOBAL_DISCR_CLOSURE; struct BASILYS_STRING_STRUCT(30) dstr_882__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_883__GLOBAL_DISCR_CLO; struct BASILYS_OBJECT_STRUCT(3) dsym_884__GLOBAL_DISCR_INTEGER; struct BASILYS_STRING_STRUCT(20) dstr_885__GLOBAL_DISCR_INT; struct BASILYS_OBJECT_STRUCT(5) dobj_886__GLOBAL_DISCR_INTEGER; struct BASILYS_MULTIPLE_STRUCT(1) dtup_887__GLOBAL_DISCR_INTEGER; struct BASILYS_MULTIPLE_STRUCT(0) dtup_888__GLOBAL_DISCR_INTEGER; struct BASILYS_STRING_STRUCT(30) dstr_889__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_890__GLOBAL_DISCR_INT; struct BASILYS_OBJECT_STRUCT(3) dsym_891__GLOBAL_DISCR_LIST; struct BASILYS_STRING_STRUCT(17) dstr_892__GLOBAL_DISCR_LIS; struct BASILYS_OBJECT_STRUCT(5) dobj_893__GLOBAL_DISCR_LIST; struct BASILYS_MULTIPLE_STRUCT(1) dtup_894__GLOBAL_DISCR_LIST; struct BASILYS_MULTIPLE_STRUCT(0) dtup_895__GLOBAL_DISCR_LIST; struct BASILYS_STRING_STRUCT(27) dstr_896__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_897__GLOBAL_DISCR_LIS; struct BASILYS_OBJECT_STRUCT(3) dsym_898__GLOBAL_DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(23) dstr_899__GLOBAL_DISCR_MAP; struct BASILYS_OBJECT_STRUCT(5) dobj_900__GLOBAL_DISCR_MAPOBJECTS; struct BASILYS_MULTIPLE_STRUCT(1) dtup_901__GLOBAL_DISCR_MAPOBJECTS; struct BASILYS_MULTIPLE_STRUCT(0) dtup_902__GLOBAL_DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(33) dstr_903__void_BASILYSG_; struct BASILYS_STRING_STRUCT(23) dstr_904__GLOBAL_DISCR_MAP; struct BASILYS_OBJECT_STRUCT(3) dsym_905__GLOBAL_DISCR_MAPSTRINGS; struct BASILYS_STRING_STRUCT(23) dstr_906__GLOBAL_DISCR_MAP; struct BASILYS_OBJECT_STRUCT(5) dobj_907__GLOBAL_DISCR_MAPSTRINGS; struct BASILYS_MULTIPLE_STRUCT(1) dtup_908__GLOBAL_DISCR_MAPSTRINGS; struct BASILYS_MULTIPLE_STRUCT(0) dtup_909__GLOBAL_DISCR_MAPSTRINGS; struct BASILYS_STRING_STRUCT(33) dstr_910__void_BASILYSG_; struct BASILYS_STRING_STRUCT(23) dstr_911__GLOBAL_DISCR_MAP; struct BASILYS_OBJECT_STRUCT(3) dsym_912__GLOBAL_DISCR_METHODMAP; struct BASILYS_STRING_STRUCT(22) dstr_913__GLOBAL_DISCR_MET; struct BASILYS_OBJECT_STRUCT(5) dobj_914__GLOBAL_DISCR_METHODMAP; struct BASILYS_MULTIPLE_STRUCT(1) dtup_915__GLOBAL_DISCR_METHODMAP; struct BASILYS_MULTIPLE_STRUCT(0) dtup_916__GLOBAL_DISCR_METHODMAP; struct BASILYS_STRING_STRUCT(32) dstr_917__void_BASILYSG_; struct BASILYS_STRING_STRUCT(22) dstr_918__GLOBAL_DISCR_MET; struct BASILYS_OBJECT_STRUCT(3) dsym_919__GLOBAL_DISCR_MIXEDINT; struct BASILYS_STRING_STRUCT(21) dstr_920__GLOBAL_DISCR_MIX; struct BASILYS_OBJECT_STRUCT(5) dobj_921__GLOBAL_DISCR_MIXEDINT; struct BASILYS_MULTIPLE_STRUCT(1) dtup_922__GLOBAL_DISCR_MIXEDINT; struct BASILYS_MULTIPLE_STRUCT(0) dtup_923__GLOBAL_DISCR_MIXEDINT; struct BASILYS_STRING_STRUCT(31) dstr_924__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_925__GLOBAL_DISCR_MIX; struct BASILYS_OBJECT_STRUCT(3) dsym_926__GLOBAL_DISCR_MIXEDLOC; struct BASILYS_STRING_STRUCT(21) dstr_927__GLOBAL_DISCR_MIX; struct BASILYS_OBJECT_STRUCT(5) dobj_928__GLOBAL_DISCR_MIXEDLOC; struct BASILYS_MULTIPLE_STRUCT(1) dtup_929__GLOBAL_DISCR_MIXEDLOC; struct BASILYS_MULTIPLE_STRUCT(0) dtup_930__GLOBAL_DISCR_MIXEDLOC; struct BASILYS_STRING_STRUCT(31) dstr_931__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_932__GLOBAL_DISCR_MIX; struct BASILYS_OBJECT_STRUCT(3) dsym_933__GLOBAL_DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(21) dstr_934__GLOBAL_DISCR_MUL; struct BASILYS_OBJECT_STRUCT(5) dobj_935__GLOBAL_DISCR_MULTIPLE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_936__GLOBAL_DISCR_MULTIPLE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_937__GLOBAL_DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(31) dstr_938__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_939__GLOBAL_DISCR_MUL; struct BASILYS_OBJECT_STRUCT(3) dsym_940__GLOBAL_DISCR_NAMESTRING; struct BASILYS_STRING_STRUCT(23) dstr_941__GLOBAL_DISCR_NAM; struct BASILYS_OBJECT_STRUCT(5) dobj_942__GLOBAL_DISCR_NAMESTRING; struct BASILYS_MULTIPLE_STRUCT(1) dtup_943__GLOBAL_DISCR_NAMESTRING; struct BASILYS_MULTIPLE_STRUCT(0) dtup_944__GLOBAL_DISCR_NAMESTRING; struct BASILYS_STRING_STRUCT(33) dstr_945__void_BASILYSG_; struct BASILYS_STRING_STRUCT(23) dstr_946__GLOBAL_DISCR_NAM; struct BASILYS_OBJECT_STRUCT(3) dsym_947__GLOBAL_DISCR_NULLRECV; struct BASILYS_STRING_STRUCT(21) dstr_948__GLOBAL_DISCR_NUL; struct BASILYS_OBJECT_STRUCT(5) dobj_949__GLOBAL_DISCR_NULLRECV; struct BASILYS_MULTIPLE_STRUCT(1) dtup_950__GLOBAL_DISCR_NULLRECV; struct BASILYS_MULTIPLE_STRUCT(0) dtup_951__GLOBAL_DISCR_NULLRECV; struct BASILYS_STRING_STRUCT(31) dstr_952__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_953__GLOBAL_DISCR_NUL; struct BASILYS_OBJECT_STRUCT(3) dsym_954__GLOBAL_DISCR_PAIR; struct BASILYS_STRING_STRUCT(17) dstr_955__GLOBAL_DISCR_PAI; struct BASILYS_OBJECT_STRUCT(5) dobj_956__GLOBAL_DISCR_PAIR; struct BASILYS_MULTIPLE_STRUCT(1) dtup_957__GLOBAL_DISCR_PAIR; struct BASILYS_MULTIPLE_STRUCT(0) dtup_958__GLOBAL_DISCR_PAIR; struct BASILYS_STRING_STRUCT(27) dstr_959__void_BASILYSG_; struct BASILYS_STRING_STRUCT(17) dstr_960__GLOBAL_DISCR_PAI; struct BASILYS_OBJECT_STRUCT(3) dsym_961__GLOBAL_DISCR_ROUTINE; struct BASILYS_STRING_STRUCT(20) dstr_962__GLOBAL_DISCR_ROU; struct BASILYS_OBJECT_STRUCT(5) dobj_963__GLOBAL_DISCR_ROUTINE; struct BASILYS_MULTIPLE_STRUCT(1) dtup_964__GLOBAL_DISCR_ROUTINE; struct BASILYS_MULTIPLE_STRUCT(0) dtup_965__GLOBAL_DISCR_ROUTINE; struct BASILYS_STRING_STRUCT(30) dstr_966__void_BASILYSG_; struct BASILYS_STRING_STRUCT(20) dstr_967__GLOBAL_DISCR_ROU; struct BASILYS_OBJECT_STRUCT(3) dsym_968__GLOBAL_DISCR_SEQCLASS; struct BASILYS_STRING_STRUCT(21) dstr_969__GLOBAL_DISCR_SEQ; struct BASILYS_OBJECT_STRUCT(5) dobj_970__GLOBAL_DISCR_SEQCLASS; struct BASILYS_MULTIPLE_STRUCT(1) dtup_971__GLOBAL_DISCR_SEQCLASS; struct BASILYS_MULTIPLE_STRUCT(0) dtup_972__GLOBAL_DISCR_SEQCLASS; struct BASILYS_STRING_STRUCT(31) dstr_973__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_974__GLOBAL_DISCR_SEQ; struct BASILYS_OBJECT_STRUCT(3) dsym_975__GLOBAL_DISCR_SEQFIELD; struct BASILYS_STRING_STRUCT(21) dstr_976__GLOBAL_DISCR_SEQ; struct BASILYS_OBJECT_STRUCT(5) dobj_977__GLOBAL_DISCR_SEQFIELD; struct BASILYS_MULTIPLE_STRUCT(1) dtup_978__GLOBAL_DISCR_SEQFIELD; struct BASILYS_MULTIPLE_STRUCT(0) dtup_979__GLOBAL_DISCR_SEQFIELD; struct BASILYS_STRING_STRUCT(31) dstr_980__void_BASILYSG_; struct BASILYS_STRING_STRUCT(21) dstr_981__GLOBAL_DISCR_SEQ; struct BASILYS_OBJECT_STRUCT(3) dsym_982__GLOBAL_DISCR_STRING; struct BASILYS_STRING_STRUCT(19) dstr_983__GLOBAL_DISCR_STR; struct BASILYS_OBJECT_STRUCT(5) dobj_984__GLOBAL_DISCR_STRING; struct BASILYS_MULTIPLE_STRUCT(1) dtup_985__GLOBAL_DISCR_STRING; struct BASILYS_MULTIPLE_STRUCT(0) dtup_986__GLOBAL_DISCR_STRING; struct BASILYS_STRING_STRUCT(29) dstr_987__void_BASILYSG_; struct BASILYS_STRING_STRUCT(19) dstr_988__GLOBAL_DISCR_STR; struct BASILYS_OBJECT_STRUCT(3) dsym_989__GLOBAL_DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(27) dstr_990__GLOBAL_DISCR_VER; struct BASILYS_OBJECT_STRUCT(5) dobj_991__GLOBAL_DISCR_VERBATIMSTRING; struct BASILYS_MULTIPLE_STRUCT(1) dtup_992__GLOBAL_DISCR_VERBATIMSTRING; struct BASILYS_MULTIPLE_STRUCT(0) dtup_993__GLOBAL_DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(37) dstr_994__void_BASILYSG_; struct BASILYS_STRING_STRUCT(27) dstr_995__GLOBAL_DISCR_VER; struct BASILYS_OBJECT_STRUCT(3) dsym_996__GLOBAL_INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(26) dstr_997__GLOBAL_INITIAL_S; struct BASILYS_OBJECT_STRUCT(5) dobj_998__GLOBAL_INITIAL_SYSTEM_DATA; struct BASILYS_MULTIPLE_STRUCT(1) dtup_999__GLOBAL_INITIAL_SYSTEM_DATA; struct BASILYS_MULTIPLE_STRUCT(0) dtup_1000__GLOBAL_INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(36) dstr_1001__void_BASILYSG_; struct BASILYS_STRING_STRUCT(26) dstr_1002__GLOBAL_INITIAL_S; struct BASILYS_ROUTINE_STRUCT(42) drout_1003__FILL_INITIAL_PREDEFMAP; struct BASILYS_CLOSURE_STRUCT(0) dclo_1004__FILL_INITIAL_PREDEFMAP; struct BASILYS_OBJECT_STRUCT(3) dsym_1005__ATOM_TRUE; struct BASILYS_STRING_STRUCT(9) dstr_1006__ATOM_TRUE; struct BASILYS_OBJECT_STRUCT(3) dsym_1007__CLASS_CITERATOR; struct BASILYS_STRING_STRUCT(15) dstr_1008__CLASS_CITERATOR; struct BASILYS_OBJECT_STRUCT(3) dsym_1009__CLASS_CONTAINER; struct BASILYS_STRING_STRUCT(15) dstr_1010__CLASS_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_1011__CLASS_DISCR; struct BASILYS_STRING_STRUCT(11) dstr_1012__CLASS_DISCR; struct BASILYS_OBJECT_STRUCT(3) dsym_1013__CLASS_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_1014__CLASS_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_1015__CLASS_FORMAL_BINDING; struct BASILYS_STRING_STRUCT(20) dstr_1016__CLASS_FORMAL_BIN; struct BASILYS_OBJECT_STRUCT(3) dsym_1017__CLASS_KEYWORD; struct BASILYS_STRING_STRUCT(13) dstr_1018__CLASS_KEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_1019__CLASS_LOCATED; struct BASILYS_STRING_STRUCT(13) dstr_1020__CLASS_LOCATED; struct BASILYS_OBJECT_STRUCT(3) dsym_1021__CLASS_NAMED; struct BASILYS_STRING_STRUCT(11) dstr_1022__CLASS_NAMED; struct BASILYS_OBJECT_STRUCT(3) dsym_1023__CLASS_PRIMITIVE; struct BASILYS_STRING_STRUCT(15) dstr_1024__CLASS_PRIMITIVE; struct BASILYS_OBJECT_STRUCT(3) dsym_1025__CLASS_PROPED; struct BASILYS_STRING_STRUCT(12) dstr_1026__CLASS_PROPED; struct BASILYS_OBJECT_STRUCT(3) dsym_1027__CLASS_SELECTOR; struct BASILYS_STRING_STRUCT(14) dstr_1028__CLASS_SELECTOR; struct BASILYS_OBJECT_STRUCT(3) dsym_1029__CLASS_SEXPR; struct BASILYS_STRING_STRUCT(11) dstr_1030__CLASS_SEXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_1031__CLASS_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(17) dstr_1032__CLASS_SYSTEM_DAT; struct BASILYS_OBJECT_STRUCT(3) dsym_1033__CTYPE_CSTRING; struct BASILYS_STRING_STRUCT(13) dstr_1034__CTYPE_CSTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_1035__CTYPE_LONG; struct BASILYS_STRING_STRUCT(10) dstr_1036__CTYPE_LONG; struct BASILYS_OBJECT_STRUCT(3) dsym_1037__CTYPE_TREE; struct BASILYS_STRING_STRUCT(10) dstr_1038__CTYPE_TREE; struct BASILYS_OBJECT_STRUCT(3) dsym_1039__CTYPE_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_1040__CTYPE_VALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_1041__CTYPE_VOID; struct BASILYS_STRING_STRUCT(10) dstr_1042__CTYPE_VOID; struct BASILYS_OBJECT_STRUCT(3) dsym_1043__DISCR_BOX; struct BASILYS_STRING_STRUCT(9) dstr_1044__DISCR_BOX; struct BASILYS_OBJECT_STRUCT(3) dsym_1045__DISCR_CHARINTEGER; struct BASILYS_STRING_STRUCT(17) dstr_1046__DISCR_CHARINTEGE; struct BASILYS_OBJECT_STRUCT(3) dsym_1047__DISCR_CLOSURE; struct BASILYS_STRING_STRUCT(13) dstr_1048__DISCR_CLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_1049__DISCR_LIST; struct BASILYS_STRING_STRUCT(10) dstr_1050__DISCR_LIST; struct BASILYS_OBJECT_STRUCT(3) dsym_1051__DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(16) dstr_1052__DISCR_MAPOBJECTS; struct BASILYS_OBJECT_STRUCT(3) dsym_1053__DISCR_MAPSTRINGS; struct BASILYS_STRING_STRUCT(16) dstr_1054__DISCR_MAPSTRINGS; struct BASILYS_OBJECT_STRUCT(3) dsym_1055__DISCR_METHODMAP; struct BASILYS_STRING_STRUCT(15) dstr_1056__DISCR_METHODMAP; struct BASILYS_OBJECT_STRUCT(3) dsym_1057__DISCR_MIXEDINT; struct BASILYS_STRING_STRUCT(14) dstr_1058__DISCR_MIXEDINT; struct BASILYS_OBJECT_STRUCT(3) dsym_1059__DISCR_MIXEDLOC; struct BASILYS_STRING_STRUCT(14) dstr_1060__DISCR_MIXEDLOC; struct BASILYS_OBJECT_STRUCT(3) dsym_1061__DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(14) dstr_1062__DISCR_MULTIPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_1063__DISCR_NAMESTRING; struct BASILYS_STRING_STRUCT(16) dstr_1064__DISCR_NAMESTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_1065__DISCR_NULLRECV; struct BASILYS_STRING_STRUCT(14) dstr_1066__DISCR_NULLRECV; struct BASILYS_OBJECT_STRUCT(3) dsym_1067__DISCR_PAIR; struct BASILYS_STRING_STRUCT(10) dstr_1068__DISCR_PAIR; struct BASILYS_OBJECT_STRUCT(3) dsym_1069__DISCR_ROUTINE; struct BASILYS_STRING_STRUCT(13) dstr_1070__DISCR_ROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_1071__DISCR_SEQCLASS; struct BASILYS_STRING_STRUCT(14) dstr_1072__DISCR_SEQCLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_1073__DISCR_SEQFIELD; struct BASILYS_STRING_STRUCT(14) dstr_1074__DISCR_SEQFIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_1075__DISCR_STRING; struct BASILYS_STRING_STRUCT(12) dstr_1076__DISCR_STRING; struct BASILYS_OBJECT_STRUCT(3) dsym_1077__DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(20) dstr_1078__DISCR_VERBATIMST; struct BASILYS_OBJECT_STRUCT(3) dsym_1079__INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(19) dstr_1080__INITIAL_SYSTEM_D; struct BASILYS_ROUTINE_STRUCT(11) drout_1081__CREATE_NORMCONTEXT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1082__CREATE_NORMCONTEXT; struct BASILYS_OBJECT_STRUCT(3) dsym_1083__CLASS_MODULCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_1084__CLASS_MODULCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_1085__NORMAL_EXP; struct BASILYS_STRING_STRUCT(10) dstr_1086__NORMAL_EXP; struct BASILYS_OBJECT_STRUCT(4) dobj_1087__NORMAL_EXP; struct BASILYS_STRING_STRUCT(10) dstr_1088__NORMAL_EXP; struct BASILYS_ROUTINE_STRUCT(3) drout_1089__NORMEXP_IDENTICAL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1090__NORMEXP_IDENTICAL; struct BASILYS_OBJECT_STRUCT(3) dsym_1091__CLASS_ENVIRONMENT; struct BASILYS_STRING_STRUCT(17) dstr_1092__CLASS_ENVIRONMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_1093__INSTALL_METHOD; struct BASILYS_STRING_STRUCT(14) dstr_1094__INSTALL_METHOD; struct BASILYS_OBJECT_STRUCT(3) dsym_1095__DISCR_ANYRECV; struct BASILYS_STRING_STRUCT(13) dstr_1096__DISCR_ANYRECV; struct BASILYS_ROUTINE_STRUCT(4) drout_1097__NORMEXP_NULL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1098__NORMEXP_NULL; struct BASILYS_ROUTINE_STRUCT(3) drout_1099__NORMEXP_SRC_CATCHALL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1100__NORMEXP_SRC_CATCHALL; struct BASILYS_OBJECT_STRUCT(3) dsym_1101__CLASS_SRC; struct BASILYS_STRING_STRUCT(9) dstr_1102__CLASS_SRC; struct BASILYS_OBJECT_STRUCT(3) dsym_1103__GET_CTYPE; struct BASILYS_STRING_STRUCT(9) dstr_1104__GET_CTYPE; struct BASILYS_OBJECT_STRUCT(4) dobj_1105__GET_CTYPE; struct BASILYS_STRING_STRUCT(9) dstr_1106__GET_CTYPE; struct BASILYS_OBJECT_STRUCT(3) dsym_1107__COMPILE_OBJ; struct BASILYS_STRING_STRUCT(11) dstr_1108__COMPILE_OBJ; struct BASILYS_OBJECT_STRUCT(4) dobj_1109__COMPILE_OBJ; struct BASILYS_STRING_STRUCT(11) dstr_1110__COMPILE_OBJ; struct BASILYS_ROUTINE_STRUCT(1) drout_1111__GECTYP_ANYRECV; struct BASILYS_CLOSURE_STRUCT(0) dclo_1112__GECTYP_ANYRECV; struct BASILYS_ROUTINE_STRUCT(1) drout_1113__GECTYP_ROOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1114__GECTYP_ROOT; struct BASILYS_ROUTINE_STRUCT(2) drout_1115__GECTYP_INTEGER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1116__GECTYP_INTEGER; struct BASILYS_ROUTINE_STRUCT(1) drout_1117__GECTYP_STRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1118__GECTYP_STRING; struct BASILYS_ROUTINE_STRUCT(10) drout_1119__NORMALIZE_TUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1120__NORMALIZE_TUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_1121__MULTIPLE_MAP; struct BASILYS_STRING_STRUCT(12) dstr_1122__MULTIPLE_MAP; struct BASILYS_ROUTINE_STRUCT(5) drout_1123__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1124__LIST_EVERY; struct BASILYS_STRING_STRUCT(10) dstr_1125__LIST_EVERY; struct BASILYS_ROUTINE_STRUCT(1) drout_1126__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1127__CLASS_ANY_BINDING; struct BASILYS_STRING_STRUCT(17) dstr_1128__CLASS_ANY_BINDIN; struct BASILYS_ROUTINE_STRUCT(6) drout_1129__WRAP_NORMAL_LETSEQ; struct BASILYS_CLOSURE_STRUCT(0) dclo_1130__WRAP_NORMAL_LETSEQ; struct BASILYS_ROUTINE_STRUCT(2) drout_1131__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1132__CLASS_NORMLET_BINDING; struct BASILYS_STRING_STRUCT(21) dstr_1133__CLASS_NORMLET_BI; struct BASILYS_OBJECT_STRUCT(3) dsym_1134__LIST_TO_MULTIPLE; struct BASILYS_STRING_STRUCT(16) dstr_1135__LIST_TO_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(7) drout_1136__WRAP_NORMAL_LET1; struct BASILYS_CLOSURE_STRUCT(0) dclo_1137__WRAP_NORMAL_LET1; struct BASILYS_ROUTINE_STRUCT(2) drout_1138__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1139__CHECK_CTYPE_NARGS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1140__CHECK_CTYPE_NARGS; struct BASILYS_OBJECT_STRUCT(3) dsym_1141__MULTIPLE_EVERY; struct BASILYS_STRING_STRUCT(14) dstr_1142__MULTIPLE_EVERY; struct BASILYS_ROUTINE_STRUCT(2) drout_1143__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1144__CLASS_CTYPE; struct BASILYS_STRING_STRUCT(11) dstr_1145__CLASS_CTYPE; struct BASILYS_OBJECT_STRUCT(3) dsym_1146__CREATE_NORMCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_1147__CREATE_NORMCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_1148__NORMALIZE_TUPLE; struct BASILYS_STRING_STRUCT(15) dstr_1149__NORMALIZE_TUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_1150__WRAP_NORMAL_LETSEQ; struct BASILYS_STRING_STRUCT(18) dstr_1151__WRAP_NORMAL_LETS; struct BASILYS_OBJECT_STRUCT(3) dsym_1152__WRAP_NORMAL_LET1; struct BASILYS_STRING_STRUCT(16) dstr_1153__WRAP_NORMAL_LET1; struct BASILYS_OBJECT_STRUCT(3) dsym_1154__CHECK_CTYPE_NARGS; struct BASILYS_STRING_STRUCT(17) dstr_1155__CHECK_CTYPE_NARG; struct BASILYS_ROUTINE_STRUCT(39) drout_1156__NORMEXP_SYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1157__NORMEXP_SYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_1158__FIND_ENCLOSING_ENV; struct BASILYS_STRING_STRUCT(18) dstr_1159__FIND_ENCLOSING_E; struct BASILYS_OBJECT_STRUCT(3) dsym_1160__CLASS_VALUE_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1161__CLASS_VALUE_BIND; struct BASILYS_ROUTINE_STRUCT(4) drout_1162__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1163__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1164__CLASS_LET_BINDING; struct BASILYS_STRING_STRUCT(17) dstr_1165__CLASS_LET_BINDIN; struct BASILYS_OBJECT_STRUCT(3) dsym_1166__CLASS_FIXED_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1167__CLASS_FIXED_BIND; struct BASILYS_ROUTINE_STRUCT(4) drout_1168__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1169__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_1170__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1171__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1172__CLASS_FUNCTION_BINDING; struct BASILYS_STRING_STRUCT(22) dstr_1173__CLASS_FUNCTION_B; struct BASILYS_OBJECT_STRUCT(3) dsym_1174__CLASS_PRIMITIVE_BINDING; struct BASILYS_STRING_STRUCT(23) dstr_1175__CLASS_PRIMITIVE_; struct BASILYS_OBJECT_STRUCT(3) dsym_1176__CLASS_CLASS_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1177__CLASS_CLASS_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_1178__CLASS_FIELD_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1179__CLASS_FIELD_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_1180__CLASS_SELECTOR_BINDING; struct BASILYS_STRING_STRUCT(22) dstr_1181__CLASS_SELECTOR_B; struct BASILYS_OBJECT_STRUCT(3) dsym_1182__CLASS_INSTANCE_BINDING; struct BASILYS_STRING_STRUCT(22) dstr_1183__CLASS_INSTANCE_B; struct BASILYS_ROUTINE_STRUCT(5) drout_1184__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1185__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1186__GECTYP_SYMOCC; struct BASILYS_CLOSURE_STRUCT(0) dclo_1187__GECTYP_SYMOCC; struct BASILYS_ROUTINE_STRUCT(22) drout_1188__NORMEXP_PRIMITIVE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1189__NORMEXP_PRIMITIVE; struct BASILYS_OBJECT_STRUCT(3) dsym_1190__CLASS_SRC_PRIMITIVE; struct BASILYS_STRING_STRUCT(19) dstr_1191__CLASS_SRC_PRIMIT; struct BASILYS_ROUTINE_STRUCT(2) drout_1192__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(3) drout_1193__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1194__CLONE_SYMBOL; struct BASILYS_STRING_STRUCT(12) dstr_1195__CLONE_SYMBOL; struct BASILYS_ROUTINE_STRUCT(1) drout_1196__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(15) drout_1197__NORMEXP_APPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_1198__NORMEXP_APPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_1199__CLASS_SRC_APPLY; struct BASILYS_STRING_STRUCT(15) dstr_1200__CLASS_SRC_APPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_1201__FUN_; struct BASILYS_STRING_STRUCT(5) dstr_1202__FUN_; struct BASILYS_OBJECT_STRUCT(3) dsym_1203__LIST_APPEND2LIST; struct BASILYS_STRING_STRUCT(16) dstr_1204__LIST_APPEND2LIST; struct BASILYS_ROUTINE_STRUCT(17) drout_1205__NORMEXP_MSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_1206__NORMEXP_MSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_1207__CLASS_SRC_MSEND; struct BASILYS_STRING_STRUCT(15) dstr_1208__CLASS_SRC_MSEND; struct BASILYS_ROUTINE_STRUCT(16) drout_1209__NORMEXP_RETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_1210__NORMEXP_RETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_1211__CLASS_SRC_RETURN; struct BASILYS_STRING_STRUCT(16) dstr_1212__CLASS_SRC_RETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_1213__RETURN_; struct BASILYS_STRING_STRUCT(7) dstr_1214__RETURN_; struct BASILYS_ROUTINE_STRUCT(0) drout_1215__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(18) drout_1216__NORMEXP_IF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1217__NORMEXP_IF; struct BASILYS_OBJECT_STRUCT(3) dsym_1218__CLASS_SRC_IF; struct BASILYS_STRING_STRUCT(12) dstr_1219__CLASS_SRC_IF; struct BASILYS_OBJECT_STRUCT(3) dsym_1220__FRESH_ENV; struct BASILYS_STRING_STRUCT(9) dstr_1221__FRESH_ENV; struct BASILYS_ROUTINE_STRUCT(1) drout_1222__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1223__PUT_ENV; struct BASILYS_STRING_STRUCT(7) dstr_1224__PUT_ENV; struct BASILYS_OBJECT_STRUCT(3) dsym_1225__IF_; struct BASILYS_STRING_STRUCT(4) dstr_1226__IF_; struct BASILYS_ROUTINE_STRUCT(0) drout_1227__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(21) drout_1228__NORMEXP_IFELSE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1229__NORMEXP_IFELSE; struct BASILYS_OBJECT_STRUCT(3) dsym_1230__CLASS_SRC_IFELSE; struct BASILYS_STRING_STRUCT(16) dstr_1231__CLASS_SRC_IFELSE; struct BASILYS_ROUTINE_STRUCT(1) drout_1232__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1233__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1234__IFELSE_; struct BASILYS_STRING_STRUCT(8) dstr_1235__IFELSE_; struct BASILYS_ROUTINE_STRUCT(21) drout_1236__NORMEXP_CPPIF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1237__NORMEXP_CPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_1238__CLASS_SRC_CPPIF; struct BASILYS_STRING_STRUCT(15) dstr_1239__CLASS_SRC_CPPIF; struct BASILYS_ROUTINE_STRUCT(1) drout_1240__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1241__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1242__IFCPP_; struct BASILYS_STRING_STRUCT(6) dstr_1243__IFCPP_; struct BASILYS_ROUTINE_STRUCT(24) drout_1244__NORMEXP_OR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1245__NORMEXP_OR; struct BASILYS_OBJECT_STRUCT(3) dsym_1246__CLASS_SRC_OR; struct BASILYS_STRING_STRUCT(12) dstr_1247__CLASS_SRC_OR; struct BASILYS_OBJECT_STRUCT(3) dsym_1248__MULTIPLE_BACKWARD_EVERY; struct BASILYS_STRING_STRUCT(23) dstr_1249__MULTIPLE_BACKWAR; struct BASILYS_ROUTINE_STRUCT(15) drout_1250__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1251__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1252__OR_; struct BASILYS_STRING_STRUCT(3) dstr_1253__OR_; struct BASILYS_ROUTINE_STRUCT(15) drout_1254__NORMEXP_PROGN; struct BASILYS_CLOSURE_STRUCT(0) dclo_1255__NORMEXP_PROGN; struct BASILYS_OBJECT_STRUCT(3) dsym_1256__CLASS_SRC_PROGN; struct BASILYS_STRING_STRUCT(15) dstr_1257__CLASS_SRC_PROGN; struct BASILYS_OBJECT_STRUCT(3) dsym_1258__PROGN_; struct BASILYS_STRING_STRUCT(6) dstr_1259__PROGN_; struct BASILYS_ROUTINE_STRUCT(1) drout_1260__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(30) drout_1261__NORMEXP_LET; struct BASILYS_CLOSURE_STRUCT(0) dclo_1262__NORMEXP_LET; struct BASILYS_OBJECT_STRUCT(3) dsym_1263__CLASS_SRC_LET; struct BASILYS_STRING_STRUCT(13) dstr_1264__CLASS_SRC_LET; struct BASILYS_ROUTINE_STRUCT(8) drout_1265__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1266__CLASS_SRC_LETBINDING; struct BASILYS_STRING_STRUCT(20) dstr_1267__CLASS_SRC_LETBIN; struct BASILYS_ROUTINE_STRUCT(0) drout_1268__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1269__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1270__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1271__LET_; struct BASILYS_STRING_STRUCT(4) dstr_1272__LET_; struct BASILYS_ROUTINE_STRUCT(2) drout_1273__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(12) drout_1274__NORMEXP_UNSAFE_GET_FIELD; struct BASILYS_CLOSURE_STRUCT(0) dclo_1275__NORMEXP_UNSAFE_GET_FIELD; struct BASILYS_OBJECT_STRUCT(3) dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD; struct BASILYS_STRING_STRUCT(26) dstr_1277__CLASS_SRC_UNSAFE; struct BASILYS_ROUTINE_STRUCT(21) drout_1278__NORMEXP_UNSAFE_PUT_FIELDS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1279__NORMEXP_UNSAFE_PUT_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS; struct BASILYS_STRING_STRUCT(27) dstr_1281__CLASS_SRC_UNSAFE; struct BASILYS_OBJECT_STRUCT(3) dsym_1282__UNSAFPUT_; struct BASILYS_STRING_STRUCT(9) dstr_1283__UNSAFPUT_; struct BASILYS_ROUTINE_STRUCT(5) drout_1284__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1285__CLASS_SRC_FIELDASSIGN; struct BASILYS_STRING_STRUCT(21) dstr_1286__CLASS_SRC_FIELDA; struct BASILYS_ROUTINE_STRUCT(1) drout_1287__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(15) drout_1288__NORMEXP_SETQ; struct BASILYS_CLOSURE_STRUCT(0) dclo_1289__NORMEXP_SETQ; struct BASILYS_OBJECT_STRUCT(3) dsym_1290__CLASS_SRC_SETQ; struct BASILYS_STRING_STRUCT(14) dstr_1291__CLASS_SRC_SETQ; struct BASILYS_OBJECT_STRUCT(3) dsym_1292__SETQ_; struct BASILYS_STRING_STRUCT(5) dstr_1293__SETQ_; struct BASILYS_ROUTINE_STRUCT(1) drout_1294__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(21) drout_1295__NORMEXP_MAKE_INSTANCE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1296__NORMEXP_MAKE_INSTANCE; struct BASILYS_OBJECT_STRUCT(3) dsym_1297__CLASS_SRC_MAKE_INSTANCE; struct BASILYS_STRING_STRUCT(23) dstr_1298__CLASS_SRC_MAKE_I; struct BASILYS_ROUTINE_STRUCT(4) drout_1299__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1300__INST_; struct BASILYS_STRING_STRUCT(5) dstr_1301__INST_; struct BASILYS_ROUTINE_STRUCT(1) drout_1302__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(19) drout_1303__NORMEXP_FOREVER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1304__NORMEXP_FOREVER; struct BASILYS_OBJECT_STRUCT(3) dsym_1305__CLASS_SRC_FOREVER; struct BASILYS_STRING_STRUCT(17) dstr_1306__CLASS_SRC_FOREVE; struct BASILYS_OBJECT_STRUCT(3) dsym_1307__CLASS_LABEL_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_1308__CLASS_LABEL_BIND; struct BASILYS_OBJECT_STRUCT(3) dsym_1309__CLASS_CLONEDSYMBOL; struct BASILYS_STRING_STRUCT(18) dstr_1310__CLASS_CLONEDSYMB; struct BASILYS_OBJECT_STRUCT(3) dsym_1311__LABIND_CLONSY; struct BASILYS_STRING_STRUCT(13) dstr_1312__LABIND_CLONSY; struct BASILYS_OBJECT_STRUCT(3) dsym_1313__FOREVER_; struct BASILYS_STRING_STRUCT(8) dstr_1314__FOREVER_; struct BASILYS_ROUTINE_STRUCT(15) drout_1315__NORMEXP_EXIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1316__NORMEXP_EXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_1317__CLASS_SRC_EXIT; struct BASILYS_STRING_STRUCT(14) dstr_1318__CLASS_SRC_EXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_1319__EXIT_; struct BASILYS_STRING_STRUCT(5) dstr_1320__EXIT_; struct BASILYS_ROUTINE_STRUCT(5) drout_1321__NORMEXP_COMPILEWARNING; struct BASILYS_CLOSURE_STRUCT(0) dclo_1322__NORMEXP_COMPILEWARNING; struct BASILYS_OBJECT_STRUCT(3) dsym_1323__CLASS_SRC_COMPILEWARNING; struct BASILYS_STRING_STRUCT(24) dstr_1324__CLASS_SRC_COMPIL; struct BASILYS_ROUTINE_STRUCT(1) drout_1325__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(18) drout_1326__REPLACE_LAST_BY_RETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_1327__REPLACE_LAST_BY_RETURN; struct BASILYS_ROUTINE_STRUCT(1) drout_1328__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1329__RETVAL_; struct BASILYS_STRING_STRUCT(8) dstr_1330__RETVAL_; struct BASILYS_ROUTINE_STRUCT(30) drout_1331__NORMEXP_DEFUN; struct BASILYS_CLOSURE_STRUCT(0) dclo_1332__NORMEXP_DEFUN; struct BASILYS_OBJECT_STRUCT(3) dsym_1333__CLASS_SRC_DEFUN; struct BASILYS_STRING_STRUCT(15) dstr_1334__CLASS_SRC_DEFUN; struct BASILYS_OBJECT_STRUCT(3) dsym_1335__FIND_ENV; struct BASILYS_STRING_STRUCT(8) dstr_1336__FIND_ENV; struct BASILYS_ROUTINE_STRUCT(2) drout_1337__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1338__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1339__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(33) drout_1340__NORMEXP_LAMBDA; struct BASILYS_CLOSURE_STRUCT(0) dclo_1341__NORMEXP_LAMBDA; struct BASILYS_OBJECT_STRUCT(3) dsym_1342__CLASS_SRC_LAMBDA; struct BASILYS_STRING_STRUCT(16) dstr_1343__CLASS_SRC_LAMBDA; struct BASILYS_OBJECT_STRUCT(3) dsym_1344__LAMBDA_; struct BASILYS_STRING_STRUCT(7) dstr_1345__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1346__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1347__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1348__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(29) drout_1349__NORMEXP_MULTICALL; struct BASILYS_CLOSURE_STRUCT(0) dclo_1350__NORMEXP_MULTICALL; struct BASILYS_OBJECT_STRUCT(3) dsym_1351__CLASS_SRC_MULTICALL; struct BASILYS_STRING_STRUCT(19) dstr_1352__CLASS_SRC_MULTIC; struct BASILYS_OBJECT_STRUCT(3) dsym_1353__LIST_ITERATE_TEST; struct BASILYS_STRING_STRUCT(17) dstr_1354__LIST_ITERATE_TES; struct BASILYS_ROUTINE_STRUCT(1) drout_1355__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1356__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_1357__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1358__MULTI_; struct BASILYS_STRING_STRUCT(6) dstr_1359__MULTI_; struct BASILYS_ROUTINE_STRUCT(4) drout_1360__NORMAL_PREDEF; struct BASILYS_CLOSURE_STRUCT(0) dclo_1361__NORMAL_PREDEF; struct BASILYS_ROUTINE_STRUCT(11) drout_1362__NORMAL_SYMBOL_DATA; struct BASILYS_CLOSURE_STRUCT(0) dclo_1363__NORMAL_SYMBOL_DATA; struct BASILYS_OBJECT_STRUCT(3) dsym_1364__NAMED_NAME; struct BASILYS_STRING_STRUCT(10) dstr_1365__NAMED_NAME; struct BASILYS_ROUTINE_STRUCT(10) drout_1366__NORMAL_KEYWORD_DATA; struct BASILYS_CLOSURE_STRUCT(0) dclo_1367__NORMAL_KEYWORD_DATA; struct BASILYS_ROUTINE_STRUCT(3) drout_1368__CREATE_DATA_SLOTS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1369__CREATE_DATA_SLOTS; struct BASILYS_ROUTINE_STRUCT(2) drout_1370__FILL_DATA_SLOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1371__FILL_DATA_SLOT; struct BASILYS_ROUTINE_STRUCT(8) drout_1372__NORMEXP_QUOTE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1373__NORMEXP_QUOTE; struct BASILYS_OBJECT_STRUCT(3) dsym_1374__CLASS_SRC_QUOTE; struct BASILYS_STRING_STRUCT(15) dstr_1375__CLASS_SRC_QUOTE; struct BASILYS_ROUTINE_STRUCT(11) drout_1376__NORMEXP_COMMENT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1377__NORMEXP_COMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_1378__CLASS_SRC_COMMENT; struct BASILYS_STRING_STRUCT(17) dstr_1379__CLASS_SRC_COMMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_1380__COMMENT_; struct BASILYS_STRING_STRUCT(8) dstr_1381__COMMENT_; struct BASILYS_ROUTINE_STRUCT(8) drout_1382__NORMEXP_KEYWORD; struct BASILYS_CLOSURE_STRUCT(0) dclo_1383__NORMEXP_KEYWORD; struct BASILYS_ROUTINE_STRUCT(13) drout_1384__FILL_NORMAL_FORMALS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1385__FILL_NORMAL_FORMALS; struct BASILYS_ROUTINE_STRUCT(11) drout_1386__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1387__BINDER; struct BASILYS_STRING_STRUCT(6) dstr_1388__BINDER; struct BASILYS_OBJECT_STRUCT(3) dsym_1389__FBIND_TYPE; struct BASILYS_STRING_STRUCT(10) dstr_1390__FBIND_TYPE; struct BASILYS_ROUTINE_STRUCT(9) drout_1391__FILL_NORMAL_EXPANSION; struct BASILYS_CLOSURE_STRUCT(0) dclo_1392__FILL_NORMAL_EXPANSION; struct BASILYS_ROUTINE_STRUCT(7) drout_1393__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(24) drout_1394__NORMEXP_DEFPRIMITIVE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1395__NORMEXP_DEFPRIMITIVE; struct BASILYS_OBJECT_STRUCT(3) dsym_1396__CLASS_SRC_DEFPRIMITIVE; struct BASILYS_STRING_STRUCT(22) dstr_1397__CLASS_SRC_DEFPRI; struct BASILYS_OBJECT_STRUCT(3) dsym_1398__PRIM_FORMALS; struct BASILYS_STRING_STRUCT(12) dstr_1399__PRIM_FORMALS; struct BASILYS_OBJECT_STRUCT(3) dsym_1400__PRIM_EXPANSION; struct BASILYS_STRING_STRUCT(14) dstr_1401__PRIM_EXPANSION; struct BASILYS_OBJECT_STRUCT(3) dsym_1402__PRIM_TYPE; struct BASILYS_STRING_STRUCT(9) dstr_1403__PRIM_TYPE; struct BASILYS_ROUTINE_STRUCT(24) drout_1404__NORMEXP_DEFCITERATOR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1405__NORMEXP_DEFCITERATOR; struct BASILYS_OBJECT_STRUCT(3) dsym_1406__CLASS_SRC_DEFCITERATOR; struct BASILYS_STRING_STRUCT(22) dstr_1407__CLASS_SRC_DEFCIT; struct BASILYS_OBJECT_STRUCT(3) dsym_1408__CITER_START_FORMALS; struct BASILYS_STRING_STRUCT(19) dstr_1409__CITER_START_FORM; struct BASILYS_OBJECT_STRUCT(3) dsym_1410__CITER_STATE; struct BASILYS_STRING_STRUCT(11) dstr_1411__CITER_STATE; struct BASILYS_OBJECT_STRUCT(3) dsym_1412__CITER_BODY_FORMALS; struct BASILYS_STRING_STRUCT(18) dstr_1413__CITER_BODY_FORMA; struct BASILYS_OBJECT_STRUCT(3) dsym_1414__CITER_EXPBEFORE; struct BASILYS_STRING_STRUCT(15) dstr_1415__CITER_EXPBEFORE; struct BASILYS_OBJECT_STRUCT(3) dsym_1416__CITER_EXPAFTER; struct BASILYS_STRING_STRUCT(14) dstr_1417__CITER_EXPAFTER; struct BASILYS_ROUTINE_STRUCT(37) drout_1418__NORMEXP_CITERATION; struct BASILYS_CLOSURE_STRUCT(0) dclo_1419__NORMEXP_CITERATION; struct BASILYS_OBJECT_STRUCT(3) dsym_1420__CLASS_SRC_CITERATION; struct BASILYS_STRING_STRUCT(20) dstr_1421__CLASS_SRC_CITERA; struct BASILYS_OBJECT_STRUCT(3) dsym_1422__MULTIPLE_EVERY_BOTH; struct BASILYS_STRING_STRUCT(19) dstr_1423__MULTIPLE_EVERY_B; struct BASILYS_ROUTINE_STRUCT(4) drout_1424__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_1425__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_1426__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_1427__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1428__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_1429__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(30) drout_1430__NORMEXP_DEFCLASS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1431__NORMEXP_DEFCLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_1432__CLASS_SRC_DEFCLASS; struct BASILYS_STRING_STRUCT(18) dstr_1433__CLASS_SRC_DEFCLA; struct BASILYS_OBJECT_STRUCT(3) dsym_1434__OBMAG_OBJECT; struct BASILYS_STRING_STRUCT(12) dstr_1435__OBMAG_OBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_1436__CLASS_ANCESTORS; struct BASILYS_STRING_STRUCT(15) dstr_1437__CLASS_ANCESTORS; struct BASILYS_OBJECT_STRUCT(3) dsym_1438__CLASS_FIELDS; struct BASILYS_STRING_STRUCT(12) dstr_1439__CLASS_FIELDS; struct BASILYS_OBJECT_STRUCT(3) dsym_1440__FLD_OWNCLASS; struct BASILYS_STRING_STRUCT(12) dstr_1441__FLD_OWNCLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_1442__DISC_SUPER; struct BASILYS_STRING_STRUCT(10) dstr_1443__DISC_SUPER; struct BASILYS_ROUTINE_STRUCT(27) drout_1444__NORMEXP_DEFINSTANCE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1445__NORMEXP_DEFINSTANCE; struct BASILYS_OBJECT_STRUCT(3) dsym_1446__CLASS_SRC_DEFINSTANCE; struct BASILYS_STRING_STRUCT(21) dstr_1447__CLASS_SRC_DEFINS; struct BASILYS_ROUTINE_STRUCT(5) drout_1448__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(29) drout_1449__NORMEXP_DEFSELECTOR; struct BASILYS_CLOSURE_STRUCT(0) dclo_1450__NORMEXP_DEFSELECTOR; struct BASILYS_OBJECT_STRUCT(3) dsym_1451__CLASS_SRC_DEFSELECTOR; struct BASILYS_STRING_STRUCT(21) dstr_1452__CLASS_SRC_DEFSEL; struct BASILYS_ROUTINE_STRUCT(4) drout_1453__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(11) drout_1454__NORMAL_VALUE_EXPORTER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1455__NORMAL_VALUE_EXPORTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1456__VALUEXPORTER_; struct BASILYS_STRING_STRUCT(14) dstr_1457__VALUEXPORTER_; struct BASILYS_OBJECT_STRUCT(3) dsym_1458__SYSDATA_VALUE_EXPORTER; struct BASILYS_STRING_STRUCT(22) dstr_1459__SYSDATA_VALUE_EX; struct BASILYS_ROUTINE_STRUCT(18) drout_1460__NORMAL_EXPORTED_VALUE; struct BASILYS_CLOSURE_STRUCT(0) dclo_1461__NORMAL_EXPORTED_VALUE; struct BASILYS_OBJECT_STRUCT(3) dsym_1462__EXPORTED_; struct BASILYS_STRING_STRUCT(10) dstr_1463__EXPORTED_; struct BASILYS_OBJECT_STRUCT(3) dsym_1464__DISCR_STRBUF; struct BASILYS_STRING_STRUCT(12) dstr_1465__DISCR_STRBUF; struct BASILYS_OBJECT_STRUCT(3) dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(46) dstr_1467__CLASS_SRC_CURREN; struct BASILYS_ROUTINE_STRUCT(14) drout_1468__NORMEXP_EXPORT_VALUES; struct BASILYS_CLOSURE_STRUCT(0) dclo_1469__NORMEXP_EXPORT_VALUES; struct BASILYS_OBJECT_STRUCT(3) dsym_1470__CLASS_SRC_EXPORT_VALUES; struct BASILYS_STRING_STRUCT(23) dstr_1471__CLASS_SRC_EXPORT; struct BASILYS_ROUTINE_STRUCT(5) drout_1472__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(27) drout_1473__NORMEXP_EXPORT_CLASS; struct BASILYS_CLOSURE_STRUCT(0) dclo_1474__NORMEXP_EXPORT_CLASS; struct BASILYS_OBJECT_STRUCT(3) dsym_1475__CLASS_SRC_EXPORT_CLASS; struct BASILYS_STRING_STRUCT(22) dstr_1476__CLASS_SRC_EXPORT; struct BASILYS_ROUTINE_STRUCT(18) drout_1477__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1478__MOCX_EXPCLASSDICT; struct BASILYS_STRING_STRUCT(17) dstr_1479__MOCX_EXPCLASSDIC; struct BASILYS_OBJECT_STRUCT(3) dsym_1480__MOCX_EXPFIELDICT; struct BASILYS_STRING_STRUCT(16) dstr_1481__MOCX_EXPFIELDICT; struct BASILYS_ROUTINE_STRUCT(5) drout_1482__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(12) drout_1483__NORMAL_MACRO_EXPORTER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1484__NORMAL_MACRO_EXPORTER; struct BASILYS_OBJECT_STRUCT(3) dsym_1485__MACROXPORTER_; struct BASILYS_STRING_STRUCT(14) dstr_1486__MACROXPORTER_; struct BASILYS_OBJECT_STRUCT(3) dsym_1487__SYSDATA_MACRO_EXPORTER; struct BASILYS_STRING_STRUCT(22) dstr_1488__SYSDATA_MACRO_EX; struct BASILYS_ROUTINE_STRUCT(18) drout_1489__NORMAL_EXPORTED_MACRO; struct BASILYS_CLOSURE_STRUCT(0) dclo_1490__NORMAL_EXPORTED_MACRO; struct BASILYS_OBJECT_STRUCT(3) dsym_1491__EXPORTEDM_; struct BASILYS_STRING_STRUCT(11) dstr_1492__EXPORTEDM_; struct BASILYS_ROUTINE_STRUCT(11) drout_1493__NORMEXP_EXPORT_MACRO; struct BASILYS_CLOSURE_STRUCT(0) dclo_1494__NORMEXP_EXPORT_MACRO; struct BASILYS_OBJECT_STRUCT(3) dsym_1495__CLASS_SRC_EXPORT_MACRO; struct BASILYS_STRING_STRUCT(22) dstr_1496__CLASS_SRC_EXPORT; struct BASILYS_ROUTINE_STRUCT(7) drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1498__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_ROUTINE_STRUCT(7) drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT; struct BASILYS_CLOSURE_STRUCT(0) dclo_1500__NORMEXP_PARENT_MODULE_ENVIRONMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; struct BASILYS_STRING_STRUCT(35) dstr_1502__CLASS_SRC_PARENT; struct BASILYS_ROUTINE_STRUCT(23) drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_CLOSURE_STRUCT(0) dclo_1504__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_OBJECT_STRUCT(3) dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(53) dstr_1506__CLASS_SRC_UPDATE; struct BASILYS_OBJECT_STRUCT(3) dsym_1507__UPDATCURMODENVBOX_; struct BASILYS_STRING_STRUCT(18) dstr_1508__UPDATCURMODENVBO; struct BASILYS_OBJECT_STRUCT(3) dsym_1509__CLASS_SRC_FETCH_PREDEFINED; struct BASILYS_STRING_STRUCT(26) dstr_1510__CLASS_SRC_FETCH_; struct BASILYS_OBJECT_STRUCT(3) dsym_1511__SYSDATA_CONT_FRESH_ENV; struct BASILYS_STRING_STRUCT(22) dstr_1512__SYSDATA_CONT_FRE; struct BASILYS_ROUTINE_STRUCT(9) drout_1513__NORMEXP_FETCH_PREDEFINED; struct BASILYS_CLOSURE_STRUCT(0) dclo_1514__NORMEXP_FETCH_PREDEFINED; struct BASILYS_OBJECT_STRUCT(3) dsym_1515__MAPOBJECT_EVERY; struct BASILYS_STRING_STRUCT(15) dstr_1516__MAPOBJECT_EVERY; struct BASILYS_ROUTINE_STRUCT(0) drout_1517__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(16) drout_1518__NORMEXP_STORE_PREDEFINED; struct BASILYS_CLOSURE_STRUCT(0) dclo_1519__NORMEXP_STORE_PREDEFINED; struct BASILYS_OBJECT_STRUCT(3) dsym_1520__CLASS_SRC_STORE_PREDEFINED; struct BASILYS_STRING_STRUCT(26) dstr_1521__CLASS_SRC_STORE_; struct BASILYS_ROUTINE_STRUCT(0) drout_1522__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_1523__STOREPREDEF_; struct BASILYS_STRING_STRUCT(13) dstr_1524__STOREPREDEF_; 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_SYMBOL*/ if (!/*_.VALDATA___V131*/ curfptr[130]) /*_.VALDATA___V131*/ curfptr[130] = (void*)&cdat->dsym_1__CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_1__CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_1__CLASS_SYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1__CLASS_SYMBOL)); /*inistring dstr_2__CLASS_SYMBOL*/ /*_.VALSTR___V132*/ curfptr[131] = (void*)&cdat->dstr_2__CLASS_SYMBOL; cdat->dstr_2__CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_2__CLASS_SYMBOL.val, "CLASS_SYMBOL"); /*iniobj dsym_3__CLASS_CLASS*/ if (!/*_.VALDATA___V133*/ curfptr[132]) /*_.VALDATA___V133*/ curfptr[132] = (void*)&cdat->dsym_3__CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_3__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_3__CLASS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_3__CLASS_CLASS)); /*inistring dstr_4__CLASS_CLASS*/ /*_.VALSTR___V134*/ curfptr[133] = (void*)&cdat->dstr_4__CLASS_CLASS; cdat->dstr_4__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_4__CLASS_CLASS.val, "CLASS_CLASS"); /*iniobj dsym_5__DEBUG_MSG_FUN*/ if (!/*_.VALDATA___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (void*)&cdat->dsym_5__DEBUG_MSG_FUN; basilys_assertmsg("iniobj checkdiscr dsym_5__DEBUG_MSG_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_5__DEBUG_MSG_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_5__DEBUG_MSG_FUN.obj_hash = 938829072; cdat->dsym_5__DEBUG_MSG_FUN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_5__DEBUG_MSG_FUN)); /*inistring dstr_6__DEBUG_MSG_FUN*/ /*_.VALSTR___V136*/ curfptr[135] = (void*)&cdat->dstr_6__DEBUG_MSG_FUN; cdat->dstr_6__DEBUG_MSG_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_6__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN"); /*iniobj dsym_7__INSTALL_INITIAL_MACRO*/ if (!/*_.VALDATA___V137*/ curfptr[136]) /*_.VALDATA___V137*/ curfptr[136] = (void*)&cdat->dsym_7__INSTALL_INITIAL_MACRO; basilys_assertmsg("iniobj checkdiscr dsym_7__INSTALL_INITIAL_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_7__INSTALL_INITIAL_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_7__INSTALL_INITIAL_MACRO.obj_hash = 101362976; cdat->dsym_7__INSTALL_INITIAL_MACRO.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_7__INSTALL_INITIAL_MACRO)); /*inistring dstr_8__INSTALL_INITIAL_*/ /*_.VALSTR___V138*/ curfptr[137] = (void*)&cdat->dstr_8__INSTALL_INITIAL_; cdat->dstr_8__INSTALL_INITIAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_8__INSTALL_INITIAL_.val, "INSTALL_INITIAL_MACRO"); /*iniobj dsym_9__CLASS_NREP*/ if (!/*_.VALDATA___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*)&cdat->dsym_9__CLASS_NREP; basilys_assertmsg("iniobj checkdiscr dsym_9__CLASS_NREP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__CLASS_NREP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__CLASS_NREP.obj_hash = 704846736; cdat->dsym_9__CLASS_NREP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_9__CLASS_NREP)); /*inistring dstr_10__CLASS_NREP*/ /*_.VALSTR___V140*/ curfptr[139] = (void*)&cdat->dstr_10__CLASS_NREP; cdat->dstr_10__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_10__CLASS_NREP.val, "CLASS_NREP"); /*iniobj dsym_11__CLASS_ROOT*/ if (!/*_.VALDATA___V141*/ curfptr[140]) /*_.VALDATA___V141*/ curfptr[140] = (void*)&cdat->dsym_11__CLASS_ROOT; basilys_assertmsg("iniobj checkdiscr dsym_11__CLASS_ROOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_11__CLASS_ROOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_11__CLASS_ROOT.obj_hash = 60568825; cdat->dsym_11__CLASS_ROOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_11__CLASS_ROOT)); /*inistring dstr_12__CLASS_ROOT*/ /*_.VALSTR___V142*/ curfptr[141] = (void*)&cdat->dstr_12__CLASS_ROOT; cdat->dstr_12__CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_12__CLASS_ROOT.val, "CLASS_ROOT"); BASILYS_LOCATION("warmelt-normal.bysl:44: @iniobj"); /*iniobj dobj_13__CLASS_NREP*/ if (!/*_.VALDATA___V143*/ curfptr[142]) /*_.VALDATA___V143*/ curfptr[142] = (void*)&cdat->dobj_13__CLASS_NREP; basilys_assertmsg("iniobj checkdiscr dobj_13__CLASS_NREP", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_13__CLASS_NREP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_13__CLASS_NREP.obj_num = OBMAG_OBJECT; cdat->dobj_13__CLASS_NREP.obj_hash = 881931477; cdat->dobj_13__CLASS_NREP.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_13__CLASS_NREP)); /*inistring dstr_14__CLASS_NREP*/ /*_.VALSTR___V144*/ curfptr[143] = (void*)&cdat->dstr_14__CLASS_NREP; cdat->dstr_14__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_14__CLASS_NREP.val, "CLASS_NREP"); /*inimult dtup_15__CLASS_NREP*/ /*_.VALTUP___V145*/ curfptr[144] = (void*)&cdat->dtup_15__CLASS_NREP; cdat->dtup_15__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_15__CLASS_NREP.nbval = 1; /*inimult dtup_16__CLASS_NREP*/ /*_.VALTUP___V148*/ curfptr[147] = (void*)&cdat->dtup_16__CLASS_NREP; cdat->dtup_16__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_16__CLASS_NREP.nbval = 1; /*iniobj dsym_17__NREP_LOC*/ if (!/*_.VALDATA___V149*/ curfptr[148]) /*_.VALDATA___V149*/ curfptr[148] = (void*)&cdat->dsym_17__NREP_LOC; basilys_assertmsg("iniobj checkdiscr dsym_17__NREP_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__NREP_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__NREP_LOC.obj_hash = 567925724; cdat->dsym_17__NREP_LOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_17__NREP_LOC)); /*inistring dstr_18__NREP_LOC*/ /*_.VALSTR___V150*/ curfptr[149] = (void*)&cdat->dstr_18__NREP_LOC; cdat->dstr_18__NREP_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_18__NREP_LOC.val, "NREP_LOC"); BASILYS_LOCATION("warmelt-normal.bysl:44: @iniobj"); /*iniobj dobj_19__NREP_LOC*/ if (!/*_.VALDATA___V146*/ curfptr[145]) /*_.VALDATA___V146*/ curfptr[145] = (void*)&cdat->dobj_19__NREP_LOC; basilys_assertmsg("iniobj checkdiscr dobj_19__NREP_LOC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_19__NREP_LOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_19__NREP_LOC.obj_num = 0; cdat->dobj_19__NREP_LOC.obj_hash = 262068203; cdat->dobj_19__NREP_LOC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_19__NREP_LOC)); /*inistring dstr_20__NREP_LOC*/ /*_.VALSTR___V147*/ curfptr[146] = (void*)&cdat->dstr_20__NREP_LOC; cdat->dstr_20__NREP_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_20__NREP_LOC.val, "NREP_LOC"); /*iniobj dsym_21__CLASS_NREP_SIMPLE*/ if (!/*_.VALDATA___V151*/ curfptr[150]) /*_.VALDATA___V151*/ curfptr[150] = (void*)&cdat->dsym_21__CLASS_NREP_SIMPLE; basilys_assertmsg("iniobj checkdiscr dsym_21__CLASS_NREP_SIMPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_21__CLASS_NREP_SIMPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_21__CLASS_NREP_SIMPLE.obj_hash = 945537669; cdat->dsym_21__CLASS_NREP_SIMPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_21__CLASS_NREP_SIMPLE)); /*inistring dstr_22__CLASS_NREP_SIMPL*/ /*_.VALSTR___V152*/ curfptr[151] = (void*)&cdat->dstr_22__CLASS_NREP_SIMPL; cdat->dstr_22__CLASS_NREP_SIMPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_22__CLASS_NREP_SIMPL.val, "CLASS_NREP_SIMPLE"); BASILYS_LOCATION("warmelt-normal.bysl:51: @iniobj"); /*iniobj dobj_23__CLASS_NREP_SIMPLE*/ if (!/*_.VALDATA___V153*/ curfptr[152]) /*_.VALDATA___V153*/ curfptr[152] = (void*)&cdat->dobj_23__CLASS_NREP_SIMPLE; basilys_assertmsg("iniobj checkdiscr dobj_23__CLASS_NREP_SIMPLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_23__CLASS_NREP_SIMPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_23__CLASS_NREP_SIMPLE.obj_num = OBMAG_OBJECT; cdat->dobj_23__CLASS_NREP_SIMPLE.obj_hash = 794033696; cdat->dobj_23__CLASS_NREP_SIMPLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_23__CLASS_NREP_SIMPLE)); /*inistring dstr_24__CLASS_NREP_SIMPL*/ /*_.VALSTR___V154*/ curfptr[153] = (void*)&cdat->dstr_24__CLASS_NREP_SIMPL; cdat->dstr_24__CLASS_NREP_SIMPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_24__CLASS_NREP_SIMPL.val, "CLASS_NREP_SIMPLE"); /*inimult dtup_25__CLASS_NREP_SIMPLE*/ /*_.VALTUP___V155*/ curfptr[154] = (void*)&cdat->dtup_25__CLASS_NREP_SIMPLE; cdat->dtup_25__CLASS_NREP_SIMPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_25__CLASS_NREP_SIMPLE.nbval = 2; /*inimult dtup_26__CLASS_NREP_SIMPLE*/ /*_.VALTUP___V156*/ curfptr[155] = (void*)&cdat->dtup_26__CLASS_NREP_SIMPLE; cdat->dtup_26__CLASS_NREP_SIMPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_26__CLASS_NREP_SIMPLE.nbval = 1; /*iniobj dsym_27__CLASS_NREP_EXPR*/ if (!/*_.VALDATA___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (void*)&cdat->dsym_27__CLASS_NREP_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_27__CLASS_NREP_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_27__CLASS_NREP_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_27__CLASS_NREP_EXPR.obj_hash = 729615255; cdat->dsym_27__CLASS_NREP_EXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_27__CLASS_NREP_EXPR)); /*inistring dstr_28__CLASS_NREP_EXPR*/ /*_.VALSTR___V158*/ curfptr[157] = (void*)&cdat->dstr_28__CLASS_NREP_EXPR; cdat->dstr_28__CLASS_NREP_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_28__CLASS_NREP_EXPR.val, "CLASS_NREP_EXPR"); BASILYS_LOCATION("warmelt-normal.bysl:58: @iniobj"); /*iniobj dobj_29__CLASS_NREP_EXPR*/ if (!/*_.VALDATA___V159*/ curfptr[158]) /*_.VALDATA___V159*/ curfptr[158] = (void*)&cdat->dobj_29__CLASS_NREP_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_29__CLASS_NREP_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_29__CLASS_NREP_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_29__CLASS_NREP_EXPR.obj_num = OBMAG_OBJECT; cdat->dobj_29__CLASS_NREP_EXPR.obj_hash = 801187101; cdat->dobj_29__CLASS_NREP_EXPR.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_29__CLASS_NREP_EXPR)); /*inistring dstr_30__CLASS_NREP_EXPR*/ /*_.VALSTR___V160*/ curfptr[159] = (void*)&cdat->dstr_30__CLASS_NREP_EXPR; cdat->dstr_30__CLASS_NREP_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_30__CLASS_NREP_EXPR.val, "CLASS_NREP_EXPR"); /*inimult dtup_31__CLASS_NREP_EXPR*/ /*_.VALTUP___V161*/ curfptr[160] = (void*)&cdat->dtup_31__CLASS_NREP_EXPR; cdat->dtup_31__CLASS_NREP_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_31__CLASS_NREP_EXPR.nbval = 2; /*inimult dtup_32__CLASS_NREP_EXPR*/ /*_.VALTUP___V162*/ curfptr[161] = (void*)&cdat->dtup_32__CLASS_NREP_EXPR; cdat->dtup_32__CLASS_NREP_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_32__CLASS_NREP_EXPR.nbval = 1; /*iniobj dsym_33__CLASS_NREP_APPLY*/ if (!/*_.VALDATA___V163*/ curfptr[162]) /*_.VALDATA___V163*/ curfptr[162] = (void*)&cdat->dsym_33__CLASS_NREP_APPLY; basilys_assertmsg("iniobj checkdiscr dsym_33__CLASS_NREP_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__CLASS_NREP_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__CLASS_NREP_APPLY.obj_hash = 866094506; cdat->dsym_33__CLASS_NREP_APPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_33__CLASS_NREP_APPLY)); /*inistring dstr_34__CLASS_NREP_APPLY*/ /*_.VALSTR___V164*/ curfptr[163] = (void*)&cdat->dstr_34__CLASS_NREP_APPLY; cdat->dstr_34__CLASS_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_34__CLASS_NREP_APPLY.val, "CLASS_NREP_APPLY"); BASILYS_LOCATION("warmelt-normal.bysl:64: @iniobj"); /*iniobj dobj_35__CLASS_NREP_APPLY*/ if (!/*_.VALDATA___V165*/ curfptr[164]) /*_.VALDATA___V165*/ curfptr[164] = (void*)&cdat->dobj_35__CLASS_NREP_APPLY; basilys_assertmsg("iniobj checkdiscr dobj_35__CLASS_NREP_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_35__CLASS_NREP_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_35__CLASS_NREP_APPLY.obj_num = OBMAG_OBJECT; cdat->dobj_35__CLASS_NREP_APPLY.obj_hash = 346516914; cdat->dobj_35__CLASS_NREP_APPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_35__CLASS_NREP_APPLY)); /*inistring dstr_36__CLASS_NREP_APPLY*/ /*_.VALSTR___V166*/ curfptr[165] = (void*)&cdat->dstr_36__CLASS_NREP_APPLY; cdat->dstr_36__CLASS_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_36__CLASS_NREP_APPLY.val, "CLASS_NREP_APPLY"); /*inimult dtup_37__CLASS_NREP_APPLY*/ /*_.VALTUP___V167*/ curfptr[166] = (void*)&cdat->dtup_37__CLASS_NREP_APPLY; cdat->dtup_37__CLASS_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_37__CLASS_NREP_APPLY.nbval = 3; /*inimult dtup_38__CLASS_NREP_APPLY*/ /*_.VALTUP___V172*/ curfptr[171] = (void*)&cdat->dtup_38__CLASS_NREP_APPLY; cdat->dtup_38__CLASS_NREP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_38__CLASS_NREP_APPLY.nbval = 3; /*iniobj dsym_39__NAPP_FUN*/ if (!/*_.VALDATA___V173*/ curfptr[172]) /*_.VALDATA___V173*/ curfptr[172] = (void*)&cdat->dsym_39__NAPP_FUN; basilys_assertmsg("iniobj checkdiscr dsym_39__NAPP_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_39__NAPP_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_39__NAPP_FUN.obj_hash = 135971900; cdat->dsym_39__NAPP_FUN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_39__NAPP_FUN)); /*inistring dstr_40__NAPP_FUN*/ /*_.VALSTR___V174*/ curfptr[173] = (void*)&cdat->dstr_40__NAPP_FUN; cdat->dstr_40__NAPP_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_40__NAPP_FUN.val, "NAPP_FUN"); BASILYS_LOCATION("warmelt-normal.bysl:64: @iniobj"); /*iniobj dobj_41__NAPP_FUN*/ if (!/*_.VALDATA___V168*/ curfptr[167]) /*_.VALDATA___V168*/ curfptr[167] = (void*)&cdat->dobj_41__NAPP_FUN; basilys_assertmsg("iniobj checkdiscr dobj_41__NAPP_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_41__NAPP_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_41__NAPP_FUN.obj_num = 1; cdat->dobj_41__NAPP_FUN.obj_hash = 881461145; cdat->dobj_41__NAPP_FUN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_41__NAPP_FUN)); /*inistring dstr_42__NAPP_FUN*/ /*_.VALSTR___V169*/ curfptr[168] = (void*)&cdat->dstr_42__NAPP_FUN; cdat->dstr_42__NAPP_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_42__NAPP_FUN.val, "NAPP_FUN"); /*iniobj dsym_43__NAPP_ARGS*/ if (!/*_.VALDATA___V175*/ curfptr[174]) /*_.VALDATA___V175*/ curfptr[174] = (void*)&cdat->dsym_43__NAPP_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_43__NAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_43__NAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_43__NAPP_ARGS.obj_hash = 932660013; cdat->dsym_43__NAPP_ARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_43__NAPP_ARGS)); /*inistring dstr_44__NAPP_ARGS*/ /*_.VALSTR___V176*/ curfptr[175] = (void*)&cdat->dstr_44__NAPP_ARGS; cdat->dstr_44__NAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_44__NAPP_ARGS.val, "NAPP_ARGS"); BASILYS_LOCATION("warmelt-normal.bysl:64: @iniobj"); /*iniobj dobj_45__NAPP_ARGS*/ if (!/*_.VALDATA___V170*/ curfptr[169]) /*_.VALDATA___V170*/ curfptr[169] = (void*)&cdat->dobj_45__NAPP_ARGS; basilys_assertmsg("iniobj checkdiscr dobj_45__NAPP_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_45__NAPP_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_45__NAPP_ARGS.obj_num = 2; cdat->dobj_45__NAPP_ARGS.obj_hash = 504085267; cdat->dobj_45__NAPP_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_45__NAPP_ARGS)); /*inistring dstr_46__NAPP_ARGS*/ /*_.VALSTR___V171*/ curfptr[170] = (void*)&cdat->dstr_46__NAPP_ARGS; cdat->dstr_46__NAPP_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_46__NAPP_ARGS.val, "NAPP_ARGS"); /*iniobj dsym_47__CLASS_NREP_MULTIAPPLY*/ if (!/*_.VALDATA___V177*/ curfptr[176]) /*_.VALDATA___V177*/ curfptr[176] = (void*)&cdat->dsym_47__CLASS_NREP_MULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_47__CLASS_NREP_MULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_47__CLASS_NREP_MULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_47__CLASS_NREP_MULTIAPPLY.obj_hash = 257736327; cdat->dsym_47__CLASS_NREP_MULTIAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_47__CLASS_NREP_MULTIAPPLY)); /*inistring dstr_48__CLASS_NREP_MULTI*/ /*_.VALSTR___V178*/ curfptr[177] = (void*)&cdat->dstr_48__CLASS_NREP_MULTI; cdat->dstr_48__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_48__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIAPPLY"); BASILYS_LOCATION("warmelt-normal.bysl:71: @iniobj"); /*iniobj dobj_49__CLASS_NREP_MULTIAPPLY*/ if (!/*_.VALDATA___V179*/ curfptr[178]) /*_.VALDATA___V179*/ curfptr[178] = (void*)&cdat->dobj_49__CLASS_NREP_MULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dobj_49__CLASS_NREP_MULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_49__CLASS_NREP_MULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_49__CLASS_NREP_MULTIAPPLY.obj_num = OBMAG_OBJECT; cdat->dobj_49__CLASS_NREP_MULTIAPPLY.obj_hash = 457661601; cdat->dobj_49__CLASS_NREP_MULTIAPPLY.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_49__CLASS_NREP_MULTIAPPLY)); /*inistring dstr_50__CLASS_NREP_MULTI*/ /*_.VALSTR___V180*/ curfptr[179] = (void*)&cdat->dstr_50__CLASS_NREP_MULTI; cdat->dstr_50__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_50__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIAPPLY"); /*inimult dtup_51__CLASS_NREP_MULTIAPPLY*/ /*_.VALTUP___V181*/ curfptr[180] = (void*)&cdat->dtup_51__CLASS_NREP_MULTIAPPLY; cdat->dtup_51__CLASS_NREP_MULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_51__CLASS_NREP_MULTIAPPLY.nbval = 4; /*inimult dtup_52__CLASS_NREP_MULTIAPPLY*/ /*_.VALTUP___V186*/ curfptr[185] = (void*)&cdat->dtup_52__CLASS_NREP_MULTIAPPLY; cdat->dtup_52__CLASS_NREP_MULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_52__CLASS_NREP_MULTIAPPLY.nbval = 5; /*iniobj dsym_53__NMULAPP_BINDINGS*/ if (!/*_.VALDATA___V187*/ curfptr[186]) /*_.VALDATA___V187*/ curfptr[186] = (void*)&cdat->dsym_53__NMULAPP_BINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_53__NMULAPP_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_53__NMULAPP_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_53__NMULAPP_BINDINGS.obj_hash = 483118889; cdat->dsym_53__NMULAPP_BINDINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_53__NMULAPP_BINDINGS)); /*inistring dstr_54__NMULAPP_BINDINGS*/ /*_.VALSTR___V188*/ curfptr[187] = (void*)&cdat->dstr_54__NMULAPP_BINDINGS; cdat->dstr_54__NMULAPP_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_54__NMULAPP_BINDINGS.val, "NMULAPP_BINDINGS"); BASILYS_LOCATION("warmelt-normal.bysl:71: @iniobj"); /*iniobj dobj_55__NMULAPP_BINDINGS*/ if (!/*_.VALDATA___V182*/ curfptr[181]) /*_.VALDATA___V182*/ curfptr[181] = (void*)&cdat->dobj_55__NMULAPP_BINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_55__NMULAPP_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_55__NMULAPP_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_55__NMULAPP_BINDINGS.obj_num = 3; cdat->dobj_55__NMULAPP_BINDINGS.obj_hash = 410441632; cdat->dobj_55__NMULAPP_BINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_55__NMULAPP_BINDINGS)); /*inistring dstr_56__NMULAPP_BINDINGS*/ /*_.VALSTR___V183*/ curfptr[182] = (void*)&cdat->dstr_56__NMULAPP_BINDINGS; cdat->dstr_56__NMULAPP_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_56__NMULAPP_BINDINGS.val, "NMULAPP_BINDINGS"); /*iniobj dsym_57__NMULAPP_BODY*/ if (!/*_.VALDATA___V189*/ curfptr[188]) /*_.VALDATA___V189*/ curfptr[188] = (void*)&cdat->dsym_57__NMULAPP_BODY; basilys_assertmsg("iniobj checkdiscr dsym_57__NMULAPP_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_57__NMULAPP_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_57__NMULAPP_BODY.obj_hash = 409103655; cdat->dsym_57__NMULAPP_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_57__NMULAPP_BODY)); /*inistring dstr_58__NMULAPP_BODY*/ /*_.VALSTR___V190*/ curfptr[189] = (void*)&cdat->dstr_58__NMULAPP_BODY; cdat->dstr_58__NMULAPP_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_58__NMULAPP_BODY.val, "NMULAPP_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:71: @iniobj"); /*iniobj dobj_59__NMULAPP_BODY*/ if (!/*_.VALDATA___V184*/ curfptr[183]) /*_.VALDATA___V184*/ curfptr[183] = (void*)&cdat->dobj_59__NMULAPP_BODY; basilys_assertmsg("iniobj checkdiscr dobj_59__NMULAPP_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_59__NMULAPP_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_59__NMULAPP_BODY.obj_num = 4; cdat->dobj_59__NMULAPP_BODY.obj_hash = 694228819; cdat->dobj_59__NMULAPP_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_59__NMULAPP_BODY)); /*inistring dstr_60__NMULAPP_BODY*/ /*_.VALSTR___V185*/ curfptr[184] = (void*)&cdat->dstr_60__NMULAPP_BODY; cdat->dstr_60__NMULAPP_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_60__NMULAPP_BODY.val, "NMULAPP_BODY"); /*iniobj dsym_61__CLASS_NREP_MSEND*/ if (!/*_.VALDATA___V191*/ curfptr[190]) /*_.VALDATA___V191*/ curfptr[190] = (void*)&cdat->dsym_61__CLASS_NREP_MSEND; basilys_assertmsg("iniobj checkdiscr dsym_61__CLASS_NREP_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_61__CLASS_NREP_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_61__CLASS_NREP_MSEND.obj_hash = 263475785; cdat->dsym_61__CLASS_NREP_MSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_61__CLASS_NREP_MSEND)); /*inistring dstr_62__CLASS_NREP_MSEND*/ /*_.VALSTR___V192*/ curfptr[191] = (void*)&cdat->dstr_62__CLASS_NREP_MSEND; cdat->dstr_62__CLASS_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_62__CLASS_NREP_MSEND.val, "CLASS_NREP_MSEND"); BASILYS_LOCATION("warmelt-normal.bysl:78: @iniobj"); /*iniobj dobj_63__CLASS_NREP_MSEND*/ if (!/*_.VALDATA___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (void*)&cdat->dobj_63__CLASS_NREP_MSEND; basilys_assertmsg("iniobj checkdiscr dobj_63__CLASS_NREP_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_63__CLASS_NREP_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_63__CLASS_NREP_MSEND.obj_num = OBMAG_OBJECT; cdat->dobj_63__CLASS_NREP_MSEND.obj_hash = 106043451; cdat->dobj_63__CLASS_NREP_MSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_63__CLASS_NREP_MSEND)); /*inistring dstr_64__CLASS_NREP_MSEND*/ /*_.VALSTR___V194*/ curfptr[193] = (void*)&cdat->dstr_64__CLASS_NREP_MSEND; cdat->dstr_64__CLASS_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_64__CLASS_NREP_MSEND.val, "CLASS_NREP_MSEND"); /*inimult dtup_65__CLASS_NREP_MSEND*/ /*_.VALTUP___V195*/ curfptr[194] = (void*)&cdat->dtup_65__CLASS_NREP_MSEND; cdat->dtup_65__CLASS_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_65__CLASS_NREP_MSEND.nbval = 3; /*inimult dtup_66__CLASS_NREP_MSEND*/ /*_.VALTUP___V202*/ curfptr[201] = (void*)&cdat->dtup_66__CLASS_NREP_MSEND; cdat->dtup_66__CLASS_NREP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_66__CLASS_NREP_MSEND.nbval = 4; /*iniobj dsym_67__NSEND_SEL*/ if (!/*_.VALDATA___V203*/ curfptr[202]) /*_.VALDATA___V203*/ curfptr[202] = (void*)&cdat->dsym_67__NSEND_SEL; basilys_assertmsg("iniobj checkdiscr dsym_67__NSEND_SEL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__NSEND_SEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_67__NSEND_SEL.obj_hash = 606725080; cdat->dsym_67__NSEND_SEL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_67__NSEND_SEL)); /*inistring dstr_68__NSEND_SEL*/ /*_.VALSTR___V204*/ curfptr[203] = (void*)&cdat->dstr_68__NSEND_SEL; cdat->dstr_68__NSEND_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_68__NSEND_SEL.val, "NSEND_SEL"); BASILYS_LOCATION("warmelt-normal.bysl:78: @iniobj"); /*iniobj dobj_69__NSEND_SEL*/ if (!/*_.VALDATA___V196*/ curfptr[195]) /*_.VALDATA___V196*/ curfptr[195] = (void*)&cdat->dobj_69__NSEND_SEL; basilys_assertmsg("iniobj checkdiscr dobj_69__NSEND_SEL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__NSEND_SEL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_69__NSEND_SEL.obj_num = 1; cdat->dobj_69__NSEND_SEL.obj_hash = 499907548; cdat->dobj_69__NSEND_SEL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_69__NSEND_SEL)); /*inistring dstr_70__NSEND_SEL*/ /*_.VALSTR___V197*/ curfptr[196] = (void*)&cdat->dstr_70__NSEND_SEL; cdat->dstr_70__NSEND_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_70__NSEND_SEL.val, "NSEND_SEL"); /*iniobj dsym_71__NSEND_RECV*/ if (!/*_.VALDATA___V205*/ curfptr[204]) /*_.VALDATA___V205*/ curfptr[204] = (void*)&cdat->dsym_71__NSEND_RECV; basilys_assertmsg("iniobj checkdiscr dsym_71__NSEND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__NSEND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__NSEND_RECV.obj_hash = 381881307; cdat->dsym_71__NSEND_RECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_71__NSEND_RECV)); /*inistring dstr_72__NSEND_RECV*/ /*_.VALSTR___V206*/ curfptr[205] = (void*)&cdat->dstr_72__NSEND_RECV; cdat->dstr_72__NSEND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_72__NSEND_RECV.val, "NSEND_RECV"); BASILYS_LOCATION("warmelt-normal.bysl:78: @iniobj"); /*iniobj dobj_73__NSEND_RECV*/ if (!/*_.VALDATA___V198*/ curfptr[197]) /*_.VALDATA___V198*/ curfptr[197] = (void*)&cdat->dobj_73__NSEND_RECV; basilys_assertmsg("iniobj checkdiscr dobj_73__NSEND_RECV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_73__NSEND_RECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_73__NSEND_RECV.obj_num = 2; cdat->dobj_73__NSEND_RECV.obj_hash = 93879194; cdat->dobj_73__NSEND_RECV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_73__NSEND_RECV)); /*inistring dstr_74__NSEND_RECV*/ /*_.VALSTR___V199*/ curfptr[198] = (void*)&cdat->dstr_74__NSEND_RECV; cdat->dstr_74__NSEND_RECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_74__NSEND_RECV.val, "NSEND_RECV"); /*iniobj dsym_75__NSEND_ARGS*/ if (!/*_.VALDATA___V207*/ curfptr[206]) /*_.VALDATA___V207*/ curfptr[206] = (void*)&cdat->dsym_75__NSEND_ARGS; basilys_assertmsg("iniobj checkdiscr dsym_75__NSEND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_75__NSEND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_75__NSEND_ARGS.obj_hash = 1059381337; cdat->dsym_75__NSEND_ARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_75__NSEND_ARGS)); /*inistring dstr_76__NSEND_ARGS*/ /*_.VALSTR___V208*/ curfptr[207] = (void*)&cdat->dstr_76__NSEND_ARGS; cdat->dstr_76__NSEND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_76__NSEND_ARGS.val, "NSEND_ARGS"); BASILYS_LOCATION("warmelt-normal.bysl:78: @iniobj"); /*iniobj dobj_77__NSEND_ARGS*/ if (!/*_.VALDATA___V200*/ curfptr[199]) /*_.VALDATA___V200*/ curfptr[199] = (void*)&cdat->dobj_77__NSEND_ARGS; basilys_assertmsg("iniobj checkdiscr dobj_77__NSEND_ARGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_77__NSEND_ARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_77__NSEND_ARGS.obj_num = 3; cdat->dobj_77__NSEND_ARGS.obj_hash = 922577651; cdat->dobj_77__NSEND_ARGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_77__NSEND_ARGS)); /*inistring dstr_78__NSEND_ARGS*/ /*_.VALSTR___V201*/ curfptr[200] = (void*)&cdat->dstr_78__NSEND_ARGS; cdat->dstr_78__NSEND_ARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_78__NSEND_ARGS.val, "NSEND_ARGS"); /*iniobj dsym_79__CLASS_NREP_MULTIMSEND*/ if (!/*_.VALDATA___V209*/ curfptr[208]) /*_.VALDATA___V209*/ curfptr[208] = (void*)&cdat->dsym_79__CLASS_NREP_MULTIMSEND; basilys_assertmsg("iniobj checkdiscr dsym_79__CLASS_NREP_MULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_79__CLASS_NREP_MULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_79__CLASS_NREP_MULTIMSEND.obj_hash = 247075982; cdat->dsym_79__CLASS_NREP_MULTIMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_79__CLASS_NREP_MULTIMSEND)); /*inistring dstr_80__CLASS_NREP_MULTI*/ /*_.VALSTR___V210*/ curfptr[209] = (void*)&cdat->dstr_80__CLASS_NREP_MULTI; cdat->dstr_80__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_80__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIMSEND"); BASILYS_LOCATION("warmelt-normal.bysl:88: @iniobj"); /*iniobj dobj_81__CLASS_NREP_MULTIMSEND*/ if (!/*_.VALDATA___V211*/ curfptr[210]) /*_.VALDATA___V211*/ curfptr[210] = (void*)&cdat->dobj_81__CLASS_NREP_MULTIMSEND; basilys_assertmsg("iniobj checkdiscr dobj_81__CLASS_NREP_MULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_81__CLASS_NREP_MULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_81__CLASS_NREP_MULTIMSEND.obj_num = OBMAG_OBJECT; cdat->dobj_81__CLASS_NREP_MULTIMSEND.obj_hash = 1026972500; cdat->dobj_81__CLASS_NREP_MULTIMSEND.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_81__CLASS_NREP_MULTIMSEND)); /*inistring dstr_82__CLASS_NREP_MULTI*/ /*_.VALSTR___V212*/ curfptr[211] = (void*)&cdat->dstr_82__CLASS_NREP_MULTI; cdat->dstr_82__CLASS_NREP_MULTI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_82__CLASS_NREP_MULTI.val, "CLASS_NREP_MULTIMSEND"); /*inimult dtup_83__CLASS_NREP_MULTIMSEND*/ /*_.VALTUP___V213*/ curfptr[212] = (void*)&cdat->dtup_83__CLASS_NREP_MULTIMSEND; cdat->dtup_83__CLASS_NREP_MULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_83__CLASS_NREP_MULTIMSEND.nbval = 4; /*inimult dtup_84__CLASS_NREP_MULTIMSEND*/ /*_.VALTUP___V218*/ curfptr[217] = (void*)&cdat->dtup_84__CLASS_NREP_MULTIMSEND; cdat->dtup_84__CLASS_NREP_MULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_84__CLASS_NREP_MULTIMSEND.nbval = 6; /*iniobj dsym_85__NMULSEND_BINDINGS*/ if (!/*_.VALDATA___V219*/ curfptr[218]) /*_.VALDATA___V219*/ curfptr[218] = (void*)&cdat->dsym_85__NMULSEND_BINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_85__NMULSEND_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_85__NMULSEND_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_85__NMULSEND_BINDINGS.obj_hash = 101567715; cdat->dsym_85__NMULSEND_BINDINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_85__NMULSEND_BINDINGS)); /*inistring dstr_86__NMULSEND_BINDING*/ /*_.VALSTR___V220*/ curfptr[219] = (void*)&cdat->dstr_86__NMULSEND_BINDING; cdat->dstr_86__NMULSEND_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_86__NMULSEND_BINDING.val, "NMULSEND_BINDINGS"); BASILYS_LOCATION("warmelt-normal.bysl:88: @iniobj"); /*iniobj dobj_87__NMULSEND_BINDINGS*/ if (!/*_.VALDATA___V214*/ curfptr[213]) /*_.VALDATA___V214*/ curfptr[213] = (void*)&cdat->dobj_87__NMULSEND_BINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_87__NMULSEND_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_87__NMULSEND_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_87__NMULSEND_BINDINGS.obj_num = 4; cdat->dobj_87__NMULSEND_BINDINGS.obj_hash = 205636501; cdat->dobj_87__NMULSEND_BINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_87__NMULSEND_BINDINGS)); /*inistring dstr_88__NMULSEND_BINDING*/ /*_.VALSTR___V215*/ curfptr[214] = (void*)&cdat->dstr_88__NMULSEND_BINDING; cdat->dstr_88__NMULSEND_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_88__NMULSEND_BINDING.val, "NMULSEND_BINDINGS"); /*iniobj dsym_89__NMULSEND_BODY*/ if (!/*_.VALDATA___V221*/ curfptr[220]) /*_.VALDATA___V221*/ curfptr[220] = (void*)&cdat->dsym_89__NMULSEND_BODY; basilys_assertmsg("iniobj checkdiscr dsym_89__NMULSEND_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_89__NMULSEND_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_89__NMULSEND_BODY.obj_hash = 552748717; cdat->dsym_89__NMULSEND_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_89__NMULSEND_BODY)); /*inistring dstr_90__NMULSEND_BODY*/ /*_.VALSTR___V222*/ curfptr[221] = (void*)&cdat->dstr_90__NMULSEND_BODY; cdat->dstr_90__NMULSEND_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_90__NMULSEND_BODY.val, "NMULSEND_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:88: @iniobj"); /*iniobj dobj_91__NMULSEND_BODY*/ if (!/*_.VALDATA___V216*/ curfptr[215]) /*_.VALDATA___V216*/ curfptr[215] = (void*)&cdat->dobj_91__NMULSEND_BODY; basilys_assertmsg("iniobj checkdiscr dobj_91__NMULSEND_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_91__NMULSEND_BODY.obj_num = 5; cdat->dobj_91__NMULSEND_BODY.obj_hash = 999088599; cdat->dobj_91__NMULSEND_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_91__NMULSEND_BODY)); /*inistring dstr_92__NMULSEND_BODY*/ /*_.VALSTR___V217*/ curfptr[216] = (void*)&cdat->dstr_92__NMULSEND_BODY; cdat->dstr_92__NMULSEND_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_92__NMULSEND_BODY.val, "NMULSEND_BODY"); /*iniobj dsym_93__CLASS_NREP_CHUNK*/ if (!/*_.VALDATA___V223*/ curfptr[222]) /*_.VALDATA___V223*/ curfptr[222] = (void*)&cdat->dsym_93__CLASS_NREP_CHUNK; basilys_assertmsg("iniobj checkdiscr dsym_93__CLASS_NREP_CHUNK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_93__CLASS_NREP_CHUNK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_93__CLASS_NREP_CHUNK.obj_hash = 877025959; cdat->dsym_93__CLASS_NREP_CHUNK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_93__CLASS_NREP_CHUNK)); /*inistring dstr_94__CLASS_NREP_CHUNK*/ /*_.VALSTR___V224*/ curfptr[223] = (void*)&cdat->dstr_94__CLASS_NREP_CHUNK; cdat->dstr_94__CLASS_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_94__CLASS_NREP_CHUNK.val, "CLASS_NREP_CHUNK"); BASILYS_LOCATION("warmelt-normal.bysl:95: @iniobj"); /*iniobj dobj_95__CLASS_NREP_CHUNK*/ if (!/*_.VALDATA___V225*/ curfptr[224]) /*_.VALDATA___V225*/ curfptr[224] = (void*)&cdat->dobj_95__CLASS_NREP_CHUNK; basilys_assertmsg("iniobj checkdiscr dobj_95__CLASS_NREP_CHUNK", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_95__CLASS_NREP_CHUNK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_95__CLASS_NREP_CHUNK.obj_num = OBMAG_OBJECT; cdat->dobj_95__CLASS_NREP_CHUNK.obj_hash = 1007396991; cdat->dobj_95__CLASS_NREP_CHUNK.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_95__CLASS_NREP_CHUNK)); /*inistring dstr_96__CLASS_NREP_CHUNK*/ /*_.VALSTR___V226*/ curfptr[225] = (void*)&cdat->dstr_96__CLASS_NREP_CHUNK; cdat->dstr_96__CLASS_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_96__CLASS_NREP_CHUNK.val, "CLASS_NREP_CHUNK"); /*inimult dtup_97__CLASS_NREP_CHUNK*/ /*_.VALTUP___V227*/ curfptr[226] = (void*)&cdat->dtup_97__CLASS_NREP_CHUNK; cdat->dtup_97__CLASS_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_97__CLASS_NREP_CHUNK.nbval = 3; /*inimult dtup_98__CLASS_NREP_CHUNK*/ /*_.VALTUP___V232*/ curfptr[231] = (void*)&cdat->dtup_98__CLASS_NREP_CHUNK; cdat->dtup_98__CLASS_NREP_CHUNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_98__CLASS_NREP_CHUNK.nbval = 3; /*iniobj dsym_99__NCHUNK_EXPANSION*/ if (!/*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (void*)&cdat->dsym_99__NCHUNK_EXPANSION; basilys_assertmsg("iniobj checkdiscr dsym_99__NCHUNK_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__NCHUNK_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__NCHUNK_EXPANSION.obj_hash = 1032608834; cdat->dsym_99__NCHUNK_EXPANSION.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_99__NCHUNK_EXPANSION)); /*inistring dstr_100__NCHUNK_EXPANSION*/ /*_.VALSTR___V234*/ curfptr[233] = (void*)&cdat->dstr_100__NCHUNK_EXPANSION; cdat->dstr_100__NCHUNK_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_100__NCHUNK_EXPANSION.val, "NCHUNK_EXPANSION"); BASILYS_LOCATION("warmelt-normal.bysl:95: @iniobj"); /*iniobj dobj_101__NCHUNK_EXPANSION*/ if (!/*_.VALDATA___V228*/ curfptr[227]) /*_.VALDATA___V228*/ curfptr[227] = (void*)&cdat->dobj_101__NCHUNK_EXPANSION; basilys_assertmsg("iniobj checkdiscr dobj_101__NCHUNK_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_101__NCHUNK_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_101__NCHUNK_EXPANSION.obj_num = 1; cdat->dobj_101__NCHUNK_EXPANSION.obj_hash = 301674761; cdat->dobj_101__NCHUNK_EXPANSION.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_101__NCHUNK_EXPANSION)); /*inistring dstr_102__NCHUNK_EXPANSION*/ /*_.VALSTR___V229*/ curfptr[228] = (void*)&cdat->dstr_102__NCHUNK_EXPANSION; cdat->dstr_102__NCHUNK_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_102__NCHUNK_EXPANSION.val, "NCHUNK_EXPANSION"); /*iniobj dsym_103__NCHUNK_PRIMITIVE*/ if (!/*_.VALDATA___V235*/ curfptr[234]) /*_.VALDATA___V235*/ curfptr[234] = (void*)&cdat->dsym_103__NCHUNK_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_103__NCHUNK_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_103__NCHUNK_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_103__NCHUNK_PRIMITIVE.obj_hash = 773920910; cdat->dsym_103__NCHUNK_PRIMITIVE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_103__NCHUNK_PRIMITIVE)); /*inistring dstr_104__NCHUNK_PRIMITIVE*/ /*_.VALSTR___V236*/ curfptr[235] = (void*)&cdat->dstr_104__NCHUNK_PRIMITIVE; cdat->dstr_104__NCHUNK_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_104__NCHUNK_PRIMITIVE.val, "NCHUNK_PRIMITIVE"); BASILYS_LOCATION("warmelt-normal.bysl:95: @iniobj"); /*iniobj dobj_105__NCHUNK_PRIMITIVE*/ if (!/*_.VALDATA___V230*/ curfptr[229]) /*_.VALDATA___V230*/ curfptr[229] = (void*)&cdat->dobj_105__NCHUNK_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dobj_105__NCHUNK_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_105__NCHUNK_PRIMITIVE.obj_num = 2; cdat->dobj_105__NCHUNK_PRIMITIVE.obj_hash = 438912456; cdat->dobj_105__NCHUNK_PRIMITIVE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_105__NCHUNK_PRIMITIVE)); /*inistring dstr_106__NCHUNK_PRIMITIVE*/ /*_.VALSTR___V231*/ curfptr[230] = (void*)&cdat->dstr_106__NCHUNK_PRIMITIVE; cdat->dstr_106__NCHUNK_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_106__NCHUNK_PRIMITIVE.val, "NCHUNK_PRIMITIVE"); /*iniobj dsym_107__CLASS_NREP_COMMENT*/ if (!/*_.VALDATA___V237*/ curfptr[236]) /*_.VALDATA___V237*/ curfptr[236] = (void*)&cdat->dsym_107__CLASS_NREP_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_107__CLASS_NREP_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_107__CLASS_NREP_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_107__CLASS_NREP_COMMENT.obj_hash = 351814368; cdat->dsym_107__CLASS_NREP_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_107__CLASS_NREP_COMMENT)); /*inistring dstr_108__CLASS_NREP_COMME*/ /*_.VALSTR___V238*/ curfptr[237] = (void*)&cdat->dstr_108__CLASS_NREP_COMME; cdat->dstr_108__CLASS_NREP_COMME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_108__CLASS_NREP_COMME.val, "CLASS_NREP_COMMENT"); BASILYS_LOCATION("warmelt-normal.bysl:102: @iniobj"); /*iniobj dobj_109__CLASS_NREP_COMMENT*/ if (!/*_.VALDATA___V239*/ curfptr[238]) /*_.VALDATA___V239*/ curfptr[238] = (void*)&cdat->dobj_109__CLASS_NREP_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_109__CLASS_NREP_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_109__CLASS_NREP_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_109__CLASS_NREP_COMMENT.obj_num = OBMAG_OBJECT; cdat->dobj_109__CLASS_NREP_COMMENT.obj_hash = 665265381; cdat->dobj_109__CLASS_NREP_COMMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_109__CLASS_NREP_COMMENT)); /*inistring dstr_110__CLASS_NREP_COMME*/ /*_.VALSTR___V240*/ curfptr[239] = (void*)&cdat->dstr_110__CLASS_NREP_COMME; cdat->dstr_110__CLASS_NREP_COMME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_110__CLASS_NREP_COMME.val, "CLASS_NREP_COMMENT"); /*inimult dtup_111__CLASS_NREP_COMMENT*/ /*_.VALTUP___V241*/ curfptr[240] = (void*)&cdat->dtup_111__CLASS_NREP_COMMENT; cdat->dtup_111__CLASS_NREP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_111__CLASS_NREP_COMMENT.nbval = 3; /*inimult dtup_112__CLASS_NREP_COMMENT*/ /*_.VALTUP___V244*/ curfptr[243] = (void*)&cdat->dtup_112__CLASS_NREP_COMMENT; cdat->dtup_112__CLASS_NREP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_112__CLASS_NREP_COMMENT.nbval = 2; /*iniobj dsym_113__NCOMM_STRING*/ if (!/*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*)&cdat->dsym_113__NCOMM_STRING; basilys_assertmsg("iniobj checkdiscr dsym_113__NCOMM_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_113__NCOMM_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_113__NCOMM_STRING.obj_hash = 540109865; cdat->dsym_113__NCOMM_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_113__NCOMM_STRING)); /*inistring dstr_114__NCOMM_STRING*/ /*_.VALSTR___V246*/ curfptr[245] = (void*)&cdat->dstr_114__NCOMM_STRING; cdat->dstr_114__NCOMM_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_114__NCOMM_STRING.val, "NCOMM_STRING"); BASILYS_LOCATION("warmelt-normal.bysl:102: @iniobj"); /*iniobj dobj_115__NCOMM_STRING*/ if (!/*_.VALDATA___V242*/ curfptr[241]) /*_.VALDATA___V242*/ curfptr[241] = (void*)&cdat->dobj_115__NCOMM_STRING; basilys_assertmsg("iniobj checkdiscr dobj_115__NCOMM_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_115__NCOMM_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_115__NCOMM_STRING.obj_num = 1; cdat->dobj_115__NCOMM_STRING.obj_hash = 456635503; cdat->dobj_115__NCOMM_STRING.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_115__NCOMM_STRING)); /*inistring dstr_116__NCOMM_STRING*/ /*_.VALSTR___V243*/ curfptr[242] = (void*)&cdat->dstr_116__NCOMM_STRING; cdat->dstr_116__NCOMM_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_116__NCOMM_STRING.val, "NCOMM_STRING"); /*iniobj dsym_117__CLASS_NREP_LET*/ if (!/*_.VALDATA___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (void*)&cdat->dsym_117__CLASS_NREP_LET; basilys_assertmsg("iniobj checkdiscr dsym_117__CLASS_NREP_LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_117__CLASS_NREP_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_117__CLASS_NREP_LET.obj_hash = 726308322; cdat->dsym_117__CLASS_NREP_LET.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_117__CLASS_NREP_LET)); /*inistring dstr_118__CLASS_NREP_LET*/ /*_.VALSTR___V248*/ curfptr[247] = (void*)&cdat->dstr_118__CLASS_NREP_LET; cdat->dstr_118__CLASS_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_118__CLASS_NREP_LET.val, "CLASS_NREP_LET"); BASILYS_LOCATION("warmelt-normal.bysl:108: @iniobj"); /*iniobj dobj_119__CLASS_NREP_LET*/ if (!/*_.VALDATA___V249*/ curfptr[248]) /*_.VALDATA___V249*/ curfptr[248] = (void*)&cdat->dobj_119__CLASS_NREP_LET; basilys_assertmsg("iniobj checkdiscr dobj_119__CLASS_NREP_LET", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_119__CLASS_NREP_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_119__CLASS_NREP_LET.obj_num = OBMAG_OBJECT; cdat->dobj_119__CLASS_NREP_LET.obj_hash = 354729480; cdat->dobj_119__CLASS_NREP_LET.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_119__CLASS_NREP_LET)); /*inistring dstr_120__CLASS_NREP_LET*/ /*_.VALSTR___V250*/ curfptr[249] = (void*)&cdat->dstr_120__CLASS_NREP_LET; cdat->dstr_120__CLASS_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_120__CLASS_NREP_LET.val, "CLASS_NREP_LET"); /*inimult dtup_121__CLASS_NREP_LET*/ /*_.VALTUP___V251*/ curfptr[250] = (void*)&cdat->dtup_121__CLASS_NREP_LET; cdat->dtup_121__CLASS_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_121__CLASS_NREP_LET.nbval = 3; /*inimult dtup_122__CLASS_NREP_LET*/ /*_.VALTUP___V256*/ curfptr[255] = (void*)&cdat->dtup_122__CLASS_NREP_LET; cdat->dtup_122__CLASS_NREP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_122__CLASS_NREP_LET.nbval = 3; /*iniobj dsym_123__NLET_BINDINGS*/ if (!/*_.VALDATA___V257*/ curfptr[256]) /*_.VALDATA___V257*/ curfptr[256] = (void*)&cdat->dsym_123__NLET_BINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_123__NLET_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_123__NLET_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_123__NLET_BINDINGS.obj_hash = 736029644; cdat->dsym_123__NLET_BINDINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_123__NLET_BINDINGS)); /*inistring dstr_124__NLET_BINDINGS*/ /*_.VALSTR___V258*/ curfptr[257] = (void*)&cdat->dstr_124__NLET_BINDINGS; cdat->dstr_124__NLET_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_124__NLET_BINDINGS.val, "NLET_BINDINGS"); BASILYS_LOCATION("warmelt-normal.bysl:108: @iniobj"); /*iniobj dobj_125__NLET_BINDINGS*/ if (!/*_.VALDATA___V252*/ curfptr[251]) /*_.VALDATA___V252*/ curfptr[251] = (void*)&cdat->dobj_125__NLET_BINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_125__NLET_BINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_125__NLET_BINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_125__NLET_BINDINGS.obj_num = 1; cdat->dobj_125__NLET_BINDINGS.obj_hash = 400761879; cdat->dobj_125__NLET_BINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_125__NLET_BINDINGS)); /*inistring dstr_126__NLET_BINDINGS*/ /*_.VALSTR___V253*/ curfptr[252] = (void*)&cdat->dstr_126__NLET_BINDINGS; cdat->dstr_126__NLET_BINDINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_126__NLET_BINDINGS.val, "NLET_BINDINGS"); /*iniobj dsym_127__NLET_BODY*/ if (!/*_.VALDATA___V259*/ curfptr[258]) /*_.VALDATA___V259*/ curfptr[258] = (void*)&cdat->dsym_127__NLET_BODY; basilys_assertmsg("iniobj checkdiscr dsym_127__NLET_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_127__NLET_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_127__NLET_BODY.obj_hash = 870540515; cdat->dsym_127__NLET_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_127__NLET_BODY)); /*inistring dstr_128__NLET_BODY*/ /*_.VALSTR___V260*/ curfptr[259] = (void*)&cdat->dstr_128__NLET_BODY; cdat->dstr_128__NLET_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_128__NLET_BODY.val, "NLET_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:108: @iniobj"); /*iniobj dobj_129__NLET_BODY*/ if (!/*_.VALDATA___V254*/ curfptr[253]) /*_.VALDATA___V254*/ curfptr[253] = (void*)&cdat->dobj_129__NLET_BODY; basilys_assertmsg("iniobj checkdiscr dobj_129__NLET_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_129__NLET_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_129__NLET_BODY.obj_num = 2; cdat->dobj_129__NLET_BODY.obj_hash = 972102566; cdat->dobj_129__NLET_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_129__NLET_BODY)); /*inistring dstr_130__NLET_BODY*/ /*_.VALSTR___V255*/ curfptr[254] = (void*)&cdat->dstr_130__NLET_BODY; cdat->dstr_130__NLET_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_130__NLET_BODY.val, "NLET_BODY"); /*iniobj dsym_131__CLASS_NREP_RETURN*/ if (!/*_.VALDATA___V261*/ curfptr[260]) /*_.VALDATA___V261*/ curfptr[260] = (void*)&cdat->dsym_131__CLASS_NREP_RETURN; basilys_assertmsg("iniobj checkdiscr dsym_131__CLASS_NREP_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_131__CLASS_NREP_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_131__CLASS_NREP_RETURN.obj_hash = 622944524; cdat->dsym_131__CLASS_NREP_RETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_131__CLASS_NREP_RETURN)); /*inistring dstr_132__CLASS_NREP_RETUR*/ /*_.VALSTR___V262*/ curfptr[261] = (void*)&cdat->dstr_132__CLASS_NREP_RETUR; cdat->dstr_132__CLASS_NREP_RETUR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_132__CLASS_NREP_RETUR.val, "CLASS_NREP_RETURN"); BASILYS_LOCATION("warmelt-normal.bysl:115: @iniobj"); /*iniobj dobj_133__CLASS_NREP_RETURN*/ if (!/*_.VALDATA___V263*/ curfptr[262]) /*_.VALDATA___V263*/ curfptr[262] = (void*)&cdat->dobj_133__CLASS_NREP_RETURN; basilys_assertmsg("iniobj checkdiscr dobj_133__CLASS_NREP_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_133__CLASS_NREP_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_133__CLASS_NREP_RETURN.obj_num = OBMAG_OBJECT; cdat->dobj_133__CLASS_NREP_RETURN.obj_hash = 419582378; cdat->dobj_133__CLASS_NREP_RETURN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_133__CLASS_NREP_RETURN)); /*inistring dstr_134__CLASS_NREP_RETUR*/ /*_.VALSTR___V264*/ curfptr[263] = (void*)&cdat->dstr_134__CLASS_NREP_RETUR; cdat->dstr_134__CLASS_NREP_RETUR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_134__CLASS_NREP_RETUR.val, "CLASS_NREP_RETURN"); /*inimult dtup_135__CLASS_NREP_RETURN*/ /*_.VALTUP___V265*/ curfptr[264] = (void*)&cdat->dtup_135__CLASS_NREP_RETURN; cdat->dtup_135__CLASS_NREP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_135__CLASS_NREP_RETURN.nbval = 3; /*inimult dtup_136__CLASS_NREP_RETURN*/ /*_.VALTUP___V270*/ curfptr[269] = (void*)&cdat->dtup_136__CLASS_NREP_RETURN; cdat->dtup_136__CLASS_NREP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_136__CLASS_NREP_RETURN.nbval = 3; /*iniobj dsym_137__NRET_MAIN*/ if (!/*_.VALDATA___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (void*)&cdat->dsym_137__NRET_MAIN; basilys_assertmsg("iniobj checkdiscr dsym_137__NRET_MAIN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_137__NRET_MAIN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_137__NRET_MAIN.obj_hash = 309164651; cdat->dsym_137__NRET_MAIN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_137__NRET_MAIN)); /*inistring dstr_138__NRET_MAIN*/ /*_.VALSTR___V272*/ curfptr[271] = (void*)&cdat->dstr_138__NRET_MAIN; cdat->dstr_138__NRET_MAIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_138__NRET_MAIN.val, "NRET_MAIN"); BASILYS_LOCATION("warmelt-normal.bysl:115: @iniobj"); /*iniobj dobj_139__NRET_MAIN*/ if (!/*_.VALDATA___V266*/ curfptr[265]) /*_.VALDATA___V266*/ curfptr[265] = (void*)&cdat->dobj_139__NRET_MAIN; basilys_assertmsg("iniobj checkdiscr dobj_139__NRET_MAIN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_139__NRET_MAIN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_139__NRET_MAIN.obj_num = 1; cdat->dobj_139__NRET_MAIN.obj_hash = 566121898; cdat->dobj_139__NRET_MAIN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_139__NRET_MAIN)); /*inistring dstr_140__NRET_MAIN*/ /*_.VALSTR___V267*/ curfptr[266] = (void*)&cdat->dstr_140__NRET_MAIN; cdat->dstr_140__NRET_MAIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_140__NRET_MAIN.val, "NRET_MAIN"); /*iniobj dsym_141__NRET_REST*/ if (!/*_.VALDATA___V273*/ curfptr[272]) /*_.VALDATA___V273*/ curfptr[272] = (void*)&cdat->dsym_141__NRET_REST; basilys_assertmsg("iniobj checkdiscr dsym_141__NRET_REST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_141__NRET_REST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_141__NRET_REST.obj_hash = 750081371; cdat->dsym_141__NRET_REST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_141__NRET_REST)); /*inistring dstr_142__NRET_REST*/ /*_.VALSTR___V274*/ curfptr[273] = (void*)&cdat->dstr_142__NRET_REST; cdat->dstr_142__NRET_REST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_142__NRET_REST.val, "NRET_REST"); BASILYS_LOCATION("warmelt-normal.bysl:115: @iniobj"); /*iniobj dobj_143__NRET_REST*/ if (!/*_.VALDATA___V268*/ curfptr[267]) /*_.VALDATA___V268*/ curfptr[267] = (void*)&cdat->dobj_143__NRET_REST; basilys_assertmsg("iniobj checkdiscr dobj_143__NRET_REST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_143__NRET_REST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_143__NRET_REST.obj_num = 2; cdat->dobj_143__NRET_REST.obj_hash = 630962112; cdat->dobj_143__NRET_REST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_143__NRET_REST)); /*inistring dstr_144__NRET_REST*/ /*_.VALSTR___V269*/ curfptr[268] = (void*)&cdat->dstr_144__NRET_REST; cdat->dstr_144__NRET_REST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_144__NRET_REST.val, "NRET_REST"); /*iniobj dsym_145__CLASS_NREP_IF*/ if (!/*_.VALDATA___V275*/ curfptr[274]) /*_.VALDATA___V275*/ curfptr[274] = (void*)&cdat->dsym_145__CLASS_NREP_IF; basilys_assertmsg("iniobj checkdiscr dsym_145__CLASS_NREP_IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__CLASS_NREP_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__CLASS_NREP_IF.obj_hash = 942597626; cdat->dsym_145__CLASS_NREP_IF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_145__CLASS_NREP_IF)); /*inistring dstr_146__CLASS_NREP_IF*/ /*_.VALSTR___V276*/ curfptr[275] = (void*)&cdat->dstr_146__CLASS_NREP_IF; cdat->dstr_146__CLASS_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_146__CLASS_NREP_IF.val, "CLASS_NREP_IF"); BASILYS_LOCATION("warmelt-normal.bysl:122: @iniobj"); /*iniobj dobj_147__CLASS_NREP_IF*/ if (!/*_.VALDATA___V277*/ curfptr[276]) /*_.VALDATA___V277*/ curfptr[276] = (void*)&cdat->dobj_147__CLASS_NREP_IF; basilys_assertmsg("iniobj checkdiscr dobj_147__CLASS_NREP_IF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_147__CLASS_NREP_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_147__CLASS_NREP_IF.obj_num = OBMAG_OBJECT; cdat->dobj_147__CLASS_NREP_IF.obj_hash = 810172503; cdat->dobj_147__CLASS_NREP_IF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_147__CLASS_NREP_IF)); /*inistring dstr_148__CLASS_NREP_IF*/ /*_.VALSTR___V278*/ curfptr[277] = (void*)&cdat->dstr_148__CLASS_NREP_IF; cdat->dstr_148__CLASS_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_148__CLASS_NREP_IF.val, "CLASS_NREP_IF"); /*inimult dtup_149__CLASS_NREP_IF*/ /*_.VALTUP___V279*/ curfptr[278] = (void*)&cdat->dtup_149__CLASS_NREP_IF; cdat->dtup_149__CLASS_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_149__CLASS_NREP_IF.nbval = 3; /*inimult dtup_150__CLASS_NREP_IF*/ /*_.VALTUP___V288*/ curfptr[287] = (void*)&cdat->dtup_150__CLASS_NREP_IF; cdat->dtup_150__CLASS_NREP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_150__CLASS_NREP_IF.nbval = 5; /*iniobj dsym_151__NIF_TEST*/ if (!/*_.VALDATA___V289*/ curfptr[288]) /*_.VALDATA___V289*/ curfptr[288] = (void*)&cdat->dsym_151__NIF_TEST; basilys_assertmsg("iniobj checkdiscr dsym_151__NIF_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__NIF_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__NIF_TEST.obj_hash = 721603485; cdat->dsym_151__NIF_TEST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_151__NIF_TEST)); /*inistring dstr_152__NIF_TEST*/ /*_.VALSTR___V290*/ curfptr[289] = (void*)&cdat->dstr_152__NIF_TEST; cdat->dstr_152__NIF_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_152__NIF_TEST.val, "NIF_TEST"); BASILYS_LOCATION("warmelt-normal.bysl:122: @iniobj"); /*iniobj dobj_153__NIF_TEST*/ if (!/*_.VALDATA___V280*/ curfptr[279]) /*_.VALDATA___V280*/ curfptr[279] = (void*)&cdat->dobj_153__NIF_TEST; basilys_assertmsg("iniobj checkdiscr dobj_153__NIF_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_153__NIF_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_153__NIF_TEST.obj_num = 1; cdat->dobj_153__NIF_TEST.obj_hash = 771538729; cdat->dobj_153__NIF_TEST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_153__NIF_TEST)); /*inistring dstr_154__NIF_TEST*/ /*_.VALSTR___V281*/ curfptr[280] = (void*)&cdat->dstr_154__NIF_TEST; cdat->dstr_154__NIF_TEST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_154__NIF_TEST.val, "NIF_TEST"); /*iniobj dsym_155__NIF_THEN*/ if (!/*_.VALDATA___V291*/ curfptr[290]) /*_.VALDATA___V291*/ curfptr[290] = (void*)&cdat->dsym_155__NIF_THEN; basilys_assertmsg("iniobj checkdiscr dsym_155__NIF_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__NIF_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__NIF_THEN.obj_hash = 383896540; cdat->dsym_155__NIF_THEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_155__NIF_THEN)); /*inistring dstr_156__NIF_THEN*/ /*_.VALSTR___V292*/ curfptr[291] = (void*)&cdat->dstr_156__NIF_THEN; cdat->dstr_156__NIF_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_156__NIF_THEN.val, "NIF_THEN"); BASILYS_LOCATION("warmelt-normal.bysl:122: @iniobj"); /*iniobj dobj_157__NIF_THEN*/ if (!/*_.VALDATA___V282*/ curfptr[281]) /*_.VALDATA___V282*/ curfptr[281] = (void*)&cdat->dobj_157__NIF_THEN; basilys_assertmsg("iniobj checkdiscr dobj_157__NIF_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_157__NIF_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_157__NIF_THEN.obj_num = 2; cdat->dobj_157__NIF_THEN.obj_hash = 85351670; cdat->dobj_157__NIF_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_157__NIF_THEN)); /*inistring dstr_158__NIF_THEN*/ /*_.VALSTR___V283*/ curfptr[282] = (void*)&cdat->dstr_158__NIF_THEN; cdat->dstr_158__NIF_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_158__NIF_THEN.val, "NIF_THEN"); /*iniobj dsym_159__NIF_ELSE*/ if (!/*_.VALDATA___V293*/ curfptr[292]) /*_.VALDATA___V293*/ curfptr[292] = (void*)&cdat->dsym_159__NIF_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_159__NIF_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_159__NIF_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_159__NIF_ELSE.obj_hash = 964634185; cdat->dsym_159__NIF_ELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_159__NIF_ELSE)); /*inistring dstr_160__NIF_ELSE*/ /*_.VALSTR___V294*/ curfptr[293] = (void*)&cdat->dstr_160__NIF_ELSE; cdat->dstr_160__NIF_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_160__NIF_ELSE.val, "NIF_ELSE"); BASILYS_LOCATION("warmelt-normal.bysl:122: @iniobj"); /*iniobj dobj_161__NIF_ELSE*/ if (!/*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*)&cdat->dobj_161__NIF_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_161__NIF_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_161__NIF_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_161__NIF_ELSE.obj_num = 3; cdat->dobj_161__NIF_ELSE.obj_hash = 631896559; cdat->dobj_161__NIF_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_161__NIF_ELSE)); /*inistring dstr_162__NIF_ELSE*/ /*_.VALSTR___V285*/ curfptr[284] = (void*)&cdat->dstr_162__NIF_ELSE; cdat->dstr_162__NIF_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_162__NIF_ELSE.val, "NIF_ELSE"); /*iniobj dsym_163__NIF_CTYP*/ if (!/*_.VALDATA___V295*/ curfptr[294]) /*_.VALDATA___V295*/ curfptr[294] = (void*)&cdat->dsym_163__NIF_CTYP; basilys_assertmsg("iniobj checkdiscr dsym_163__NIF_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_163__NIF_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_163__NIF_CTYP.obj_hash = 797235295; cdat->dsym_163__NIF_CTYP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_163__NIF_CTYP)); /*inistring dstr_164__NIF_CTYP*/ /*_.VALSTR___V296*/ curfptr[295] = (void*)&cdat->dstr_164__NIF_CTYP; cdat->dstr_164__NIF_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_164__NIF_CTYP.val, "NIF_CTYP"); BASILYS_LOCATION("warmelt-normal.bysl:122: @iniobj"); /*iniobj dobj_165__NIF_CTYP*/ if (!/*_.VALDATA___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*)&cdat->dobj_165__NIF_CTYP; basilys_assertmsg("iniobj checkdiscr dobj_165__NIF_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_165__NIF_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_165__NIF_CTYP.obj_num = 4; cdat->dobj_165__NIF_CTYP.obj_hash = 773917202; cdat->dobj_165__NIF_CTYP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_165__NIF_CTYP)); /*inistring dstr_166__NIF_CTYP*/ /*_.VALSTR___V287*/ curfptr[286] = (void*)&cdat->dstr_166__NIF_CTYP; cdat->dstr_166__NIF_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_166__NIF_CTYP.val, "NIF_CTYP"); /*iniobj dsym_167__CLASS_NREP_CPPIF*/ if (!/*_.VALDATA___V297*/ curfptr[296]) /*_.VALDATA___V297*/ curfptr[296] = (void*)&cdat->dsym_167__CLASS_NREP_CPPIF; basilys_assertmsg("iniobj checkdiscr dsym_167__CLASS_NREP_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__CLASS_NREP_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_167__CLASS_NREP_CPPIF.obj_hash = 768655685; cdat->dsym_167__CLASS_NREP_CPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_167__CLASS_NREP_CPPIF)); /*inistring dstr_168__CLASS_NREP_CPPIF*/ /*_.VALSTR___V298*/ curfptr[297] = (void*)&cdat->dstr_168__CLASS_NREP_CPPIF; cdat->dstr_168__CLASS_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_168__CLASS_NREP_CPPIF.val, "CLASS_NREP_CPPIF"); BASILYS_LOCATION("warmelt-normal.bysl:131: @iniobj"); /*iniobj dobj_169__CLASS_NREP_CPPIF*/ if (!/*_.VALDATA___V299*/ curfptr[298]) /*_.VALDATA___V299*/ curfptr[298] = (void*)&cdat->dobj_169__CLASS_NREP_CPPIF; basilys_assertmsg("iniobj checkdiscr dobj_169__CLASS_NREP_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_169__CLASS_NREP_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_169__CLASS_NREP_CPPIF.obj_num = OBMAG_OBJECT; cdat->dobj_169__CLASS_NREP_CPPIF.obj_hash = 991106774; cdat->dobj_169__CLASS_NREP_CPPIF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_169__CLASS_NREP_CPPIF)); /*inistring dstr_170__CLASS_NREP_CPPIF*/ /*_.VALSTR___V300*/ curfptr[299] = (void*)&cdat->dstr_170__CLASS_NREP_CPPIF; cdat->dstr_170__CLASS_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_170__CLASS_NREP_CPPIF.val, "CLASS_NREP_CPPIF"); /*inimult dtup_171__CLASS_NREP_CPPIF*/ /*_.VALTUP___V301*/ curfptr[300] = (void*)&cdat->dtup_171__CLASS_NREP_CPPIF; cdat->dtup_171__CLASS_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_171__CLASS_NREP_CPPIF.nbval = 3; /*inimult dtup_172__CLASS_NREP_CPPIF*/ /*_.VALTUP___V310*/ curfptr[309] = (void*)&cdat->dtup_172__CLASS_NREP_CPPIF; cdat->dtup_172__CLASS_NREP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_172__CLASS_NREP_CPPIF.nbval = 5; /*iniobj dsym_173__NIFP_COND*/ if (!/*_.VALDATA___V311*/ curfptr[310]) /*_.VALDATA___V311*/ curfptr[310] = (void*)&cdat->dsym_173__NIFP_COND; basilys_assertmsg("iniobj checkdiscr dsym_173__NIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_173__NIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_173__NIFP_COND.obj_hash = 955960638; cdat->dsym_173__NIFP_COND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_173__NIFP_COND)); /*inistring dstr_174__NIFP_COND*/ /*_.VALSTR___V312*/ curfptr[311] = (void*)&cdat->dstr_174__NIFP_COND; cdat->dstr_174__NIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_174__NIFP_COND.val, "NIFP_COND"); BASILYS_LOCATION("warmelt-normal.bysl:131: @iniobj"); /*iniobj dobj_175__NIFP_COND*/ if (!/*_.VALDATA___V302*/ curfptr[301]) /*_.VALDATA___V302*/ curfptr[301] = (void*)&cdat->dobj_175__NIFP_COND; basilys_assertmsg("iniobj checkdiscr dobj_175__NIFP_COND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_175__NIFP_COND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_175__NIFP_COND.obj_num = 1; cdat->dobj_175__NIFP_COND.obj_hash = 219461107; cdat->dobj_175__NIFP_COND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_175__NIFP_COND)); /*inistring dstr_176__NIFP_COND*/ /*_.VALSTR___V303*/ curfptr[302] = (void*)&cdat->dstr_176__NIFP_COND; cdat->dstr_176__NIFP_COND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_176__NIFP_COND.val, "NIFP_COND"); /*iniobj dsym_177__NIFP_THEN*/ if (!/*_.VALDATA___V313*/ curfptr[312]) /*_.VALDATA___V313*/ curfptr[312] = (void*)&cdat->dsym_177__NIFP_THEN; basilys_assertmsg("iniobj checkdiscr dsym_177__NIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_177__NIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_177__NIFP_THEN.obj_hash = 1050966842; cdat->dsym_177__NIFP_THEN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_177__NIFP_THEN)); /*inistring dstr_178__NIFP_THEN*/ /*_.VALSTR___V314*/ curfptr[313] = (void*)&cdat->dstr_178__NIFP_THEN; cdat->dstr_178__NIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_178__NIFP_THEN.val, "NIFP_THEN"); BASILYS_LOCATION("warmelt-normal.bysl:131: @iniobj"); /*iniobj dobj_179__NIFP_THEN*/ if (!/*_.VALDATA___V304*/ curfptr[303]) /*_.VALDATA___V304*/ curfptr[303] = (void*)&cdat->dobj_179__NIFP_THEN; basilys_assertmsg("iniobj checkdiscr dobj_179__NIFP_THEN", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_179__NIFP_THEN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_179__NIFP_THEN.obj_num = 2; cdat->dobj_179__NIFP_THEN.obj_hash = 456459316; cdat->dobj_179__NIFP_THEN.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_179__NIFP_THEN)); /*inistring dstr_180__NIFP_THEN*/ /*_.VALSTR___V305*/ curfptr[304] = (void*)&cdat->dstr_180__NIFP_THEN; cdat->dstr_180__NIFP_THEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_180__NIFP_THEN.val, "NIFP_THEN"); /*iniobj dsym_181__NIFP_ELSE*/ if (!/*_.VALDATA___V315*/ curfptr[314]) /*_.VALDATA___V315*/ curfptr[314] = (void*)&cdat->dsym_181__NIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dsym_181__NIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__NIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_181__NIFP_ELSE.obj_hash = 641642630; cdat->dsym_181__NIFP_ELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_181__NIFP_ELSE)); /*inistring dstr_182__NIFP_ELSE*/ /*_.VALSTR___V316*/ curfptr[315] = (void*)&cdat->dstr_182__NIFP_ELSE; cdat->dstr_182__NIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_182__NIFP_ELSE.val, "NIFP_ELSE"); BASILYS_LOCATION("warmelt-normal.bysl:131: @iniobj"); /*iniobj dobj_183__NIFP_ELSE*/ if (!/*_.VALDATA___V306*/ curfptr[305]) /*_.VALDATA___V306*/ curfptr[305] = (void*)&cdat->dobj_183__NIFP_ELSE; basilys_assertmsg("iniobj checkdiscr dobj_183__NIFP_ELSE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__NIFP_ELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_183__NIFP_ELSE.obj_num = 3; cdat->dobj_183__NIFP_ELSE.obj_hash = 528399815; cdat->dobj_183__NIFP_ELSE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_183__NIFP_ELSE)); /*inistring dstr_184__NIFP_ELSE*/ /*_.VALSTR___V307*/ curfptr[306] = (void*)&cdat->dstr_184__NIFP_ELSE; cdat->dstr_184__NIFP_ELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_184__NIFP_ELSE.val, "NIFP_ELSE"); /*iniobj dsym_185__NIFP_CTYP*/ if (!/*_.VALDATA___V317*/ curfptr[316]) /*_.VALDATA___V317*/ curfptr[316] = (void*)&cdat->dsym_185__NIFP_CTYP; basilys_assertmsg("iniobj checkdiscr dsym_185__NIFP_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_185__NIFP_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_185__NIFP_CTYP.obj_hash = 1026490910; cdat->dsym_185__NIFP_CTYP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_185__NIFP_CTYP)); /*inistring dstr_186__NIFP_CTYP*/ /*_.VALSTR___V318*/ curfptr[317] = (void*)&cdat->dstr_186__NIFP_CTYP; cdat->dstr_186__NIFP_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_186__NIFP_CTYP.val, "NIFP_CTYP"); BASILYS_LOCATION("warmelt-normal.bysl:131: @iniobj"); /*iniobj dobj_187__NIFP_CTYP*/ if (!/*_.VALDATA___V308*/ curfptr[307]) /*_.VALDATA___V308*/ curfptr[307] = (void*)&cdat->dobj_187__NIFP_CTYP; basilys_assertmsg("iniobj checkdiscr dobj_187__NIFP_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_187__NIFP_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_187__NIFP_CTYP.obj_num = 4; cdat->dobj_187__NIFP_CTYP.obj_hash = 701648494; cdat->dobj_187__NIFP_CTYP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_187__NIFP_CTYP)); /*inistring dstr_188__NIFP_CTYP*/ /*_.VALSTR___V309*/ curfptr[308] = (void*)&cdat->dstr_188__NIFP_CTYP; cdat->dstr_188__NIFP_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_188__NIFP_CTYP.val, "NIFP_CTYP"); /*iniobj dsym_189__CLASS_NREP_PROGN*/ if (!/*_.VALDATA___V319*/ curfptr[318]) /*_.VALDATA___V319*/ curfptr[318] = (void*)&cdat->dsym_189__CLASS_NREP_PROGN; basilys_assertmsg("iniobj checkdiscr dsym_189__CLASS_NREP_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_189__CLASS_NREP_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_189__CLASS_NREP_PROGN.obj_hash = 378668026; cdat->dsym_189__CLASS_NREP_PROGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_189__CLASS_NREP_PROGN)); /*inistring dstr_190__CLASS_NREP_PROGN*/ /*_.VALSTR___V320*/ curfptr[319] = (void*)&cdat->dstr_190__CLASS_NREP_PROGN; cdat->dstr_190__CLASS_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_190__CLASS_NREP_PROGN.val, "CLASS_NREP_PROGN"); BASILYS_LOCATION("warmelt-normal.bysl:140: @iniobj"); /*iniobj dobj_191__CLASS_NREP_PROGN*/ if (!/*_.VALDATA___V321*/ curfptr[320]) /*_.VALDATA___V321*/ curfptr[320] = (void*)&cdat->dobj_191__CLASS_NREP_PROGN; basilys_assertmsg("iniobj checkdiscr dobj_191__CLASS_NREP_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_191__CLASS_NREP_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_191__CLASS_NREP_PROGN.obj_num = OBMAG_OBJECT; cdat->dobj_191__CLASS_NREP_PROGN.obj_hash = 170022969; cdat->dobj_191__CLASS_NREP_PROGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_191__CLASS_NREP_PROGN)); /*inistring dstr_192__CLASS_NREP_PROGN*/ /*_.VALSTR___V322*/ curfptr[321] = (void*)&cdat->dstr_192__CLASS_NREP_PROGN; cdat->dstr_192__CLASS_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_192__CLASS_NREP_PROGN.val, "CLASS_NREP_PROGN"); /*inimult dtup_193__CLASS_NREP_PROGN*/ /*_.VALTUP___V323*/ curfptr[322] = (void*)&cdat->dtup_193__CLASS_NREP_PROGN; cdat->dtup_193__CLASS_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_193__CLASS_NREP_PROGN.nbval = 3; /*inimult dtup_194__CLASS_NREP_PROGN*/ /*_.VALTUP___V328*/ curfptr[327] = (void*)&cdat->dtup_194__CLASS_NREP_PROGN; cdat->dtup_194__CLASS_NREP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_194__CLASS_NREP_PROGN.nbval = 3; /*iniobj dsym_195__NPROGN_SEQ*/ if (!/*_.VALDATA___V329*/ curfptr[328]) /*_.VALDATA___V329*/ curfptr[328] = (void*)&cdat->dsym_195__NPROGN_SEQ; basilys_assertmsg("iniobj checkdiscr dsym_195__NPROGN_SEQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_195__NPROGN_SEQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_195__NPROGN_SEQ.obj_hash = 39398709; cdat->dsym_195__NPROGN_SEQ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_195__NPROGN_SEQ)); /*inistring dstr_196__NPROGN_SEQ*/ /*_.VALSTR___V330*/ curfptr[329] = (void*)&cdat->dstr_196__NPROGN_SEQ; cdat->dstr_196__NPROGN_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_196__NPROGN_SEQ.val, "NPROGN_SEQ"); BASILYS_LOCATION("warmelt-normal.bysl:140: @iniobj"); /*iniobj dobj_197__NPROGN_SEQ*/ if (!/*_.VALDATA___V324*/ curfptr[323]) /*_.VALDATA___V324*/ curfptr[323] = (void*)&cdat->dobj_197__NPROGN_SEQ; basilys_assertmsg("iniobj checkdiscr dobj_197__NPROGN_SEQ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_197__NPROGN_SEQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_197__NPROGN_SEQ.obj_num = 1; cdat->dobj_197__NPROGN_SEQ.obj_hash = 363217108; cdat->dobj_197__NPROGN_SEQ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_197__NPROGN_SEQ)); /*inistring dstr_198__NPROGN_SEQ*/ /*_.VALSTR___V325*/ curfptr[324] = (void*)&cdat->dstr_198__NPROGN_SEQ; cdat->dstr_198__NPROGN_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_198__NPROGN_SEQ.val, "NPROGN_SEQ"); /*iniobj dsym_199__NPROGN_LAST*/ if (!/*_.VALDATA___V331*/ curfptr[330]) /*_.VALDATA___V331*/ curfptr[330] = (void*)&cdat->dsym_199__NPROGN_LAST; basilys_assertmsg("iniobj checkdiscr dsym_199__NPROGN_LAST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_199__NPROGN_LAST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_199__NPROGN_LAST.obj_hash = 257289658; cdat->dsym_199__NPROGN_LAST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_199__NPROGN_LAST)); /*inistring dstr_200__NPROGN_LAST*/ /*_.VALSTR___V332*/ curfptr[331] = (void*)&cdat->dstr_200__NPROGN_LAST; cdat->dstr_200__NPROGN_LAST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_200__NPROGN_LAST.val, "NPROGN_LAST"); BASILYS_LOCATION("warmelt-normal.bysl:140: @iniobj"); /*iniobj dobj_201__NPROGN_LAST*/ if (!/*_.VALDATA___V326*/ curfptr[325]) /*_.VALDATA___V326*/ curfptr[325] = (void*)&cdat->dobj_201__NPROGN_LAST; basilys_assertmsg("iniobj checkdiscr dobj_201__NPROGN_LAST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_201__NPROGN_LAST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_201__NPROGN_LAST.obj_num = 2; cdat->dobj_201__NPROGN_LAST.obj_hash = 476311750; cdat->dobj_201__NPROGN_LAST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_201__NPROGN_LAST)); /*inistring dstr_202__NPROGN_LAST*/ /*_.VALSTR___V327*/ curfptr[326] = (void*)&cdat->dstr_202__NPROGN_LAST; cdat->dstr_202__NPROGN_LAST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_202__NPROGN_LAST.val, "NPROGN_LAST"); /*iniobj dsym_203__CLASS_NREP_UNSAFE_GET_FIELD*/ if (!/*_.VALDATA___V333*/ curfptr[332]) /*_.VALDATA___V333*/ curfptr[332] = (void*)&cdat->dsym_203__CLASS_NREP_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_203__CLASS_NREP_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_203__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_203__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 71587717; cdat->dsym_203__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_203__CLASS_NREP_UNSAFE_GET_FIELD)); /*inistring dstr_204__CLASS_NREP_UNSAF*/ /*_.VALSTR___V334*/ curfptr[333] = (void*)&cdat->dstr_204__CLASS_NREP_UNSAF; cdat->dstr_204__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_204__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_GET_FIELD"); BASILYS_LOCATION("warmelt-normal.bysl:147: @iniobj"); /*iniobj dobj_205__CLASS_NREP_UNSAFE_GET_FIELD*/ if (!/*_.VALDATA___V335*/ curfptr[334]) /*_.VALDATA___V335*/ curfptr[334] = (void*)&cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_205__CLASS_NREP_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD.obj_num = OBMAG_OBJECT; cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD.obj_hash = 520277848; cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_205__CLASS_NREP_UNSAFE_GET_FIELD)); /*inistring dstr_206__CLASS_NREP_UNSAF*/ /*_.VALSTR___V336*/ curfptr[335] = (void*)&cdat->dstr_206__CLASS_NREP_UNSAF; cdat->dstr_206__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_206__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_GET_FIELD"); /*inimult dtup_207__CLASS_NREP_UNSAFE_GET_FIELD*/ /*_.VALTUP___V337*/ curfptr[336] = (void*)&cdat->dtup_207__CLASS_NREP_UNSAFE_GET_FIELD; cdat->dtup_207__CLASS_NREP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_207__CLASS_NREP_UNSAFE_GET_FIELD.nbval = 3; /*inimult dtup_208__CLASS_NREP_UNSAFE_GET_FIELD*/ /*_.VALTUP___V342*/ curfptr[341] = (void*)&cdat->dtup_208__CLASS_NREP_UNSAFE_GET_FIELD; cdat->dtup_208__CLASS_NREP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_208__CLASS_NREP_UNSAFE_GET_FIELD.nbval = 3; /*iniobj dsym_209__NUGET_OBJ*/ if (!/*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*)&cdat->dsym_209__NUGET_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_209__NUGET_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_209__NUGET_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_209__NUGET_OBJ.obj_hash = 587709903; cdat->dsym_209__NUGET_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_209__NUGET_OBJ)); /*inistring dstr_210__NUGET_OBJ*/ /*_.VALSTR___V344*/ curfptr[343] = (void*)&cdat->dstr_210__NUGET_OBJ; cdat->dstr_210__NUGET_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_210__NUGET_OBJ.val, "NUGET_OBJ"); BASILYS_LOCATION("warmelt-normal.bysl:147: @iniobj"); /*iniobj dobj_211__NUGET_OBJ*/ if (!/*_.VALDATA___V338*/ curfptr[337]) /*_.VALDATA___V338*/ curfptr[337] = (void*)&cdat->dobj_211__NUGET_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_211__NUGET_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_211__NUGET_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_211__NUGET_OBJ.obj_num = 1; cdat->dobj_211__NUGET_OBJ.obj_hash = 212770902; cdat->dobj_211__NUGET_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_211__NUGET_OBJ)); /*inistring dstr_212__NUGET_OBJ*/ /*_.VALSTR___V339*/ curfptr[338] = (void*)&cdat->dstr_212__NUGET_OBJ; cdat->dstr_212__NUGET_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_212__NUGET_OBJ.val, "NUGET_OBJ"); /*iniobj dsym_213__NUGET_FIELD*/ if (!/*_.VALDATA___V345*/ curfptr[344]) /*_.VALDATA___V345*/ curfptr[344] = (void*)&cdat->dsym_213__NUGET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_213__NUGET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_213__NUGET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_213__NUGET_FIELD.obj_hash = 498678117; cdat->dsym_213__NUGET_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_213__NUGET_FIELD)); /*inistring dstr_214__NUGET_FIELD*/ /*_.VALSTR___V346*/ curfptr[345] = (void*)&cdat->dstr_214__NUGET_FIELD; cdat->dstr_214__NUGET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_214__NUGET_FIELD.val, "NUGET_FIELD"); BASILYS_LOCATION("warmelt-normal.bysl:147: @iniobj"); /*iniobj dobj_215__NUGET_FIELD*/ if (!/*_.VALDATA___V340*/ curfptr[339]) /*_.VALDATA___V340*/ curfptr[339] = (void*)&cdat->dobj_215__NUGET_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_215__NUGET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_215__NUGET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_215__NUGET_FIELD.obj_num = 2; cdat->dobj_215__NUGET_FIELD.obj_hash = 314415050; cdat->dobj_215__NUGET_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_215__NUGET_FIELD)); /*inistring dstr_216__NUGET_FIELD*/ /*_.VALSTR___V341*/ curfptr[340] = (void*)&cdat->dstr_216__NUGET_FIELD; cdat->dstr_216__NUGET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_216__NUGET_FIELD.val, "NUGET_FIELD"); /*iniobj dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS*/ if (!/*_.VALDATA___V347*/ curfptr[346]) /*_.VALDATA___V347*/ curfptr[346] = (void*)&cdat->dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 7092667; cdat->dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_217__CLASS_NREP_UNSAFE_PUT_FIELDS)); /*inistring dstr_218__CLASS_NREP_UNSAF*/ /*_.VALSTR___V348*/ curfptr[347] = (void*)&cdat->dstr_218__CLASS_NREP_UNSAF; cdat->dstr_218__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_218__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_PUT_FIELDS"); BASILYS_LOCATION("warmelt-normal.bysl:154: @iniobj"); /*iniobj dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS*/ if (!/*_.VALDATA___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (void*)&cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_num = OBMAG_OBJECT; cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_hash = 586392278; cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_219__CLASS_NREP_UNSAFE_PUT_FIELDS)); /*inistring dstr_220__CLASS_NREP_UNSAF*/ /*_.VALSTR___V350*/ curfptr[349] = (void*)&cdat->dstr_220__CLASS_NREP_UNSAF; cdat->dstr_220__CLASS_NREP_UNSAF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_220__CLASS_NREP_UNSAF.val, "CLASS_NREP_UNSAFE_PUT_FIELDS"); /*inimult dtup_221__CLASS_NREP_UNSAFE_PUT_FIELDS*/ /*_.VALTUP___V351*/ curfptr[350] = (void*)&cdat->dtup_221__CLASS_NREP_UNSAFE_PUT_FIELDS; cdat->dtup_221__CLASS_NREP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_221__CLASS_NREP_UNSAFE_PUT_FIELDS.nbval = 3; /*inimult dtup_222__CLASS_NREP_UNSAFE_PUT_FIELDS*/ /*_.VALTUP___V356*/ curfptr[355] = (void*)&cdat->dtup_222__CLASS_NREP_UNSAFE_PUT_FIELDS; cdat->dtup_222__CLASS_NREP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_222__CLASS_NREP_UNSAFE_PUT_FIELDS.nbval = 3; /*iniobj dsym_223__NUPUT_OBJ*/ if (!/*_.VALDATA___V357*/ curfptr[356]) /*_.VALDATA___V357*/ curfptr[356] = (void*)&cdat->dsym_223__NUPUT_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_223__NUPUT_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_223__NUPUT_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_223__NUPUT_OBJ.obj_hash = 418867224; cdat->dsym_223__NUPUT_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_223__NUPUT_OBJ)); /*inistring dstr_224__NUPUT_OBJ*/ /*_.VALSTR___V358*/ curfptr[357] = (void*)&cdat->dstr_224__NUPUT_OBJ; cdat->dstr_224__NUPUT_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_224__NUPUT_OBJ.val, "NUPUT_OBJ"); BASILYS_LOCATION("warmelt-normal.bysl:154: @iniobj"); /*iniobj dobj_225__NUPUT_OBJ*/ if (!/*_.VALDATA___V352*/ curfptr[351]) /*_.VALDATA___V352*/ curfptr[351] = (void*)&cdat->dobj_225__NUPUT_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_225__NUPUT_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_225__NUPUT_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_225__NUPUT_OBJ.obj_num = 1; cdat->dobj_225__NUPUT_OBJ.obj_hash = 709312514; cdat->dobj_225__NUPUT_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_225__NUPUT_OBJ)); /*inistring dstr_226__NUPUT_OBJ*/ /*_.VALSTR___V353*/ curfptr[352] = (void*)&cdat->dstr_226__NUPUT_OBJ; cdat->dstr_226__NUPUT_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_226__NUPUT_OBJ.val, "NUPUT_OBJ"); /*iniobj dsym_227__NUPUT_FIELDS*/ if (!/*_.VALDATA___V359*/ curfptr[358]) /*_.VALDATA___V359*/ curfptr[358] = (void*)&cdat->dsym_227__NUPUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_227__NUPUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__NUPUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__NUPUT_FIELDS.obj_hash = 645552429; cdat->dsym_227__NUPUT_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_227__NUPUT_FIELDS)); /*inistring dstr_228__NUPUT_FIELDS*/ /*_.VALSTR___V360*/ curfptr[359] = (void*)&cdat->dstr_228__NUPUT_FIELDS; cdat->dstr_228__NUPUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_228__NUPUT_FIELDS.val, "NUPUT_FIELDS"); BASILYS_LOCATION("warmelt-normal.bysl:154: @iniobj"); /*iniobj dobj_229__NUPUT_FIELDS*/ if (!/*_.VALDATA___V354*/ curfptr[353]) /*_.VALDATA___V354*/ curfptr[353] = (void*)&cdat->dobj_229__NUPUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_229__NUPUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_229__NUPUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_229__NUPUT_FIELDS.obj_num = 2; cdat->dobj_229__NUPUT_FIELDS.obj_hash = 763794530; cdat->dobj_229__NUPUT_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_229__NUPUT_FIELDS)); /*inistring dstr_230__NUPUT_FIELDS*/ /*_.VALSTR___V355*/ curfptr[354] = (void*)&cdat->dstr_230__NUPUT_FIELDS; cdat->dstr_230__NUPUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_230__NUPUT_FIELDS.val, "NUPUT_FIELDS"); /*iniobj dsym_231__CLASS_NREP_SETQ*/ if (!/*_.VALDATA___V361*/ curfptr[360]) /*_.VALDATA___V361*/ curfptr[360] = (void*)&cdat->dsym_231__CLASS_NREP_SETQ; basilys_assertmsg("iniobj checkdiscr dsym_231__CLASS_NREP_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_231__CLASS_NREP_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_231__CLASS_NREP_SETQ.obj_hash = 314084823; cdat->dsym_231__CLASS_NREP_SETQ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_231__CLASS_NREP_SETQ)); /*inistring dstr_232__CLASS_NREP_SETQ*/ /*_.VALSTR___V362*/ curfptr[361] = (void*)&cdat->dstr_232__CLASS_NREP_SETQ; cdat->dstr_232__CLASS_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_232__CLASS_NREP_SETQ.val, "CLASS_NREP_SETQ"); BASILYS_LOCATION("warmelt-normal.bysl:160: @iniobj"); /*iniobj dobj_233__CLASS_NREP_SETQ*/ if (!/*_.VALDATA___V363*/ curfptr[362]) /*_.VALDATA___V363*/ curfptr[362] = (void*)&cdat->dobj_233__CLASS_NREP_SETQ; basilys_assertmsg("iniobj checkdiscr dobj_233__CLASS_NREP_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_233__CLASS_NREP_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_233__CLASS_NREP_SETQ.obj_num = OBMAG_OBJECT; cdat->dobj_233__CLASS_NREP_SETQ.obj_hash = 306137420; cdat->dobj_233__CLASS_NREP_SETQ.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_233__CLASS_NREP_SETQ)); /*inistring dstr_234__CLASS_NREP_SETQ*/ /*_.VALSTR___V364*/ curfptr[363] = (void*)&cdat->dstr_234__CLASS_NREP_SETQ; cdat->dstr_234__CLASS_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_234__CLASS_NREP_SETQ.val, "CLASS_NREP_SETQ"); /*inimult dtup_235__CLASS_NREP_SETQ*/ /*_.VALTUP___V365*/ curfptr[364] = (void*)&cdat->dtup_235__CLASS_NREP_SETQ; cdat->dtup_235__CLASS_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_235__CLASS_NREP_SETQ.nbval = 3; /*inimult dtup_236__CLASS_NREP_SETQ*/ /*_.VALTUP___V370*/ curfptr[369] = (void*)&cdat->dtup_236__CLASS_NREP_SETQ; cdat->dtup_236__CLASS_NREP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_236__CLASS_NREP_SETQ.nbval = 3; /*iniobj dsym_237__NSTQ_VAR*/ if (!/*_.VALDATA___V371*/ curfptr[370]) /*_.VALDATA___V371*/ curfptr[370] = (void*)&cdat->dsym_237__NSTQ_VAR; basilys_assertmsg("iniobj checkdiscr dsym_237__NSTQ_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_237__NSTQ_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_237__NSTQ_VAR.obj_hash = 768128544; cdat->dsym_237__NSTQ_VAR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_237__NSTQ_VAR)); /*inistring dstr_238__NSTQ_VAR*/ /*_.VALSTR___V372*/ curfptr[371] = (void*)&cdat->dstr_238__NSTQ_VAR; cdat->dstr_238__NSTQ_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_238__NSTQ_VAR.val, "NSTQ_VAR"); BASILYS_LOCATION("warmelt-normal.bysl:160: @iniobj"); /*iniobj dobj_239__NSTQ_VAR*/ if (!/*_.VALDATA___V366*/ curfptr[365]) /*_.VALDATA___V366*/ curfptr[365] = (void*)&cdat->dobj_239__NSTQ_VAR; basilys_assertmsg("iniobj checkdiscr dobj_239__NSTQ_VAR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_239__NSTQ_VAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_239__NSTQ_VAR.obj_num = 1; cdat->dobj_239__NSTQ_VAR.obj_hash = 402414310; cdat->dobj_239__NSTQ_VAR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_239__NSTQ_VAR)); /*inistring dstr_240__NSTQ_VAR*/ /*_.VALSTR___V367*/ curfptr[366] = (void*)&cdat->dstr_240__NSTQ_VAR; cdat->dstr_240__NSTQ_VAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_240__NSTQ_VAR.val, "NSTQ_VAR"); /*iniobj dsym_241__NSTQ_EXP*/ if (!/*_.VALDATA___V373*/ curfptr[372]) /*_.VALDATA___V373*/ curfptr[372] = (void*)&cdat->dsym_241__NSTQ_EXP; basilys_assertmsg("iniobj checkdiscr dsym_241__NSTQ_EXP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__NSTQ_EXP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__NSTQ_EXP.obj_hash = 945762796; cdat->dsym_241__NSTQ_EXP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_241__NSTQ_EXP)); /*inistring dstr_242__NSTQ_EXP*/ /*_.VALSTR___V374*/ curfptr[373] = (void*)&cdat->dstr_242__NSTQ_EXP; cdat->dstr_242__NSTQ_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_242__NSTQ_EXP.val, "NSTQ_EXP"); BASILYS_LOCATION("warmelt-normal.bysl:160: @iniobj"); /*iniobj dobj_243__NSTQ_EXP*/ if (!/*_.VALDATA___V368*/ curfptr[367]) /*_.VALDATA___V368*/ curfptr[367] = (void*)&cdat->dobj_243__NSTQ_EXP; basilys_assertmsg("iniobj checkdiscr dobj_243__NSTQ_EXP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_243__NSTQ_EXP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_243__NSTQ_EXP.obj_num = 2; cdat->dobj_243__NSTQ_EXP.obj_hash = 732328404; cdat->dobj_243__NSTQ_EXP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_243__NSTQ_EXP)); /*inistring dstr_244__NSTQ_EXP*/ /*_.VALSTR___V369*/ curfptr[368] = (void*)&cdat->dstr_244__NSTQ_EXP; cdat->dstr_244__NSTQ_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_244__NSTQ_EXP.val, "NSTQ_EXP"); /*iniobj dsym_245__CLASS_NREP_FOREVER*/ if (!/*_.VALDATA___V375*/ curfptr[374]) /*_.VALDATA___V375*/ curfptr[374] = (void*)&cdat->dsym_245__CLASS_NREP_FOREVER; basilys_assertmsg("iniobj checkdiscr dsym_245__CLASS_NREP_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__CLASS_NREP_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_245__CLASS_NREP_FOREVER.obj_hash = 590813330; cdat->dsym_245__CLASS_NREP_FOREVER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_245__CLASS_NREP_FOREVER)); /*inistring dstr_246__CLASS_NREP_FOREV*/ /*_.VALSTR___V376*/ curfptr[375] = (void*)&cdat->dstr_246__CLASS_NREP_FOREV; cdat->dstr_246__CLASS_NREP_FOREV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_246__CLASS_NREP_FOREV.val, "CLASS_NREP_FOREVER"); BASILYS_LOCATION("warmelt-normal.bysl:167: @iniobj"); /*iniobj dobj_247__CLASS_NREP_FOREVER*/ if (!/*_.VALDATA___V377*/ curfptr[376]) /*_.VALDATA___V377*/ curfptr[376] = (void*)&cdat->dobj_247__CLASS_NREP_FOREVER; basilys_assertmsg("iniobj checkdiscr dobj_247__CLASS_NREP_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_247__CLASS_NREP_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_247__CLASS_NREP_FOREVER.obj_num = OBMAG_OBJECT; cdat->dobj_247__CLASS_NREP_FOREVER.obj_hash = 482567555; cdat->dobj_247__CLASS_NREP_FOREVER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_247__CLASS_NREP_FOREVER)); /*inistring dstr_248__CLASS_NREP_FOREV*/ /*_.VALSTR___V378*/ curfptr[377] = (void*)&cdat->dstr_248__CLASS_NREP_FOREV; cdat->dstr_248__CLASS_NREP_FOREV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_248__CLASS_NREP_FOREV.val, "CLASS_NREP_FOREVER"); /*inimult dtup_249__CLASS_NREP_FOREVER*/ /*_.VALTUP___V379*/ curfptr[378] = (void*)&cdat->dtup_249__CLASS_NREP_FOREVER; cdat->dtup_249__CLASS_NREP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_249__CLASS_NREP_FOREVER.nbval = 3; /*inimult dtup_250__CLASS_NREP_FOREVER*/ /*_.VALTUP___V386*/ curfptr[385] = (void*)&cdat->dtup_250__CLASS_NREP_FOREVER; cdat->dtup_250__CLASS_NREP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_250__CLASS_NREP_FOREVER.nbval = 4; /*iniobj dsym_251__NFOREVER_BIND*/ if (!/*_.VALDATA___V387*/ curfptr[386]) /*_.VALDATA___V387*/ curfptr[386] = (void*)&cdat->dsym_251__NFOREVER_BIND; basilys_assertmsg("iniobj checkdiscr dsym_251__NFOREVER_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_251__NFOREVER_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_251__NFOREVER_BIND.obj_hash = 279567937; cdat->dsym_251__NFOREVER_BIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_251__NFOREVER_BIND)); /*inistring dstr_252__NFOREVER_BIND*/ /*_.VALSTR___V388*/ curfptr[387] = (void*)&cdat->dstr_252__NFOREVER_BIND; cdat->dstr_252__NFOREVER_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_252__NFOREVER_BIND.val, "NFOREVER_BIND"); BASILYS_LOCATION("warmelt-normal.bysl:167: @iniobj"); /*iniobj dobj_253__NFOREVER_BIND*/ if (!/*_.VALDATA___V380*/ curfptr[379]) /*_.VALDATA___V380*/ curfptr[379] = (void*)&cdat->dobj_253__NFOREVER_BIND; basilys_assertmsg("iniobj checkdiscr dobj_253__NFOREVER_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_253__NFOREVER_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_253__NFOREVER_BIND.obj_num = 1; cdat->dobj_253__NFOREVER_BIND.obj_hash = 457506028; cdat->dobj_253__NFOREVER_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_253__NFOREVER_BIND)); /*inistring dstr_254__NFOREVER_BIND*/ /*_.VALSTR___V381*/ curfptr[380] = (void*)&cdat->dstr_254__NFOREVER_BIND; cdat->dstr_254__NFOREVER_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_254__NFOREVER_BIND.val, "NFOREVER_BIND"); /*iniobj dsym_255__NFOREVER_BODY*/ if (!/*_.VALDATA___V389*/ curfptr[388]) /*_.VALDATA___V389*/ curfptr[388] = (void*)&cdat->dsym_255__NFOREVER_BODY; basilys_assertmsg("iniobj checkdiscr dsym_255__NFOREVER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__NFOREVER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_255__NFOREVER_BODY.obj_hash = 1033225738; cdat->dsym_255__NFOREVER_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_255__NFOREVER_BODY)); /*inistring dstr_256__NFOREVER_BODY*/ /*_.VALSTR___V390*/ curfptr[389] = (void*)&cdat->dstr_256__NFOREVER_BODY; cdat->dstr_256__NFOREVER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_256__NFOREVER_BODY.val, "NFOREVER_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:167: @iniobj"); /*iniobj dobj_257__NFOREVER_BODY*/ if (!/*_.VALDATA___V382*/ curfptr[381]) /*_.VALDATA___V382*/ curfptr[381] = (void*)&cdat->dobj_257__NFOREVER_BODY; basilys_assertmsg("iniobj checkdiscr dobj_257__NFOREVER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__NFOREVER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_257__NFOREVER_BODY.obj_num = 2; cdat->dobj_257__NFOREVER_BODY.obj_hash = 464328553; cdat->dobj_257__NFOREVER_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_257__NFOREVER_BODY)); /*inistring dstr_258__NFOREVER_BODY*/ /*_.VALSTR___V383*/ curfptr[382] = (void*)&cdat->dstr_258__NFOREVER_BODY; cdat->dstr_258__NFOREVER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_258__NFOREVER_BODY.val, "NFOREVER_BODY"); /*iniobj dsym_259__NFOREVER_RESULT*/ if (!/*_.VALDATA___V391*/ curfptr[390]) /*_.VALDATA___V391*/ curfptr[390] = (void*)&cdat->dsym_259__NFOREVER_RESULT; basilys_assertmsg("iniobj checkdiscr dsym_259__NFOREVER_RESULT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__NFOREVER_RESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__NFOREVER_RESULT.obj_hash = 473948656; cdat->dsym_259__NFOREVER_RESULT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_259__NFOREVER_RESULT)); /*inistring dstr_260__NFOREVER_RESULT*/ /*_.VALSTR___V392*/ curfptr[391] = (void*)&cdat->dstr_260__NFOREVER_RESULT; cdat->dstr_260__NFOREVER_RESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_260__NFOREVER_RESULT.val, "NFOREVER_RESULT"); BASILYS_LOCATION("warmelt-normal.bysl:167: @iniobj"); /*iniobj dobj_261__NFOREVER_RESULT*/ if (!/*_.VALDATA___V384*/ curfptr[383]) /*_.VALDATA___V384*/ curfptr[383] = (void*)&cdat->dobj_261__NFOREVER_RESULT; basilys_assertmsg("iniobj checkdiscr dobj_261__NFOREVER_RESULT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__NFOREVER_RESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_261__NFOREVER_RESULT.obj_num = 3; cdat->dobj_261__NFOREVER_RESULT.obj_hash = 420288575; cdat->dobj_261__NFOREVER_RESULT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_261__NFOREVER_RESULT)); /*inistring dstr_262__NFOREVER_RESULT*/ /*_.VALSTR___V385*/ curfptr[384] = (void*)&cdat->dstr_262__NFOREVER_RESULT; cdat->dstr_262__NFOREVER_RESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_262__NFOREVER_RESULT.val, "NFOREVER_RESULT"); /*iniobj dsym_263__CLASS_NREP_EXIT*/ if (!/*_.VALDATA___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*)&cdat->dsym_263__CLASS_NREP_EXIT; basilys_assertmsg("iniobj checkdiscr dsym_263__CLASS_NREP_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_263__CLASS_NREP_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_263__CLASS_NREP_EXIT.obj_hash = 563709683; cdat->dsym_263__CLASS_NREP_EXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_263__CLASS_NREP_EXIT)); /*inistring dstr_264__CLASS_NREP_EXIT*/ /*_.VALSTR___V394*/ curfptr[393] = (void*)&cdat->dstr_264__CLASS_NREP_EXIT; cdat->dstr_264__CLASS_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_264__CLASS_NREP_EXIT.val, "CLASS_NREP_EXIT"); BASILYS_LOCATION("warmelt-normal.bysl:175: @iniobj"); /*iniobj dobj_265__CLASS_NREP_EXIT*/ if (!/*_.VALDATA___V395*/ curfptr[394]) /*_.VALDATA___V395*/ curfptr[394] = (void*)&cdat->dobj_265__CLASS_NREP_EXIT; basilys_assertmsg("iniobj checkdiscr dobj_265__CLASS_NREP_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_265__CLASS_NREP_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_265__CLASS_NREP_EXIT.obj_num = OBMAG_OBJECT; cdat->dobj_265__CLASS_NREP_EXIT.obj_hash = 374936319; cdat->dobj_265__CLASS_NREP_EXIT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_265__CLASS_NREP_EXIT)); /*inistring dstr_266__CLASS_NREP_EXIT*/ /*_.VALSTR___V396*/ curfptr[395] = (void*)&cdat->dstr_266__CLASS_NREP_EXIT; cdat->dstr_266__CLASS_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_266__CLASS_NREP_EXIT.val, "CLASS_NREP_EXIT"); /*inimult dtup_267__CLASS_NREP_EXIT*/ /*_.VALTUP___V397*/ curfptr[396] = (void*)&cdat->dtup_267__CLASS_NREP_EXIT; cdat->dtup_267__CLASS_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_267__CLASS_NREP_EXIT.nbval = 3; /*inimult dtup_268__CLASS_NREP_EXIT*/ /*_.VALTUP___V402*/ curfptr[401] = (void*)&cdat->dtup_268__CLASS_NREP_EXIT; cdat->dtup_268__CLASS_NREP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_268__CLASS_NREP_EXIT.nbval = 3; /*iniobj dsym_269__NEXIT_BIND*/ if (!/*_.VALDATA___V403*/ curfptr[402]) /*_.VALDATA___V403*/ curfptr[402] = (void*)&cdat->dsym_269__NEXIT_BIND; basilys_assertmsg("iniobj checkdiscr dsym_269__NEXIT_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__NEXIT_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__NEXIT_BIND.obj_hash = 471417909; cdat->dsym_269__NEXIT_BIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_269__NEXIT_BIND)); /*inistring dstr_270__NEXIT_BIND*/ /*_.VALSTR___V404*/ curfptr[403] = (void*)&cdat->dstr_270__NEXIT_BIND; cdat->dstr_270__NEXIT_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_270__NEXIT_BIND.val, "NEXIT_BIND"); BASILYS_LOCATION("warmelt-normal.bysl:175: @iniobj"); /*iniobj dobj_271__NEXIT_BIND*/ if (!/*_.VALDATA___V398*/ curfptr[397]) /*_.VALDATA___V398*/ curfptr[397] = (void*)&cdat->dobj_271__NEXIT_BIND; basilys_assertmsg("iniobj checkdiscr dobj_271__NEXIT_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_271__NEXIT_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_271__NEXIT_BIND.obj_num = 1; cdat->dobj_271__NEXIT_BIND.obj_hash = 527785655; cdat->dobj_271__NEXIT_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_271__NEXIT_BIND)); /*inistring dstr_272__NEXIT_BIND*/ /*_.VALSTR___V399*/ curfptr[398] = (void*)&cdat->dstr_272__NEXIT_BIND; cdat->dstr_272__NEXIT_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_272__NEXIT_BIND.val, "NEXIT_BIND"); /*iniobj dsym_273__NEXIT_VAL*/ if (!/*_.VALDATA___V405*/ curfptr[404]) /*_.VALDATA___V405*/ curfptr[404] = (void*)&cdat->dsym_273__NEXIT_VAL; basilys_assertmsg("iniobj checkdiscr dsym_273__NEXIT_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_273__NEXIT_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_273__NEXIT_VAL.obj_hash = 356046513; cdat->dsym_273__NEXIT_VAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_273__NEXIT_VAL)); /*inistring dstr_274__NEXIT_VAL*/ /*_.VALSTR___V406*/ curfptr[405] = (void*)&cdat->dstr_274__NEXIT_VAL; cdat->dstr_274__NEXIT_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_274__NEXIT_VAL.val, "NEXIT_VAL"); BASILYS_LOCATION("warmelt-normal.bysl:175: @iniobj"); /*iniobj dobj_275__NEXIT_VAL*/ if (!/*_.VALDATA___V400*/ curfptr[399]) /*_.VALDATA___V400*/ curfptr[399] = (void*)&cdat->dobj_275__NEXIT_VAL; basilys_assertmsg("iniobj checkdiscr dobj_275__NEXIT_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_275__NEXIT_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_275__NEXIT_VAL.obj_num = 2; cdat->dobj_275__NEXIT_VAL.obj_hash = 840953272; cdat->dobj_275__NEXIT_VAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_275__NEXIT_VAL)); /*inistring dstr_276__NEXIT_VAL*/ /*_.VALSTR___V401*/ curfptr[400] = (void*)&cdat->dstr_276__NEXIT_VAL; cdat->dstr_276__NEXIT_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_276__NEXIT_VAL.val, "NEXIT_VAL"); /*iniobj dsym_277__CLASS_NREP_FIELDASSIGN*/ if (!/*_.VALDATA___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*)&cdat->dsym_277__CLASS_NREP_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dsym_277__CLASS_NREP_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_277__CLASS_NREP_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_277__CLASS_NREP_FIELDASSIGN.obj_hash = 500200612; cdat->dsym_277__CLASS_NREP_FIELDASSIGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_277__CLASS_NREP_FIELDASSIGN)); /*inistring dstr_278__CLASS_NREP_FIELD*/ /*_.VALSTR___V408*/ curfptr[407] = (void*)&cdat->dstr_278__CLASS_NREP_FIELD; cdat->dstr_278__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_278__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDASSIGN"); BASILYS_LOCATION("warmelt-normal.bysl:182: @iniobj"); /*iniobj dobj_279__CLASS_NREP_FIELDASSIGN*/ if (!/*_.VALDATA___V409*/ curfptr[408]) /*_.VALDATA___V409*/ curfptr[408] = (void*)&cdat->dobj_279__CLASS_NREP_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dobj_279__CLASS_NREP_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_279__CLASS_NREP_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_279__CLASS_NREP_FIELDASSIGN.obj_num = OBMAG_OBJECT; cdat->dobj_279__CLASS_NREP_FIELDASSIGN.obj_hash = 491720531; cdat->dobj_279__CLASS_NREP_FIELDASSIGN.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_279__CLASS_NREP_FIELDASSIGN)); /*inistring dstr_280__CLASS_NREP_FIELD*/ /*_.VALSTR___V410*/ curfptr[409] = (void*)&cdat->dstr_280__CLASS_NREP_FIELD; cdat->dstr_280__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_280__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDASSIGN"); /*inimult dtup_281__CLASS_NREP_FIELDASSIGN*/ /*_.VALTUP___V411*/ curfptr[410] = (void*)&cdat->dtup_281__CLASS_NREP_FIELDASSIGN; cdat->dtup_281__CLASS_NREP_FIELDASSIGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_281__CLASS_NREP_FIELDASSIGN.nbval = 2; /*inimult dtup_282__CLASS_NREP_FIELDASSIGN*/ /*_.VALTUP___V416*/ curfptr[415] = (void*)&cdat->dtup_282__CLASS_NREP_FIELDASSIGN; cdat->dtup_282__CLASS_NREP_FIELDASSIGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_282__CLASS_NREP_FIELDASSIGN.nbval = 3; /*iniobj dsym_283__NFLA_FIELD*/ if (!/*_.VALDATA___V417*/ curfptr[416]) /*_.VALDATA___V417*/ curfptr[416] = (void*)&cdat->dsym_283__NFLA_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_283__NFLA_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_283__NFLA_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_283__NFLA_FIELD.obj_hash = 30439580; cdat->dsym_283__NFLA_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_283__NFLA_FIELD)); /*inistring dstr_284__NFLA_FIELD*/ /*_.VALSTR___V418*/ curfptr[417] = (void*)&cdat->dstr_284__NFLA_FIELD; cdat->dstr_284__NFLA_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_284__NFLA_FIELD.val, "NFLA_FIELD"); BASILYS_LOCATION("warmelt-normal.bysl:182: @iniobj"); /*iniobj dobj_285__NFLA_FIELD*/ if (!/*_.VALDATA___V412*/ curfptr[411]) /*_.VALDATA___V412*/ curfptr[411] = (void*)&cdat->dobj_285__NFLA_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_285__NFLA_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_285__NFLA_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_285__NFLA_FIELD.obj_num = 1; cdat->dobj_285__NFLA_FIELD.obj_hash = 1066286387; cdat->dobj_285__NFLA_FIELD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_285__NFLA_FIELD)); /*inistring dstr_286__NFLA_FIELD*/ /*_.VALSTR___V413*/ curfptr[412] = (void*)&cdat->dstr_286__NFLA_FIELD; cdat->dstr_286__NFLA_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_286__NFLA_FIELD.val, "NFLA_FIELD"); /*iniobj dsym_287__NFLA_VAL*/ if (!/*_.VALDATA___V419*/ curfptr[418]) /*_.VALDATA___V419*/ curfptr[418] = (void*)&cdat->dsym_287__NFLA_VAL; basilys_assertmsg("iniobj checkdiscr dsym_287__NFLA_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_287__NFLA_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_287__NFLA_VAL.obj_hash = 828883014; cdat->dsym_287__NFLA_VAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_287__NFLA_VAL)); /*inistring dstr_288__NFLA_VAL*/ /*_.VALSTR___V420*/ curfptr[419] = (void*)&cdat->dstr_288__NFLA_VAL; cdat->dstr_288__NFLA_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_288__NFLA_VAL.val, "NFLA_VAL"); BASILYS_LOCATION("warmelt-normal.bysl:182: @iniobj"); /*iniobj dobj_289__NFLA_VAL*/ if (!/*_.VALDATA___V414*/ curfptr[413]) /*_.VALDATA___V414*/ curfptr[413] = (void*)&cdat->dobj_289__NFLA_VAL; basilys_assertmsg("iniobj checkdiscr dobj_289__NFLA_VAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_289__NFLA_VAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_289__NFLA_VAL.obj_num = 2; cdat->dobj_289__NFLA_VAL.obj_hash = 933234988; cdat->dobj_289__NFLA_VAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_289__NFLA_VAL)); /*inistring dstr_290__NFLA_VAL*/ /*_.VALSTR___V415*/ curfptr[414] = (void*)&cdat->dstr_290__NFLA_VAL; cdat->dstr_290__NFLA_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_290__NFLA_VAL.val, "NFLA_VAL"); /*iniobj dsym_291__CLASS_NREP_MAKE_INSTANCE*/ if (!/*_.VALDATA___V421*/ curfptr[420]) /*_.VALDATA___V421*/ curfptr[420] = (void*)&cdat->dsym_291__CLASS_NREP_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_291__CLASS_NREP_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_291__CLASS_NREP_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_291__CLASS_NREP_MAKE_INSTANCE.obj_hash = 480653236; cdat->dsym_291__CLASS_NREP_MAKE_INSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_291__CLASS_NREP_MAKE_INSTANCE)); /*inistring dstr_292__CLASS_NREP_MAKE_*/ /*_.VALSTR___V422*/ curfptr[421] = (void*)&cdat->dstr_292__CLASS_NREP_MAKE_; cdat->dstr_292__CLASS_NREP_MAKE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_292__CLASS_NREP_MAKE_.val, "CLASS_NREP_MAKE_INSTANCE"); BASILYS_LOCATION("warmelt-normal.bysl:189: @iniobj"); /*iniobj dobj_293__CLASS_NREP_MAKE_INSTANCE*/ if (!/*_.VALDATA___V423*/ curfptr[422]) /*_.VALDATA___V423*/ curfptr[422] = (void*)&cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dobj_293__CLASS_NREP_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE.obj_num = OBMAG_OBJECT; cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE.obj_hash = 473047721; cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_293__CLASS_NREP_MAKE_INSTANCE)); /*inistring dstr_294__CLASS_NREP_MAKE_*/ /*_.VALSTR___V424*/ curfptr[423] = (void*)&cdat->dstr_294__CLASS_NREP_MAKE_; cdat->dstr_294__CLASS_NREP_MAKE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_294__CLASS_NREP_MAKE_.val, "CLASS_NREP_MAKE_INSTANCE"); /*inimult dtup_295__CLASS_NREP_MAKE_INSTANCE*/ /*_.VALTUP___V425*/ curfptr[424] = (void*)&cdat->dtup_295__CLASS_NREP_MAKE_INSTANCE; cdat->dtup_295__CLASS_NREP_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_295__CLASS_NREP_MAKE_INSTANCE.nbval = 3; /*inimult dtup_296__CLASS_NREP_MAKE_INSTANCE*/ /*_.VALTUP___V432*/ curfptr[431] = (void*)&cdat->dtup_296__CLASS_NREP_MAKE_INSTANCE; cdat->dtup_296__CLASS_NREP_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_296__CLASS_NREP_MAKE_INSTANCE.nbval = 4; /*iniobj dsym_297__NMINS_CLASS*/ if (!/*_.VALDATA___V433*/ curfptr[432]) /*_.VALDATA___V433*/ curfptr[432] = (void*)&cdat->dsym_297__NMINS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_297__NMINS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_297__NMINS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_297__NMINS_CLASS.obj_hash = 449094436; cdat->dsym_297__NMINS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_297__NMINS_CLASS)); /*inistring dstr_298__NMINS_CLASS*/ /*_.VALSTR___V434*/ curfptr[433] = (void*)&cdat->dstr_298__NMINS_CLASS; cdat->dstr_298__NMINS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_298__NMINS_CLASS.val, "NMINS_CLASS"); BASILYS_LOCATION("warmelt-normal.bysl:189: @iniobj"); /*iniobj dobj_299__NMINS_CLASS*/ if (!/*_.VALDATA___V426*/ curfptr[425]) /*_.VALDATA___V426*/ curfptr[425] = (void*)&cdat->dobj_299__NMINS_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_299__NMINS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_299__NMINS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_299__NMINS_CLASS.obj_num = 1; cdat->dobj_299__NMINS_CLASS.obj_hash = 785653288; cdat->dobj_299__NMINS_CLASS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_299__NMINS_CLASS)); /*inistring dstr_300__NMINS_CLASS*/ /*_.VALSTR___V427*/ curfptr[426] = (void*)&cdat->dstr_300__NMINS_CLASS; cdat->dstr_300__NMINS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_300__NMINS_CLASS.val, "NMINS_CLASS"); /*iniobj dsym_301__NMINS_CLADATA*/ if (!/*_.VALDATA___V435*/ curfptr[434]) /*_.VALDATA___V435*/ curfptr[434] = (void*)&cdat->dsym_301__NMINS_CLADATA; basilys_assertmsg("iniobj checkdiscr dsym_301__NMINS_CLADATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__NMINS_CLADATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__NMINS_CLADATA.obj_hash = 778155382; cdat->dsym_301__NMINS_CLADATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_301__NMINS_CLADATA)); /*inistring dstr_302__NMINS_CLADATA*/ /*_.VALSTR___V436*/ curfptr[435] = (void*)&cdat->dstr_302__NMINS_CLADATA; cdat->dstr_302__NMINS_CLADATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_302__NMINS_CLADATA.val, "NMINS_CLADATA"); BASILYS_LOCATION("warmelt-normal.bysl:189: @iniobj"); /*iniobj dobj_303__NMINS_CLADATA*/ if (!/*_.VALDATA___V428*/ curfptr[427]) /*_.VALDATA___V428*/ curfptr[427] = (void*)&cdat->dobj_303__NMINS_CLADATA; basilys_assertmsg("iniobj checkdiscr dobj_303__NMINS_CLADATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_303__NMINS_CLADATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_303__NMINS_CLADATA.obj_num = 2; cdat->dobj_303__NMINS_CLADATA.obj_hash = 352950275; cdat->dobj_303__NMINS_CLADATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_303__NMINS_CLADATA)); /*inistring dstr_304__NMINS_CLADATA*/ /*_.VALSTR___V429*/ curfptr[428] = (void*)&cdat->dstr_304__NMINS_CLADATA; cdat->dstr_304__NMINS_CLADATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_304__NMINS_CLADATA.val, "NMINS_CLADATA"); /*iniobj dsym_305__NMINS_FIELDS*/ if (!/*_.VALDATA___V437*/ curfptr[436]) /*_.VALDATA___V437*/ curfptr[436] = (void*)&cdat->dsym_305__NMINS_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_305__NMINS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_305__NMINS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_305__NMINS_FIELDS.obj_hash = 543377753; cdat->dsym_305__NMINS_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_305__NMINS_FIELDS)); /*inistring dstr_306__NMINS_FIELDS*/ /*_.VALSTR___V438*/ curfptr[437] = (void*)&cdat->dstr_306__NMINS_FIELDS; cdat->dstr_306__NMINS_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_306__NMINS_FIELDS.val, "NMINS_FIELDS"); BASILYS_LOCATION("warmelt-normal.bysl:189: @iniobj"); /*iniobj dobj_307__NMINS_FIELDS*/ if (!/*_.VALDATA___V430*/ curfptr[429]) /*_.VALDATA___V430*/ curfptr[429] = (void*)&cdat->dobj_307__NMINS_FIELDS; basilys_assertmsg("iniobj checkdiscr dobj_307__NMINS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_307__NMINS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_307__NMINS_FIELDS.obj_num = 3; cdat->dobj_307__NMINS_FIELDS.obj_hash = 462415153; cdat->dobj_307__NMINS_FIELDS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_307__NMINS_FIELDS)); /*inistring dstr_308__NMINS_FIELDS*/ /*_.VALSTR___V431*/ curfptr[430] = (void*)&cdat->dstr_308__NMINS_FIELDS; cdat->dstr_308__NMINS_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_308__NMINS_FIELDS.val, "NMINS_FIELDS"); /*iniobj dsym_309__CLASS_NREP_LAMBDA*/ if (!/*_.VALDATA___V439*/ curfptr[438]) /*_.VALDATA___V439*/ curfptr[438] = (void*)&cdat->dsym_309__CLASS_NREP_LAMBDA; basilys_assertmsg("iniobj checkdiscr dsym_309__CLASS_NREP_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_309__CLASS_NREP_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_309__CLASS_NREP_LAMBDA.obj_hash = 16774872; cdat->dsym_309__CLASS_NREP_LAMBDA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_309__CLASS_NREP_LAMBDA)); /*inistring dstr_310__CLASS_NREP_LAMBD*/ /*_.VALSTR___V440*/ curfptr[439] = (void*)&cdat->dstr_310__CLASS_NREP_LAMBD; cdat->dstr_310__CLASS_NREP_LAMBD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_310__CLASS_NREP_LAMBD.val, "CLASS_NREP_LAMBDA"); BASILYS_LOCATION("warmelt-normal.bysl:197: @iniobj"); /*iniobj dobj_311__CLASS_NREP_LAMBDA*/ if (!/*_.VALDATA___V441*/ curfptr[440]) /*_.VALDATA___V441*/ curfptr[440] = (void*)&cdat->dobj_311__CLASS_NREP_LAMBDA; basilys_assertmsg("iniobj checkdiscr dobj_311__CLASS_NREP_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_311__CLASS_NREP_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_311__CLASS_NREP_LAMBDA.obj_num = OBMAG_OBJECT; cdat->dobj_311__CLASS_NREP_LAMBDA.obj_hash = 765515495; cdat->dobj_311__CLASS_NREP_LAMBDA.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_311__CLASS_NREP_LAMBDA)); /*inistring dstr_312__CLASS_NREP_LAMBD*/ /*_.VALSTR___V442*/ curfptr[441] = (void*)&cdat->dstr_312__CLASS_NREP_LAMBD; cdat->dstr_312__CLASS_NREP_LAMBD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_312__CLASS_NREP_LAMBD.val, "CLASS_NREP_LAMBDA"); /*inimult dtup_313__CLASS_NREP_LAMBDA*/ /*_.VALTUP___V443*/ curfptr[442] = (void*)&cdat->dtup_313__CLASS_NREP_LAMBDA; cdat->dtup_313__CLASS_NREP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_313__CLASS_NREP_LAMBDA.nbval = 3; /*inimult dtup_314__CLASS_NREP_LAMBDA*/ /*_.VALTUP___V450*/ curfptr[449] = (void*)&cdat->dtup_314__CLASS_NREP_LAMBDA; cdat->dtup_314__CLASS_NREP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_314__CLASS_NREP_LAMBDA.nbval = 4; /*iniobj dsym_315__NLAMBDA_PROC*/ if (!/*_.VALDATA___V451*/ curfptr[450]) /*_.VALDATA___V451*/ curfptr[450] = (void*)&cdat->dsym_315__NLAMBDA_PROC; basilys_assertmsg("iniobj checkdiscr dsym_315__NLAMBDA_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_315__NLAMBDA_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_315__NLAMBDA_PROC.obj_hash = 217629846; cdat->dsym_315__NLAMBDA_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_315__NLAMBDA_PROC)); /*inistring dstr_316__NLAMBDA_PROC*/ /*_.VALSTR___V452*/ curfptr[451] = (void*)&cdat->dstr_316__NLAMBDA_PROC; cdat->dstr_316__NLAMBDA_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_316__NLAMBDA_PROC.val, "NLAMBDA_PROC"); BASILYS_LOCATION("warmelt-normal.bysl:197: @iniobj"); /*iniobj dobj_317__NLAMBDA_PROC*/ if (!/*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*)&cdat->dobj_317__NLAMBDA_PROC; basilys_assertmsg("iniobj checkdiscr dobj_317__NLAMBDA_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_317__NLAMBDA_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_317__NLAMBDA_PROC.obj_num = 1; cdat->dobj_317__NLAMBDA_PROC.obj_hash = 433003334; cdat->dobj_317__NLAMBDA_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_317__NLAMBDA_PROC)); /*inistring dstr_318__NLAMBDA_PROC*/ /*_.VALSTR___V445*/ curfptr[444] = (void*)&cdat->dstr_318__NLAMBDA_PROC; cdat->dstr_318__NLAMBDA_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_318__NLAMBDA_PROC.val, "NLAMBDA_PROC"); /*iniobj dsym_319__NLAMBDA_CONSTROUT*/ if (!/*_.VALDATA___V453*/ curfptr[452]) /*_.VALDATA___V453*/ curfptr[452] = (void*)&cdat->dsym_319__NLAMBDA_CONSTROUT; basilys_assertmsg("iniobj checkdiscr dsym_319__NLAMBDA_CONSTROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_319__NLAMBDA_CONSTROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_319__NLAMBDA_CONSTROUT.obj_hash = 627511020; cdat->dsym_319__NLAMBDA_CONSTROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_319__NLAMBDA_CONSTROUT)); /*inistring dstr_320__NLAMBDA_CONSTROU*/ /*_.VALSTR___V454*/ curfptr[453] = (void*)&cdat->dstr_320__NLAMBDA_CONSTROU; cdat->dstr_320__NLAMBDA_CONSTROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_320__NLAMBDA_CONSTROU.val, "NLAMBDA_CONSTROUT"); BASILYS_LOCATION("warmelt-normal.bysl:197: @iniobj"); /*iniobj dobj_321__NLAMBDA_CONSTROUT*/ if (!/*_.VALDATA___V446*/ curfptr[445]) /*_.VALDATA___V446*/ curfptr[445] = (void*)&cdat->dobj_321__NLAMBDA_CONSTROUT; basilys_assertmsg("iniobj checkdiscr dobj_321__NLAMBDA_CONSTROUT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_321__NLAMBDA_CONSTROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_321__NLAMBDA_CONSTROUT.obj_num = 2; cdat->dobj_321__NLAMBDA_CONSTROUT.obj_hash = 287206570; cdat->dobj_321__NLAMBDA_CONSTROUT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_321__NLAMBDA_CONSTROUT)); /*inistring dstr_322__NLAMBDA_CONSTROU*/ /*_.VALSTR___V447*/ curfptr[446] = (void*)&cdat->dstr_322__NLAMBDA_CONSTROU; cdat->dstr_322__NLAMBDA_CONSTROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_322__NLAMBDA_CONSTROU.val, "NLAMBDA_CONSTROUT"); /*iniobj dsym_323__NLAMBDA_CLOSEDV*/ if (!/*_.VALDATA___V455*/ curfptr[454]) /*_.VALDATA___V455*/ curfptr[454] = (void*)&cdat->dsym_323__NLAMBDA_CLOSEDV; basilys_assertmsg("iniobj checkdiscr dsym_323__NLAMBDA_CLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_323__NLAMBDA_CLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_323__NLAMBDA_CLOSEDV.obj_hash = 930362074; cdat->dsym_323__NLAMBDA_CLOSEDV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_323__NLAMBDA_CLOSEDV)); /*inistring dstr_324__NLAMBDA_CLOSEDV*/ /*_.VALSTR___V456*/ curfptr[455] = (void*)&cdat->dstr_324__NLAMBDA_CLOSEDV; cdat->dstr_324__NLAMBDA_CLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_324__NLAMBDA_CLOSEDV.val, "NLAMBDA_CLOSEDV"); BASILYS_LOCATION("warmelt-normal.bysl:197: @iniobj"); /*iniobj dobj_325__NLAMBDA_CLOSEDV*/ if (!/*_.VALDATA___V448*/ curfptr[447]) /*_.VALDATA___V448*/ curfptr[447] = (void*)&cdat->dobj_325__NLAMBDA_CLOSEDV; basilys_assertmsg("iniobj checkdiscr dobj_325__NLAMBDA_CLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_325__NLAMBDA_CLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_325__NLAMBDA_CLOSEDV.obj_num = 3; cdat->dobj_325__NLAMBDA_CLOSEDV.obj_hash = 339944208; cdat->dobj_325__NLAMBDA_CLOSEDV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_325__NLAMBDA_CLOSEDV)); /*inistring dstr_326__NLAMBDA_CLOSEDV*/ /*_.VALSTR___V449*/ curfptr[448] = (void*)&cdat->dstr_326__NLAMBDA_CLOSEDV; cdat->dstr_326__NLAMBDA_CLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_326__NLAMBDA_CLOSEDV.val, "NLAMBDA_CLOSEDV"); /*iniobj dsym_327__CLASS_NREP_CITERATION*/ if (!/*_.VALDATA___V457*/ curfptr[456]) /*_.VALDATA___V457*/ curfptr[456] = (void*)&cdat->dsym_327__CLASS_NREP_CITERATION; basilys_assertmsg("iniobj checkdiscr dsym_327__CLASS_NREP_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_327__CLASS_NREP_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_327__CLASS_NREP_CITERATION.obj_hash = 933737875; cdat->dsym_327__CLASS_NREP_CITERATION.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_327__CLASS_NREP_CITERATION)); /*inistring dstr_328__CLASS_NREP_CITER*/ /*_.VALSTR___V458*/ curfptr[457] = (void*)&cdat->dstr_328__CLASS_NREP_CITER; cdat->dstr_328__CLASS_NREP_CITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_328__CLASS_NREP_CITER.val, "CLASS_NREP_CITERATION"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_329__CLASS_NREP_CITERATION*/ if (!/*_.VALDATA___V459*/ curfptr[458]) /*_.VALDATA___V459*/ curfptr[458] = (void*)&cdat->dobj_329__CLASS_NREP_CITERATION; basilys_assertmsg("iniobj checkdiscr dobj_329__CLASS_NREP_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_329__CLASS_NREP_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_329__CLASS_NREP_CITERATION.obj_num = OBMAG_OBJECT; cdat->dobj_329__CLASS_NREP_CITERATION.obj_hash = 616340556; cdat->dobj_329__CLASS_NREP_CITERATION.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_329__CLASS_NREP_CITERATION)); /*inistring dstr_330__CLASS_NREP_CITER*/ /*_.VALSTR___V460*/ curfptr[459] = (void*)&cdat->dstr_330__CLASS_NREP_CITER; cdat->dstr_330__CLASS_NREP_CITER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_330__CLASS_NREP_CITER.val, "CLASS_NREP_CITERATION"); /*inimult dtup_331__CLASS_NREP_CITERATION*/ /*_.VALTUP___V461*/ curfptr[460] = (void*)&cdat->dtup_331__CLASS_NREP_CITERATION; cdat->dtup_331__CLASS_NREP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_331__CLASS_NREP_CITERATION.nbval = 3; /*inimult dtup_332__CLASS_NREP_CITERATION*/ /*_.VALTUP___V476*/ curfptr[475] = (void*)&cdat->dtup_332__CLASS_NREP_CITERATION; cdat->dtup_332__CLASS_NREP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_332__CLASS_NREP_CITERATION.nbval = 8; /*iniobj dsym_333__NCITER_CITERATOR*/ if (!/*_.VALDATA___V477*/ curfptr[476]) /*_.VALDATA___V477*/ curfptr[476] = (void*)&cdat->dsym_333__NCITER_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_333__NCITER_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_333__NCITER_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_333__NCITER_CITERATOR.obj_hash = 476770695; cdat->dsym_333__NCITER_CITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_333__NCITER_CITERATOR)); /*inistring dstr_334__NCITER_CITERATOR*/ /*_.VALSTR___V478*/ curfptr[477] = (void*)&cdat->dstr_334__NCITER_CITERATOR; cdat->dstr_334__NCITER_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_334__NCITER_CITERATOR.val, "NCITER_CITERATOR"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_335__NCITER_CITERATOR*/ if (!/*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*)&cdat->dobj_335__NCITER_CITERATOR; basilys_assertmsg("iniobj checkdiscr dobj_335__NCITER_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_335__NCITER_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_335__NCITER_CITERATOR.obj_num = 1; cdat->dobj_335__NCITER_CITERATOR.obj_hash = 609780514; cdat->dobj_335__NCITER_CITERATOR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_335__NCITER_CITERATOR)); /*inistring dstr_336__NCITER_CITERATOR*/ /*_.VALSTR___V463*/ curfptr[462] = (void*)&cdat->dstr_336__NCITER_CITERATOR; cdat->dstr_336__NCITER_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_336__NCITER_CITERATOR.val, "NCITER_CITERATOR"); /*iniobj dsym_337__NCITER_LOCBINDINGS*/ if (!/*_.VALDATA___V479*/ curfptr[478]) /*_.VALDATA___V479*/ curfptr[478] = (void*)&cdat->dsym_337__NCITER_LOCBINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_337__NCITER_LOCBINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_337__NCITER_LOCBINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_337__NCITER_LOCBINDINGS.obj_hash = 107102968; cdat->dsym_337__NCITER_LOCBINDINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_337__NCITER_LOCBINDINGS)); /*inistring dstr_338__NCITER_LOCBINDIN*/ /*_.VALSTR___V480*/ curfptr[479] = (void*)&cdat->dstr_338__NCITER_LOCBINDIN; cdat->dstr_338__NCITER_LOCBINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_338__NCITER_LOCBINDIN.val, "NCITER_LOCBINDINGS"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_339__NCITER_LOCBINDINGS*/ if (!/*_.VALDATA___V464*/ curfptr[463]) /*_.VALDATA___V464*/ curfptr[463] = (void*)&cdat->dobj_339__NCITER_LOCBINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_339__NCITER_LOCBINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_339__NCITER_LOCBINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_339__NCITER_LOCBINDINGS.obj_num = 2; cdat->dobj_339__NCITER_LOCBINDINGS.obj_hash = 577490315; cdat->dobj_339__NCITER_LOCBINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_339__NCITER_LOCBINDINGS)); /*inistring dstr_340__NCITER_LOCBINDIN*/ /*_.VALSTR___V465*/ curfptr[464] = (void*)&cdat->dstr_340__NCITER_LOCBINDIN; cdat->dstr_340__NCITER_LOCBINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_340__NCITER_LOCBINDIN.val, "NCITER_LOCBINDINGS"); /*iniobj dsym_341__NCITER_CHUNKBEFORE*/ if (!/*_.VALDATA___V481*/ curfptr[480]) /*_.VALDATA___V481*/ curfptr[480] = (void*)&cdat->dsym_341__NCITER_CHUNKBEFORE; basilys_assertmsg("iniobj checkdiscr dsym_341__NCITER_CHUNKBEFORE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__NCITER_CHUNKBEFORE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_341__NCITER_CHUNKBEFORE.obj_hash = 955072848; cdat->dsym_341__NCITER_CHUNKBEFORE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_341__NCITER_CHUNKBEFORE)); /*inistring dstr_342__NCITER_CHUNKBEFO*/ /*_.VALSTR___V482*/ curfptr[481] = (void*)&cdat->dstr_342__NCITER_CHUNKBEFO; cdat->dstr_342__NCITER_CHUNKBEFO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_342__NCITER_CHUNKBEFO.val, "NCITER_CHUNKBEFORE"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_343__NCITER_CHUNKBEFORE*/ if (!/*_.VALDATA___V466*/ curfptr[465]) /*_.VALDATA___V466*/ curfptr[465] = (void*)&cdat->dobj_343__NCITER_CHUNKBEFORE; basilys_assertmsg("iniobj checkdiscr dobj_343__NCITER_CHUNKBEFORE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__NCITER_CHUNKBEFORE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_343__NCITER_CHUNKBEFORE.obj_num = 3; cdat->dobj_343__NCITER_CHUNKBEFORE.obj_hash = 769301967; cdat->dobj_343__NCITER_CHUNKBEFORE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_343__NCITER_CHUNKBEFORE)); /*inistring dstr_344__NCITER_CHUNKBEFO*/ /*_.VALSTR___V467*/ curfptr[466] = (void*)&cdat->dstr_344__NCITER_CHUNKBEFO; cdat->dstr_344__NCITER_CHUNKBEFO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_344__NCITER_CHUNKBEFO.val, "NCITER_CHUNKBEFORE"); /*iniobj dsym_345__NCITER_BODY*/ if (!/*_.VALDATA___V483*/ curfptr[482]) /*_.VALDATA___V483*/ curfptr[482] = (void*)&cdat->dsym_345__NCITER_BODY; basilys_assertmsg("iniobj checkdiscr dsym_345__NCITER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__NCITER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_345__NCITER_BODY.obj_hash = 490749718; cdat->dsym_345__NCITER_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_345__NCITER_BODY)); /*inistring dstr_346__NCITER_BODY*/ /*_.VALSTR___V484*/ curfptr[483] = (void*)&cdat->dstr_346__NCITER_BODY; cdat->dstr_346__NCITER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_346__NCITER_BODY.val, "NCITER_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_347__NCITER_BODY*/ if (!/*_.VALDATA___V468*/ curfptr[467]) /*_.VALDATA___V468*/ curfptr[467] = (void*)&cdat->dobj_347__NCITER_BODY; basilys_assertmsg("iniobj checkdiscr dobj_347__NCITER_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__NCITER_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_347__NCITER_BODY.obj_num = 4; cdat->dobj_347__NCITER_BODY.obj_hash = 1051936002; cdat->dobj_347__NCITER_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_347__NCITER_BODY)); /*inistring dstr_348__NCITER_BODY*/ /*_.VALSTR___V469*/ curfptr[468] = (void*)&cdat->dstr_348__NCITER_BODY; cdat->dstr_348__NCITER_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_348__NCITER_BODY.val, "NCITER_BODY"); /*iniobj dsym_349__NCITER_STATOCC*/ if (!/*_.VALDATA___V485*/ curfptr[484]) /*_.VALDATA___V485*/ curfptr[484] = (void*)&cdat->dsym_349__NCITER_STATOCC; basilys_assertmsg("iniobj checkdiscr dsym_349__NCITER_STATOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__NCITER_STATOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_349__NCITER_STATOCC.obj_hash = 146019073; cdat->dsym_349__NCITER_STATOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_349__NCITER_STATOCC)); /*inistring dstr_350__NCITER_STATOCC*/ /*_.VALSTR___V486*/ curfptr[485] = (void*)&cdat->dstr_350__NCITER_STATOCC; cdat->dstr_350__NCITER_STATOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_350__NCITER_STATOCC.val, "NCITER_STATOCC"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_351__NCITER_STATOCC*/ if (!/*_.VALDATA___V470*/ curfptr[469]) /*_.VALDATA___V470*/ curfptr[469] = (void*)&cdat->dobj_351__NCITER_STATOCC; basilys_assertmsg("iniobj checkdiscr dobj_351__NCITER_STATOCC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_351__NCITER_STATOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_351__NCITER_STATOCC.obj_num = 5; cdat->dobj_351__NCITER_STATOCC.obj_hash = 319684087; cdat->dobj_351__NCITER_STATOCC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_351__NCITER_STATOCC)); /*inistring dstr_352__NCITER_STATOCC*/ /*_.VALSTR___V471*/ curfptr[470] = (void*)&cdat->dstr_352__NCITER_STATOCC; cdat->dstr_352__NCITER_STATOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_352__NCITER_STATOCC.val, "NCITER_STATOCC"); /*iniobj dsym_353__NCITER_BODBINDINGS*/ if (!/*_.VALDATA___V487*/ curfptr[486]) /*_.VALDATA___V487*/ curfptr[486] = (void*)&cdat->dsym_353__NCITER_BODBINDINGS; basilys_assertmsg("iniobj checkdiscr dsym_353__NCITER_BODBINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_353__NCITER_BODBINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_353__NCITER_BODBINDINGS.obj_hash = 239846626; cdat->dsym_353__NCITER_BODBINDINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_353__NCITER_BODBINDINGS)); /*inistring dstr_354__NCITER_BODBINDIN*/ /*_.VALSTR___V488*/ curfptr[487] = (void*)&cdat->dstr_354__NCITER_BODBINDIN; cdat->dstr_354__NCITER_BODBINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_354__NCITER_BODBINDIN.val, "NCITER_BODBINDINGS"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_355__NCITER_BODBINDINGS*/ if (!/*_.VALDATA___V472*/ curfptr[471]) /*_.VALDATA___V472*/ curfptr[471] = (void*)&cdat->dobj_355__NCITER_BODBINDINGS; basilys_assertmsg("iniobj checkdiscr dobj_355__NCITER_BODBINDINGS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_355__NCITER_BODBINDINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_355__NCITER_BODBINDINGS.obj_num = 6; cdat->dobj_355__NCITER_BODBINDINGS.obj_hash = 36449229; cdat->dobj_355__NCITER_BODBINDINGS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_355__NCITER_BODBINDINGS)); /*inistring dstr_356__NCITER_BODBINDIN*/ /*_.VALSTR___V473*/ curfptr[472] = (void*)&cdat->dstr_356__NCITER_BODBINDIN; cdat->dstr_356__NCITER_BODBINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_356__NCITER_BODBINDIN.val, "NCITER_BODBINDINGS"); /*iniobj dsym_357__NCITER_CHUNKAFTER*/ if (!/*_.VALDATA___V489*/ curfptr[488]) /*_.VALDATA___V489*/ curfptr[488] = (void*)&cdat->dsym_357__NCITER_CHUNKAFTER; basilys_assertmsg("iniobj checkdiscr dsym_357__NCITER_CHUNKAFTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_357__NCITER_CHUNKAFTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_357__NCITER_CHUNKAFTER.obj_hash = 530911159; cdat->dsym_357__NCITER_CHUNKAFTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_357__NCITER_CHUNKAFTER)); /*inistring dstr_358__NCITER_CHUNKAFTE*/ /*_.VALSTR___V490*/ curfptr[489] = (void*)&cdat->dstr_358__NCITER_CHUNKAFTE; cdat->dstr_358__NCITER_CHUNKAFTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_358__NCITER_CHUNKAFTE.val, "NCITER_CHUNKAFTER"); BASILYS_LOCATION("warmelt-normal.bysl:206: @iniobj"); /*iniobj dobj_359__NCITER_CHUNKAFTER*/ if (!/*_.VALDATA___V474*/ curfptr[473]) /*_.VALDATA___V474*/ curfptr[473] = (void*)&cdat->dobj_359__NCITER_CHUNKAFTER; basilys_assertmsg("iniobj checkdiscr dobj_359__NCITER_CHUNKAFTER", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_359__NCITER_CHUNKAFTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_359__NCITER_CHUNKAFTER.obj_num = 7; cdat->dobj_359__NCITER_CHUNKAFTER.obj_hash = 209214814; cdat->dobj_359__NCITER_CHUNKAFTER.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_359__NCITER_CHUNKAFTER)); /*inistring dstr_360__NCITER_CHUNKAFTE*/ /*_.VALSTR___V475*/ curfptr[474] = (void*)&cdat->dstr_360__NCITER_CHUNKAFTE; cdat->dstr_360__NCITER_CHUNKAFTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_360__NCITER_CHUNKAFTE.val, "NCITER_CHUNKAFTER"); /*iniobj dsym_361__CLASS_NREP_ANYPROC*/ if (!/*_.VALDATA___V491*/ curfptr[490]) /*_.VALDATA___V491*/ curfptr[490] = (void*)&cdat->dsym_361__CLASS_NREP_ANYPROC; basilys_assertmsg("iniobj checkdiscr dsym_361__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_361__CLASS_NREP_ANYPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_361__CLASS_NREP_ANYPROC.obj_hash = 605230702; cdat->dsym_361__CLASS_NREP_ANYPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_361__CLASS_NREP_ANYPROC)); /*inistring dstr_362__CLASS_NREP_ANYPR*/ /*_.VALSTR___V492*/ curfptr[491] = (void*)&cdat->dstr_362__CLASS_NREP_ANYPR; cdat->dstr_362__CLASS_NREP_ANYPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_362__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC"); BASILYS_LOCATION("warmelt-normal.bysl:219: @iniobj"); /*iniobj dobj_363__CLASS_NREP_ANYPROC*/ if (!/*_.VALDATA___V493*/ curfptr[492]) /*_.VALDATA___V493*/ curfptr[492] = (void*)&cdat->dobj_363__CLASS_NREP_ANYPROC; basilys_assertmsg("iniobj checkdiscr dobj_363__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_363__CLASS_NREP_ANYPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_363__CLASS_NREP_ANYPROC.obj_num = OBMAG_OBJECT; cdat->dobj_363__CLASS_NREP_ANYPROC.obj_hash = 31753015; cdat->dobj_363__CLASS_NREP_ANYPROC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_363__CLASS_NREP_ANYPROC)); /*inistring dstr_364__CLASS_NREP_ANYPR*/ /*_.VALSTR___V494*/ curfptr[493] = (void*)&cdat->dstr_364__CLASS_NREP_ANYPR; cdat->dstr_364__CLASS_NREP_ANYPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_364__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC"); /*inimult dtup_365__CLASS_NREP_ANYPROC*/ /*_.VALTUP___V495*/ curfptr[494] = (void*)&cdat->dtup_365__CLASS_NREP_ANYPROC; cdat->dtup_365__CLASS_NREP_ANYPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_365__CLASS_NREP_ANYPROC.nbval = 2; /*inimult dtup_366__CLASS_NREP_ANYPROC*/ /*_.VALTUP___V498*/ curfptr[497] = (void*)&cdat->dtup_366__CLASS_NREP_ANYPROC; cdat->dtup_366__CLASS_NREP_ANYPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_366__CLASS_NREP_ANYPROC.nbval = 2; /*iniobj dsym_367__NPROC_BODY*/ if (!/*_.VALDATA___V499*/ curfptr[498]) /*_.VALDATA___V499*/ curfptr[498] = (void*)&cdat->dsym_367__NPROC_BODY; basilys_assertmsg("iniobj checkdiscr dsym_367__NPROC_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__NPROC_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_367__NPROC_BODY.obj_hash = 964488607; cdat->dsym_367__NPROC_BODY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_367__NPROC_BODY)); /*inistring dstr_368__NPROC_BODY*/ /*_.VALSTR___V500*/ curfptr[499] = (void*)&cdat->dstr_368__NPROC_BODY; cdat->dstr_368__NPROC_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_368__NPROC_BODY.val, "NPROC_BODY"); BASILYS_LOCATION("warmelt-normal.bysl:219: @iniobj"); /*iniobj dobj_369__NPROC_BODY*/ if (!/*_.VALDATA___V496*/ curfptr[495]) /*_.VALDATA___V496*/ curfptr[495] = (void*)&cdat->dobj_369__NPROC_BODY; basilys_assertmsg("iniobj checkdiscr dobj_369__NPROC_BODY", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_369__NPROC_BODY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_369__NPROC_BODY.obj_num = 1; cdat->dobj_369__NPROC_BODY.obj_hash = 731223837; cdat->dobj_369__NPROC_BODY.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_369__NPROC_BODY)); /*inistring dstr_370__NPROC_BODY*/ /*_.VALSTR___V497*/ curfptr[496] = (void*)&cdat->dstr_370__NPROC_BODY; cdat->dstr_370__NPROC_BODY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_370__NPROC_BODY.val, "NPROC_BODY"); /*iniobj dsym_371__CLASS_NREP_INITPROC*/ if (!/*_.VALDATA___V501*/ curfptr[500]) /*_.VALDATA___V501*/ curfptr[500] = (void*)&cdat->dsym_371__CLASS_NREP_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_371__CLASS_NREP_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_371__CLASS_NREP_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_371__CLASS_NREP_INITPROC.obj_hash = 915122709; cdat->dsym_371__CLASS_NREP_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_371__CLASS_NREP_INITPROC)); /*inistring dstr_372__CLASS_NREP_INITP*/ /*_.VALSTR___V502*/ curfptr[501] = (void*)&cdat->dstr_372__CLASS_NREP_INITP; cdat->dstr_372__CLASS_NREP_INITP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_372__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC"); BASILYS_LOCATION("warmelt-normal.bysl:227: @iniobj"); /*iniobj dobj_373__CLASS_NREP_INITPROC*/ if (!/*_.VALDATA___V503*/ curfptr[502]) /*_.VALDATA___V503*/ curfptr[502] = (void*)&cdat->dobj_373__CLASS_NREP_INITPROC; basilys_assertmsg("iniobj checkdiscr dobj_373__CLASS_NREP_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_373__CLASS_NREP_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_373__CLASS_NREP_INITPROC.obj_num = OBMAG_OBJECT; cdat->dobj_373__CLASS_NREP_INITPROC.obj_hash = 881879777; cdat->dobj_373__CLASS_NREP_INITPROC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_373__CLASS_NREP_INITPROC)); /*inistring dstr_374__CLASS_NREP_INITP*/ /*_.VALSTR___V504*/ curfptr[503] = (void*)&cdat->dstr_374__CLASS_NREP_INITP; cdat->dstr_374__CLASS_NREP_INITP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_374__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC"); /*inimult dtup_375__CLASS_NREP_INITPROC*/ /*_.VALTUP___V505*/ curfptr[504] = (void*)&cdat->dtup_375__CLASS_NREP_INITPROC; cdat->dtup_375__CLASS_NREP_INITPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_375__CLASS_NREP_INITPROC.nbval = 3; /*inimult dtup_376__CLASS_NREP_INITPROC*/ /*_.VALTUP___V508*/ curfptr[507] = (void*)&cdat->dtup_376__CLASS_NREP_INITPROC; cdat->dtup_376__CLASS_NREP_INITPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_376__CLASS_NREP_INITPROC.nbval = 3; /*iniobj dsym_377__NINIT_TOPL*/ if (!/*_.VALDATA___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*)&cdat->dsym_377__NINIT_TOPL; basilys_assertmsg("iniobj checkdiscr dsym_377__NINIT_TOPL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__NINIT_TOPL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_377__NINIT_TOPL.obj_hash = 412312786; cdat->dsym_377__NINIT_TOPL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_377__NINIT_TOPL)); /*inistring dstr_378__NINIT_TOPL*/ /*_.VALSTR___V510*/ curfptr[509] = (void*)&cdat->dstr_378__NINIT_TOPL; cdat->dstr_378__NINIT_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_378__NINIT_TOPL.val, "NINIT_TOPL"); BASILYS_LOCATION("warmelt-normal.bysl:227: @iniobj"); /*iniobj dobj_379__NINIT_TOPL*/ if (!/*_.VALDATA___V506*/ curfptr[505]) /*_.VALDATA___V506*/ curfptr[505] = (void*)&cdat->dobj_379__NINIT_TOPL; basilys_assertmsg("iniobj checkdiscr dobj_379__NINIT_TOPL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__NINIT_TOPL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_379__NINIT_TOPL.obj_num = 2; cdat->dobj_379__NINIT_TOPL.obj_hash = 907624780; cdat->dobj_379__NINIT_TOPL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_379__NINIT_TOPL)); /*inistring dstr_380__NINIT_TOPL*/ /*_.VALSTR___V507*/ curfptr[506] = (void*)&cdat->dstr_380__NINIT_TOPL; cdat->dstr_380__NINIT_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_380__NINIT_TOPL.val, "NINIT_TOPL"); /*iniobj dsym_381__CLASS_NREP_ROUTPROC*/ if (!/*_.VALDATA___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*)&cdat->dsym_381__CLASS_NREP_ROUTPROC; basilys_assertmsg("iniobj checkdiscr dsym_381__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__CLASS_NREP_ROUTPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_381__CLASS_NREP_ROUTPROC.obj_hash = 959677762; cdat->dsym_381__CLASS_NREP_ROUTPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_381__CLASS_NREP_ROUTPROC)); /*inistring dstr_382__CLASS_NREP_ROUTP*/ /*_.VALSTR___V512*/ curfptr[511] = (void*)&cdat->dstr_382__CLASS_NREP_ROUTP; cdat->dstr_382__CLASS_NREP_ROUTP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_382__CLASS_NREP_ROUTP.val, "CLASS_NREP_ROUTPROC"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_383__CLASS_NREP_ROUTPROC*/ if (!/*_.VALDATA___V513*/ curfptr[512]) /*_.VALDATA___V513*/ curfptr[512] = (void*)&cdat->dobj_383__CLASS_NREP_ROUTPROC; basilys_assertmsg("iniobj checkdiscr dobj_383__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_NREP_ROUTPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_383__CLASS_NREP_ROUTPROC.obj_num = OBMAG_OBJECT; cdat->dobj_383__CLASS_NREP_ROUTPROC.obj_hash = 594949487; cdat->dobj_383__CLASS_NREP_ROUTPROC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_383__CLASS_NREP_ROUTPROC)); /*inistring dstr_384__CLASS_NREP_ROUTP*/ /*_.VALSTR___V514*/ curfptr[513] = (void*)&cdat->dstr_384__CLASS_NREP_ROUTP; cdat->dstr_384__CLASS_NREP_ROUTP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_384__CLASS_NREP_ROUTP.val, "CLASS_NREP_ROUTPROC"); /*inimult dtup_385__CLASS_NREP_ROUTPROC*/ /*_.VALTUP___V515*/ curfptr[514] = (void*)&cdat->dtup_385__CLASS_NREP_ROUTPROC; cdat->dtup_385__CLASS_NREP_ROUTPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_385__CLASS_NREP_ROUTPROC.nbval = 3; /*inimult dtup_386__CLASS_NREP_ROUTPROC*/ /*_.VALTUP___V530*/ curfptr[529] = (void*)&cdat->dtup_386__CLASS_NREP_ROUTPROC; cdat->dtup_386__CLASS_NREP_ROUTPROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_386__CLASS_NREP_ROUTPROC.nbval = 9; /*iniobj dsym_387__NRPRO_NAME*/ if (!/*_.VALDATA___V531*/ curfptr[530]) /*_.VALDATA___V531*/ curfptr[530] = (void*)&cdat->dsym_387__NRPRO_NAME; basilys_assertmsg("iniobj checkdiscr dsym_387__NRPRO_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_387__NRPRO_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_387__NRPRO_NAME.obj_hash = 96818313; cdat->dsym_387__NRPRO_NAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_387__NRPRO_NAME)); /*inistring dstr_388__NRPRO_NAME*/ /*_.VALSTR___V532*/ curfptr[531] = (void*)&cdat->dstr_388__NRPRO_NAME; cdat->dstr_388__NRPRO_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_388__NRPRO_NAME.val, "NRPRO_NAME"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_389__NRPRO_NAME*/ if (!/*_.VALDATA___V516*/ curfptr[515]) /*_.VALDATA___V516*/ curfptr[515] = (void*)&cdat->dobj_389__NRPRO_NAME; basilys_assertmsg("iniobj checkdiscr dobj_389__NRPRO_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_389__NRPRO_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_389__NRPRO_NAME.obj_num = 2; cdat->dobj_389__NRPRO_NAME.obj_hash = 39894489; cdat->dobj_389__NRPRO_NAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_389__NRPRO_NAME)); /*inistring dstr_390__NRPRO_NAME*/ /*_.VALSTR___V517*/ curfptr[516] = (void*)&cdat->dstr_390__NRPRO_NAME; cdat->dstr_390__NRPRO_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_390__NRPRO_NAME.val, "NRPRO_NAME"); /*iniobj dsym_391__NRPRO_ARGB*/ if (!/*_.VALDATA___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*)&cdat->dsym_391__NRPRO_ARGB; basilys_assertmsg("iniobj checkdiscr dsym_391__NRPRO_ARGB", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_391__NRPRO_ARGB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_391__NRPRO_ARGB.obj_hash = 659478173; cdat->dsym_391__NRPRO_ARGB.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_391__NRPRO_ARGB)); /*inistring dstr_392__NRPRO_ARGB*/ /*_.VALSTR___V534*/ curfptr[533] = (void*)&cdat->dstr_392__NRPRO_ARGB; cdat->dstr_392__NRPRO_ARGB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_392__NRPRO_ARGB.val, "NRPRO_ARGB"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_393__NRPRO_ARGB*/ if (!/*_.VALDATA___V518*/ curfptr[517]) /*_.VALDATA___V518*/ curfptr[517] = (void*)&cdat->dobj_393__NRPRO_ARGB; basilys_assertmsg("iniobj checkdiscr dobj_393__NRPRO_ARGB", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__NRPRO_ARGB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_393__NRPRO_ARGB.obj_num = 3; cdat->dobj_393__NRPRO_ARGB.obj_hash = 1054679269; cdat->dobj_393__NRPRO_ARGB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_393__NRPRO_ARGB)); /*inistring dstr_394__NRPRO_ARGB*/ /*_.VALSTR___V519*/ curfptr[518] = (void*)&cdat->dstr_394__NRPRO_ARGB; cdat->dstr_394__NRPRO_ARGB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_394__NRPRO_ARGB.val, "NRPRO_ARGB"); /*iniobj dsym_395__NRPRO_CLOSEDB*/ if (!/*_.VALDATA___V535*/ curfptr[534]) /*_.VALDATA___V535*/ curfptr[534] = (void*)&cdat->dsym_395__NRPRO_CLOSEDB; basilys_assertmsg("iniobj checkdiscr dsym_395__NRPRO_CLOSEDB", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__NRPRO_CLOSEDB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__NRPRO_CLOSEDB.obj_hash = 321070777; cdat->dsym_395__NRPRO_CLOSEDB.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_395__NRPRO_CLOSEDB)); /*inistring dstr_396__NRPRO_CLOSEDB*/ /*_.VALSTR___V536*/ curfptr[535] = (void*)&cdat->dstr_396__NRPRO_CLOSEDB; cdat->dstr_396__NRPRO_CLOSEDB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_396__NRPRO_CLOSEDB.val, "NRPRO_CLOSEDB"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_397__NRPRO_CLOSEDB*/ if (!/*_.VALDATA___V520*/ curfptr[519]) /*_.VALDATA___V520*/ curfptr[519] = (void*)&cdat->dobj_397__NRPRO_CLOSEDB; basilys_assertmsg("iniobj checkdiscr dobj_397__NRPRO_CLOSEDB", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_397__NRPRO_CLOSEDB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_397__NRPRO_CLOSEDB.obj_num = 4; cdat->dobj_397__NRPRO_CLOSEDB.obj_hash = 364990662; cdat->dobj_397__NRPRO_CLOSEDB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_397__NRPRO_CLOSEDB)); /*inistring dstr_398__NRPRO_CLOSEDB*/ /*_.VALSTR___V521*/ curfptr[520] = (void*)&cdat->dstr_398__NRPRO_CLOSEDB; cdat->dstr_398__NRPRO_CLOSEDB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_398__NRPRO_CLOSEDB.val, "NRPRO_CLOSEDB"); /*iniobj dsym_399__NRPRO_CONST*/ if (!/*_.VALDATA___V537*/ curfptr[536]) /*_.VALDATA___V537*/ curfptr[536] = (void*)&cdat->dsym_399__NRPRO_CONST; basilys_assertmsg("iniobj checkdiscr dsym_399__NRPRO_CONST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_399__NRPRO_CONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_399__NRPRO_CONST.obj_hash = 887071892; cdat->dsym_399__NRPRO_CONST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_399__NRPRO_CONST)); /*inistring dstr_400__NRPRO_CONST*/ /*_.VALSTR___V538*/ curfptr[537] = (void*)&cdat->dstr_400__NRPRO_CONST; cdat->dstr_400__NRPRO_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_400__NRPRO_CONST.val, "NRPRO_CONST"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_401__NRPRO_CONST*/ if (!/*_.VALDATA___V522*/ curfptr[521]) /*_.VALDATA___V522*/ curfptr[521] = (void*)&cdat->dobj_401__NRPRO_CONST; basilys_assertmsg("iniobj checkdiscr dobj_401__NRPRO_CONST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_401__NRPRO_CONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_401__NRPRO_CONST.obj_num = 5; cdat->dobj_401__NRPRO_CONST.obj_hash = 1047162484; cdat->dobj_401__NRPRO_CONST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_401__NRPRO_CONST)); /*inistring dstr_402__NRPRO_CONST*/ /*_.VALSTR___V523*/ curfptr[522] = (void*)&cdat->dstr_402__NRPRO_CONST; cdat->dstr_402__NRPRO_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_402__NRPRO_CONST.val, "NRPRO_CONST"); /*iniobj dsym_403__NRPRO_DATAROUT*/ if (!/*_.VALDATA___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (void*)&cdat->dsym_403__NRPRO_DATAROUT; basilys_assertmsg("iniobj checkdiscr dsym_403__NRPRO_DATAROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_403__NRPRO_DATAROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_403__NRPRO_DATAROUT.obj_hash = 434111557; cdat->dsym_403__NRPRO_DATAROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_403__NRPRO_DATAROUT)); /*inistring dstr_404__NRPRO_DATAROUT*/ /*_.VALSTR___V540*/ curfptr[539] = (void*)&cdat->dstr_404__NRPRO_DATAROUT; cdat->dstr_404__NRPRO_DATAROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_404__NRPRO_DATAROUT.val, "NRPRO_DATAROUT"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_405__NRPRO_DATAROUT*/ if (!/*_.VALDATA___V524*/ curfptr[523]) /*_.VALDATA___V524*/ curfptr[523] = (void*)&cdat->dobj_405__NRPRO_DATAROUT; basilys_assertmsg("iniobj checkdiscr dobj_405__NRPRO_DATAROUT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_405__NRPRO_DATAROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_405__NRPRO_DATAROUT.obj_num = 6; cdat->dobj_405__NRPRO_DATAROUT.obj_hash = 229855805; cdat->dobj_405__NRPRO_DATAROUT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_405__NRPRO_DATAROUT)); /*inistring dstr_406__NRPRO_DATAROUT*/ /*_.VALSTR___V525*/ curfptr[524] = (void*)&cdat->dstr_406__NRPRO_DATAROUT; cdat->dstr_406__NRPRO_DATAROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_406__NRPRO_DATAROUT.val, "NRPRO_DATAROUT"); /*iniobj dsym_407__NRPRO_DATACLOS*/ if (!/*_.VALDATA___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (void*)&cdat->dsym_407__NRPRO_DATACLOS; basilys_assertmsg("iniobj checkdiscr dsym_407__NRPRO_DATACLOS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__NRPRO_DATACLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_407__NRPRO_DATACLOS.obj_hash = 72191194; cdat->dsym_407__NRPRO_DATACLOS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_407__NRPRO_DATACLOS)); /*inistring dstr_408__NRPRO_DATACLOS*/ /*_.VALSTR___V542*/ curfptr[541] = (void*)&cdat->dstr_408__NRPRO_DATACLOS; cdat->dstr_408__NRPRO_DATACLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_408__NRPRO_DATACLOS.val, "NRPRO_DATACLOS"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_409__NRPRO_DATACLOS*/ if (!/*_.VALDATA___V526*/ curfptr[525]) /*_.VALDATA___V526*/ curfptr[525] = (void*)&cdat->dobj_409__NRPRO_DATACLOS; basilys_assertmsg("iniobj checkdiscr dobj_409__NRPRO_DATACLOS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_409__NRPRO_DATACLOS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_409__NRPRO_DATACLOS.obj_num = 7; cdat->dobj_409__NRPRO_DATACLOS.obj_hash = 311300158; cdat->dobj_409__NRPRO_DATACLOS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_409__NRPRO_DATACLOS)); /*inistring dstr_410__NRPRO_DATACLOS*/ /*_.VALSTR___V527*/ curfptr[526] = (void*)&cdat->dstr_410__NRPRO_DATACLOS; cdat->dstr_410__NRPRO_DATACLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_410__NRPRO_DATACLOS.val, "NRPRO_DATACLOS"); /*iniobj dsym_411__NRPRO_THUNKLIST*/ if (!/*_.VALDATA___V543*/ curfptr[542]) /*_.VALDATA___V543*/ curfptr[542] = (void*)&cdat->dsym_411__NRPRO_THUNKLIST; basilys_assertmsg("iniobj checkdiscr dsym_411__NRPRO_THUNKLIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_411__NRPRO_THUNKLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_411__NRPRO_THUNKLIST.obj_hash = 363626861; cdat->dsym_411__NRPRO_THUNKLIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_411__NRPRO_THUNKLIST)); /*inistring dstr_412__NRPRO_THUNKLIST*/ /*_.VALSTR___V544*/ curfptr[543] = (void*)&cdat->dstr_412__NRPRO_THUNKLIST; cdat->dstr_412__NRPRO_THUNKLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_412__NRPRO_THUNKLIST.val, "NRPRO_THUNKLIST"); BASILYS_LOCATION("warmelt-normal.bysl:233: @iniobj"); /*iniobj dobj_413__NRPRO_THUNKLIST*/ if (!/*_.VALDATA___V528*/ curfptr[527]) /*_.VALDATA___V528*/ curfptr[527] = (void*)&cdat->dobj_413__NRPRO_THUNKLIST; basilys_assertmsg("iniobj checkdiscr dobj_413__NRPRO_THUNKLIST", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_413__NRPRO_THUNKLIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_413__NRPRO_THUNKLIST.obj_num = 8; cdat->dobj_413__NRPRO_THUNKLIST.obj_hash = 532554417; cdat->dobj_413__NRPRO_THUNKLIST.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_413__NRPRO_THUNKLIST)); /*inistring dstr_414__NRPRO_THUNKLIST*/ /*_.VALSTR___V529*/ curfptr[528] = (void*)&cdat->dstr_414__NRPRO_THUNKLIST; cdat->dstr_414__NRPRO_THUNKLIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_414__NRPRO_THUNKLIST.val, "NRPRO_THUNKLIST"); /*iniobj dsym_415__CLASS_NREP_PREDEF*/ if (!/*_.VALDATA___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*)&cdat->dsym_415__CLASS_NREP_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_415__CLASS_NREP_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__CLASS_NREP_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__CLASS_NREP_PREDEF.obj_hash = 422259469; cdat->dsym_415__CLASS_NREP_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_415__CLASS_NREP_PREDEF)); /*inistring dstr_416__CLASS_NREP_PREDE*/ /*_.VALSTR___V546*/ curfptr[545] = (void*)&cdat->dstr_416__CLASS_NREP_PREDE; cdat->dstr_416__CLASS_NREP_PREDE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_416__CLASS_NREP_PREDE.val, "CLASS_NREP_PREDEF"); BASILYS_LOCATION("warmelt-normal.bysl:247: @iniobj"); /*iniobj dobj_417__CLASS_NREP_PREDEF*/ if (!/*_.VALDATA___V547*/ curfptr[546]) /*_.VALDATA___V547*/ curfptr[546] = (void*)&cdat->dobj_417__CLASS_NREP_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_417__CLASS_NREP_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_417__CLASS_NREP_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_417__CLASS_NREP_PREDEF.obj_num = OBMAG_OBJECT; cdat->dobj_417__CLASS_NREP_PREDEF.obj_hash = 634001433; cdat->dobj_417__CLASS_NREP_PREDEF.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_417__CLASS_NREP_PREDEF)); /*inistring dstr_418__CLASS_NREP_PREDE*/ /*_.VALSTR___V548*/ curfptr[547] = (void*)&cdat->dstr_418__CLASS_NREP_PREDE; cdat->dstr_418__CLASS_NREP_PREDE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_418__CLASS_NREP_PREDE.val, "CLASS_NREP_PREDEF"); /*inimult dtup_419__CLASS_NREP_PREDEF*/ /*_.VALTUP___V549*/ curfptr[548] = (void*)&cdat->dtup_419__CLASS_NREP_PREDEF; cdat->dtup_419__CLASS_NREP_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_419__CLASS_NREP_PREDEF.nbval = 3; /*inimult dtup_420__CLASS_NREP_PREDEF*/ /*_.VALTUP___V552*/ curfptr[551] = (void*)&cdat->dtup_420__CLASS_NREP_PREDEF; cdat->dtup_420__CLASS_NREP_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_420__CLASS_NREP_PREDEF.nbval = 2; /*iniobj dsym_421__NRPREDEF*/ if (!/*_.VALDATA___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*)&cdat->dsym_421__NRPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_421__NRPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_421__NRPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_421__NRPREDEF.obj_hash = 503066626; cdat->dsym_421__NRPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_421__NRPREDEF)); /*inistring dstr_422__NRPREDEF*/ /*_.VALSTR___V554*/ curfptr[553] = (void*)&cdat->dstr_422__NRPREDEF; cdat->dstr_422__NRPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_422__NRPREDEF.val, "NRPREDEF"); BASILYS_LOCATION("warmelt-normal.bysl:247: @iniobj"); /*iniobj dobj_423__NRPREDEF*/ if (!/*_.VALDATA___V550*/ curfptr[549]) /*_.VALDATA___V550*/ curfptr[549] = (void*)&cdat->dobj_423__NRPREDEF; basilys_assertmsg("iniobj checkdiscr dobj_423__NRPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_423__NRPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_423__NRPREDEF.obj_num = 1; cdat->dobj_423__NRPREDEF.obj_hash = 340211135; cdat->dobj_423__NRPREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_423__NRPREDEF)); /*inistring dstr_424__NRPREDEF*/ /*_.VALSTR___V551*/ curfptr[550] = (void*)&cdat->dstr_424__NRPREDEF; cdat->dstr_424__NRPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_424__NRPREDEF.val, "NRPREDEF"); /*iniobj dsym_425__CLASS_NREP_NIL*/ if (!/*_.VALDATA___V555*/ curfptr[554]) /*_.VALDATA___V555*/ curfptr[554] = (void*)&cdat->dsym_425__CLASS_NREP_NIL; basilys_assertmsg("iniobj checkdiscr dsym_425__CLASS_NREP_NIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__CLASS_NREP_NIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__CLASS_NREP_NIL.obj_hash = 607452589; cdat->dsym_425__CLASS_NREP_NIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_425__CLASS_NREP_NIL)); /*inistring dstr_426__CLASS_NREP_NIL*/ /*_.VALSTR___V556*/ curfptr[555] = (void*)&cdat->dstr_426__CLASS_NREP_NIL; cdat->dstr_426__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_426__CLASS_NREP_NIL.val, "CLASS_NREP_NIL"); BASILYS_LOCATION("warmelt-normal.bysl:254: @iniobj"); /*iniobj dobj_427__CLASS_NREP_NIL*/ if (!/*_.VALDATA___V557*/ curfptr[556]) /*_.VALDATA___V557*/ curfptr[556] = (void*)&cdat->dobj_427__CLASS_NREP_NIL; basilys_assertmsg("iniobj checkdiscr dobj_427__CLASS_NREP_NIL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_427__CLASS_NREP_NIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_427__CLASS_NREP_NIL.obj_num = OBMAG_OBJECT; cdat->dobj_427__CLASS_NREP_NIL.obj_hash = 578132682; cdat->dobj_427__CLASS_NREP_NIL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_427__CLASS_NREP_NIL)); /*inistring dstr_428__CLASS_NREP_NIL*/ /*_.VALSTR___V558*/ curfptr[557] = (void*)&cdat->dstr_428__CLASS_NREP_NIL; cdat->dstr_428__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_428__CLASS_NREP_NIL.val, "CLASS_NREP_NIL"); /*inimult dtup_429__CLASS_NREP_NIL*/ /*_.VALTUP___V559*/ curfptr[558] = (void*)&cdat->dtup_429__CLASS_NREP_NIL; cdat->dtup_429__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_429__CLASS_NREP_NIL.nbval = 3; /*inimult dtup_430__CLASS_NREP_NIL*/ /*_.VALTUP___V560*/ curfptr[559] = (void*)&cdat->dtup_430__CLASS_NREP_NIL; cdat->dtup_430__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_430__CLASS_NREP_NIL.nbval = 1; /*iniobj dsym_431__CLASS_NREP_QUASIDATA*/ if (!/*_.VALDATA___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*)&cdat->dsym_431__CLASS_NREP_QUASIDATA; basilys_assertmsg("iniobj checkdiscr dsym_431__CLASS_NREP_QUASIDATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_431__CLASS_NREP_QUASIDATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_431__CLASS_NREP_QUASIDATA.obj_hash = 752535427; cdat->dsym_431__CLASS_NREP_QUASIDATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_431__CLASS_NREP_QUASIDATA)); /*inistring dstr_432__CLASS_NREP_QUASI*/ /*_.VALSTR___V562*/ curfptr[561] = (void*)&cdat->dstr_432__CLASS_NREP_QUASI; cdat->dstr_432__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_432__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA"); BASILYS_LOCATION("warmelt-normal.bysl:264: @iniobj"); /*iniobj dobj_433__CLASS_NREP_QUASIDATA*/ if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dobj_433__CLASS_NREP_QUASIDATA; basilys_assertmsg("iniobj checkdiscr dobj_433__CLASS_NREP_QUASIDATA", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_433__CLASS_NREP_QUASIDATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_433__CLASS_NREP_QUASIDATA.obj_num = OBMAG_OBJECT; cdat->dobj_433__CLASS_NREP_QUASIDATA.obj_hash = 882919097; cdat->dobj_433__CLASS_NREP_QUASIDATA.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_433__CLASS_NREP_QUASIDATA)); /*inistring dstr_434__CLASS_NREP_QUASI*/ /*_.VALSTR___V564*/ curfptr[563] = (void*)&cdat->dstr_434__CLASS_NREP_QUASI; cdat->dstr_434__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_434__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA"); /*inimult dtup_435__CLASS_NREP_QUASIDATA*/ /*_.VALTUP___V565*/ curfptr[564] = (void*)&cdat->dtup_435__CLASS_NREP_QUASIDATA; cdat->dtup_435__CLASS_NREP_QUASIDATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_435__CLASS_NREP_QUASIDATA.nbval = 2; /*inimult dtup_436__CLASS_NREP_QUASIDATA*/ /*_.VALTUP___V566*/ curfptr[565] = (void*)&cdat->dtup_436__CLASS_NREP_QUASIDATA; cdat->dtup_436__CLASS_NREP_QUASIDATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_436__CLASS_NREP_QUASIDATA.nbval = 1; /*iniobj dsym_437__CLASS_NREP_DATA*/ if (!/*_.VALDATA___V567*/ curfptr[566]) /*_.VALDATA___V567*/ curfptr[566] = (void*)&cdat->dsym_437__CLASS_NREP_DATA; basilys_assertmsg("iniobj checkdiscr dsym_437__CLASS_NREP_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__CLASS_NREP_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__CLASS_NREP_DATA.obj_hash = 746568035; cdat->dsym_437__CLASS_NREP_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_437__CLASS_NREP_DATA)); /*inistring dstr_438__CLASS_NREP_DATA*/ /*_.VALSTR___V568*/ curfptr[567] = (void*)&cdat->dstr_438__CLASS_NREP_DATA; cdat->dstr_438__CLASS_NREP_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_438__CLASS_NREP_DATA.val, "CLASS_NREP_DATA"); BASILYS_LOCATION("warmelt-normal.bysl:271: @iniobj"); /*iniobj dobj_439__CLASS_NREP_DATA*/ if (!/*_.VALDATA___V569*/ curfptr[568]) /*_.VALDATA___V569*/ curfptr[568] = (void*)&cdat->dobj_439__CLASS_NREP_DATA; basilys_assertmsg("iniobj checkdiscr dobj_439__CLASS_NREP_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_439__CLASS_NREP_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_439__CLASS_NREP_DATA.obj_num = OBMAG_OBJECT; cdat->dobj_439__CLASS_NREP_DATA.obj_hash = 889412611; cdat->dobj_439__CLASS_NREP_DATA.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_439__CLASS_NREP_DATA)); /*inistring dstr_440__CLASS_NREP_DATA*/ /*_.VALSTR___V570*/ curfptr[569] = (void*)&cdat->dstr_440__CLASS_NREP_DATA; cdat->dstr_440__CLASS_NREP_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_440__CLASS_NREP_DATA.val, "CLASS_NREP_DATA"); /*inimult dtup_441__CLASS_NREP_DATA*/ /*_.VALTUP___V571*/ curfptr[570] = (void*)&cdat->dtup_441__CLASS_NREP_DATA; cdat->dtup_441__CLASS_NREP_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_441__CLASS_NREP_DATA.nbval = 3; /*inimult dtup_442__CLASS_NREP_DATA*/ /*_.VALTUP___V580*/ curfptr[579] = (void*)&cdat->dtup_442__CLASS_NREP_DATA; cdat->dtup_442__CLASS_NREP_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_442__CLASS_NREP_DATA.nbval = 5; /*iniobj dsym_443__NDATA_NAME*/ if (!/*_.VALDATA___V581*/ curfptr[580]) /*_.VALDATA___V581*/ curfptr[580] = (void*)&cdat->dsym_443__NDATA_NAME; basilys_assertmsg("iniobj checkdiscr dsym_443__NDATA_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__NDATA_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__NDATA_NAME.obj_hash = 310715668; cdat->dsym_443__NDATA_NAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_443__NDATA_NAME)); /*inistring dstr_444__NDATA_NAME*/ /*_.VALSTR___V582*/ curfptr[581] = (void*)&cdat->dstr_444__NDATA_NAME; cdat->dstr_444__NDATA_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_444__NDATA_NAME.val, "NDATA_NAME"); BASILYS_LOCATION("warmelt-normal.bysl:271: @iniobj"); /*iniobj dobj_445__NDATA_NAME*/ if (!/*_.VALDATA___V572*/ curfptr[571]) /*_.VALDATA___V572*/ curfptr[571] = (void*)&cdat->dobj_445__NDATA_NAME; basilys_assertmsg("iniobj checkdiscr dobj_445__NDATA_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_445__NDATA_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_445__NDATA_NAME.obj_num = 1; cdat->dobj_445__NDATA_NAME.obj_hash = 810099837; cdat->dobj_445__NDATA_NAME.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_445__NDATA_NAME)); /*inistring dstr_446__NDATA_NAME*/ /*_.VALSTR___V573*/ curfptr[572] = (void*)&cdat->dstr_446__NDATA_NAME; cdat->dstr_446__NDATA_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_446__NDATA_NAME.val, "NDATA_NAME"); /*iniobj dsym_447__NDATA_DISCRX*/ if (!/*_.VALDATA___V583*/ curfptr[582]) /*_.VALDATA___V583*/ curfptr[582] = (void*)&cdat->dsym_447__NDATA_DISCRX; basilys_assertmsg("iniobj checkdiscr dsym_447__NDATA_DISCRX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_447__NDATA_DISCRX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_447__NDATA_DISCRX.obj_hash = 573180223; cdat->dsym_447__NDATA_DISCRX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_447__NDATA_DISCRX)); /*inistring dstr_448__NDATA_DISCRX*/ /*_.VALSTR___V584*/ curfptr[583] = (void*)&cdat->dstr_448__NDATA_DISCRX; cdat->dstr_448__NDATA_DISCRX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_448__NDATA_DISCRX.val, "NDATA_DISCRX"); BASILYS_LOCATION("warmelt-normal.bysl:271: @iniobj"); /*iniobj dobj_449__NDATA_DISCRX*/ if (!/*_.VALDATA___V574*/ curfptr[573]) /*_.VALDATA___V574*/ curfptr[573] = (void*)&cdat->dobj_449__NDATA_DISCRX; basilys_assertmsg("iniobj checkdiscr dobj_449__NDATA_DISCRX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_449__NDATA_DISCRX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_449__NDATA_DISCRX.obj_num = 2; cdat->dobj_449__NDATA_DISCRX.obj_hash = 357833005; cdat->dobj_449__NDATA_DISCRX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_449__NDATA_DISCRX)); /*inistring dstr_450__NDATA_DISCRX*/ /*_.VALSTR___V575*/ curfptr[574] = (void*)&cdat->dstr_450__NDATA_DISCRX; cdat->dstr_450__NDATA_DISCRX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_450__NDATA_DISCRX.val, "NDATA_DISCRX"); /*iniobj dsym_451__NDATA_RANK*/ if (!/*_.VALDATA___V585*/ curfptr[584]) /*_.VALDATA___V585*/ curfptr[584] = (void*)&cdat->dsym_451__NDATA_RANK; basilys_assertmsg("iniobj checkdiscr dsym_451__NDATA_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_451__NDATA_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_451__NDATA_RANK.obj_hash = 941446399; cdat->dsym_451__NDATA_RANK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_451__NDATA_RANK)); /*inistring dstr_452__NDATA_RANK*/ /*_.VALSTR___V586*/ curfptr[585] = (void*)&cdat->dstr_452__NDATA_RANK; cdat->dstr_452__NDATA_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_452__NDATA_RANK.val, "NDATA_RANK"); BASILYS_LOCATION("warmelt-normal.bysl:271: @iniobj"); /*iniobj dobj_453__NDATA_RANK*/ if (!/*_.VALDATA___V576*/ curfptr[575]) /*_.VALDATA___V576*/ curfptr[575] = (void*)&cdat->dobj_453__NDATA_RANK; basilys_assertmsg("iniobj checkdiscr dobj_453__NDATA_RANK", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__NDATA_RANK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_453__NDATA_RANK.obj_num = 3; cdat->dobj_453__NDATA_RANK.obj_hash = 250355503; cdat->dobj_453__NDATA_RANK.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_453__NDATA_RANK)); /*inistring dstr_454__NDATA_RANK*/ /*_.VALSTR___V577*/ curfptr[576] = (void*)&cdat->dstr_454__NDATA_RANK; cdat->dstr_454__NDATA_RANK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_454__NDATA_RANK.val, "NDATA_RANK"); /*iniobj dsym_455__NDATA_LOCBIND*/ if (!/*_.VALDATA___V587*/ curfptr[586]) /*_.VALDATA___V587*/ curfptr[586] = (void*)&cdat->dsym_455__NDATA_LOCBIND; basilys_assertmsg("iniobj checkdiscr dsym_455__NDATA_LOCBIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_455__NDATA_LOCBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_455__NDATA_LOCBIND.obj_hash = 221454573; cdat->dsym_455__NDATA_LOCBIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_455__NDATA_LOCBIND)); /*inistring dstr_456__NDATA_LOCBIND*/ /*_.VALSTR___V588*/ curfptr[587] = (void*)&cdat->dstr_456__NDATA_LOCBIND; cdat->dstr_456__NDATA_LOCBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_456__NDATA_LOCBIND.val, "NDATA_LOCBIND"); BASILYS_LOCATION("warmelt-normal.bysl:271: @iniobj"); /*iniobj dobj_457__NDATA_LOCBIND*/ if (!/*_.VALDATA___V578*/ curfptr[577]) /*_.VALDATA___V578*/ curfptr[577] = (void*)&cdat->dobj_457__NDATA_LOCBIND; basilys_assertmsg("iniobj checkdiscr dobj_457__NDATA_LOCBIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_457__NDATA_LOCBIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_457__NDATA_LOCBIND.obj_num = 4; cdat->dobj_457__NDATA_LOCBIND.obj_hash = 829859766; cdat->dobj_457__NDATA_LOCBIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_457__NDATA_LOCBIND)); /*inistring dstr_458__NDATA_LOCBIND*/ /*_.VALSTR___V579*/ curfptr[578] = (void*)&cdat->dstr_458__NDATA_LOCBIND; cdat->dstr_458__NDATA_LOCBIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_458__NDATA_LOCBIND.val, "NDATA_LOCBIND"); /*iniobj dsym_459__CLASS_NREP_DATAINSTANCE*/ if (!/*_.VALDATA___V589*/ curfptr[588]) /*_.VALDATA___V589*/ curfptr[588] = (void*)&cdat->dsym_459__CLASS_NREP_DATAINSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_459__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__CLASS_NREP_DATAINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_459__CLASS_NREP_DATAINSTANCE.obj_hash = 475932459; cdat->dsym_459__CLASS_NREP_DATAINSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_459__CLASS_NREP_DATAINSTANCE)); /*inistring dstr_460__CLASS_NREP_DATAI*/ /*_.VALSTR___V590*/ curfptr[589] = (void*)&cdat->dstr_460__CLASS_NREP_DATAI; cdat->dstr_460__CLASS_NREP_DATAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_460__CLASS_NREP_DATAI.val, "CLASS_NREP_DATAINSTANCE"); BASILYS_LOCATION("warmelt-normal.bysl:283: @iniobj"); /*iniobj dobj_461__CLASS_NREP_DATAINSTANCE*/ if (!/*_.VALDATA___V591*/ curfptr[590]) /*_.VALDATA___V591*/ curfptr[590] = (void*)&cdat->dobj_461__CLASS_NREP_DATAINSTANCE; basilys_assertmsg("iniobj checkdiscr dobj_461__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_461__CLASS_NREP_DATAINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_461__CLASS_NREP_DATAINSTANCE.obj_num = OBMAG_OBJECT; cdat->dobj_461__CLASS_NREP_DATAINSTANCE.obj_hash = 199342633; cdat->dobj_461__CLASS_NREP_DATAINSTANCE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_461__CLASS_NREP_DATAINSTANCE)); /*inistring dstr_462__CLASS_NREP_DATAI*/ /*_.VALSTR___V592*/ curfptr[591] = (void*)&cdat->dstr_462__CLASS_NREP_DATAI; cdat->dstr_462__CLASS_NREP_DATAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_462__CLASS_NREP_DATAI.val, "CLASS_NREP_DATAINSTANCE"); /*inimult dtup_463__CLASS_NREP_DATAINSTANCE*/ /*_.VALTUP___V593*/ curfptr[592] = (void*)&cdat->dtup_463__CLASS_NREP_DATAINSTANCE; cdat->dtup_463__CLASS_NREP_DATAINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_463__CLASS_NREP_DATAINSTANCE.nbval = 4; /*inimult dtup_464__CLASS_NREP_DATAINSTANCE*/ /*_.VALTUP___V602*/ curfptr[601] = (void*)&cdat->dtup_464__CLASS_NREP_DATAINSTANCE; cdat->dtup_464__CLASS_NREP_DATAINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_464__CLASS_NREP_DATAINSTANCE.nbval = 9; /*iniobj dsym_465__NINST_OBJNUM*/ if (!/*_.VALDATA___V603*/ curfptr[602]) /*_.VALDATA___V603*/ curfptr[602] = (void*)&cdat->dsym_465__NINST_OBJNUM; basilys_assertmsg("iniobj checkdiscr dsym_465__NINST_OBJNUM", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_465__NINST_OBJNUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_465__NINST_OBJNUM.obj_hash = 387715935; cdat->dsym_465__NINST_OBJNUM.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_465__NINST_OBJNUM)); /*inistring dstr_466__NINST_OBJNUM*/ /*_.VALSTR___V604*/ curfptr[603] = (void*)&cdat->dstr_466__NINST_OBJNUM; cdat->dstr_466__NINST_OBJNUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_466__NINST_OBJNUM.val, "NINST_OBJNUM"); BASILYS_LOCATION("warmelt-normal.bysl:283: @iniobj"); /*iniobj dobj_467__NINST_OBJNUM*/ if (!/*_.VALDATA___V594*/ curfptr[593]) /*_.VALDATA___V594*/ curfptr[593] = (void*)&cdat->dobj_467__NINST_OBJNUM; basilys_assertmsg("iniobj checkdiscr dobj_467__NINST_OBJNUM", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__NINST_OBJNUM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_467__NINST_OBJNUM.obj_num = 5; cdat->dobj_467__NINST_OBJNUM.obj_hash = 869675538; cdat->dobj_467__NINST_OBJNUM.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_467__NINST_OBJNUM)); /*inistring dstr_468__NINST_OBJNUM*/ /*_.VALSTR___V595*/ curfptr[594] = (void*)&cdat->dstr_468__NINST_OBJNUM; cdat->dstr_468__NINST_OBJNUM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_468__NINST_OBJNUM.val, "NINST_OBJNUM"); /*iniobj dsym_469__NINST_PREDEF*/ if (!/*_.VALDATA___V605*/ curfptr[604]) /*_.VALDATA___V605*/ curfptr[604] = (void*)&cdat->dsym_469__NINST_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_469__NINST_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_469__NINST_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_469__NINST_PREDEF.obj_hash = 160057821; cdat->dsym_469__NINST_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_469__NINST_PREDEF)); /*inistring dstr_470__NINST_PREDEF*/ /*_.VALSTR___V606*/ curfptr[605] = (void*)&cdat->dstr_470__NINST_PREDEF; cdat->dstr_470__NINST_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_470__NINST_PREDEF.val, "NINST_PREDEF"); BASILYS_LOCATION("warmelt-normal.bysl:283: @iniobj"); /*iniobj dobj_471__NINST_PREDEF*/ if (!/*_.VALDATA___V596*/ curfptr[595]) /*_.VALDATA___V596*/ curfptr[595] = (void*)&cdat->dobj_471__NINST_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_471__NINST_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__NINST_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_471__NINST_PREDEF.obj_num = 6; cdat->dobj_471__NINST_PREDEF.obj_hash = 75008451; cdat->dobj_471__NINST_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_471__NINST_PREDEF)); /*inistring dstr_472__NINST_PREDEF*/ /*_.VALSTR___V597*/ curfptr[596] = (void*)&cdat->dstr_472__NINST_PREDEF; cdat->dstr_472__NINST_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_472__NINST_PREDEF.val, "NINST_PREDEF"); /*iniobj dsym_473__NINST_HASH*/ if (!/*_.VALDATA___V607*/ curfptr[606]) /*_.VALDATA___V607*/ curfptr[606] = (void*)&cdat->dsym_473__NINST_HASH; basilys_assertmsg("iniobj checkdiscr dsym_473__NINST_HASH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_473__NINST_HASH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_473__NINST_HASH.obj_hash = 973148096; cdat->dsym_473__NINST_HASH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_473__NINST_HASH)); /*inistring dstr_474__NINST_HASH*/ /*_.VALSTR___V608*/ curfptr[607] = (void*)&cdat->dstr_474__NINST_HASH; cdat->dstr_474__NINST_HASH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_474__NINST_HASH.val, "NINST_HASH"); BASILYS_LOCATION("warmelt-normal.bysl:283: @iniobj"); /*iniobj dobj_475__NINST_HASH*/ if (!/*_.VALDATA___V598*/ curfptr[597]) /*_.VALDATA___V598*/ curfptr[597] = (void*)&cdat->dobj_475__NINST_HASH; basilys_assertmsg("iniobj checkdiscr dobj_475__NINST_HASH", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_475__NINST_HASH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_475__NINST_HASH.obj_num = 7; cdat->dobj_475__NINST_HASH.obj_hash = 376037253; cdat->dobj_475__NINST_HASH.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_475__NINST_HASH)); /*inistring dstr_476__NINST_HASH*/ /*_.VALSTR___V599*/ curfptr[598] = (void*)&cdat->dstr_476__NINST_HASH; cdat->dstr_476__NINST_HASH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_476__NINST_HASH.val, "NINST_HASH"); /*iniobj dsym_477__NINST_SLOTS*/ if (!/*_.VALDATA___V609*/ curfptr[608]) /*_.VALDATA___V609*/ curfptr[608] = (void*)&cdat->dsym_477__NINST_SLOTS; basilys_assertmsg("iniobj checkdiscr dsym_477__NINST_SLOTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_477__NINST_SLOTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_477__NINST_SLOTS.obj_hash = 679600969; cdat->dsym_477__NINST_SLOTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_477__NINST_SLOTS)); /*inistring dstr_478__NINST_SLOTS*/ /*_.VALSTR___V610*/ curfptr[609] = (void*)&cdat->dstr_478__NINST_SLOTS; cdat->dstr_478__NINST_SLOTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_478__NINST_SLOTS.val, "NINST_SLOTS"); BASILYS_LOCATION("warmelt-normal.bysl:283: @iniobj"); /*iniobj dobj_479__NINST_SLOTS*/ if (!/*_.VALDATA___V600*/ curfptr[599]) /*_.VALDATA___V600*/ curfptr[599] = (void*)&cdat->dobj_479__NINST_SLOTS; basilys_assertmsg("iniobj checkdiscr dobj_479__NINST_SLOTS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_479__NINST_SLOTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_479__NINST_SLOTS.obj_num = 8; cdat->dobj_479__NINST_SLOTS.obj_hash = 620014980; cdat->dobj_479__NINST_SLOTS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_479__NINST_SLOTS)); /*inistring dstr_480__NINST_SLOTS*/ /*_.VALSTR___V601*/ curfptr[600] = (void*)&cdat->dstr_480__NINST_SLOTS; cdat->dstr_480__NINST_SLOTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_480__NINST_SLOTS.val, "NINST_SLOTS"); /*iniobj dsym_481__CLASS_NREP_DATASTRING*/ if (!/*_.VALDATA___V611*/ curfptr[610]) /*_.VALDATA___V611*/ curfptr[610] = (void*)&cdat->dsym_481__CLASS_NREP_DATASTRING; basilys_assertmsg("iniobj checkdiscr dsym_481__CLASS_NREP_DATASTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_481__CLASS_NREP_DATASTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_481__CLASS_NREP_DATASTRING.obj_hash = 1030159655; cdat->dsym_481__CLASS_NREP_DATASTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_481__CLASS_NREP_DATASTRING)); /*inistring dstr_482__CLASS_NREP_DATAS*/ /*_.VALSTR___V612*/ curfptr[611] = (void*)&cdat->dstr_482__CLASS_NREP_DATAS; cdat->dstr_482__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_482__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASTRING"); BASILYS_LOCATION("warmelt-normal.bysl:292: @iniobj"); /*iniobj dobj_483__CLASS_NREP_DATASTRING*/ if (!/*_.VALDATA___V613*/ curfptr[612]) /*_.VALDATA___V613*/ curfptr[612] = (void*)&cdat->dobj_483__CLASS_NREP_DATASTRING; basilys_assertmsg("iniobj checkdiscr dobj_483__CLASS_NREP_DATASTRING", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_483__CLASS_NREP_DATASTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_483__CLASS_NREP_DATASTRING.obj_num = OBMAG_OBJECT; cdat->dobj_483__CLASS_NREP_DATASTRING.obj_hash = 161095673; cdat->dobj_483__CLASS_NREP_DATASTRING.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_483__CLASS_NREP_DATASTRING)); /*inistring dstr_484__CLASS_NREP_DATAS*/ /*_.VALSTR___V614*/ curfptr[613] = (void*)&cdat->dstr_484__CLASS_NREP_DATAS; cdat->dstr_484__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_484__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASTRING"); /*inimult dtup_485__CLASS_NREP_DATASTRING*/ /*_.VALTUP___V615*/ curfptr[614] = (void*)&cdat->dtup_485__CLASS_NREP_DATASTRING; cdat->dtup_485__CLASS_NREP_DATASTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_485__CLASS_NREP_DATASTRING.nbval = 4; /*inimult dtup_486__CLASS_NREP_DATASTRING*/ /*_.VALTUP___V618*/ curfptr[617] = (void*)&cdat->dtup_486__CLASS_NREP_DATASTRING; cdat->dtup_486__CLASS_NREP_DATASTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_486__CLASS_NREP_DATASTRING.nbval = 6; /*iniobj dsym_487__NSTR_STRING*/ if (!/*_.VALDATA___V619*/ curfptr[618]) /*_.VALDATA___V619*/ curfptr[618] = (void*)&cdat->dsym_487__NSTR_STRING; basilys_assertmsg("iniobj checkdiscr dsym_487__NSTR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__NSTR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_487__NSTR_STRING.obj_hash = 36717001; cdat->dsym_487__NSTR_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_487__NSTR_STRING)); /*inistring dstr_488__NSTR_STRING*/ /*_.VALSTR___V620*/ curfptr[619] = (void*)&cdat->dstr_488__NSTR_STRING; cdat->dstr_488__NSTR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_488__NSTR_STRING.val, "NSTR_STRING"); BASILYS_LOCATION("warmelt-normal.bysl:292: @iniobj"); /*iniobj dobj_489__NSTR_STRING*/ if (!/*_.VALDATA___V616*/ curfptr[615]) /*_.VALDATA___V616*/ curfptr[615] = (void*)&cdat->dobj_489__NSTR_STRING; basilys_assertmsg("iniobj checkdiscr dobj_489__NSTR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_489__NSTR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_489__NSTR_STRING.obj_num = 5; cdat->dobj_489__NSTR_STRING.obj_hash = 612507333; cdat->dobj_489__NSTR_STRING.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_489__NSTR_STRING)); /*inistring dstr_490__NSTR_STRING*/ /*_.VALSTR___V617*/ curfptr[616] = (void*)&cdat->dstr_490__NSTR_STRING; cdat->dstr_490__NSTR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_490__NSTR_STRING.val, "NSTR_STRING"); /*iniobj dsym_491__CLASS_NREP_DATATUPLE*/ if (!/*_.VALDATA___V621*/ curfptr[620]) /*_.VALDATA___V621*/ curfptr[620] = (void*)&cdat->dsym_491__CLASS_NREP_DATATUPLE; basilys_assertmsg("iniobj checkdiscr dsym_491__CLASS_NREP_DATATUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_491__CLASS_NREP_DATATUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_491__CLASS_NREP_DATATUPLE.obj_hash = 100529129; cdat->dsym_491__CLASS_NREP_DATATUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_491__CLASS_NREP_DATATUPLE)); /*inistring dstr_492__CLASS_NREP_DATAT*/ /*_.VALSTR___V622*/ curfptr[621] = (void*)&cdat->dstr_492__CLASS_NREP_DATAT; cdat->dstr_492__CLASS_NREP_DATAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_492__CLASS_NREP_DATAT.val, "CLASS_NREP_DATATUPLE"); BASILYS_LOCATION("warmelt-normal.bysl:298: @iniobj"); /*iniobj dobj_493__CLASS_NREP_DATATUPLE*/ if (!/*_.VALDATA___V623*/ curfptr[622]) /*_.VALDATA___V623*/ curfptr[622] = (void*)&cdat->dobj_493__CLASS_NREP_DATATUPLE; basilys_assertmsg("iniobj checkdiscr dobj_493__CLASS_NREP_DATATUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_493__CLASS_NREP_DATATUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_493__CLASS_NREP_DATATUPLE.obj_num = OBMAG_OBJECT; cdat->dobj_493__CLASS_NREP_DATATUPLE.obj_hash = 834124024; cdat->dobj_493__CLASS_NREP_DATATUPLE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_493__CLASS_NREP_DATATUPLE)); /*inistring dstr_494__CLASS_NREP_DATAT*/ /*_.VALSTR___V624*/ curfptr[623] = (void*)&cdat->dstr_494__CLASS_NREP_DATAT; cdat->dstr_494__CLASS_NREP_DATAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_494__CLASS_NREP_DATAT.val, "CLASS_NREP_DATATUPLE"); /*inimult dtup_495__CLASS_NREP_DATATUPLE*/ /*_.VALTUP___V625*/ curfptr[624] = (void*)&cdat->dtup_495__CLASS_NREP_DATATUPLE; cdat->dtup_495__CLASS_NREP_DATATUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_495__CLASS_NREP_DATATUPLE.nbval = 4; /*inimult dtup_496__CLASS_NREP_DATATUPLE*/ /*_.VALTUP___V628*/ curfptr[627] = (void*)&cdat->dtup_496__CLASS_NREP_DATATUPLE; cdat->dtup_496__CLASS_NREP_DATATUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_496__CLASS_NREP_DATATUPLE.nbval = 6; /*iniobj dsym_497__NTUP_COMP*/ if (!/*_.VALDATA___V629*/ curfptr[628]) /*_.VALDATA___V629*/ curfptr[628] = (void*)&cdat->dsym_497__NTUP_COMP; basilys_assertmsg("iniobj checkdiscr dsym_497__NTUP_COMP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_497__NTUP_COMP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_497__NTUP_COMP.obj_hash = 855040037; cdat->dsym_497__NTUP_COMP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_497__NTUP_COMP)); /*inistring dstr_498__NTUP_COMP*/ /*_.VALSTR___V630*/ curfptr[629] = (void*)&cdat->dstr_498__NTUP_COMP; cdat->dstr_498__NTUP_COMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_498__NTUP_COMP.val, "NTUP_COMP"); BASILYS_LOCATION("warmelt-normal.bysl:298: @iniobj"); /*iniobj dobj_499__NTUP_COMP*/ if (!/*_.VALDATA___V626*/ curfptr[625]) /*_.VALDATA___V626*/ curfptr[625] = (void*)&cdat->dobj_499__NTUP_COMP; basilys_assertmsg("iniobj checkdiscr dobj_499__NTUP_COMP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_499__NTUP_COMP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_499__NTUP_COMP.obj_num = 5; cdat->dobj_499__NTUP_COMP.obj_hash = 858771114; cdat->dobj_499__NTUP_COMP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_499__NTUP_COMP)); /*inistring dstr_500__NTUP_COMP*/ /*_.VALSTR___V627*/ curfptr[626] = (void*)&cdat->dstr_500__NTUP_COMP; cdat->dstr_500__NTUP_COMP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_500__NTUP_COMP.val, "NTUP_COMP"); /*iniobj dsym_501__CLASS_NREP_DATASYMBOL*/ if (!/*_.VALDATA___V631*/ curfptr[630]) /*_.VALDATA___V631*/ curfptr[630] = (void*)&cdat->dsym_501__CLASS_NREP_DATASYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_501__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_501__CLASS_NREP_DATASYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_501__CLASS_NREP_DATASYMBOL.obj_hash = 55902456; cdat->dsym_501__CLASS_NREP_DATASYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_501__CLASS_NREP_DATASYMBOL)); /*inistring dstr_502__CLASS_NREP_DATAS*/ /*_.VALSTR___V632*/ curfptr[631] = (void*)&cdat->dstr_502__CLASS_NREP_DATAS; cdat->dstr_502__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_502__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASYMBOL"); BASILYS_LOCATION("warmelt-normal.bysl:304: @iniobj"); /*iniobj dobj_503__CLASS_NREP_DATASYMBOL*/ if (!/*_.VALDATA___V633*/ curfptr[632]) /*_.VALDATA___V633*/ curfptr[632] = (void*)&cdat->dobj_503__CLASS_NREP_DATASYMBOL; basilys_assertmsg("iniobj checkdiscr dobj_503__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_503__CLASS_NREP_DATASYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_503__CLASS_NREP_DATASYMBOL.obj_num = OBMAG_OBJECT; cdat->dobj_503__CLASS_NREP_DATASYMBOL.obj_hash = 235555362; cdat->dobj_503__CLASS_NREP_DATASYMBOL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_503__CLASS_NREP_DATASYMBOL)); /*inistring dstr_504__CLASS_NREP_DATAS*/ /*_.VALSTR___V634*/ curfptr[633] = (void*)&cdat->dstr_504__CLASS_NREP_DATAS; cdat->dstr_504__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_504__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASYMBOL"); /*inimult dtup_505__CLASS_NREP_DATASYMBOL*/ /*_.VALTUP___V635*/ curfptr[634] = (void*)&cdat->dtup_505__CLASS_NREP_DATASYMBOL; cdat->dtup_505__CLASS_NREP_DATASYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_505__CLASS_NREP_DATASYMBOL.nbval = 5; /*inimult dtup_506__CLASS_NREP_DATASYMBOL*/ /*_.VALTUP___V638*/ curfptr[637] = (void*)&cdat->dtup_506__CLASS_NREP_DATASYMBOL; cdat->dtup_506__CLASS_NREP_DATASYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_506__CLASS_NREP_DATASYMBOL.nbval = 10; /*iniobj dsym_507__NDSY_NAMESTR*/ if (!/*_.VALDATA___V639*/ curfptr[638]) /*_.VALDATA___V639*/ curfptr[638] = (void*)&cdat->dsym_507__NDSY_NAMESTR; basilys_assertmsg("iniobj checkdiscr dsym_507__NDSY_NAMESTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_507__NDSY_NAMESTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_507__NDSY_NAMESTR.obj_hash = 25919283; cdat->dsym_507__NDSY_NAMESTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_507__NDSY_NAMESTR)); /*inistring dstr_508__NDSY_NAMESTR*/ /*_.VALSTR___V640*/ curfptr[639] = (void*)&cdat->dstr_508__NDSY_NAMESTR; cdat->dstr_508__NDSY_NAMESTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_508__NDSY_NAMESTR.val, "NDSY_NAMESTR"); BASILYS_LOCATION("warmelt-normal.bysl:304: @iniobj"); /*iniobj dobj_509__NDSY_NAMESTR*/ if (!/*_.VALDATA___V636*/ curfptr[635]) /*_.VALDATA___V636*/ curfptr[635] = (void*)&cdat->dobj_509__NDSY_NAMESTR; basilys_assertmsg("iniobj checkdiscr dobj_509__NDSY_NAMESTR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__NDSY_NAMESTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_509__NDSY_NAMESTR.obj_num = 9; cdat->dobj_509__NDSY_NAMESTR.obj_hash = 151237634; cdat->dobj_509__NDSY_NAMESTR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_509__NDSY_NAMESTR)); /*inistring dstr_510__NDSY_NAMESTR*/ /*_.VALSTR___V637*/ curfptr[636] = (void*)&cdat->dstr_510__NDSY_NAMESTR; cdat->dstr_510__NDSY_NAMESTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_510__NDSY_NAMESTR.val, "NDSY_NAMESTR"); /*iniobj dsym_511__CLASS_NREP_DATAKEYWORD*/ if (!/*_.VALDATA___V641*/ curfptr[640]) /*_.VALDATA___V641*/ curfptr[640] = (void*)&cdat->dsym_511__CLASS_NREP_DATAKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_511__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_511__CLASS_NREP_DATAKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_511__CLASS_NREP_DATAKEYWORD.obj_hash = 755124591; cdat->dsym_511__CLASS_NREP_DATAKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_511__CLASS_NREP_DATAKEYWORD)); /*inistring dstr_512__CLASS_NREP_DATAK*/ /*_.VALSTR___V642*/ curfptr[641] = (void*)&cdat->dstr_512__CLASS_NREP_DATAK; cdat->dstr_512__CLASS_NREP_DATAK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_512__CLASS_NREP_DATAK.val, "CLASS_NREP_DATAKEYWORD"); BASILYS_LOCATION("warmelt-normal.bysl:310: @iniobj"); /*iniobj dobj_513__CLASS_NREP_DATAKEYWORD*/ if (!/*_.VALDATA___V643*/ curfptr[642]) /*_.VALDATA___V643*/ curfptr[642] = (void*)&cdat->dobj_513__CLASS_NREP_DATAKEYWORD; basilys_assertmsg("iniobj checkdiscr dobj_513__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_513__CLASS_NREP_DATAKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_513__CLASS_NREP_DATAKEYWORD.obj_num = OBMAG_OBJECT; cdat->dobj_513__CLASS_NREP_DATAKEYWORD.obj_hash = 429604753; cdat->dobj_513__CLASS_NREP_DATAKEYWORD.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_513__CLASS_NREP_DATAKEYWORD)); /*inistring dstr_514__CLASS_NREP_DATAK*/ /*_.VALSTR___V644*/ curfptr[643] = (void*)&cdat->dstr_514__CLASS_NREP_DATAK; cdat->dstr_514__CLASS_NREP_DATAK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_514__CLASS_NREP_DATAK.val, "CLASS_NREP_DATAKEYWORD"); /*inimult dtup_515__CLASS_NREP_DATAKEYWORD*/ /*_.VALTUP___V645*/ curfptr[644] = (void*)&cdat->dtup_515__CLASS_NREP_DATAKEYWORD; cdat->dtup_515__CLASS_NREP_DATAKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_515__CLASS_NREP_DATAKEYWORD.nbval = 6; /*inimult dtup_516__CLASS_NREP_DATAKEYWORD*/ /*_.VALTUP___V646*/ curfptr[645] = (void*)&cdat->dtup_516__CLASS_NREP_DATAKEYWORD; cdat->dtup_516__CLASS_NREP_DATAKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_516__CLASS_NREP_DATAKEYWORD.nbval = 10; /*iniobj dsym_517__CLASS_NREP_DATAROUTINE*/ if (!/*_.VALDATA___V647*/ curfptr[646]) /*_.VALDATA___V647*/ curfptr[646] = (void*)&cdat->dsym_517__CLASS_NREP_DATAROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_517__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_517__CLASS_NREP_DATAROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_517__CLASS_NREP_DATAROUTINE.obj_hash = 675830344; cdat->dsym_517__CLASS_NREP_DATAROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_517__CLASS_NREP_DATAROUTINE)); /*inistring dstr_518__CLASS_NREP_DATAR*/ /*_.VALSTR___V648*/ curfptr[647] = (void*)&cdat->dstr_518__CLASS_NREP_DATAR; cdat->dstr_518__CLASS_NREP_DATAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_518__CLASS_NREP_DATAR.val, "CLASS_NREP_DATAROUTINE"); BASILYS_LOCATION("warmelt-normal.bysl:316: @iniobj"); /*iniobj dobj_519__CLASS_NREP_DATAROUTINE*/ if (!/*_.VALDATA___V649*/ curfptr[648]) /*_.VALDATA___V649*/ curfptr[648] = (void*)&cdat->dobj_519__CLASS_NREP_DATAROUTINE; basilys_assertmsg("iniobj checkdiscr dobj_519__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_519__CLASS_NREP_DATAROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_519__CLASS_NREP_DATAROUTINE.obj_num = OBMAG_OBJECT; cdat->dobj_519__CLASS_NREP_DATAROUTINE.obj_hash = 327988246; cdat->dobj_519__CLASS_NREP_DATAROUTINE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_519__CLASS_NREP_DATAROUTINE)); /*inistring dstr_520__CLASS_NREP_DATAR*/ /*_.VALSTR___V650*/ curfptr[649] = (void*)&cdat->dstr_520__CLASS_NREP_DATAR; cdat->dstr_520__CLASS_NREP_DATAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_520__CLASS_NREP_DATAR.val, "CLASS_NREP_DATAROUTINE"); /*inimult dtup_521__CLASS_NREP_DATAROUTINE*/ /*_.VALTUP___V651*/ curfptr[650] = (void*)&cdat->dtup_521__CLASS_NREP_DATAROUTINE; cdat->dtup_521__CLASS_NREP_DATAROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_521__CLASS_NREP_DATAROUTINE.nbval = 4; /*inimult dtup_522__CLASS_NREP_DATAROUTINE*/ /*_.VALTUP___V654*/ curfptr[653] = (void*)&cdat->dtup_522__CLASS_NREP_DATAROUTINE; cdat->dtup_522__CLASS_NREP_DATAROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_522__CLASS_NREP_DATAROUTINE.nbval = 6; /*iniobj dsym_523__NDROU_PROC*/ if (!/*_.VALDATA___V655*/ curfptr[654]) /*_.VALDATA___V655*/ curfptr[654] = (void*)&cdat->dsym_523__NDROU_PROC; basilys_assertmsg("iniobj checkdiscr dsym_523__NDROU_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_523__NDROU_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_523__NDROU_PROC.obj_hash = 167596035; cdat->dsym_523__NDROU_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_523__NDROU_PROC)); /*inistring dstr_524__NDROU_PROC*/ /*_.VALSTR___V656*/ curfptr[655] = (void*)&cdat->dstr_524__NDROU_PROC; cdat->dstr_524__NDROU_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_524__NDROU_PROC.val, "NDROU_PROC"); BASILYS_LOCATION("warmelt-normal.bysl:316: @iniobj"); /*iniobj dobj_525__NDROU_PROC*/ if (!/*_.VALDATA___V652*/ curfptr[651]) /*_.VALDATA___V652*/ curfptr[651] = (void*)&cdat->dobj_525__NDROU_PROC; basilys_assertmsg("iniobj checkdiscr dobj_525__NDROU_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_525__NDROU_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_525__NDROU_PROC.obj_num = 5; cdat->dobj_525__NDROU_PROC.obj_hash = 779120349; cdat->dobj_525__NDROU_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_525__NDROU_PROC)); /*inistring dstr_526__NDROU_PROC*/ /*_.VALSTR___V653*/ curfptr[652] = (void*)&cdat->dstr_526__NDROU_PROC; cdat->dstr_526__NDROU_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_526__NDROU_PROC.val, "NDROU_PROC"); /*iniobj dsym_527__CLASS_NREP_DATACLOSURE*/ if (!/*_.VALDATA___V657*/ curfptr[656]) /*_.VALDATA___V657*/ curfptr[656] = (void*)&cdat->dsym_527__CLASS_NREP_DATACLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_527__CLASS_NREP_DATACLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_527__CLASS_NREP_DATACLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_527__CLASS_NREP_DATACLOSURE.obj_hash = 206205313; cdat->dsym_527__CLASS_NREP_DATACLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_527__CLASS_NREP_DATACLOSURE)); /*inistring dstr_528__CLASS_NREP_DATAC*/ /*_.VALSTR___V658*/ curfptr[657] = (void*)&cdat->dstr_528__CLASS_NREP_DATAC; cdat->dstr_528__CLASS_NREP_DATAC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_528__CLASS_NREP_DATAC.val, "CLASS_NREP_DATACLOSURE"); BASILYS_LOCATION("warmelt-normal.bysl:322: @iniobj"); /*iniobj dobj_529__CLASS_NREP_DATACLOSURE*/ if (!/*_.VALDATA___V659*/ curfptr[658]) /*_.VALDATA___V659*/ curfptr[658] = (void*)&cdat->dobj_529__CLASS_NREP_DATACLOSURE; basilys_assertmsg("iniobj checkdiscr dobj_529__CLASS_NREP_DATACLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_529__CLASS_NREP_DATACLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_529__CLASS_NREP_DATACLOSURE.obj_num = OBMAG_OBJECT; cdat->dobj_529__CLASS_NREP_DATACLOSURE.obj_hash = 72831630; cdat->dobj_529__CLASS_NREP_DATACLOSURE.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_529__CLASS_NREP_DATACLOSURE)); /*inistring dstr_530__CLASS_NREP_DATAC*/ /*_.VALSTR___V660*/ curfptr[659] = (void*)&cdat->dstr_530__CLASS_NREP_DATAC; cdat->dstr_530__CLASS_NREP_DATAC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_530__CLASS_NREP_DATAC.val, "CLASS_NREP_DATACLOSURE"); /*inimult dtup_531__CLASS_NREP_DATACLOSURE*/ /*_.VALTUP___V661*/ curfptr[660] = (void*)&cdat->dtup_531__CLASS_NREP_DATACLOSURE; cdat->dtup_531__CLASS_NREP_DATACLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_531__CLASS_NREP_DATACLOSURE.nbval = 4; /*inimult dtup_532__CLASS_NREP_DATACLOSURE*/ /*_.VALTUP___V666*/ curfptr[665] = (void*)&cdat->dtup_532__CLASS_NREP_DATACLOSURE; cdat->dtup_532__CLASS_NREP_DATACLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_532__CLASS_NREP_DATACLOSURE.nbval = 7; /*iniobj dsym_533__NDCLO_PROC*/ if (!/*_.VALDATA___V667*/ curfptr[666]) /*_.VALDATA___V667*/ curfptr[666] = (void*)&cdat->dsym_533__NDCLO_PROC; basilys_assertmsg("iniobj checkdiscr dsym_533__NDCLO_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_533__NDCLO_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_533__NDCLO_PROC.obj_hash = 452648856; cdat->dsym_533__NDCLO_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_533__NDCLO_PROC)); /*inistring dstr_534__NDCLO_PROC*/ /*_.VALSTR___V668*/ curfptr[667] = (void*)&cdat->dstr_534__NDCLO_PROC; cdat->dstr_534__NDCLO_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_534__NDCLO_PROC.val, "NDCLO_PROC"); BASILYS_LOCATION("warmelt-normal.bysl:322: @iniobj"); /*iniobj dobj_535__NDCLO_PROC*/ if (!/*_.VALDATA___V662*/ curfptr[661]) /*_.VALDATA___V662*/ curfptr[661] = (void*)&cdat->dobj_535__NDCLO_PROC; basilys_assertmsg("iniobj checkdiscr dobj_535__NDCLO_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_535__NDCLO_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_535__NDCLO_PROC.obj_num = 5; cdat->dobj_535__NDCLO_PROC.obj_hash = 511110401; cdat->dobj_535__NDCLO_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_535__NDCLO_PROC)); /*inistring dstr_536__NDCLO_PROC*/ /*_.VALSTR___V663*/ curfptr[662] = (void*)&cdat->dstr_536__NDCLO_PROC; cdat->dstr_536__NDCLO_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_536__NDCLO_PROC.val, "NDCLO_PROC"); /*iniobj dsym_537__NDCLO_CLOSV*/ if (!/*_.VALDATA___V669*/ curfptr[668]) /*_.VALDATA___V669*/ curfptr[668] = (void*)&cdat->dsym_537__NDCLO_CLOSV; basilys_assertmsg("iniobj checkdiscr dsym_537__NDCLO_CLOSV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_537__NDCLO_CLOSV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_537__NDCLO_CLOSV.obj_hash = 941944987; cdat->dsym_537__NDCLO_CLOSV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_537__NDCLO_CLOSV)); /*inistring dstr_538__NDCLO_CLOSV*/ /*_.VALSTR___V670*/ curfptr[669] = (void*)&cdat->dstr_538__NDCLO_CLOSV; cdat->dstr_538__NDCLO_CLOSV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_538__NDCLO_CLOSV.val, "NDCLO_CLOSV"); BASILYS_LOCATION("warmelt-normal.bysl:322: @iniobj"); /*iniobj dobj_539__NDCLO_CLOSV*/ if (!/*_.VALDATA___V664*/ curfptr[663]) /*_.VALDATA___V664*/ curfptr[663] = (void*)&cdat->dobj_539__NDCLO_CLOSV; basilys_assertmsg("iniobj checkdiscr dobj_539__NDCLO_CLOSV", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_539__NDCLO_CLOSV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_539__NDCLO_CLOSV.obj_num = 6; cdat->dobj_539__NDCLO_CLOSV.obj_hash = 281944641; cdat->dobj_539__NDCLO_CLOSV.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_539__NDCLO_CLOSV)); /*inistring dstr_540__NDCLO_CLOSV*/ /*_.VALSTR___V665*/ curfptr[664] = (void*)&cdat->dstr_540__NDCLO_CLOSV; cdat->dstr_540__NDCLO_CLOSV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_540__NDCLO_CLOSV.val, "NDCLO_CLOSV"); /*iniobj dsym_541__CLASS_NREP_IMPORTEDVAL*/ if (!/*_.VALDATA___V671*/ curfptr[670]) /*_.VALDATA___V671*/ curfptr[670] = (void*)&cdat->dsym_541__CLASS_NREP_IMPORTEDVAL; basilys_assertmsg("iniobj checkdiscr dsym_541__CLASS_NREP_IMPORTEDVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_541__CLASS_NREP_IMPORTEDVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_541__CLASS_NREP_IMPORTEDVAL.obj_hash = 143332453; cdat->dsym_541__CLASS_NREP_IMPORTEDVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_541__CLASS_NREP_IMPORTEDVAL)); /*inistring dstr_542__CLASS_NREP_IMPOR*/ /*_.VALSTR___V672*/ curfptr[671] = (void*)&cdat->dstr_542__CLASS_NREP_IMPOR; cdat->dstr_542__CLASS_NREP_IMPOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_542__CLASS_NREP_IMPOR.val, "CLASS_NREP_IMPORTEDVAL"); BASILYS_LOCATION("warmelt-normal.bysl:330: @iniobj"); /*iniobj dobj_543__CLASS_NREP_IMPORTEDVAL*/ if (!/*_.VALDATA___V673*/ curfptr[672]) /*_.VALDATA___V673*/ curfptr[672] = (void*)&cdat->dobj_543__CLASS_NREP_IMPORTEDVAL; basilys_assertmsg("iniobj checkdiscr dobj_543__CLASS_NREP_IMPORTEDVAL", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_543__CLASS_NREP_IMPORTEDVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_543__CLASS_NREP_IMPORTEDVAL.obj_num = OBMAG_OBJECT; cdat->dobj_543__CLASS_NREP_IMPORTEDVAL.obj_hash = 116427717; cdat->dobj_543__CLASS_NREP_IMPORTEDVAL.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_543__CLASS_NREP_IMPORTEDVAL)); /*inistring dstr_544__CLASS_NREP_IMPOR*/ /*_.VALSTR___V674*/ curfptr[673] = (void*)&cdat->dstr_544__CLASS_NREP_IMPOR; cdat->dstr_544__CLASS_NREP_IMPOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_544__CLASS_NREP_IMPOR.val, "CLASS_NREP_IMPORTEDVAL"); /*inimult dtup_545__CLASS_NREP_IMPORTEDVAL*/ /*_.VALTUP___V675*/ curfptr[674] = (void*)&cdat->dtup_545__CLASS_NREP_IMPORTEDVAL; cdat->dtup_545__CLASS_NREP_IMPORTEDVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_545__CLASS_NREP_IMPORTEDVAL.nbval = 3; /*inimult dtup_546__CLASS_NREP_IMPORTEDVAL*/ /*_.VALTUP___V680*/ curfptr[679] = (void*)&cdat->dtup_546__CLASS_NREP_IMPORTEDVAL; cdat->dtup_546__CLASS_NREP_IMPORTEDVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_546__CLASS_NREP_IMPORTEDVAL.nbval = 3; /*iniobj dsym_547__NIMPORT_SYMB*/ if (!/*_.VALDATA___V681*/ curfptr[680]) /*_.VALDATA___V681*/ curfptr[680] = (void*)&cdat->dsym_547__NIMPORT_SYMB; basilys_assertmsg("iniobj checkdiscr dsym_547__NIMPORT_SYMB", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_547__NIMPORT_SYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_547__NIMPORT_SYMB.obj_hash = 22382565; cdat->dsym_547__NIMPORT_SYMB.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_547__NIMPORT_SYMB)); /*inistring dstr_548__NIMPORT_SYMB*/ /*_.VALSTR___V682*/ curfptr[681] = (void*)&cdat->dstr_548__NIMPORT_SYMB; cdat->dstr_548__NIMPORT_SYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_548__NIMPORT_SYMB.val, "NIMPORT_SYMB"); BASILYS_LOCATION("warmelt-normal.bysl:330: @iniobj"); /*iniobj dobj_549__NIMPORT_SYMB*/ if (!/*_.VALDATA___V676*/ curfptr[675]) /*_.VALDATA___V676*/ curfptr[675] = (void*)&cdat->dobj_549__NIMPORT_SYMB; basilys_assertmsg("iniobj checkdiscr dobj_549__NIMPORT_SYMB", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_549__NIMPORT_SYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_549__NIMPORT_SYMB.obj_num = 1; cdat->dobj_549__NIMPORT_SYMB.obj_hash = 335580248; cdat->dobj_549__NIMPORT_SYMB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_549__NIMPORT_SYMB)); /*inistring dstr_550__NIMPORT_SYMB*/ /*_.VALSTR___V677*/ curfptr[676] = (void*)&cdat->dstr_550__NIMPORT_SYMB; cdat->dstr_550__NIMPORT_SYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_550__NIMPORT_SYMB.val, "NIMPORT_SYMB"); /*iniobj dsym_551__NIMPORT_SYDATA*/ if (!/*_.VALDATA___V683*/ curfptr[682]) /*_.VALDATA___V683*/ curfptr[682] = (void*)&cdat->dsym_551__NIMPORT_SYDATA; basilys_assertmsg("iniobj checkdiscr dsym_551__NIMPORT_SYDATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_551__NIMPORT_SYDATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_551__NIMPORT_SYDATA.obj_hash = 950949061; cdat->dsym_551__NIMPORT_SYDATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_551__NIMPORT_SYDATA)); /*inistring dstr_552__NIMPORT_SYDATA*/ /*_.VALSTR___V684*/ curfptr[683] = (void*)&cdat->dstr_552__NIMPORT_SYDATA; cdat->dstr_552__NIMPORT_SYDATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_552__NIMPORT_SYDATA.val, "NIMPORT_SYDATA"); BASILYS_LOCATION("warmelt-normal.bysl:330: @iniobj"); /*iniobj dobj_553__NIMPORT_SYDATA*/ if (!/*_.VALDATA___V678*/ curfptr[677]) /*_.VALDATA___V678*/ curfptr[677] = (void*)&cdat->dobj_553__NIMPORT_SYDATA; basilys_assertmsg("iniobj checkdiscr dobj_553__NIMPORT_SYDATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_553__NIMPORT_SYDATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_553__NIMPORT_SYDATA.obj_num = 2; cdat->dobj_553__NIMPORT_SYDATA.obj_hash = 576980175; cdat->dobj_553__NIMPORT_SYDATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_553__NIMPORT_SYDATA)); /*inistring dstr_554__NIMPORT_SYDATA*/ /*_.VALSTR___V679*/ curfptr[678] = (void*)&cdat->dstr_554__NIMPORT_SYDATA; cdat->dstr_554__NIMPORT_SYDATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_554__NIMPORT_SYDATA.val, "NIMPORT_SYDATA"); /*iniobj dsym_555__CLASS_NREP_SYMOCC*/ if (!/*_.VALDATA___V685*/ curfptr[684]) /*_.VALDATA___V685*/ curfptr[684] = (void*)&cdat->dsym_555__CLASS_NREP_SYMOCC; basilys_assertmsg("iniobj checkdiscr dsym_555__CLASS_NREP_SYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_555__CLASS_NREP_SYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_555__CLASS_NREP_SYMOCC.obj_hash = 643883390; cdat->dsym_555__CLASS_NREP_SYMOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_555__CLASS_NREP_SYMOCC)); /*inistring dstr_556__CLASS_NREP_SYMOC*/ /*_.VALSTR___V686*/ curfptr[685] = (void*)&cdat->dstr_556__CLASS_NREP_SYMOC; cdat->dstr_556__CLASS_NREP_SYMOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_556__CLASS_NREP_SYMOC.val, "CLASS_NREP_SYMOCC"); BASILYS_LOCATION("warmelt-normal.bysl:337: @iniobj"); /*iniobj dobj_557__CLASS_NREP_SYMOCC*/ if (!/*_.VALDATA___V687*/ curfptr[686]) /*_.VALDATA___V687*/ curfptr[686] = (void*)&cdat->dobj_557__CLASS_NREP_SYMOCC; basilys_assertmsg("iniobj checkdiscr dobj_557__CLASS_NREP_SYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_557__CLASS_NREP_SYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_557__CLASS_NREP_SYMOCC.obj_num = OBMAG_OBJECT; cdat->dobj_557__CLASS_NREP_SYMOCC.obj_hash = 862087521; cdat->dobj_557__CLASS_NREP_SYMOCC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_557__CLASS_NREP_SYMOCC)); /*inistring dstr_558__CLASS_NREP_SYMOC*/ /*_.VALSTR___V688*/ curfptr[687] = (void*)&cdat->dstr_558__CLASS_NREP_SYMOC; cdat->dstr_558__CLASS_NREP_SYMOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_558__CLASS_NREP_SYMOC.val, "CLASS_NREP_SYMOCC"); /*inimult dtup_559__CLASS_NREP_SYMOCC*/ /*_.VALTUP___V689*/ curfptr[688] = (void*)&cdat->dtup_559__CLASS_NREP_SYMOCC; cdat->dtup_559__CLASS_NREP_SYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_559__CLASS_NREP_SYMOCC.nbval = 3; /*inimult dtup_560__CLASS_NREP_SYMOCC*/ /*_.VALTUP___V696*/ curfptr[695] = (void*)&cdat->dtup_560__CLASS_NREP_SYMOCC; cdat->dtup_560__CLASS_NREP_SYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_560__CLASS_NREP_SYMOCC.nbval = 4; /*iniobj dsym_561__NOCC_SYMB*/ if (!/*_.VALDATA___V697*/ curfptr[696]) /*_.VALDATA___V697*/ curfptr[696] = (void*)&cdat->dsym_561__NOCC_SYMB; basilys_assertmsg("iniobj checkdiscr dsym_561__NOCC_SYMB", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_561__NOCC_SYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_561__NOCC_SYMB.obj_hash = 597261283; cdat->dsym_561__NOCC_SYMB.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_561__NOCC_SYMB)); /*inistring dstr_562__NOCC_SYMB*/ /*_.VALSTR___V698*/ curfptr[697] = (void*)&cdat->dstr_562__NOCC_SYMB; cdat->dstr_562__NOCC_SYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_562__NOCC_SYMB.val, "NOCC_SYMB"); BASILYS_LOCATION("warmelt-normal.bysl:337: @iniobj"); /*iniobj dobj_563__NOCC_SYMB*/ if (!/*_.VALDATA___V690*/ curfptr[689]) /*_.VALDATA___V690*/ curfptr[689] = (void*)&cdat->dobj_563__NOCC_SYMB; basilys_assertmsg("iniobj checkdiscr dobj_563__NOCC_SYMB", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_563__NOCC_SYMB.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_563__NOCC_SYMB.obj_num = 1; cdat->dobj_563__NOCC_SYMB.obj_hash = 630886378; cdat->dobj_563__NOCC_SYMB.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_563__NOCC_SYMB)); /*inistring dstr_564__NOCC_SYMB*/ /*_.VALSTR___V691*/ curfptr[690] = (void*)&cdat->dstr_564__NOCC_SYMB; cdat->dstr_564__NOCC_SYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_564__NOCC_SYMB.val, "NOCC_SYMB"); /*iniobj dsym_565__NOCC_CTYP*/ if (!/*_.VALDATA___V699*/ curfptr[698]) /*_.VALDATA___V699*/ curfptr[698] = (void*)&cdat->dsym_565__NOCC_CTYP; basilys_assertmsg("iniobj checkdiscr dsym_565__NOCC_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_565__NOCC_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_565__NOCC_CTYP.obj_hash = 138326705; cdat->dsym_565__NOCC_CTYP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_565__NOCC_CTYP)); /*inistring dstr_566__NOCC_CTYP*/ /*_.VALSTR___V700*/ curfptr[699] = (void*)&cdat->dstr_566__NOCC_CTYP; cdat->dstr_566__NOCC_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_566__NOCC_CTYP.val, "NOCC_CTYP"); BASILYS_LOCATION("warmelt-normal.bysl:337: @iniobj"); /*iniobj dobj_567__NOCC_CTYP*/ if (!/*_.VALDATA___V692*/ curfptr[691]) /*_.VALDATA___V692*/ curfptr[691] = (void*)&cdat->dobj_567__NOCC_CTYP; basilys_assertmsg("iniobj checkdiscr dobj_567__NOCC_CTYP", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_567__NOCC_CTYP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_567__NOCC_CTYP.obj_num = 2; cdat->dobj_567__NOCC_CTYP.obj_hash = 40463206; cdat->dobj_567__NOCC_CTYP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_567__NOCC_CTYP)); /*inistring dstr_568__NOCC_CTYP*/ /*_.VALSTR___V693*/ curfptr[692] = (void*)&cdat->dstr_568__NOCC_CTYP; cdat->dstr_568__NOCC_CTYP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_568__NOCC_CTYP.val, "NOCC_CTYP"); /*iniobj dsym_569__NOCC_BIND*/ if (!/*_.VALDATA___V701*/ curfptr[700]) /*_.VALDATA___V701*/ curfptr[700] = (void*)&cdat->dsym_569__NOCC_BIND; basilys_assertmsg("iniobj checkdiscr dsym_569__NOCC_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_569__NOCC_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_569__NOCC_BIND.obj_hash = 143816649; cdat->dsym_569__NOCC_BIND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_569__NOCC_BIND)); /*inistring dstr_570__NOCC_BIND*/ /*_.VALSTR___V702*/ curfptr[701] = (void*)&cdat->dstr_570__NOCC_BIND; cdat->dstr_570__NOCC_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_570__NOCC_BIND.val, "NOCC_BIND"); BASILYS_LOCATION("warmelt-normal.bysl:337: @iniobj"); /*iniobj dobj_571__NOCC_BIND*/ if (!/*_.VALDATA___V694*/ curfptr[693]) /*_.VALDATA___V694*/ curfptr[693] = (void*)&cdat->dobj_571__NOCC_BIND; basilys_assertmsg("iniobj checkdiscr dobj_571__NOCC_BIND", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_571__NOCC_BIND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_571__NOCC_BIND.obj_num = 3; cdat->dobj_571__NOCC_BIND.obj_hash = 327590856; cdat->dobj_571__NOCC_BIND.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_571__NOCC_BIND)); /*inistring dstr_572__NOCC_BIND*/ /*_.VALSTR___V695*/ curfptr[694] = (void*)&cdat->dstr_572__NOCC_BIND; cdat->dstr_572__NOCC_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_572__NOCC_BIND.val, "NOCC_BIND"); /*iniobj dsym_573__CLASS_NREP_LOCSYMOCC*/ if (!/*_.VALDATA___V703*/ curfptr[702]) /*_.VALDATA___V703*/ curfptr[702] = (void*)&cdat->dsym_573__CLASS_NREP_LOCSYMOCC; basilys_assertmsg("iniobj checkdiscr dsym_573__CLASS_NREP_LOCSYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_573__CLASS_NREP_LOCSYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_573__CLASS_NREP_LOCSYMOCC.obj_hash = 614887922; cdat->dsym_573__CLASS_NREP_LOCSYMOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_573__CLASS_NREP_LOCSYMOCC)); /*inistring dstr_574__CLASS_NREP_LOCSY*/ /*_.VALSTR___V704*/ curfptr[703] = (void*)&cdat->dstr_574__CLASS_NREP_LOCSY; cdat->dstr_574__CLASS_NREP_LOCSY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_574__CLASS_NREP_LOCSY.val, "CLASS_NREP_LOCSYMOCC"); BASILYS_LOCATION("warmelt-normal.bysl:345: @iniobj"); /*iniobj dobj_575__CLASS_NREP_LOCSYMOCC*/ if (!/*_.VALDATA___V705*/ curfptr[704]) /*_.VALDATA___V705*/ curfptr[704] = (void*)&cdat->dobj_575__CLASS_NREP_LOCSYMOCC; basilys_assertmsg("iniobj checkdiscr dobj_575__CLASS_NREP_LOCSYMOCC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_575__CLASS_NREP_LOCSYMOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_575__CLASS_NREP_LOCSYMOCC.obj_num = OBMAG_OBJECT; cdat->dobj_575__CLASS_NREP_LOCSYMOCC.obj_hash = 1053671778; cdat->dobj_575__CLASS_NREP_LOCSYMOCC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_575__CLASS_NREP_LOCSYMOCC)); /*inistring dstr_576__CLASS_NREP_LOCSY*/ /*_.VALSTR___V706*/ curfptr[705] = (void*)&cdat->dstr_576__CLASS_NREP_LOCSY; cdat->dstr_576__CLASS_NREP_LOCSY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_576__CLASS_NREP_LOCSY.val, "CLASS_NREP_LOCSYMOCC"); /*inimult dtup_577__CLASS_NREP_LOCSYMOCC*/ /*_.VALTUP___V707*/ curfptr[706] = (void*)&cdat->dtup_577__CLASS_NREP_LOCSYMOCC; cdat->dtup_577__CLASS_NREP_LOCSYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_577__CLASS_NREP_LOCSYMOCC.nbval = 4; /*inimult dtup_578__CLASS_NREP_LOCSYMOCC*/ /*_.VALTUP___V708*/ curfptr[707] = (void*)&cdat->dtup_578__CLASS_NREP_LOCSYMOCC; cdat->dtup_578__CLASS_NREP_LOCSYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_578__CLASS_NREP_LOCSYMOCC.nbval = 4; /*iniobj dsym_579__CLASS_NREP_CLOSEDOCC*/ if (!/*_.VALDATA___V709*/ curfptr[708]) /*_.VALDATA___V709*/ curfptr[708] = (void*)&cdat->dsym_579__CLASS_NREP_CLOSEDOCC; basilys_assertmsg("iniobj checkdiscr dsym_579__CLASS_NREP_CLOSEDOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_579__CLASS_NREP_CLOSEDOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_579__CLASS_NREP_CLOSEDOCC.obj_hash = 907150232; cdat->dsym_579__CLASS_NREP_CLOSEDOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_579__CLASS_NREP_CLOSEDOCC)); /*inistring dstr_580__CLASS_NREP_CLOSE*/ /*_.VALSTR___V710*/ curfptr[709] = (void*)&cdat->dstr_580__CLASS_NREP_CLOSE; cdat->dstr_580__CLASS_NREP_CLOSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_580__CLASS_NREP_CLOSE.val, "CLASS_NREP_CLOSEDOCC"); BASILYS_LOCATION("warmelt-normal.bysl:351: @iniobj"); /*iniobj dobj_581__CLASS_NREP_CLOSEDOCC*/ if (!/*_.VALDATA___V711*/ curfptr[710]) /*_.VALDATA___V711*/ curfptr[710] = (void*)&cdat->dobj_581__CLASS_NREP_CLOSEDOCC; basilys_assertmsg("iniobj checkdiscr dobj_581__CLASS_NREP_CLOSEDOCC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_581__CLASS_NREP_CLOSEDOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_581__CLASS_NREP_CLOSEDOCC.obj_num = OBMAG_OBJECT; cdat->dobj_581__CLASS_NREP_CLOSEDOCC.obj_hash = 486931022; cdat->dobj_581__CLASS_NREP_CLOSEDOCC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_581__CLASS_NREP_CLOSEDOCC)); /*inistring dstr_582__CLASS_NREP_CLOSE*/ /*_.VALSTR___V712*/ curfptr[711] = (void*)&cdat->dstr_582__CLASS_NREP_CLOSE; cdat->dstr_582__CLASS_NREP_CLOSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_582__CLASS_NREP_CLOSE.val, "CLASS_NREP_CLOSEDOCC"); /*inimult dtup_583__CLASS_NREP_CLOSEDOCC*/ /*_.VALTUP___V713*/ curfptr[712] = (void*)&cdat->dtup_583__CLASS_NREP_CLOSEDOCC; cdat->dtup_583__CLASS_NREP_CLOSEDOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_583__CLASS_NREP_CLOSEDOCC.nbval = 4; /*inimult dtup_584__CLASS_NREP_CLOSEDOCC*/ /*_.VALTUP___V716*/ curfptr[715] = (void*)&cdat->dtup_584__CLASS_NREP_CLOSEDOCC; cdat->dtup_584__CLASS_NREP_CLOSEDOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_584__CLASS_NREP_CLOSEDOCC.nbval = 5; /*iniobj dsym_585__NCLOC_PROCS*/ if (!/*_.VALDATA___V717*/ curfptr[716]) /*_.VALDATA___V717*/ curfptr[716] = (void*)&cdat->dsym_585__NCLOC_PROCS; basilys_assertmsg("iniobj checkdiscr dsym_585__NCLOC_PROCS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_585__NCLOC_PROCS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_585__NCLOC_PROCS.obj_hash = 863059591; cdat->dsym_585__NCLOC_PROCS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_585__NCLOC_PROCS)); /*inistring dstr_586__NCLOC_PROCS*/ /*_.VALSTR___V718*/ curfptr[717] = (void*)&cdat->dstr_586__NCLOC_PROCS; cdat->dstr_586__NCLOC_PROCS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_586__NCLOC_PROCS.val, "NCLOC_PROCS"); BASILYS_LOCATION("warmelt-normal.bysl:351: @iniobj"); /*iniobj dobj_587__NCLOC_PROCS*/ if (!/*_.VALDATA___V714*/ curfptr[713]) /*_.VALDATA___V714*/ curfptr[713] = (void*)&cdat->dobj_587__NCLOC_PROCS; basilys_assertmsg("iniobj checkdiscr dobj_587__NCLOC_PROCS", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_587__NCLOC_PROCS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_587__NCLOC_PROCS.obj_num = 4; cdat->dobj_587__NCLOC_PROCS.obj_hash = 1059564543; cdat->dobj_587__NCLOC_PROCS.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_587__NCLOC_PROCS)); /*inistring dstr_588__NCLOC_PROCS*/ /*_.VALSTR___V715*/ curfptr[714] = (void*)&cdat->dstr_588__NCLOC_PROCS; cdat->dstr_588__NCLOC_PROCS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_588__NCLOC_PROCS.val, "NCLOC_PROCS"); /*iniobj dsym_589__CLASS_NREP_CONSTOCC*/ if (!/*_.VALDATA___V719*/ curfptr[718]) /*_.VALDATA___V719*/ curfptr[718] = (void*)&cdat->dsym_589__CLASS_NREP_CONSTOCC; basilys_assertmsg("iniobj checkdiscr dsym_589__CLASS_NREP_CONSTOCC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_589__CLASS_NREP_CONSTOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_589__CLASS_NREP_CONSTOCC.obj_hash = 1065884175; cdat->dsym_589__CLASS_NREP_CONSTOCC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_589__CLASS_NREP_CONSTOCC)); /*inistring dstr_590__CLASS_NREP_CONST*/ /*_.VALSTR___V720*/ curfptr[719] = (void*)&cdat->dstr_590__CLASS_NREP_CONST; cdat->dstr_590__CLASS_NREP_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_590__CLASS_NREP_CONST.val, "CLASS_NREP_CONSTOCC"); BASILYS_LOCATION("warmelt-normal.bysl:357: @iniobj"); /*iniobj dobj_591__CLASS_NREP_CONSTOCC*/ if (!/*_.VALDATA___V721*/ curfptr[720]) /*_.VALDATA___V721*/ curfptr[720] = (void*)&cdat->dobj_591__CLASS_NREP_CONSTOCC; basilys_assertmsg("iniobj checkdiscr dobj_591__CLASS_NREP_CONSTOCC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_591__CLASS_NREP_CONSTOCC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_591__CLASS_NREP_CONSTOCC.obj_num = OBMAG_OBJECT; cdat->dobj_591__CLASS_NREP_CONSTOCC.obj_hash = 1012211980; cdat->dobj_591__CLASS_NREP_CONSTOCC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_591__CLASS_NREP_CONSTOCC)); /*inistring dstr_592__CLASS_NREP_CONST*/ /*_.VALSTR___V722*/ curfptr[721] = (void*)&cdat->dstr_592__CLASS_NREP_CONST; cdat->dstr_592__CLASS_NREP_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_592__CLASS_NREP_CONST.val, "CLASS_NREP_CONSTOCC"); /*inimult dtup_593__CLASS_NREP_CONSTOCC*/ /*_.VALTUP___V723*/ curfptr[722] = (void*)&cdat->dtup_593__CLASS_NREP_CONSTOCC; cdat->dtup_593__CLASS_NREP_CONSTOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_593__CLASS_NREP_CONSTOCC.nbval = 5; /*inimult dtup_594__CLASS_NREP_CONSTOCC*/ /*_.VALTUP___V724*/ curfptr[723] = (void*)&cdat->dtup_594__CLASS_NREP_CONSTOCC; cdat->dtup_594__CLASS_NREP_CONSTOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_594__CLASS_NREP_CONSTOCC.nbval = 5; /*iniobj dsym_595__CLASS_NREP_QUASICONSTANT*/ if (!/*_.VALDATA___V725*/ curfptr[724]) /*_.VALDATA___V725*/ curfptr[724] = (void*)&cdat->dsym_595__CLASS_NREP_QUASICONSTANT; basilys_assertmsg("iniobj checkdiscr dsym_595__CLASS_NREP_QUASICONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_595__CLASS_NREP_QUASICONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_595__CLASS_NREP_QUASICONSTANT.obj_hash = 430834528; cdat->dsym_595__CLASS_NREP_QUASICONSTANT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_595__CLASS_NREP_QUASICONSTANT)); /*inistring dstr_596__CLASS_NREP_QUASI*/ /*_.VALSTR___V726*/ curfptr[725] = (void*)&cdat->dstr_596__CLASS_NREP_QUASI; cdat->dstr_596__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_596__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONSTANT"); BASILYS_LOCATION("warmelt-normal.bysl:363: @iniobj"); /*iniobj dobj_597__CLASS_NREP_QUASICONSTANT*/ if (!/*_.VALDATA___V727*/ curfptr[726]) /*_.VALDATA___V727*/ curfptr[726] = (void*)&cdat->dobj_597__CLASS_NREP_QUASICONSTANT; basilys_assertmsg("iniobj checkdiscr dobj_597__CLASS_NREP_QUASICONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_597__CLASS_NREP_QUASICONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_597__CLASS_NREP_QUASICONSTANT.obj_num = OBMAG_OBJECT; cdat->dobj_597__CLASS_NREP_QUASICONSTANT.obj_hash = 639119302; cdat->dobj_597__CLASS_NREP_QUASICONSTANT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_597__CLASS_NREP_QUASICONSTANT)); /*inistring dstr_598__CLASS_NREP_QUASI*/ /*_.VALSTR___V728*/ curfptr[727] = (void*)&cdat->dstr_598__CLASS_NREP_QUASI; cdat->dstr_598__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_598__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONSTANT"); /*inimult dtup_599__CLASS_NREP_QUASICONSTANT*/ /*_.VALTUP___V729*/ curfptr[728] = (void*)&cdat->dtup_599__CLASS_NREP_QUASICONSTANT; cdat->dtup_599__CLASS_NREP_QUASICONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_599__CLASS_NREP_QUASICONSTANT.nbval = 3; /*inimult dtup_600__CLASS_NREP_QUASICONSTANT*/ /*_.VALTUP___V736*/ curfptr[735] = (void*)&cdat->dtup_600__CLASS_NREP_QUASICONSTANT; cdat->dtup_600__CLASS_NREP_QUASICONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_600__CLASS_NREP_QUASICONSTANT.nbval = 4; /*iniobj dsym_601__NCONST_SVAL*/ if (!/*_.VALDATA___V737*/ curfptr[736]) /*_.VALDATA___V737*/ curfptr[736] = (void*)&cdat->dsym_601__NCONST_SVAL; basilys_assertmsg("iniobj checkdiscr dsym_601__NCONST_SVAL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_601__NCONST_SVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_601__NCONST_SVAL.obj_hash = 583129471; cdat->dsym_601__NCONST_SVAL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_601__NCONST_SVAL)); /*inistring dstr_602__NCONST_SVAL*/ /*_.VALSTR___V738*/ curfptr[737] = (void*)&cdat->dstr_602__NCONST_SVAL; cdat->dstr_602__NCONST_SVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_602__NCONST_SVAL.val, "NCONST_SVAL"); BASILYS_LOCATION("warmelt-normal.bysl:363: @iniobj"); /*iniobj dobj_603__NCONST_SVAL*/ if (!/*_.VALDATA___V730*/ curfptr[729]) /*_.VALDATA___V730*/ curfptr[729] = (void*)&cdat->dobj_603__NCONST_SVAL; basilys_assertmsg("iniobj checkdiscr dobj_603__NCONST_SVAL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__NCONST_SVAL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_603__NCONST_SVAL.obj_num = 1; cdat->dobj_603__NCONST_SVAL.obj_hash = 726032765; cdat->dobj_603__NCONST_SVAL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_603__NCONST_SVAL)); /*inistring dstr_604__NCONST_SVAL*/ /*_.VALSTR___V731*/ curfptr[730] = (void*)&cdat->dstr_604__NCONST_SVAL; cdat->dstr_604__NCONST_SVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_604__NCONST_SVAL.val, "NCONST_SVAL"); /*iniobj dsym_605__NCONST_PROC*/ if (!/*_.VALDATA___V739*/ curfptr[738]) /*_.VALDATA___V739*/ curfptr[738] = (void*)&cdat->dsym_605__NCONST_PROC; basilys_assertmsg("iniobj checkdiscr dsym_605__NCONST_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_605__NCONST_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_605__NCONST_PROC.obj_hash = 258409049; cdat->dsym_605__NCONST_PROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_605__NCONST_PROC)); /*inistring dstr_606__NCONST_PROC*/ /*_.VALSTR___V740*/ curfptr[739] = (void*)&cdat->dstr_606__NCONST_PROC; cdat->dstr_606__NCONST_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_606__NCONST_PROC.val, "NCONST_PROC"); BASILYS_LOCATION("warmelt-normal.bysl:363: @iniobj"); /*iniobj dobj_607__NCONST_PROC*/ if (!/*_.VALDATA___V732*/ curfptr[731]) /*_.VALDATA___V732*/ curfptr[731] = (void*)&cdat->dobj_607__NCONST_PROC; basilys_assertmsg("iniobj checkdiscr dobj_607__NCONST_PROC", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_607__NCONST_PROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_607__NCONST_PROC.obj_num = 2; cdat->dobj_607__NCONST_PROC.obj_hash = 947770610; cdat->dobj_607__NCONST_PROC.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_607__NCONST_PROC)); /*inistring dstr_608__NCONST_PROC*/ /*_.VALSTR___V733*/ curfptr[732] = (void*)&cdat->dstr_608__NCONST_PROC; cdat->dstr_608__NCONST_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_608__NCONST_PROC.val, "NCONST_PROC"); /*iniobj dsym_609__NCONST_DATA*/ if (!/*_.VALDATA___V741*/ curfptr[740]) /*_.VALDATA___V741*/ curfptr[740] = (void*)&cdat->dsym_609__NCONST_DATA; basilys_assertmsg("iniobj checkdiscr dsym_609__NCONST_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_609__NCONST_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_609__NCONST_DATA.obj_hash = 941031514; cdat->dsym_609__NCONST_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_609__NCONST_DATA)); /*inistring dstr_610__NCONST_DATA*/ /*_.VALSTR___V742*/ curfptr[741] = (void*)&cdat->dstr_610__NCONST_DATA; cdat->dstr_610__NCONST_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_610__NCONST_DATA.val, "NCONST_DATA"); BASILYS_LOCATION("warmelt-normal.bysl:363: @iniobj"); /*iniobj dobj_611__NCONST_DATA*/ if (!/*_.VALDATA___V734*/ curfptr[733]) /*_.VALDATA___V734*/ curfptr[733] = (void*)&cdat->dobj_611__NCONST_DATA; basilys_assertmsg("iniobj checkdiscr dobj_611__NCONST_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_611__NCONST_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_611__NCONST_DATA.obj_num = 3; cdat->dobj_611__NCONST_DATA.obj_hash = 593575702; cdat->dobj_611__NCONST_DATA.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_611__NCONST_DATA)); /*inistring dstr_612__NCONST_DATA*/ /*_.VALSTR___V735*/ curfptr[734] = (void*)&cdat->dstr_612__NCONST_DATA; cdat->dstr_612__NCONST_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_612__NCONST_DATA.val, "NCONST_DATA"); /*iniobj dsym_613__CLASS_NREP_CONSTANT*/ if (!/*_.VALDATA___V743*/ curfptr[742]) /*_.VALDATA___V743*/ curfptr[742] = (void*)&cdat->dsym_613__CLASS_NREP_CONSTANT; basilys_assertmsg("iniobj checkdiscr dsym_613__CLASS_NREP_CONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_613__CLASS_NREP_CONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_613__CLASS_NREP_CONSTANT.obj_hash = 348261459; cdat->dsym_613__CLASS_NREP_CONSTANT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_613__CLASS_NREP_CONSTANT)); /*inistring dstr_614__CLASS_NREP_CONST*/ /*_.VALSTR___V744*/ curfptr[743] = (void*)&cdat->dstr_614__CLASS_NREP_CONST; cdat->dstr_614__CLASS_NREP_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_614__CLASS_NREP_CONST.val, "CLASS_NREP_CONSTANT"); BASILYS_LOCATION("warmelt-normal.bysl:371: @iniobj"); /*iniobj dobj_615__CLASS_NREP_CONSTANT*/ if (!/*_.VALDATA___V745*/ curfptr[744]) /*_.VALDATA___V745*/ curfptr[744] = (void*)&cdat->dobj_615__CLASS_NREP_CONSTANT; basilys_assertmsg("iniobj checkdiscr dobj_615__CLASS_NREP_CONSTANT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_615__CLASS_NREP_CONSTANT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_615__CLASS_NREP_CONSTANT.obj_num = OBMAG_OBJECT; cdat->dobj_615__CLASS_NREP_CONSTANT.obj_hash = 530851383; cdat->dobj_615__CLASS_NREP_CONSTANT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_615__CLASS_NREP_CONSTANT)); /*inistring dstr_616__CLASS_NREP_CONST*/ /*_.VALSTR___V746*/ curfptr[745] = (void*)&cdat->dstr_616__CLASS_NREP_CONST; cdat->dstr_616__CLASS_NREP_CONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_616__CLASS_NREP_CONST.val, "CLASS_NREP_CONSTANT"); /*inimult dtup_617__CLASS_NREP_CONSTANT*/ /*_.VALTUP___V747*/ curfptr[746] = (void*)&cdat->dtup_617__CLASS_NREP_CONSTANT; cdat->dtup_617__CLASS_NREP_CONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_617__CLASS_NREP_CONSTANT.nbval = 4; /*inimult dtup_618__CLASS_NREP_CONSTANT*/ /*_.VALTUP___V748*/ curfptr[747] = (void*)&cdat->dtup_618__CLASS_NREP_CONSTANT; cdat->dtup_618__CLASS_NREP_CONSTANT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_618__CLASS_NREP_CONSTANT.nbval = 4; /*iniobj dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V749*/ curfptr[748]) /*_.VALDATA___V749*/ curfptr[748] = (void*)&cdat->dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 576407711; cdat->dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_619__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_620__CLASS_NREP_QUASI*/ /*_.VALSTR___V750*/ curfptr[749] = (void*)&cdat->dstr_620__CLASS_NREP_QUASI; cdat->dstr_620__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_620__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); BASILYS_LOCATION("warmelt-normal.bysl:378: @iniobj"); /*iniobj dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V751*/ curfptr[750]) /*_.VALDATA___V751*/ curfptr[750] = (void*)&cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 4977992; cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_621__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_622__CLASS_NREP_QUASI*/ /*_.VALSTR___V752*/ curfptr[751] = (void*)&cdat->dstr_622__CLASS_NREP_QUASI; cdat->dstr_622__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_622__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inimult dtup_623__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V753*/ curfptr[752] = (void*)&cdat->dtup_623__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_623__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_623__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 4; /*inimult dtup_624__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V756*/ curfptr[755] = (void*)&cdat->dtup_624__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_624__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_624__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 5; /*iniobj dsym_625__NQCMEC_COMMENT*/ if (!/*_.VALDATA___V757*/ curfptr[756]) /*_.VALDATA___V757*/ curfptr[756] = (void*)&cdat->dsym_625__NQCMEC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_625__NQCMEC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_625__NQCMEC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_625__NQCMEC_COMMENT.obj_hash = 49807455; cdat->dsym_625__NQCMEC_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_625__NQCMEC_COMMENT)); /*inistring dstr_626__NQCMEC_COMMENT*/ /*_.VALSTR___V758*/ curfptr[757] = (void*)&cdat->dstr_626__NQCMEC_COMMENT; cdat->dstr_626__NQCMEC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_626__NQCMEC_COMMENT.val, "NQCMEC_COMMENT"); BASILYS_LOCATION("warmelt-normal.bysl:378: @iniobj"); /*iniobj dobj_627__NQCMEC_COMMENT*/ if (!/*_.VALDATA___V754*/ curfptr[753]) /*_.VALDATA___V754*/ curfptr[753] = (void*)&cdat->dobj_627__NQCMEC_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_627__NQCMEC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_627__NQCMEC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_627__NQCMEC_COMMENT.obj_num = 4; cdat->dobj_627__NQCMEC_COMMENT.obj_hash = 251346013; cdat->dobj_627__NQCMEC_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_627__NQCMEC_COMMENT)); /*inistring dstr_628__NQCMEC_COMMENT*/ /*_.VALSTR___V755*/ curfptr[754] = (void*)&cdat->dstr_628__NQCMEC_COMMENT; cdat->dstr_628__NQCMEC_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_628__NQCMEC_COMMENT.val, "NQCMEC_COMMENT"); /*iniobj dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V759*/ curfptr[758]) /*_.VALDATA___V759*/ curfptr[758] = (void*)&cdat->dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 940676789; cdat->dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_629__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_630__CLASS_NREP_QUASI*/ /*_.VALSTR___V760*/ curfptr[759] = (void*)&cdat->dstr_630__CLASS_NREP_QUASI; cdat->dstr_630__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_630__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); BASILYS_LOCATION("warmelt-normal.bysl:385: @iniobj"); /*iniobj dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V761*/ curfptr[760]) /*_.VALDATA___V761*/ curfptr[760] = (void*)&cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 354245255; cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_631__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_632__CLASS_NREP_QUASI*/ /*_.VALSTR___V762*/ curfptr[761] = (void*)&cdat->dstr_632__CLASS_NREP_QUASI; cdat->dstr_632__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_632__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inimult dtup_633__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V763*/ curfptr[762] = (void*)&cdat->dtup_633__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_633__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_633__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; /*inimult dtup_634__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V764*/ curfptr[763] = (void*)&cdat->dtup_634__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_634__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_634__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 1; /*iniobj dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V765*/ curfptr[764]) /*_.VALDATA___V765*/ curfptr[764] = (void*)&cdat->dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 414632902; cdat->dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_635__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_636__CLASS_NREP_QUASI*/ /*_.VALSTR___V766*/ curfptr[765] = (void*)&cdat->dstr_636__CLASS_NREP_QUASI; cdat->dstr_636__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_636__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT"); BASILYS_LOCATION("warmelt-normal.bysl:391: @iniobj"); /*iniobj dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V767*/ curfptr[766]) /*_.VALDATA___V767*/ curfptr[766] = (void*)&cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_hash = 509447564; cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_637__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_638__CLASS_NREP_QUASI*/ /*_.VALSTR___V768*/ curfptr[767] = (void*)&cdat->dstr_638__CLASS_NREP_QUASI; cdat->dstr_638__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_638__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT"); /*inimult dtup_639__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ /*_.VALTUP___V769*/ curfptr[768] = (void*)&cdat->dtup_639__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; cdat->dtup_639__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_639__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.nbval = 4; /*inimult dtup_640__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ /*_.VALTUP___V770*/ curfptr[769] = (void*)&cdat->dtup_640__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; cdat->dtup_640__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_640__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT.nbval = 4; /*iniobj dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V771*/ curfptr[770]) /*_.VALDATA___V771*/ curfptr[770] = (void*)&cdat->dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 876593992; cdat->dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_641__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_642__CLASS_NREP_QUASI*/ /*_.VALSTR___V772*/ curfptr[771] = (void*)&cdat->dstr_642__CLASS_NREP_QUASI; cdat->dstr_642__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_642__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT"); BASILYS_LOCATION("warmelt-normal.bysl:397: @iniobj"); /*iniobj dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V773*/ curfptr[772]) /*_.VALDATA___V773*/ curfptr[772] = (void*)&cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_num = OBMAG_OBJECT; cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_hash = 1063768646; cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_643__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_644__CLASS_NREP_QUASI*/ /*_.VALSTR___V774*/ curfptr[773] = (void*)&cdat->dstr_644__CLASS_NREP_QUASI; cdat->dstr_644__CLASS_NREP_QUASI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_644__CLASS_NREP_QUASI.val, "CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT"); /*inimult dtup_645__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ /*_.VALTUP___V775*/ curfptr[774] = (void*)&cdat->dtup_645__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; cdat->dtup_645__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_645__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.nbval = 3; /*inimult dtup_646__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ /*_.VALTUP___V776*/ curfptr[775] = (void*)&cdat->dtup_646__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; cdat->dtup_646__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_646__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT.nbval = 1; /*iniobj dsym_647__CLASS_NREP_FIELDACC*/ if (!/*_.VALDATA___V777*/ curfptr[776]) /*_.VALDATA___V777*/ curfptr[776] = (void*)&cdat->dsym_647__CLASS_NREP_FIELDACC; basilys_assertmsg("iniobj checkdiscr dsym_647__CLASS_NREP_FIELDACC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__CLASS_NREP_FIELDACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_647__CLASS_NREP_FIELDACC.obj_hash = 571372072; cdat->dsym_647__CLASS_NREP_FIELDACC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_647__CLASS_NREP_FIELDACC)); /*inistring dstr_648__CLASS_NREP_FIELD*/ /*_.VALSTR___V778*/ curfptr[777] = (void*)&cdat->dstr_648__CLASS_NREP_FIELD; cdat->dstr_648__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_648__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDACC"); BASILYS_LOCATION("warmelt-normal.bysl:405: @iniobj"); /*iniobj dobj_649__CLASS_NREP_FIELDACC*/ if (!/*_.VALDATA___V779*/ curfptr[778]) /*_.VALDATA___V779*/ curfptr[778] = (void*)&cdat->dobj_649__CLASS_NREP_FIELDACC; basilys_assertmsg("iniobj checkdiscr dobj_649__CLASS_NREP_FIELDACC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_649__CLASS_NREP_FIELDACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_649__CLASS_NREP_FIELDACC.obj_num = OBMAG_OBJECT; cdat->dobj_649__CLASS_NREP_FIELDACC.obj_hash = 218278591; cdat->dobj_649__CLASS_NREP_FIELDACC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_649__CLASS_NREP_FIELDACC)); /*inistring dstr_650__CLASS_NREP_FIELD*/ /*_.VALSTR___V780*/ curfptr[779] = (void*)&cdat->dstr_650__CLASS_NREP_FIELD; cdat->dstr_650__CLASS_NREP_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_650__CLASS_NREP_FIELD.val, "CLASS_NREP_FIELDACC"); /*inimult dtup_651__CLASS_NREP_FIELDACC*/ /*_.VALTUP___V781*/ curfptr[780] = (void*)&cdat->dtup_651__CLASS_NREP_FIELDACC; cdat->dtup_651__CLASS_NREP_FIELDACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_651__CLASS_NREP_FIELDACC.nbval = 3; /*inimult dtup_652__CLASS_NREP_FIELDACC*/ /*_.VALTUP___V786*/ curfptr[785] = (void*)&cdat->dtup_652__CLASS_NREP_FIELDACC; cdat->dtup_652__CLASS_NREP_FIELDACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_652__CLASS_NREP_FIELDACC.nbval = 3; /*iniobj dsym_653__NACCF_OBJ*/ if (!/*_.VALDATA___V787*/ curfptr[786]) /*_.VALDATA___V787*/ curfptr[786] = (void*)&cdat->dsym_653__NACCF_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_653__NACCF_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_653__NACCF_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_653__NACCF_OBJ.obj_hash = 162780640; cdat->dsym_653__NACCF_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_653__NACCF_OBJ)); /*inistring dstr_654__NACCF_OBJ*/ /*_.VALSTR___V788*/ curfptr[787] = (void*)&cdat->dstr_654__NACCF_OBJ; cdat->dstr_654__NACCF_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_654__NACCF_OBJ.val, "NACCF_OBJ"); BASILYS_LOCATION("warmelt-normal.bysl:405: @iniobj"); /*iniobj dobj_655__NACCF_OBJ*/ if (!/*_.VALDATA___V782*/ curfptr[781]) /*_.VALDATA___V782*/ curfptr[781] = (void*)&cdat->dobj_655__NACCF_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_655__NACCF_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_655__NACCF_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_655__NACCF_OBJ.obj_num = 1; cdat->dobj_655__NACCF_OBJ.obj_hash = 724574508; cdat->dobj_655__NACCF_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_655__NACCF_OBJ)); /*inistring dstr_656__NACCF_OBJ*/ /*_.VALSTR___V783*/ curfptr[782] = (void*)&cdat->dstr_656__NACCF_OBJ; cdat->dstr_656__NACCF_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_656__NACCF_OBJ.val, "NACCF_OBJ"); /*iniobj dsym_657__NACCF_FLD*/ if (!/*_.VALDATA___V789*/ curfptr[788]) /*_.VALDATA___V789*/ curfptr[788] = (void*)&cdat->dsym_657__NACCF_FLD; basilys_assertmsg("iniobj checkdiscr dsym_657__NACCF_FLD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_657__NACCF_FLD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_657__NACCF_FLD.obj_hash = 369009460; cdat->dsym_657__NACCF_FLD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_657__NACCF_FLD)); /*inistring dstr_658__NACCF_FLD*/ /*_.VALSTR___V790*/ curfptr[789] = (void*)&cdat->dstr_658__NACCF_FLD; cdat->dstr_658__NACCF_FLD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_658__NACCF_FLD.val, "NACCF_FLD"); BASILYS_LOCATION("warmelt-normal.bysl:405: @iniobj"); /*iniobj dobj_659__NACCF_FLD*/ if (!/*_.VALDATA___V784*/ curfptr[783]) /*_.VALDATA___V784*/ curfptr[783] = (void*)&cdat->dobj_659__NACCF_FLD; basilys_assertmsg("iniobj checkdiscr dobj_659__NACCF_FLD", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_659__NACCF_FLD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_659__NACCF_FLD.obj_num = 2; cdat->dobj_659__NACCF_FLD.obj_hash = 317318252; cdat->dobj_659__NACCF_FLD.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_659__NACCF_FLD)); /*inistring dstr_660__NACCF_FLD*/ /*_.VALSTR___V785*/ curfptr[784] = (void*)&cdat->dstr_660__NACCF_FLD; cdat->dstr_660__NACCF_FLD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_660__NACCF_FLD.val, "NACCF_FLD"); /*iniobj dsym_661__CLASS_NREP_MULTACC*/ if (!/*_.VALDATA___V791*/ curfptr[790]) /*_.VALDATA___V791*/ curfptr[790] = (void*)&cdat->dsym_661__CLASS_NREP_MULTACC; basilys_assertmsg("iniobj checkdiscr dsym_661__CLASS_NREP_MULTACC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_NREP_MULTACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_661__CLASS_NREP_MULTACC.obj_hash = 444787444; cdat->dsym_661__CLASS_NREP_MULTACC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_661__CLASS_NREP_MULTACC)); /*inistring dstr_662__CLASS_NREP_MULTA*/ /*_.VALSTR___V792*/ curfptr[791] = (void*)&cdat->dstr_662__CLASS_NREP_MULTA; cdat->dstr_662__CLASS_NREP_MULTA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_662__CLASS_NREP_MULTA.val, "CLASS_NREP_MULTACC"); BASILYS_LOCATION("warmelt-normal.bysl:414: @iniobj"); /*iniobj dobj_663__CLASS_NREP_MULTACC*/ if (!/*_.VALDATA___V793*/ curfptr[792]) /*_.VALDATA___V793*/ curfptr[792] = (void*)&cdat->dobj_663__CLASS_NREP_MULTACC; basilys_assertmsg("iniobj checkdiscr dobj_663__CLASS_NREP_MULTACC", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_663__CLASS_NREP_MULTACC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_663__CLASS_NREP_MULTACC.obj_num = OBMAG_OBJECT; cdat->dobj_663__CLASS_NREP_MULTACC.obj_hash = 724814548; cdat->dobj_663__CLASS_NREP_MULTACC.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_663__CLASS_NREP_MULTACC)); /*inistring dstr_664__CLASS_NREP_MULTA*/ /*_.VALSTR___V794*/ curfptr[793] = (void*)&cdat->dstr_664__CLASS_NREP_MULTA; cdat->dstr_664__CLASS_NREP_MULTA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_664__CLASS_NREP_MULTA.val, "CLASS_NREP_MULTACC"); /*inimult dtup_665__CLASS_NREP_MULTACC*/ /*_.VALTUP___V795*/ curfptr[794] = (void*)&cdat->dtup_665__CLASS_NREP_MULTACC; cdat->dtup_665__CLASS_NREP_MULTACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_665__CLASS_NREP_MULTACC.nbval = 3; /*inimult dtup_666__CLASS_NREP_MULTACC*/ /*_.VALTUP___V800*/ curfptr[799] = (void*)&cdat->dtup_666__CLASS_NREP_MULTACC; cdat->dtup_666__CLASS_NREP_MULTACC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_666__CLASS_NREP_MULTACC.nbval = 3; /*iniobj dsym_667__NACCM_MUL*/ if (!/*_.VALDATA___V801*/ curfptr[800]) /*_.VALDATA___V801*/ curfptr[800] = (void*)&cdat->dsym_667__NACCM_MUL; basilys_assertmsg("iniobj checkdiscr dsym_667__NACCM_MUL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_667__NACCM_MUL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_667__NACCM_MUL.obj_hash = 962511195; cdat->dsym_667__NACCM_MUL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_667__NACCM_MUL)); /*inistring dstr_668__NACCM_MUL*/ /*_.VALSTR___V802*/ curfptr[801] = (void*)&cdat->dstr_668__NACCM_MUL; cdat->dstr_668__NACCM_MUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_668__NACCM_MUL.val, "NACCM_MUL"); BASILYS_LOCATION("warmelt-normal.bysl:414: @iniobj"); /*iniobj dobj_669__NACCM_MUL*/ if (!/*_.VALDATA___V796*/ curfptr[795]) /*_.VALDATA___V796*/ curfptr[795] = (void*)&cdat->dobj_669__NACCM_MUL; basilys_assertmsg("iniobj checkdiscr dobj_669__NACCM_MUL", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_669__NACCM_MUL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_669__NACCM_MUL.obj_num = 1; cdat->dobj_669__NACCM_MUL.obj_hash = 903104497; cdat->dobj_669__NACCM_MUL.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_669__NACCM_MUL)); /*inistring dstr_670__NACCM_MUL*/ /*_.VALSTR___V797*/ curfptr[796] = (void*)&cdat->dstr_670__NACCM_MUL; cdat->dstr_670__NACCM_MUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_670__NACCM_MUL.val, "NACCM_MUL"); /*iniobj dsym_671__NACCM_IX*/ if (!/*_.VALDATA___V803*/ curfptr[802]) /*_.VALDATA___V803*/ curfptr[802] = (void*)&cdat->dsym_671__NACCM_IX; basilys_assertmsg("iniobj checkdiscr dsym_671__NACCM_IX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_671__NACCM_IX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_671__NACCM_IX.obj_hash = 79547630; cdat->dsym_671__NACCM_IX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_671__NACCM_IX)); /*inistring dstr_672__NACCM_IX*/ /*_.VALSTR___V804*/ curfptr[803] = (void*)&cdat->dstr_672__NACCM_IX; cdat->dstr_672__NACCM_IX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_672__NACCM_IX.val, "NACCM_IX"); BASILYS_LOCATION("warmelt-normal.bysl:414: @iniobj"); /*iniobj dobj_673__NACCM_IX*/ if (!/*_.VALDATA___V798*/ curfptr[797]) /*_.VALDATA___V798*/ curfptr[797] = (void*)&cdat->dobj_673__NACCM_IX; basilys_assertmsg("iniobj checkdiscr dobj_673__NACCM_IX", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_673__NACCM_IX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_673__NACCM_IX.obj_num = 2; cdat->dobj_673__NACCM_IX.obj_hash = 227022434; cdat->dobj_673__NACCM_IX.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_673__NACCM_IX)); /*inistring dstr_674__NACCM_IX*/ /*_.VALSTR___V799*/ curfptr[798] = (void*)&cdat->dstr_674__NACCM_IX; cdat->dstr_674__NACCM_IX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_674__NACCM_IX.val, "NACCM_IX"); /*iniobj dsym_675__CLASS_NREP_STORE_PREDEFINED*/ if (!/*_.VALDATA___V805*/ curfptr[804]) /*_.VALDATA___V805*/ curfptr[804] = (void*)&cdat->dsym_675__CLASS_NREP_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_675__CLASS_NREP_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_675__CLASS_NREP_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_675__CLASS_NREP_STORE_PREDEFINED.obj_hash = 391152767; cdat->dsym_675__CLASS_NREP_STORE_PREDEFINED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_675__CLASS_NREP_STORE_PREDEFINED)); /*inistring dstr_676__CLASS_NREP_STORE*/ /*_.VALSTR___V806*/ curfptr[805] = (void*)&cdat->dstr_676__CLASS_NREP_STORE; cdat->dstr_676__CLASS_NREP_STORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_676__CLASS_NREP_STORE.val, "CLASS_NREP_STORE_PREDEFINED"); BASILYS_LOCATION("warmelt-normal.bysl:421: @iniobj"); /*iniobj dobj_677__CLASS_NREP_STORE_PREDEFINED*/ if (!/*_.VALDATA___V807*/ curfptr[806]) /*_.VALDATA___V807*/ curfptr[806] = (void*)&cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dobj_677__CLASS_NREP_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED.obj_num = OBMAG_OBJECT; cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED.obj_hash = 236349014; cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_677__CLASS_NREP_STORE_PREDEFINED)); /*inistring dstr_678__CLASS_NREP_STORE*/ /*_.VALSTR___V808*/ curfptr[807] = (void*)&cdat->dstr_678__CLASS_NREP_STORE; cdat->dstr_678__CLASS_NREP_STORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_678__CLASS_NREP_STORE.val, "CLASS_NREP_STORE_PREDEFINED"); /*inimult dtup_679__CLASS_NREP_STORE_PREDEFINED*/ /*_.VALTUP___V809*/ curfptr[808] = (void*)&cdat->dtup_679__CLASS_NREP_STORE_PREDEFINED; cdat->dtup_679__CLASS_NREP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_679__CLASS_NREP_STORE_PREDEFINED.nbval = 3; /*inimult dtup_680__CLASS_NREP_STORE_PREDEFINED*/ /*_.VALTUP___V814*/ curfptr[813] = (void*)&cdat->dtup_680__CLASS_NREP_STORE_PREDEFINED; cdat->dtup_680__CLASS_NREP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_680__CLASS_NREP_STORE_PREDEFINED.nbval = 3; /*iniobj dsym_681__NSTPD_PREDEF*/ if (!/*_.VALDATA___V815*/ curfptr[814]) /*_.VALDATA___V815*/ curfptr[814] = (void*)&cdat->dsym_681__NSTPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dsym_681__NSTPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__NSTPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_681__NSTPD_PREDEF.obj_hash = 3064350; cdat->dsym_681__NSTPD_PREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_681__NSTPD_PREDEF)); /*inistring dstr_682__NSTPD_PREDEF*/ /*_.VALSTR___V816*/ curfptr[815] = (void*)&cdat->dstr_682__NSTPD_PREDEF; cdat->dstr_682__NSTPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_682__NSTPD_PREDEF.val, "NSTPD_PREDEF"); BASILYS_LOCATION("warmelt-normal.bysl:421: @iniobj"); /*iniobj dobj_683__NSTPD_PREDEF*/ if (!/*_.VALDATA___V810*/ curfptr[809]) /*_.VALDATA___V810*/ curfptr[809] = (void*)&cdat->dobj_683__NSTPD_PREDEF; basilys_assertmsg("iniobj checkdiscr dobj_683__NSTPD_PREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_683__NSTPD_PREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_683__NSTPD_PREDEF.obj_num = 1; cdat->dobj_683__NSTPD_PREDEF.obj_hash = 928974224; cdat->dobj_683__NSTPD_PREDEF.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_683__NSTPD_PREDEF)); /*inistring dstr_684__NSTPD_PREDEF*/ /*_.VALSTR___V811*/ curfptr[810] = (void*)&cdat->dstr_684__NSTPD_PREDEF; cdat->dstr_684__NSTPD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_684__NSTPD_PREDEF.val, "NSTPD_PREDEF"); /*iniobj dsym_685__NSTPD_VALUE*/ if (!/*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*)&cdat->dsym_685__NSTPD_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_685__NSTPD_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_685__NSTPD_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_685__NSTPD_VALUE.obj_hash = 736128081; cdat->dsym_685__NSTPD_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_685__NSTPD_VALUE)); /*inistring dstr_686__NSTPD_VALUE*/ /*_.VALSTR___V818*/ curfptr[817] = (void*)&cdat->dstr_686__NSTPD_VALUE; cdat->dstr_686__NSTPD_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_686__NSTPD_VALUE.val, "NSTPD_VALUE"); BASILYS_LOCATION("warmelt-normal.bysl:421: @iniobj"); /*iniobj dobj_687__NSTPD_VALUE*/ if (!/*_.VALDATA___V812*/ curfptr[811]) /*_.VALDATA___V812*/ curfptr[811] = (void*)&cdat->dobj_687__NSTPD_VALUE; basilys_assertmsg("iniobj checkdiscr dobj_687__NSTPD_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_687__NSTPD_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_687__NSTPD_VALUE.obj_num = 2; cdat->dobj_687__NSTPD_VALUE.obj_hash = 517180656; cdat->dobj_687__NSTPD_VALUE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_687__NSTPD_VALUE)); /*inistring dstr_688__NSTPD_VALUE*/ /*_.VALSTR___V813*/ curfptr[812] = (void*)&cdat->dstr_688__NSTPD_VALUE; cdat->dstr_688__NSTPD_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_688__NSTPD_VALUE.val, "NSTPD_VALUE"); /*iniobj dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*)&cdat->dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 1007630346; cdat->dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_689__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_690__CLASS_NREP_UPDAT*/ /*_.VALSTR___V820*/ curfptr[819] = (void*)&cdat->dstr_690__CLASS_NREP_UPDAT; cdat->dstr_690__CLASS_NREP_UPDAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_690__CLASS_NREP_UPDAT.val, "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); BASILYS_LOCATION("warmelt-normal.bysl:428: @iniobj"); /*iniobj dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V821*/ curfptr[820]) /*_.VALDATA___V821*/ curfptr[820] = (void*)&cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_CLASS)))); cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_num = OBMAG_OBJECT; cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 479337529; cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 9; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_691__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_692__CLASS_NREP_UPDAT*/ /*_.VALSTR___V822*/ curfptr[821] = (void*)&cdat->dstr_692__CLASS_NREP_UPDAT; cdat->dstr_692__CLASS_NREP_UPDAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_692__CLASS_NREP_UPDAT.val, "CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inimult dtup_693__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V823*/ curfptr[822] = (void*)&cdat->dtup_693__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_693__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQCLASS)))); cdat->dtup_693__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; /*inimult dtup_694__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALTUP___V828*/ curfptr[827] = (void*)&cdat->dtup_694__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dtup_694__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_SEQFIELD)))); cdat->dtup_694__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 3; /*iniobj dsym_695__NUCMEB_EXPR*/ if (!/*_.VALDATA___V829*/ curfptr[828]) /*_.VALDATA___V829*/ curfptr[828] = (void*)&cdat->dsym_695__NUCMEB_EXPR; basilys_assertmsg("iniobj checkdiscr dsym_695__NUCMEB_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_695__NUCMEB_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_695__NUCMEB_EXPR.obj_hash = 944890055; cdat->dsym_695__NUCMEB_EXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_695__NUCMEB_EXPR)); /*inistring dstr_696__NUCMEB_EXPR*/ /*_.VALSTR___V830*/ curfptr[829] = (void*)&cdat->dstr_696__NUCMEB_EXPR; cdat->dstr_696__NUCMEB_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_696__NUCMEB_EXPR.val, "NUCMEB_EXPR"); BASILYS_LOCATION("warmelt-normal.bysl:428: @iniobj"); /*iniobj dobj_697__NUCMEB_EXPR*/ if (!/*_.VALDATA___V824*/ curfptr[823]) /*_.VALDATA___V824*/ curfptr[823] = (void*)&cdat->dobj_697__NUCMEB_EXPR; basilys_assertmsg("iniobj checkdiscr dobj_697__NUCMEB_EXPR", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_697__NUCMEB_EXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_697__NUCMEB_EXPR.obj_num = 1; cdat->dobj_697__NUCMEB_EXPR.obj_hash = 925455156; cdat->dobj_697__NUCMEB_EXPR.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_697__NUCMEB_EXPR)); /*inistring dstr_698__NUCMEB_EXPR*/ /*_.VALSTR___V825*/ curfptr[824] = (void*)&cdat->dstr_698__NUCMEB_EXPR; cdat->dstr_698__NUCMEB_EXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_698__NUCMEB_EXPR.val, "NUCMEB_EXPR"); /*iniobj dsym_699__NCUMEB_COMMENT*/ if (!/*_.VALDATA___V831*/ curfptr[830]) /*_.VALDATA___V831*/ curfptr[830] = (void*)&cdat->dsym_699__NCUMEB_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_699__NCUMEB_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_699__NCUMEB_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_699__NCUMEB_COMMENT.obj_hash = 65039889; cdat->dsym_699__NCUMEB_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_699__NCUMEB_COMMENT)); /*inistring dstr_700__NCUMEB_COMMENT*/ /*_.VALSTR___V832*/ curfptr[831] = (void*)&cdat->dstr_700__NCUMEB_COMMENT; cdat->dstr_700__NCUMEB_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_700__NCUMEB_COMMENT.val, "NCUMEB_COMMENT"); BASILYS_LOCATION("warmelt-normal.bysl:428: @iniobj"); /*iniobj dobj_701__NCUMEB_COMMENT*/ if (!/*_.VALDATA___V826*/ curfptr[825]) /*_.VALDATA___V826*/ curfptr[825] = (void*)&cdat->dobj_701__NCUMEB_COMMENT; basilys_assertmsg("iniobj checkdiscr dobj_701__NCUMEB_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_701__NCUMEB_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_FIELD)))); cdat->dobj_701__NCUMEB_COMMENT.obj_num = 2; cdat->dobj_701__NCUMEB_COMMENT.obj_hash = 141831208; cdat->dobj_701__NCUMEB_COMMENT.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_701__NCUMEB_COMMENT)); /*inistring dstr_702__NCUMEB_COMMENT*/ /*_.VALSTR___V827*/ curfptr[826] = (void*)&cdat->dstr_702__NCUMEB_COMMENT; cdat->dstr_702__NCUMEB_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_702__NCUMEB_COMMENT.val, "NCUMEB_COMMENT"); /*inirout drout_703__ADD_NCTX_DATA*/ /*_.VALROUT___V833*/ curfptr[832] = (void*)&cdat->drout_703__ADD_NCTX_DATA; cdat->drout_703__ADD_NCTX_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_703__ADD_NCTX_DATA.routdescr, "ADD_NCTX_DATA @warmelt-normal.bysl:501", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_703__ADD_NCTX_DATA.nbval = 3; *(basilysroutfun_t **) (cdat->drout_703__ADD_NCTX_DATA.routaddr) = rout_1_ADD_NCTX_DATA; /*iniclos dclo_704__ADD_NCTX_DATA*/ /*_.VALCLO___V834*/ curfptr[833] = (void*)&cdat->dclo_704__ADD_NCTX_DATA; cdat->dclo_704__ADD_NCTX_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_704__ADD_NCTX_DATA.nbval = 0; /*iniobj dsym_705__CLASS_NORMCONTEXT*/ if (!/*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*)&cdat->dsym_705__CLASS_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_705__CLASS_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_705__CLASS_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_705__CLASS_NORMCONTEXT.obj_hash = 317209306; cdat->dsym_705__CLASS_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_705__CLASS_NORMCONTEXT)); /*inistring dstr_706__CLASS_NORMCONTEX*/ /*_.VALSTR___V836*/ curfptr[835] = (void*)&cdat->dstr_706__CLASS_NORMCONTEX; cdat->dstr_706__CLASS_NORMCONTEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_706__CLASS_NORMCONTEX.val, "CLASS_NORMCONTEXT"); /*iniobj dsym_707__DISCR_INTEGER*/ if (!/*_.VALDATA___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*)&cdat->dsym_707__DISCR_INTEGER; basilys_assertmsg("iniobj checkdiscr dsym_707__DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_707__DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_707__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_707__DISCR_INTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_707__DISCR_INTEGER)); /*inistring dstr_708__DISCR_INTEGER*/ /*_.VALSTR___V838*/ curfptr[837] = (void*)&cdat->dstr_708__DISCR_INTEGER; cdat->dstr_708__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_708__DISCR_INTEGER.val, "DISCR_INTEGER"); /*iniobj dsym_709__GLOBAL_ATOM_TRUE*/ if (!/*_.VALDATA___V839*/ curfptr[838]) /*_.VALDATA___V839*/ curfptr[838] = (void*)&cdat->dsym_709__GLOBAL_ATOM_TRUE; basilys_assertmsg("iniobj checkdiscr dsym_709__GLOBAL_ATOM_TRUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_709__GLOBAL_ATOM_TRUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_709__GLOBAL_ATOM_TRUE.obj_hash = 585607854; cdat->dsym_709__GLOBAL_ATOM_TRUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_709__GLOBAL_ATOM_TRUE)); /*inistring dstr_710__GLOBAL_ATOM_TRUE*/ /*_.VALSTR___V840*/ curfptr[839] = (void*)&cdat->dstr_710__GLOBAL_ATOM_TRUE; cdat->dstr_710__GLOBAL_ATOM_TRUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_710__GLOBAL_ATOM_TRUE.val, "GLOBAL_ATOM_TRUE"); BASILYS_LOCATION("warmelt-normal.bysl:523: @iniobj"); /*iniobj dobj_711__GLOBAL_ATOM_TRUE*/ if (!/*_.VALDATA___V841*/ curfptr[840]) /*_.VALDATA___V841*/ curfptr[840] = (void*)&cdat->dobj_711__GLOBAL_ATOM_TRUE; basilys_assertmsg("iniobj checkdiscr dobj_711__GLOBAL_ATOM_TRUE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_711__GLOBAL_ATOM_TRUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_711__GLOBAL_ATOM_TRUE.obj_hash = 237667611; cdat->dobj_711__GLOBAL_ATOM_TRUE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_711__GLOBAL_ATOM_TRUE)); /*inimult dtup_712__GLOBAL_ATOM_TRUE*/ /*_.VALTUP___V845*/ curfptr[844] = (void*)&cdat->dtup_712__GLOBAL_ATOM_TRUE; cdat->dtup_712__GLOBAL_ATOM_TRUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_712__GLOBAL_ATOM_TRUE.nbval = 1; /*inimult dtup_713__GLOBAL_ATOM_TRUE*/ /*_.VALTUP___V843*/ curfptr[842] = (void*)&cdat->dtup_713__GLOBAL_ATOM_TRUE; cdat->dtup_713__GLOBAL_ATOM_TRUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_713__GLOBAL_ATOM_TRUE.nbval = 0; /*inistring dstr_714__void_BASILYSG_*/ /*_.VALSTR___V844*/ curfptr[843] = (void*)&cdat->dstr_714__void_BASILYSG_; cdat->dstr_714__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_714__void_BASILYSG_.val, "(void*)BASILYSG(ATOM_TRUE)"); /*inistring dstr_715__GLOBAL_ATOM_TRUE*/ /*_.VALSTR___V842*/ curfptr[841] = (void*)&cdat->dstr_715__GLOBAL_ATOM_TRUE; cdat->dstr_715__GLOBAL_ATOM_TRUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_715__GLOBAL_ATOM_TRUE.val, "GLOBAL_ATOM_TRUE"); /*iniobj dsym_716__GLOBAL_CLASS_CITERATOR*/ if (!/*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*)&cdat->dsym_716__GLOBAL_CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_716__GLOBAL_CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_716__GLOBAL_CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_716__GLOBAL_CLASS_CITERATOR.obj_hash = 320355176; cdat->dsym_716__GLOBAL_CLASS_CITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_716__GLOBAL_CLASS_CITERATOR)); /*inistring dstr_717__GLOBAL_CLASS_CIT*/ /*_.VALSTR___V847*/ curfptr[846] = (void*)&cdat->dstr_717__GLOBAL_CLASS_CIT; cdat->dstr_717__GLOBAL_CLASS_CIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_717__GLOBAL_CLASS_CIT.val, "GLOBAL_CLASS_CITERATOR"); BASILYS_LOCATION("warmelt-normal.bysl:524: @iniobj"); /*iniobj dobj_718__GLOBAL_CLASS_CITERATOR*/ if (!/*_.VALDATA___V848*/ curfptr[847]) /*_.VALDATA___V848*/ curfptr[847] = (void*)&cdat->dobj_718__GLOBAL_CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dobj_718__GLOBAL_CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_718__GLOBAL_CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_718__GLOBAL_CLASS_CITERATOR.obj_hash = 588340677; cdat->dobj_718__GLOBAL_CLASS_CITERATOR.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_718__GLOBAL_CLASS_CITERATOR)); /*inimult dtup_719__GLOBAL_CLASS_CITERATOR*/ /*_.VALTUP___V852*/ curfptr[851] = (void*)&cdat->dtup_719__GLOBAL_CLASS_CITERATOR; cdat->dtup_719__GLOBAL_CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_719__GLOBAL_CLASS_CITERATOR.nbval = 1; /*inimult dtup_720__GLOBAL_CLASS_CITERATOR*/ /*_.VALTUP___V850*/ curfptr[849] = (void*)&cdat->dtup_720__GLOBAL_CLASS_CITERATOR; cdat->dtup_720__GLOBAL_CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_720__GLOBAL_CLASS_CITERATOR.nbval = 0; /*inistring dstr_721__void_BASILYSG_*/ /*_.VALSTR___V851*/ curfptr[850] = (void*)&cdat->dstr_721__void_BASILYSG_; cdat->dstr_721__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_721__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_CITERATOR)"); /*inistring dstr_722__GLOBAL_CLASS_CIT*/ /*_.VALSTR___V849*/ curfptr[848] = (void*)&cdat->dstr_722__GLOBAL_CLASS_CIT; cdat->dstr_722__GLOBAL_CLASS_CIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_722__GLOBAL_CLASS_CIT.val, "GLOBAL_CLASS_CITERATOR"); /*iniobj dsym_723__GLOBAL_CLASS_CLASS*/ if (!/*_.VALDATA___V853*/ curfptr[852]) /*_.VALDATA___V853*/ curfptr[852] = (void*)&cdat->dsym_723__GLOBAL_CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_723__GLOBAL_CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_723__GLOBAL_CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_723__GLOBAL_CLASS_CLASS.obj_hash = 221285133; cdat->dsym_723__GLOBAL_CLASS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_723__GLOBAL_CLASS_CLASS)); /*inistring dstr_724__GLOBAL_CLASS_CLA*/ /*_.VALSTR___V854*/ curfptr[853] = (void*)&cdat->dstr_724__GLOBAL_CLASS_CLA; cdat->dstr_724__GLOBAL_CLASS_CLA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_724__GLOBAL_CLASS_CLA.val, "GLOBAL_CLASS_CLASS"); BASILYS_LOCATION("warmelt-normal.bysl:525: @iniobj"); /*iniobj dobj_725__GLOBAL_CLASS_CLASS*/ if (!/*_.VALDATA___V855*/ curfptr[854]) /*_.VALDATA___V855*/ curfptr[854] = (void*)&cdat->dobj_725__GLOBAL_CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dobj_725__GLOBAL_CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_725__GLOBAL_CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_725__GLOBAL_CLASS_CLASS.obj_hash = 500439879; cdat->dobj_725__GLOBAL_CLASS_CLASS.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_725__GLOBAL_CLASS_CLASS)); /*inimult dtup_726__GLOBAL_CLASS_CLASS*/ /*_.VALTUP___V859*/ curfptr[858] = (void*)&cdat->dtup_726__GLOBAL_CLASS_CLASS; cdat->dtup_726__GLOBAL_CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_726__GLOBAL_CLASS_CLASS.nbval = 1; /*inimult dtup_727__GLOBAL_CLASS_CLASS*/ /*_.VALTUP___V857*/ curfptr[856] = (void*)&cdat->dtup_727__GLOBAL_CLASS_CLASS; cdat->dtup_727__GLOBAL_CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_727__GLOBAL_CLASS_CLASS.nbval = 0; /*inistring dstr_728__void_BASILYSG_*/ /*_.VALSTR___V858*/ curfptr[857] = (void*)&cdat->dstr_728__void_BASILYSG_; cdat->dstr_728__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_728__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_CLASS)"); /*inistring dstr_729__GLOBAL_CLASS_CLA*/ /*_.VALSTR___V856*/ curfptr[855] = (void*)&cdat->dstr_729__GLOBAL_CLASS_CLA; cdat->dstr_729__GLOBAL_CLASS_CLA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_729__GLOBAL_CLASS_CLA.val, "GLOBAL_CLASS_CLASS"); /*iniobj dsym_730__GLOBAL_CLASS_CONTAINER*/ if (!/*_.VALDATA___V860*/ curfptr[859]) /*_.VALDATA___V860*/ curfptr[859] = (void*)&cdat->dsym_730__GLOBAL_CLASS_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_730__GLOBAL_CLASS_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_730__GLOBAL_CLASS_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_730__GLOBAL_CLASS_CONTAINER.obj_hash = 457073758; cdat->dsym_730__GLOBAL_CLASS_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_730__GLOBAL_CLASS_CONTAINER)); /*inistring dstr_731__GLOBAL_CLASS_CON*/ /*_.VALSTR___V861*/ curfptr[860] = (void*)&cdat->dstr_731__GLOBAL_CLASS_CON; cdat->dstr_731__GLOBAL_CLASS_CON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_731__GLOBAL_CLASS_CON.val, "GLOBAL_CLASS_CONTAINER"); BASILYS_LOCATION("warmelt-normal.bysl:526: @iniobj"); /*iniobj dobj_732__GLOBAL_CLASS_CONTAINER*/ if (!/*_.VALDATA___V862*/ curfptr[861]) /*_.VALDATA___V862*/ curfptr[861] = (void*)&cdat->dobj_732__GLOBAL_CLASS_CONTAINER; basilys_assertmsg("iniobj checkdiscr dobj_732__GLOBAL_CLASS_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_732__GLOBAL_CLASS_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_732__GLOBAL_CLASS_CONTAINER.obj_hash = 865897092; cdat->dobj_732__GLOBAL_CLASS_CONTAINER.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_732__GLOBAL_CLASS_CONTAINER)); /*inimult dtup_733__GLOBAL_CLASS_CONTAINER*/ /*_.VALTUP___V866*/ curfptr[865] = (void*)&cdat->dtup_733__GLOBAL_CLASS_CONTAINER; cdat->dtup_733__GLOBAL_CLASS_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_733__GLOBAL_CLASS_CONTAINER.nbval = 1; /*inimult dtup_734__GLOBAL_CLASS_CONTAINER*/ /*_.VALTUP___V864*/ curfptr[863] = (void*)&cdat->dtup_734__GLOBAL_CLASS_CONTAINER; cdat->dtup_734__GLOBAL_CLASS_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_734__GLOBAL_CLASS_CONTAINER.nbval = 0; /*inistring dstr_735__void_BASILYSG_*/ /*_.VALSTR___V865*/ curfptr[864] = (void*)&cdat->dstr_735__void_BASILYSG_; cdat->dstr_735__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_735__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_CONTAINER)"); /*inistring dstr_736__GLOBAL_CLASS_CON*/ /*_.VALSTR___V863*/ curfptr[862] = (void*)&cdat->dstr_736__GLOBAL_CLASS_CON; cdat->dstr_736__GLOBAL_CLASS_CON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_736__GLOBAL_CLASS_CON.val, "GLOBAL_CLASS_CONTAINER"); /*iniobj dsym_737__GLOBAL_CLASS_DISCR*/ if (!/*_.VALDATA___V867*/ curfptr[866]) /*_.VALDATA___V867*/ curfptr[866] = (void*)&cdat->dsym_737__GLOBAL_CLASS_DISCR; basilys_assertmsg("iniobj checkdiscr dsym_737__GLOBAL_CLASS_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_737__GLOBAL_CLASS_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_737__GLOBAL_CLASS_DISCR.obj_hash = 330476927; cdat->dsym_737__GLOBAL_CLASS_DISCR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_737__GLOBAL_CLASS_DISCR)); /*inistring dstr_738__GLOBAL_CLASS_DIS*/ /*_.VALSTR___V868*/ curfptr[867] = (void*)&cdat->dstr_738__GLOBAL_CLASS_DIS; cdat->dstr_738__GLOBAL_CLASS_DIS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_738__GLOBAL_CLASS_DIS.val, "GLOBAL_CLASS_DISCR"); BASILYS_LOCATION("warmelt-normal.bysl:527: @iniobj"); /*iniobj dobj_739__GLOBAL_CLASS_DISCR*/ if (!/*_.VALDATA___V869*/ curfptr[868]) /*_.VALDATA___V869*/ curfptr[868] = (void*)&cdat->dobj_739__GLOBAL_CLASS_DISCR; basilys_assertmsg("iniobj checkdiscr dobj_739__GLOBAL_CLASS_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_739__GLOBAL_CLASS_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_739__GLOBAL_CLASS_DISCR.obj_hash = 1059814018; cdat->dobj_739__GLOBAL_CLASS_DISCR.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_739__GLOBAL_CLASS_DISCR)); /*inimult dtup_740__GLOBAL_CLASS_DISCR*/ /*_.VALTUP___V873*/ curfptr[872] = (void*)&cdat->dtup_740__GLOBAL_CLASS_DISCR; cdat->dtup_740__GLOBAL_CLASS_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_740__GLOBAL_CLASS_DISCR.nbval = 1; /*inimult dtup_741__GLOBAL_CLASS_DISCR*/ /*_.VALTUP___V871*/ curfptr[870] = (void*)&cdat->dtup_741__GLOBAL_CLASS_DISCR; cdat->dtup_741__GLOBAL_CLASS_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_741__GLOBAL_CLASS_DISCR.nbval = 0; /*inistring dstr_742__void_BASILYSG_*/ /*_.VALSTR___V872*/ curfptr[871] = (void*)&cdat->dstr_742__void_BASILYSG_; cdat->dstr_742__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_742__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_DISCR)"); /*inistring dstr_743__GLOBAL_CLASS_DIS*/ /*_.VALSTR___V870*/ curfptr[869] = (void*)&cdat->dstr_743__GLOBAL_CLASS_DIS; cdat->dstr_743__GLOBAL_CLASS_DIS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_743__GLOBAL_CLASS_DIS.val, "GLOBAL_CLASS_DISCR"); /*iniobj dsym_744__GLOBAL_CLASS_FIELD*/ if (!/*_.VALDATA___V874*/ curfptr[873]) /*_.VALDATA___V874*/ curfptr[873] = (void*)&cdat->dsym_744__GLOBAL_CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_744__GLOBAL_CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_744__GLOBAL_CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_744__GLOBAL_CLASS_FIELD.obj_hash = 746418386; cdat->dsym_744__GLOBAL_CLASS_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_744__GLOBAL_CLASS_FIELD)); /*inistring dstr_745__GLOBAL_CLASS_FIE*/ /*_.VALSTR___V875*/ curfptr[874] = (void*)&cdat->dstr_745__GLOBAL_CLASS_FIE; cdat->dstr_745__GLOBAL_CLASS_FIE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_745__GLOBAL_CLASS_FIE.val, "GLOBAL_CLASS_FIELD"); BASILYS_LOCATION("warmelt-normal.bysl:528: @iniobj"); /*iniobj dobj_746__GLOBAL_CLASS_FIELD*/ if (!/*_.VALDATA___V876*/ curfptr[875]) /*_.VALDATA___V876*/ curfptr[875] = (void*)&cdat->dobj_746__GLOBAL_CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dobj_746__GLOBAL_CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_746__GLOBAL_CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_746__GLOBAL_CLASS_FIELD.obj_hash = 186483813; cdat->dobj_746__GLOBAL_CLASS_FIELD.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_746__GLOBAL_CLASS_FIELD)); /*inimult dtup_747__GLOBAL_CLASS_FIELD*/ /*_.VALTUP___V880*/ curfptr[879] = (void*)&cdat->dtup_747__GLOBAL_CLASS_FIELD; cdat->dtup_747__GLOBAL_CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_747__GLOBAL_CLASS_FIELD.nbval = 1; /*inimult dtup_748__GLOBAL_CLASS_FIELD*/ /*_.VALTUP___V878*/ curfptr[877] = (void*)&cdat->dtup_748__GLOBAL_CLASS_FIELD; cdat->dtup_748__GLOBAL_CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_748__GLOBAL_CLASS_FIELD.nbval = 0; /*inistring dstr_749__void_BASILYSG_*/ /*_.VALSTR___V879*/ curfptr[878] = (void*)&cdat->dstr_749__void_BASILYSG_; cdat->dstr_749__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_749__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_FIELD)"); /*inistring dstr_750__GLOBAL_CLASS_FIE*/ /*_.VALSTR___V877*/ curfptr[876] = (void*)&cdat->dstr_750__GLOBAL_CLASS_FIE; cdat->dstr_750__GLOBAL_CLASS_FIE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_750__GLOBAL_CLASS_FIE.val, "GLOBAL_CLASS_FIELD"); /*iniobj dsym_751__GLOBAL_CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V881*/ curfptr[880]) /*_.VALDATA___V881*/ curfptr[880] = (void*)&cdat->dsym_751__GLOBAL_CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_751__GLOBAL_CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__GLOBAL_CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_751__GLOBAL_CLASS_FORMAL_BINDING.obj_hash = 624905334; cdat->dsym_751__GLOBAL_CLASS_FORMAL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_751__GLOBAL_CLASS_FORMAL_BINDING)); /*inistring dstr_752__GLOBAL_CLASS_FOR*/ /*_.VALSTR___V882*/ curfptr[881] = (void*)&cdat->dstr_752__GLOBAL_CLASS_FOR; cdat->dstr_752__GLOBAL_CLASS_FOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_752__GLOBAL_CLASS_FOR.val, "GLOBAL_CLASS_FORMAL_BINDING"); BASILYS_LOCATION("warmelt-normal.bysl:529: @iniobj"); /*iniobj dobj_753__GLOBAL_CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V883*/ curfptr[882]) /*_.VALDATA___V883*/ curfptr[882] = (void*)&cdat->dobj_753__GLOBAL_CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dobj_753__GLOBAL_CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_753__GLOBAL_CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_753__GLOBAL_CLASS_FORMAL_BINDING.obj_hash = 384947057; cdat->dobj_753__GLOBAL_CLASS_FORMAL_BINDING.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_753__GLOBAL_CLASS_FORMAL_BINDING)); /*inimult dtup_754__GLOBAL_CLASS_FORMAL_BINDING*/ /*_.VALTUP___V887*/ curfptr[886] = (void*)&cdat->dtup_754__GLOBAL_CLASS_FORMAL_BINDING; cdat->dtup_754__GLOBAL_CLASS_FORMAL_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_754__GLOBAL_CLASS_FORMAL_BINDING.nbval = 1; /*inimult dtup_755__GLOBAL_CLASS_FORMAL_BINDING*/ /*_.VALTUP___V885*/ curfptr[884] = (void*)&cdat->dtup_755__GLOBAL_CLASS_FORMAL_BINDING; cdat->dtup_755__GLOBAL_CLASS_FORMAL_BINDING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_755__GLOBAL_CLASS_FORMAL_BINDING.nbval = 0; /*inistring dstr_756__void_BASILYSG_*/ /*_.VALSTR___V886*/ curfptr[885] = (void*)&cdat->dstr_756__void_BASILYSG_; cdat->dstr_756__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_756__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_FORMAL_BINDING)"); /*inistring dstr_757__GLOBAL_CLASS_FOR*/ /*_.VALSTR___V884*/ curfptr[883] = (void*)&cdat->dstr_757__GLOBAL_CLASS_FOR; cdat->dstr_757__GLOBAL_CLASS_FOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_757__GLOBAL_CLASS_FOR.val, "GLOBAL_CLASS_FORMAL_BINDING"); /*iniobj dsym_758__GLOBAL_CLASS_KEYWORD*/ if (!/*_.VALDATA___V888*/ curfptr[887]) /*_.VALDATA___V888*/ curfptr[887] = (void*)&cdat->dsym_758__GLOBAL_CLASS_KEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_758__GLOBAL_CLASS_KEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_758__GLOBAL_CLASS_KEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_758__GLOBAL_CLASS_KEYWORD.obj_hash = 718222250; cdat->dsym_758__GLOBAL_CLASS_KEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_758__GLOBAL_CLASS_KEYWORD)); /*inistring dstr_759__GLOBAL_CLASS_KEY*/ /*_.VALSTR___V889*/ curfptr[888] = (void*)&cdat->dstr_759__GLOBAL_CLASS_KEY; cdat->dstr_759__GLOBAL_CLASS_KEY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_759__GLOBAL_CLASS_KEY.val, "GLOBAL_CLASS_KEYWORD"); BASILYS_LOCATION("warmelt-normal.bysl:530: @iniobj"); /*iniobj dobj_760__GLOBAL_CLASS_KEYWORD*/ if (!/*_.VALDATA___V890*/ curfptr[889]) /*_.VALDATA___V890*/ curfptr[889] = (void*)&cdat->dobj_760__GLOBAL_CLASS_KEYWORD; basilys_assertmsg("iniobj checkdiscr dobj_760__GLOBAL_CLASS_KEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_760__GLOBAL_CLASS_KEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_760__GLOBAL_CLASS_KEYWORD.obj_hash = 189984012; cdat->dobj_760__GLOBAL_CLASS_KEYWORD.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_760__GLOBAL_CLASS_KEYWORD)); /*inimult dtup_761__GLOBAL_CLASS_KEYWORD*/ /*_.VALTUP___V894*/ curfptr[893] = (void*)&cdat->dtup_761__GLOBAL_CLASS_KEYWORD; cdat->dtup_761__GLOBAL_CLASS_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_761__GLOBAL_CLASS_KEYWORD.nbval = 1; /*inimult dtup_762__GLOBAL_CLASS_KEYWORD*/ /*_.VALTUP___V892*/ curfptr[891] = (void*)&cdat->dtup_762__GLOBAL_CLASS_KEYWORD; cdat->dtup_762__GLOBAL_CLASS_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_762__GLOBAL_CLASS_KEYWORD.nbval = 0; /*inistring dstr_763__void_BASILYSG_*/ /*_.VALSTR___V893*/ curfptr[892] = (void*)&cdat->dstr_763__void_BASILYSG_; cdat->dstr_763__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_763__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_KEYWORD)"); /*inistring dstr_764__GLOBAL_CLASS_KEY*/ /*_.VALSTR___V891*/ curfptr[890] = (void*)&cdat->dstr_764__GLOBAL_CLASS_KEY; cdat->dstr_764__GLOBAL_CLASS_KEY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_764__GLOBAL_CLASS_KEY.val, "GLOBAL_CLASS_KEYWORD"); /*iniobj dsym_765__GLOBAL_CLASS_LOCATED*/ if (!/*_.VALDATA___V895*/ curfptr[894]) /*_.VALDATA___V895*/ curfptr[894] = (void*)&cdat->dsym_765__GLOBAL_CLASS_LOCATED; basilys_assertmsg("iniobj checkdiscr dsym_765__GLOBAL_CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__GLOBAL_CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_765__GLOBAL_CLASS_LOCATED.obj_hash = 322463248; cdat->dsym_765__GLOBAL_CLASS_LOCATED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_765__GLOBAL_CLASS_LOCATED)); /*inistring dstr_766__GLOBAL_CLASS_LOC*/ /*_.VALSTR___V896*/ curfptr[895] = (void*)&cdat->dstr_766__GLOBAL_CLASS_LOC; cdat->dstr_766__GLOBAL_CLASS_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_766__GLOBAL_CLASS_LOC.val, "GLOBAL_CLASS_LOCATED"); BASILYS_LOCATION("warmelt-normal.bysl:531: @iniobj"); /*iniobj dobj_767__GLOBAL_CLASS_LOCATED*/ if (!/*_.VALDATA___V897*/ curfptr[896]) /*_.VALDATA___V897*/ curfptr[896] = (void*)&cdat->dobj_767__GLOBAL_CLASS_LOCATED; basilys_assertmsg("iniobj checkdiscr dobj_767__GLOBAL_CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_767__GLOBAL_CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_767__GLOBAL_CLASS_LOCATED.obj_hash = 841054393; cdat->dobj_767__GLOBAL_CLASS_LOCATED.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_767__GLOBAL_CLASS_LOCATED)); /*inimult dtup_768__GLOBAL_CLASS_LOCATED*/ /*_.VALTUP___V901*/ curfptr[900] = (void*)&cdat->dtup_768__GLOBAL_CLASS_LOCATED; cdat->dtup_768__GLOBAL_CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_768__GLOBAL_CLASS_LOCATED.nbval = 1; /*inimult dtup_769__GLOBAL_CLASS_LOCATED*/ /*_.VALTUP___V899*/ curfptr[898] = (void*)&cdat->dtup_769__GLOBAL_CLASS_LOCATED; cdat->dtup_769__GLOBAL_CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_769__GLOBAL_CLASS_LOCATED.nbval = 0; /*inistring dstr_770__void_BASILYSG_*/ /*_.VALSTR___V900*/ curfptr[899] = (void*)&cdat->dstr_770__void_BASILYSG_; cdat->dstr_770__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_770__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_LOCATED)"); /*inistring dstr_771__GLOBAL_CLASS_LOC*/ /*_.VALSTR___V898*/ curfptr[897] = (void*)&cdat->dstr_771__GLOBAL_CLASS_LOC; cdat->dstr_771__GLOBAL_CLASS_LOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_771__GLOBAL_CLASS_LOC.val, "GLOBAL_CLASS_LOCATED"); /*iniobj dsym_772__GLOBAL_CLASS_NAMED*/ if (!/*_.VALDATA___V902*/ curfptr[901]) /*_.VALDATA___V902*/ curfptr[901] = (void*)&cdat->dsym_772__GLOBAL_CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dsym_772__GLOBAL_CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_772__GLOBAL_CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_772__GLOBAL_CLASS_NAMED.obj_hash = 63119078; cdat->dsym_772__GLOBAL_CLASS_NAMED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_772__GLOBAL_CLASS_NAMED)); /*inistring dstr_773__GLOBAL_CLASS_NAM*/ /*_.VALSTR___V903*/ curfptr[902] = (void*)&cdat->dstr_773__GLOBAL_CLASS_NAM; cdat->dstr_773__GLOBAL_CLASS_NAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_773__GLOBAL_CLASS_NAM.val, "GLOBAL_CLASS_NAMED"); BASILYS_LOCATION("warmelt-normal.bysl:532: @iniobj"); /*iniobj dobj_774__GLOBAL_CLASS_NAMED*/ if (!/*_.VALDATA___V904*/ curfptr[903]) /*_.VALDATA___V904*/ curfptr[903] = (void*)&cdat->dobj_774__GLOBAL_CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dobj_774__GLOBAL_CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_774__GLOBAL_CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_774__GLOBAL_CLASS_NAMED.obj_hash = 650184733; cdat->dobj_774__GLOBAL_CLASS_NAMED.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_774__GLOBAL_CLASS_NAMED)); /*inimult dtup_775__GLOBAL_CLASS_NAMED*/ /*_.VALTUP___V908*/ curfptr[907] = (void*)&cdat->dtup_775__GLOBAL_CLASS_NAMED; cdat->dtup_775__GLOBAL_CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_775__GLOBAL_CLASS_NAMED.nbval = 1; /*inimult dtup_776__GLOBAL_CLASS_NAMED*/ /*_.VALTUP___V906*/ curfptr[905] = (void*)&cdat->dtup_776__GLOBAL_CLASS_NAMED; cdat->dtup_776__GLOBAL_CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_776__GLOBAL_CLASS_NAMED.nbval = 0; /*inistring dstr_777__void_BASILYSG_*/ /*_.VALSTR___V907*/ curfptr[906] = (void*)&cdat->dstr_777__void_BASILYSG_; cdat->dstr_777__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_777__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_NAMED)"); /*inistring dstr_778__GLOBAL_CLASS_NAM*/ /*_.VALSTR___V905*/ curfptr[904] = (void*)&cdat->dstr_778__GLOBAL_CLASS_NAM; cdat->dstr_778__GLOBAL_CLASS_NAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_778__GLOBAL_CLASS_NAM.val, "GLOBAL_CLASS_NAMED"); /*iniobj dsym_779__GLOBAL_CLASS_PRIMITIVE*/ if (!/*_.VALDATA___V909*/ curfptr[908]) /*_.VALDATA___V909*/ curfptr[908] = (void*)&cdat->dsym_779__GLOBAL_CLASS_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_779__GLOBAL_CLASS_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__GLOBAL_CLASS_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_779__GLOBAL_CLASS_PRIMITIVE.obj_hash = 736996080; cdat->dsym_779__GLOBAL_CLASS_PRIMITIVE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_779__GLOBAL_CLASS_PRIMITIVE)); /*inistring dstr_780__GLOBAL_CLASS_PRI*/ /*_.VALSTR___V910*/ curfptr[909] = (void*)&cdat->dstr_780__GLOBAL_CLASS_PRI; cdat->dstr_780__GLOBAL_CLASS_PRI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_780__GLOBAL_CLASS_PRI.val, "GLOBAL_CLASS_PRIMITIVE"); BASILYS_LOCATION("warmelt-normal.bysl:533: @iniobj"); /*iniobj dobj_781__GLOBAL_CLASS_PRIMITIVE*/ if (!/*_.VALDATA___V911*/ curfptr[910]) /*_.VALDATA___V911*/ curfptr[910] = (void*)&cdat->dobj_781__GLOBAL_CLASS_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dobj_781__GLOBAL_CLASS_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_781__GLOBAL_CLASS_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_781__GLOBAL_CLASS_PRIMITIVE.obj_hash = 321314556; cdat->dobj_781__GLOBAL_CLASS_PRIMITIVE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_781__GLOBAL_CLASS_PRIMITIVE)); /*inimult dtup_782__GLOBAL_CLASS_PRIMITIVE*/ /*_.VALTUP___V915*/ curfptr[914] = (void*)&cdat->dtup_782__GLOBAL_CLASS_PRIMITIVE; cdat->dtup_782__GLOBAL_CLASS_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_782__GLOBAL_CLASS_PRIMITIVE.nbval = 1; /*inimult dtup_783__GLOBAL_CLASS_PRIMITIVE*/ /*_.VALTUP___V913*/ curfptr[912] = (void*)&cdat->dtup_783__GLOBAL_CLASS_PRIMITIVE; cdat->dtup_783__GLOBAL_CLASS_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_783__GLOBAL_CLASS_PRIMITIVE.nbval = 0; /*inistring dstr_784__void_BASILYSG_*/ /*_.VALSTR___V914*/ curfptr[913] = (void*)&cdat->dstr_784__void_BASILYSG_; cdat->dstr_784__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_784__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_PRIMITIVE)"); /*inistring dstr_785__GLOBAL_CLASS_PRI*/ /*_.VALSTR___V912*/ curfptr[911] = (void*)&cdat->dstr_785__GLOBAL_CLASS_PRI; cdat->dstr_785__GLOBAL_CLASS_PRI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_785__GLOBAL_CLASS_PRI.val, "GLOBAL_CLASS_PRIMITIVE"); /*iniobj dsym_786__GLOBAL_CLASS_PROPED*/ if (!/*_.VALDATA___V916*/ curfptr[915]) /*_.VALDATA___V916*/ curfptr[915] = (void*)&cdat->dsym_786__GLOBAL_CLASS_PROPED; basilys_assertmsg("iniobj checkdiscr dsym_786__GLOBAL_CLASS_PROPED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_786__GLOBAL_CLASS_PROPED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_786__GLOBAL_CLASS_PROPED.obj_hash = 637495754; cdat->dsym_786__GLOBAL_CLASS_PROPED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_786__GLOBAL_CLASS_PROPED)); /*inistring dstr_787__GLOBAL_CLASS_PRO*/ /*_.VALSTR___V917*/ curfptr[916] = (void*)&cdat->dstr_787__GLOBAL_CLASS_PRO; cdat->dstr_787__GLOBAL_CLASS_PRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_787__GLOBAL_CLASS_PRO.val, "GLOBAL_CLASS_PROPED"); BASILYS_LOCATION("warmelt-normal.bysl:534: @iniobj"); /*iniobj dobj_788__GLOBAL_CLASS_PROPED*/ if (!/*_.VALDATA___V918*/ curfptr[917]) /*_.VALDATA___V918*/ curfptr[917] = (void*)&cdat->dobj_788__GLOBAL_CLASS_PROPED; basilys_assertmsg("iniobj checkdiscr dobj_788__GLOBAL_CLASS_PROPED", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_788__GLOBAL_CLASS_PROPED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_788__GLOBAL_CLASS_PROPED.obj_hash = 774552379; cdat->dobj_788__GLOBAL_CLASS_PROPED.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_788__GLOBAL_CLASS_PROPED)); /*inimult dtup_789__GLOBAL_CLASS_PROPED*/ /*_.VALTUP___V922*/ curfptr[921] = (void*)&cdat->dtup_789__GLOBAL_CLASS_PROPED; cdat->dtup_789__GLOBAL_CLASS_PROPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_789__GLOBAL_CLASS_PROPED.nbval = 1; /*inimult dtup_790__GLOBAL_CLASS_PROPED*/ /*_.VALTUP___V920*/ curfptr[919] = (void*)&cdat->dtup_790__GLOBAL_CLASS_PROPED; cdat->dtup_790__GLOBAL_CLASS_PROPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_790__GLOBAL_CLASS_PROPED.nbval = 0; /*inistring dstr_791__void_BASILYSG_*/ /*_.VALSTR___V921*/ curfptr[920] = (void*)&cdat->dstr_791__void_BASILYSG_; cdat->dstr_791__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_791__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_PROPED)"); /*inistring dstr_792__GLOBAL_CLASS_PRO*/ /*_.VALSTR___V919*/ curfptr[918] = (void*)&cdat->dstr_792__GLOBAL_CLASS_PRO; cdat->dstr_792__GLOBAL_CLASS_PRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_792__GLOBAL_CLASS_PRO.val, "GLOBAL_CLASS_PROPED"); /*iniobj dsym_793__GLOBAL_CLASS_ROOT*/ if (!/*_.VALDATA___V923*/ curfptr[922]) /*_.VALDATA___V923*/ curfptr[922] = (void*)&cdat->dsym_793__GLOBAL_CLASS_ROOT; basilys_assertmsg("iniobj checkdiscr dsym_793__GLOBAL_CLASS_ROOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_793__GLOBAL_CLASS_ROOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_793__GLOBAL_CLASS_ROOT.obj_hash = 659193754; cdat->dsym_793__GLOBAL_CLASS_ROOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_793__GLOBAL_CLASS_ROOT)); /*inistring dstr_794__GLOBAL_CLASS_ROO*/ /*_.VALSTR___V924*/ curfptr[923] = (void*)&cdat->dstr_794__GLOBAL_CLASS_ROO; cdat->dstr_794__GLOBAL_CLASS_ROO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_794__GLOBAL_CLASS_ROO.val, "GLOBAL_CLASS_ROOT"); BASILYS_LOCATION("warmelt-normal.bysl:535: @iniobj"); /*iniobj dobj_795__GLOBAL_CLASS_ROOT*/ if (!/*_.VALDATA___V925*/ curfptr[924]) /*_.VALDATA___V925*/ curfptr[924] = (void*)&cdat->dobj_795__GLOBAL_CLASS_ROOT; basilys_assertmsg("iniobj checkdiscr dobj_795__GLOBAL_CLASS_ROOT", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_795__GLOBAL_CLASS_ROOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_795__GLOBAL_CLASS_ROOT.obj_hash = 261725407; cdat->dobj_795__GLOBAL_CLASS_ROOT.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_795__GLOBAL_CLASS_ROOT)); /*inimult dtup_796__GLOBAL_CLASS_ROOT*/ /*_.VALTUP___V929*/ curfptr[928] = (void*)&cdat->dtup_796__GLOBAL_CLASS_ROOT; cdat->dtup_796__GLOBAL_CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_796__GLOBAL_CLASS_ROOT.nbval = 1; /*inimult dtup_797__GLOBAL_CLASS_ROOT*/ /*_.VALTUP___V927*/ curfptr[926] = (void*)&cdat->dtup_797__GLOBAL_CLASS_ROOT; cdat->dtup_797__GLOBAL_CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_797__GLOBAL_CLASS_ROOT.nbval = 0; /*inistring dstr_798__void_BASILYSG_*/ /*_.VALSTR___V928*/ curfptr[927] = (void*)&cdat->dstr_798__void_BASILYSG_; cdat->dstr_798__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_798__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_ROOT)"); /*inistring dstr_799__GLOBAL_CLASS_ROO*/ /*_.VALSTR___V926*/ curfptr[925] = (void*)&cdat->dstr_799__GLOBAL_CLASS_ROO; cdat->dstr_799__GLOBAL_CLASS_ROO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_799__GLOBAL_CLASS_ROO.val, "GLOBAL_CLASS_ROOT"); /*iniobj dsym_800__GLOBAL_CLASS_SELECTOR*/ if (!/*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*)&cdat->dsym_800__GLOBAL_CLASS_SELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_800__GLOBAL_CLASS_SELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_800__GLOBAL_CLASS_SELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_800__GLOBAL_CLASS_SELECTOR.obj_hash = 961329702; cdat->dsym_800__GLOBAL_CLASS_SELECTOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_800__GLOBAL_CLASS_SELECTOR)); /*inistring dstr_801__GLOBAL_CLASS_SEL*/ /*_.VALSTR___V931*/ curfptr[930] = (void*)&cdat->dstr_801__GLOBAL_CLASS_SEL; cdat->dstr_801__GLOBAL_CLASS_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_801__GLOBAL_CLASS_SEL.val, "GLOBAL_CLASS_SELECTOR"); BASILYS_LOCATION("warmelt-normal.bysl:536: @iniobj"); /*iniobj dobj_802__GLOBAL_CLASS_SELECTOR*/ if (!/*_.VALDATA___V932*/ curfptr[931]) /*_.VALDATA___V932*/ curfptr[931] = (void*)&cdat->dobj_802__GLOBAL_CLASS_SELECTOR; basilys_assertmsg("iniobj checkdiscr dobj_802__GLOBAL_CLASS_SELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_802__GLOBAL_CLASS_SELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_802__GLOBAL_CLASS_SELECTOR.obj_hash = 243961356; cdat->dobj_802__GLOBAL_CLASS_SELECTOR.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_802__GLOBAL_CLASS_SELECTOR)); /*inimult dtup_803__GLOBAL_CLASS_SELECTOR*/ /*_.VALTUP___V936*/ curfptr[935] = (void*)&cdat->dtup_803__GLOBAL_CLASS_SELECTOR; cdat->dtup_803__GLOBAL_CLASS_SELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_803__GLOBAL_CLASS_SELECTOR.nbval = 1; /*inimult dtup_804__GLOBAL_CLASS_SELECTOR*/ /*_.VALTUP___V934*/ curfptr[933] = (void*)&cdat->dtup_804__GLOBAL_CLASS_SELECTOR; cdat->dtup_804__GLOBAL_CLASS_SELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_804__GLOBAL_CLASS_SELECTOR.nbval = 0; /*inistring dstr_805__void_BASILYSG_*/ /*_.VALSTR___V935*/ curfptr[934] = (void*)&cdat->dstr_805__void_BASILYSG_; cdat->dstr_805__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_805__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_SELECTOR)"); /*inistring dstr_806__GLOBAL_CLASS_SEL*/ /*_.VALSTR___V933*/ curfptr[932] = (void*)&cdat->dstr_806__GLOBAL_CLASS_SEL; cdat->dstr_806__GLOBAL_CLASS_SEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_806__GLOBAL_CLASS_SEL.val, "GLOBAL_CLASS_SELECTOR"); /*iniobj dsym_807__GLOBAL_CLASS_SEXPR*/ if (!/*_.VALDATA___V937*/ curfptr[936]) /*_.VALDATA___V937*/ curfptr[936] = (void*)&cdat->dsym_807__GLOBAL_CLASS_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_807__GLOBAL_CLASS_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__GLOBAL_CLASS_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_807__GLOBAL_CLASS_SEXPR.obj_hash = 45094302; cdat->dsym_807__GLOBAL_CLASS_SEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_807__GLOBAL_CLASS_SEXPR)); /*inistring dstr_808__GLOBAL_CLASS_SEX*/ /*_.VALSTR___V938*/ curfptr[937] = (void*)&cdat->dstr_808__GLOBAL_CLASS_SEX; cdat->dstr_808__GLOBAL_CLASS_SEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_808__GLOBAL_CLASS_SEX.val, "GLOBAL_CLASS_SEXPR"); BASILYS_LOCATION("warmelt-normal.bysl:537: @iniobj"); /*iniobj dobj_809__GLOBAL_CLASS_SEXPR*/ if (!/*_.VALDATA___V939*/ curfptr[938]) /*_.VALDATA___V939*/ curfptr[938] = (void*)&cdat->dobj_809__GLOBAL_CLASS_SEXPR; basilys_assertmsg("iniobj checkdiscr dobj_809__GLOBAL_CLASS_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_809__GLOBAL_CLASS_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_809__GLOBAL_CLASS_SEXPR.obj_hash = 1047882503; cdat->dobj_809__GLOBAL_CLASS_SEXPR.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_809__GLOBAL_CLASS_SEXPR)); /*inimult dtup_810__GLOBAL_CLASS_SEXPR*/ /*_.VALTUP___V943*/ curfptr[942] = (void*)&cdat->dtup_810__GLOBAL_CLASS_SEXPR; cdat->dtup_810__GLOBAL_CLASS_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_810__GLOBAL_CLASS_SEXPR.nbval = 1; /*inimult dtup_811__GLOBAL_CLASS_SEXPR*/ /*_.VALTUP___V941*/ curfptr[940] = (void*)&cdat->dtup_811__GLOBAL_CLASS_SEXPR; cdat->dtup_811__GLOBAL_CLASS_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_811__GLOBAL_CLASS_SEXPR.nbval = 0; /*inistring dstr_812__void_BASILYSG_*/ /*_.VALSTR___V942*/ curfptr[941] = (void*)&cdat->dstr_812__void_BASILYSG_; cdat->dstr_812__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_812__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_SEXPR)"); /*inistring dstr_813__GLOBAL_CLASS_SEX*/ /*_.VALSTR___V940*/ curfptr[939] = (void*)&cdat->dstr_813__GLOBAL_CLASS_SEX; cdat->dstr_813__GLOBAL_CLASS_SEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_813__GLOBAL_CLASS_SEX.val, "GLOBAL_CLASS_SEXPR"); /*iniobj dsym_814__GLOBAL_CLASS_SYMBOL*/ if (!/*_.VALDATA___V944*/ curfptr[943]) /*_.VALDATA___V944*/ curfptr[943] = (void*)&cdat->dsym_814__GLOBAL_CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_814__GLOBAL_CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_814__GLOBAL_CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_814__GLOBAL_CLASS_SYMBOL.obj_hash = 1024360991; cdat->dsym_814__GLOBAL_CLASS_SYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_814__GLOBAL_CLASS_SYMBOL)); /*inistring dstr_815__GLOBAL_CLASS_SYM*/ /*_.VALSTR___V945*/ curfptr[944] = (void*)&cdat->dstr_815__GLOBAL_CLASS_SYM; cdat->dstr_815__GLOBAL_CLASS_SYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_815__GLOBAL_CLASS_SYM.val, "GLOBAL_CLASS_SYMBOL"); BASILYS_LOCATION("warmelt-normal.bysl:538: @iniobj"); /*iniobj dobj_816__GLOBAL_CLASS_SYMBOL*/ if (!/*_.VALDATA___V946*/ curfptr[945]) /*_.VALDATA___V946*/ curfptr[945] = (void*)&cdat->dobj_816__GLOBAL_CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dobj_816__GLOBAL_CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_816__GLOBAL_CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_816__GLOBAL_CLASS_SYMBOL.obj_hash = 1066117683; cdat->dobj_816__GLOBAL_CLASS_SYMBOL.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_816__GLOBAL_CLASS_SYMBOL)); /*inimult dtup_817__GLOBAL_CLASS_SYMBOL*/ /*_.VALTUP___V950*/ curfptr[949] = (void*)&cdat->dtup_817__GLOBAL_CLASS_SYMBOL; cdat->dtup_817__GLOBAL_CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_817__GLOBAL_CLASS_SYMBOL.nbval = 1; /*inimult dtup_818__GLOBAL_CLASS_SYMBOL*/ /*_.VALTUP___V948*/ curfptr[947] = (void*)&cdat->dtup_818__GLOBAL_CLASS_SYMBOL; cdat->dtup_818__GLOBAL_CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_818__GLOBAL_CLASS_SYMBOL.nbval = 0; /*inistring dstr_819__void_BASILYSG_*/ /*_.VALSTR___V949*/ curfptr[948] = (void*)&cdat->dstr_819__void_BASILYSG_; cdat->dstr_819__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_819__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_SYMBOL)"); /*inistring dstr_820__GLOBAL_CLASS_SYM*/ /*_.VALSTR___V947*/ curfptr[946] = (void*)&cdat->dstr_820__GLOBAL_CLASS_SYM; cdat->dstr_820__GLOBAL_CLASS_SYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_820__GLOBAL_CLASS_SYM.val, "GLOBAL_CLASS_SYMBOL"); /*iniobj dsym_821__GLOBAL_CLASS_SYSTEM_DATA*/ if (!/*_.VALDATA___V951*/ curfptr[950]) /*_.VALDATA___V951*/ curfptr[950] = (void*)&cdat->dsym_821__GLOBAL_CLASS_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_821__GLOBAL_CLASS_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__GLOBAL_CLASS_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_821__GLOBAL_CLASS_SYSTEM_DATA.obj_hash = 940000989; cdat->dsym_821__GLOBAL_CLASS_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_821__GLOBAL_CLASS_SYSTEM_DATA)); /*inistring dstr_822__GLOBAL_CLASS_SYS*/ /*_.VALSTR___V952*/ curfptr[951] = (void*)&cdat->dstr_822__GLOBAL_CLASS_SYS; cdat->dstr_822__GLOBAL_CLASS_SYS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_822__GLOBAL_CLASS_SYS.val, "GLOBAL_CLASS_SYSTEM_DATA"); BASILYS_LOCATION("warmelt-normal.bysl:539: @iniobj"); /*iniobj dobj_823__GLOBAL_CLASS_SYSTEM_DATA*/ if (!/*_.VALDATA___V953*/ curfptr[952]) /*_.VALDATA___V953*/ curfptr[952] = (void*)&cdat->dobj_823__GLOBAL_CLASS_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dobj_823__GLOBAL_CLASS_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_823__GLOBAL_CLASS_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_823__GLOBAL_CLASS_SYSTEM_DATA.obj_hash = 919806998; cdat->dobj_823__GLOBAL_CLASS_SYSTEM_DATA.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_823__GLOBAL_CLASS_SYSTEM_DATA)); /*inimult dtup_824__GLOBAL_CLASS_SYSTEM_DATA*/ /*_.VALTUP___V957*/ curfptr[956] = (void*)&cdat->dtup_824__GLOBAL_CLASS_SYSTEM_DATA; cdat->dtup_824__GLOBAL_CLASS_SYSTEM_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_824__GLOBAL_CLASS_SYSTEM_DATA.nbval = 1; /*inimult dtup_825__GLOBAL_CLASS_SYSTEM_DATA*/ /*_.VALTUP___V955*/ curfptr[954] = (void*)&cdat->dtup_825__GLOBAL_CLASS_SYSTEM_DATA; cdat->dtup_825__GLOBAL_CLASS_SYSTEM_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_825__GLOBAL_CLASS_SYSTEM_DATA.nbval = 0; /*inistring dstr_826__void_BASILYSG_*/ /*_.VALSTR___V956*/ curfptr[955] = (void*)&cdat->dstr_826__void_BASILYSG_; cdat->dstr_826__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_826__void_BASILYSG_.val, "(void*)BASILYSG(CLASS_SYSTEM_DATA)"); /*inistring dstr_827__GLOBAL_CLASS_SYS*/ /*_.VALSTR___V954*/ curfptr[953] = (void*)&cdat->dstr_827__GLOBAL_CLASS_SYS; cdat->dstr_827__GLOBAL_CLASS_SYS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_827__GLOBAL_CLASS_SYS.val, "GLOBAL_CLASS_SYSTEM_DATA"); /*iniobj dsym_828__GLOBAL_CTYPE_CSTRING*/ if (!/*_.VALDATA___V958*/ curfptr[957]) /*_.VALDATA___V958*/ curfptr[957] = (void*)&cdat->dsym_828__GLOBAL_CTYPE_CSTRING; basilys_assertmsg("iniobj checkdiscr dsym_828__GLOBAL_CTYPE_CSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_828__GLOBAL_CTYPE_CSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_828__GLOBAL_CTYPE_CSTRING.obj_hash = 560271935; cdat->dsym_828__GLOBAL_CTYPE_CSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_828__GLOBAL_CTYPE_CSTRING)); /*inistring dstr_829__GLOBAL_CTYPE_CST*/ /*_.VALSTR___V959*/ curfptr[958] = (void*)&cdat->dstr_829__GLOBAL_CTYPE_CST; cdat->dstr_829__GLOBAL_CTYPE_CST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_829__GLOBAL_CTYPE_CST.val, "GLOBAL_CTYPE_CSTRING"); BASILYS_LOCATION("warmelt-normal.bysl:540: @iniobj"); /*iniobj dobj_830__GLOBAL_CTYPE_CSTRING*/ if (!/*_.VALDATA___V960*/ curfptr[959]) /*_.VALDATA___V960*/ curfptr[959] = (void*)&cdat->dobj_830__GLOBAL_CTYPE_CSTRING; basilys_assertmsg("iniobj checkdiscr dobj_830__GLOBAL_CTYPE_CSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_830__GLOBAL_CTYPE_CSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_830__GLOBAL_CTYPE_CSTRING.obj_hash = 579001172; cdat->dobj_830__GLOBAL_CTYPE_CSTRING.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_830__GLOBAL_CTYPE_CSTRING)); /*inimult dtup_831__GLOBAL_CTYPE_CSTRING*/ /*_.VALTUP___V964*/ curfptr[963] = (void*)&cdat->dtup_831__GLOBAL_CTYPE_CSTRING; cdat->dtup_831__GLOBAL_CTYPE_CSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_831__GLOBAL_CTYPE_CSTRING.nbval = 1; /*inimult dtup_832__GLOBAL_CTYPE_CSTRING*/ /*_.VALTUP___V962*/ curfptr[961] = (void*)&cdat->dtup_832__GLOBAL_CTYPE_CSTRING; cdat->dtup_832__GLOBAL_CTYPE_CSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_832__GLOBAL_CTYPE_CSTRING.nbval = 0; /*inistring dstr_833__void_BASILYSG_*/ /*_.VALSTR___V963*/ curfptr[962] = (void*)&cdat->dstr_833__void_BASILYSG_; cdat->dstr_833__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_833__void_BASILYSG_.val, "(void*)BASILYSG(CTYPE_CSTRING)"); /*inistring dstr_834__GLOBAL_CTYPE_CST*/ /*_.VALSTR___V961*/ curfptr[960] = (void*)&cdat->dstr_834__GLOBAL_CTYPE_CST; cdat->dstr_834__GLOBAL_CTYPE_CST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_834__GLOBAL_CTYPE_CST.val, "GLOBAL_CTYPE_CSTRING"); /*iniobj dsym_835__GLOBAL_CTYPE_LONG*/ if (!/*_.VALDATA___V965*/ curfptr[964]) /*_.VALDATA___V965*/ curfptr[964] = (void*)&cdat->dsym_835__GLOBAL_CTYPE_LONG; basilys_assertmsg("iniobj checkdiscr dsym_835__GLOBAL_CTYPE_LONG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_835__GLOBAL_CTYPE_LONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_835__GLOBAL_CTYPE_LONG.obj_hash = 625705065; cdat->dsym_835__GLOBAL_CTYPE_LONG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_835__GLOBAL_CTYPE_LONG)); /*inistring dstr_836__GLOBAL_CTYPE_LON*/ /*_.VALSTR___V966*/ curfptr[965] = (void*)&cdat->dstr_836__GLOBAL_CTYPE_LON; cdat->dstr_836__GLOBAL_CTYPE_LON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_836__GLOBAL_CTYPE_LON.val, "GLOBAL_CTYPE_LONG"); BASILYS_LOCATION("warmelt-normal.bysl:541: @iniobj"); /*iniobj dobj_837__GLOBAL_CTYPE_LONG*/ if (!/*_.VALDATA___V967*/ curfptr[966]) /*_.VALDATA___V967*/ curfptr[966] = (void*)&cdat->dobj_837__GLOBAL_CTYPE_LONG; basilys_assertmsg("iniobj checkdiscr dobj_837__GLOBAL_CTYPE_LONG", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_837__GLOBAL_CTYPE_LONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_837__GLOBAL_CTYPE_LONG.obj_hash = 522306738; cdat->dobj_837__GLOBAL_CTYPE_LONG.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_837__GLOBAL_CTYPE_LONG)); /*inimult dtup_838__GLOBAL_CTYPE_LONG*/ /*_.VALTUP___V971*/ curfptr[970] = (void*)&cdat->dtup_838__GLOBAL_CTYPE_LONG; cdat->dtup_838__GLOBAL_CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_838__GLOBAL_CTYPE_LONG.nbval = 1; /*inimult dtup_839__GLOBAL_CTYPE_LONG*/ /*_.VALTUP___V969*/ curfptr[968] = (void*)&cdat->dtup_839__GLOBAL_CTYPE_LONG; cdat->dtup_839__GLOBAL_CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_839__GLOBAL_CTYPE_LONG.nbval = 0; /*inistring dstr_840__void_BASILYSG_*/ /*_.VALSTR___V970*/ curfptr[969] = (void*)&cdat->dstr_840__void_BASILYSG_; cdat->dstr_840__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_840__void_BASILYSG_.val, "(void*)BASILYSG(CTYPE_LONG)"); /*inistring dstr_841__GLOBAL_CTYPE_LON*/ /*_.VALSTR___V968*/ curfptr[967] = (void*)&cdat->dstr_841__GLOBAL_CTYPE_LON; cdat->dstr_841__GLOBAL_CTYPE_LON.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_841__GLOBAL_CTYPE_LON.val, "GLOBAL_CTYPE_LONG"); /*iniobj dsym_842__GLOBAL_CTYPE_TREE*/ if (!/*_.VALDATA___V972*/ curfptr[971]) /*_.VALDATA___V972*/ curfptr[971] = (void*)&cdat->dsym_842__GLOBAL_CTYPE_TREE; basilys_assertmsg("iniobj checkdiscr dsym_842__GLOBAL_CTYPE_TREE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_842__GLOBAL_CTYPE_TREE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_842__GLOBAL_CTYPE_TREE.obj_hash = 922417606; cdat->dsym_842__GLOBAL_CTYPE_TREE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_842__GLOBAL_CTYPE_TREE)); /*inistring dstr_843__GLOBAL_CTYPE_TRE*/ /*_.VALSTR___V973*/ curfptr[972] = (void*)&cdat->dstr_843__GLOBAL_CTYPE_TRE; cdat->dstr_843__GLOBAL_CTYPE_TRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_843__GLOBAL_CTYPE_TRE.val, "GLOBAL_CTYPE_TREE"); BASILYS_LOCATION("warmelt-normal.bysl:542: @iniobj"); /*iniobj dobj_844__GLOBAL_CTYPE_TREE*/ if (!/*_.VALDATA___V974*/ curfptr[973]) /*_.VALDATA___V974*/ curfptr[973] = (void*)&cdat->dobj_844__GLOBAL_CTYPE_TREE; basilys_assertmsg("iniobj checkdiscr dobj_844__GLOBAL_CTYPE_TREE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_844__GLOBAL_CTYPE_TREE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_844__GLOBAL_CTYPE_TREE.obj_hash = 300388115; cdat->dobj_844__GLOBAL_CTYPE_TREE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_844__GLOBAL_CTYPE_TREE)); /*inimult dtup_845__GLOBAL_CTYPE_TREE*/ /*_.VALTUP___V978*/ curfptr[977] = (void*)&cdat->dtup_845__GLOBAL_CTYPE_TREE; cdat->dtup_845__GLOBAL_CTYPE_TREE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_845__GLOBAL_CTYPE_TREE.nbval = 1; /*inimult dtup_846__GLOBAL_CTYPE_TREE*/ /*_.VALTUP___V976*/ curfptr[975] = (void*)&cdat->dtup_846__GLOBAL_CTYPE_TREE; cdat->dtup_846__GLOBAL_CTYPE_TREE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_846__GLOBAL_CTYPE_TREE.nbval = 0; /*inistring dstr_847__void_BASILYSG_*/ /*_.VALSTR___V977*/ curfptr[976] = (void*)&cdat->dstr_847__void_BASILYSG_; cdat->dstr_847__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_847__void_BASILYSG_.val, "(void*)BASILYSG(CTYPE_TREE)"); /*inistring dstr_848__GLOBAL_CTYPE_TRE*/ /*_.VALSTR___V975*/ curfptr[974] = (void*)&cdat->dstr_848__GLOBAL_CTYPE_TRE; cdat->dstr_848__GLOBAL_CTYPE_TRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_848__GLOBAL_CTYPE_TRE.val, "GLOBAL_CTYPE_TREE"); /*iniobj dsym_849__GLOBAL_CTYPE_VALUE*/ if (!/*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*)&cdat->dsym_849__GLOBAL_CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_849__GLOBAL_CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_849__GLOBAL_CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_849__GLOBAL_CTYPE_VALUE.obj_hash = 622071785; cdat->dsym_849__GLOBAL_CTYPE_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_849__GLOBAL_CTYPE_VALUE)); /*inistring dstr_850__GLOBAL_CTYPE_VAL*/ /*_.VALSTR___V980*/ curfptr[979] = (void*)&cdat->dstr_850__GLOBAL_CTYPE_VAL; cdat->dstr_850__GLOBAL_CTYPE_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_850__GLOBAL_CTYPE_VAL.val, "GLOBAL_CTYPE_VALUE"); BASILYS_LOCATION("warmelt-normal.bysl:543: @iniobj"); /*iniobj dobj_851__GLOBAL_CTYPE_VALUE*/ if (!/*_.VALDATA___V981*/ curfptr[980]) /*_.VALDATA___V981*/ curfptr[980] = (void*)&cdat->dobj_851__GLOBAL_CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dobj_851__GLOBAL_CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_851__GLOBAL_CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_851__GLOBAL_CTYPE_VALUE.obj_hash = 215968637; cdat->dobj_851__GLOBAL_CTYPE_VALUE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_851__GLOBAL_CTYPE_VALUE)); /*inimult dtup_852__GLOBAL_CTYPE_VALUE*/ /*_.VALTUP___V985*/ curfptr[984] = (void*)&cdat->dtup_852__GLOBAL_CTYPE_VALUE; cdat->dtup_852__GLOBAL_CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_852__GLOBAL_CTYPE_VALUE.nbval = 1; /*inimult dtup_853__GLOBAL_CTYPE_VALUE*/ /*_.VALTUP___V983*/ curfptr[982] = (void*)&cdat->dtup_853__GLOBAL_CTYPE_VALUE; cdat->dtup_853__GLOBAL_CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_853__GLOBAL_CTYPE_VALUE.nbval = 0; /*inistring dstr_854__void_BASILYSG_*/ /*_.VALSTR___V984*/ curfptr[983] = (void*)&cdat->dstr_854__void_BASILYSG_; cdat->dstr_854__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_854__void_BASILYSG_.val, "(void*)BASILYSG(CTYPE_VALUE)"); /*inistring dstr_855__GLOBAL_CTYPE_VAL*/ /*_.VALSTR___V982*/ curfptr[981] = (void*)&cdat->dstr_855__GLOBAL_CTYPE_VAL; cdat->dstr_855__GLOBAL_CTYPE_VAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_855__GLOBAL_CTYPE_VAL.val, "GLOBAL_CTYPE_VALUE"); /*iniobj dsym_856__GLOBAL_CTYPE_VOID*/ if (!/*_.VALDATA___V986*/ curfptr[985]) /*_.VALDATA___V986*/ curfptr[985] = (void*)&cdat->dsym_856__GLOBAL_CTYPE_VOID; basilys_assertmsg("iniobj checkdiscr dsym_856__GLOBAL_CTYPE_VOID", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_856__GLOBAL_CTYPE_VOID.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_856__GLOBAL_CTYPE_VOID.obj_hash = 284539032; cdat->dsym_856__GLOBAL_CTYPE_VOID.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_856__GLOBAL_CTYPE_VOID)); /*inistring dstr_857__GLOBAL_CTYPE_VOI*/ /*_.VALSTR___V987*/ curfptr[986] = (void*)&cdat->dstr_857__GLOBAL_CTYPE_VOI; cdat->dstr_857__GLOBAL_CTYPE_VOI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_857__GLOBAL_CTYPE_VOI.val, "GLOBAL_CTYPE_VOID"); BASILYS_LOCATION("warmelt-normal.bysl:544: @iniobj"); /*iniobj dobj_858__GLOBAL_CTYPE_VOID*/ if (!/*_.VALDATA___V988*/ curfptr[987]) /*_.VALDATA___V988*/ curfptr[987] = (void*)&cdat->dobj_858__GLOBAL_CTYPE_VOID; basilys_assertmsg("iniobj checkdiscr dobj_858__GLOBAL_CTYPE_VOID", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_858__GLOBAL_CTYPE_VOID.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_858__GLOBAL_CTYPE_VOID.obj_hash = 558683412; cdat->dobj_858__GLOBAL_CTYPE_VOID.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_858__GLOBAL_CTYPE_VOID)); /*inimult dtup_859__GLOBAL_CTYPE_VOID*/ /*_.VALTUP___V992*/ curfptr[991] = (void*)&cdat->dtup_859__GLOBAL_CTYPE_VOID; cdat->dtup_859__GLOBAL_CTYPE_VOID.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_859__GLOBAL_CTYPE_VOID.nbval = 1; /*inimult dtup_860__GLOBAL_CTYPE_VOID*/ /*_.VALTUP___V990*/ curfptr[989] = (void*)&cdat->dtup_860__GLOBAL_CTYPE_VOID; cdat->dtup_860__GLOBAL_CTYPE_VOID.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_860__GLOBAL_CTYPE_VOID.nbval = 0; /*inistring dstr_861__void_BASILYSG_*/ /*_.VALSTR___V991*/ curfptr[990] = (void*)&cdat->dstr_861__void_BASILYSG_; cdat->dstr_861__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_861__void_BASILYSG_.val, "(void*)BASILYSG(CTYPE_VOID)"); /*inistring dstr_862__GLOBAL_CTYPE_VOI*/ /*_.VALSTR___V989*/ curfptr[988] = (void*)&cdat->dstr_862__GLOBAL_CTYPE_VOI; cdat->dstr_862__GLOBAL_CTYPE_VOI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_862__GLOBAL_CTYPE_VOI.val, "GLOBAL_CTYPE_VOID"); /*iniobj dsym_863__GLOBAL_DISCR_BOX*/ if (!/*_.VALDATA___V993*/ curfptr[992]) /*_.VALDATA___V993*/ curfptr[992] = (void*)&cdat->dsym_863__GLOBAL_DISCR_BOX; basilys_assertmsg("iniobj checkdiscr dsym_863__GLOBAL_DISCR_BOX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_863__GLOBAL_DISCR_BOX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_863__GLOBAL_DISCR_BOX.obj_hash = 196922265; cdat->dsym_863__GLOBAL_DISCR_BOX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_863__GLOBAL_DISCR_BOX)); /*inistring dstr_864__GLOBAL_DISCR_BOX*/ /*_.VALSTR___V994*/ curfptr[993] = (void*)&cdat->dstr_864__GLOBAL_DISCR_BOX; cdat->dstr_864__GLOBAL_DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_864__GLOBAL_DISCR_BOX.val, "GLOBAL_DISCR_BOX"); BASILYS_LOCATION("warmelt-normal.bysl:545: @iniobj"); /*iniobj dobj_865__GLOBAL_DISCR_BOX*/ if (!/*_.VALDATA___V995*/ curfptr[994]) /*_.VALDATA___V995*/ curfptr[994] = (void*)&cdat->dobj_865__GLOBAL_DISCR_BOX; basilys_assertmsg("iniobj checkdiscr dobj_865__GLOBAL_DISCR_BOX", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_865__GLOBAL_DISCR_BOX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_865__GLOBAL_DISCR_BOX.obj_hash = 886200605; cdat->dobj_865__GLOBAL_DISCR_BOX.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_865__GLOBAL_DISCR_BOX)); /*inimult dtup_866__GLOBAL_DISCR_BOX*/ /*_.VALTUP___V999*/ curfptr[998] = (void*)&cdat->dtup_866__GLOBAL_DISCR_BOX; cdat->dtup_866__GLOBAL_DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_866__GLOBAL_DISCR_BOX.nbval = 1; /*inimult dtup_867__GLOBAL_DISCR_BOX*/ /*_.VALTUP___V997*/ curfptr[996] = (void*)&cdat->dtup_867__GLOBAL_DISCR_BOX; cdat->dtup_867__GLOBAL_DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_867__GLOBAL_DISCR_BOX.nbval = 0; /*inistring dstr_868__void_BASILYSG_*/ /*_.VALSTR___V998*/ curfptr[997] = (void*)&cdat->dstr_868__void_BASILYSG_; cdat->dstr_868__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_868__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_BOX)"); /*inistring dstr_869__GLOBAL_DISCR_BOX*/ /*_.VALSTR___V996*/ curfptr[995] = (void*)&cdat->dstr_869__GLOBAL_DISCR_BOX; cdat->dstr_869__GLOBAL_DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_869__GLOBAL_DISCR_BOX.val, "GLOBAL_DISCR_BOX"); /*iniobj dsym_870__GLOBAL_DISCR_CHARINTEGER*/ if (!/*_.VALDATA___V1000*/ curfptr[999]) /*_.VALDATA___V1000*/ curfptr[999] = (void*)&cdat->dsym_870__GLOBAL_DISCR_CHARINTEGER; basilys_assertmsg("iniobj checkdiscr dsym_870__GLOBAL_DISCR_CHARINTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_870__GLOBAL_DISCR_CHARINTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_870__GLOBAL_DISCR_CHARINTEGER.obj_hash = 196162691; cdat->dsym_870__GLOBAL_DISCR_CHARINTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_870__GLOBAL_DISCR_CHARINTEGER)); /*inistring dstr_871__GLOBAL_DISCR_CHA*/ /*_.VALSTR___V1001*/ curfptr[1000] = (void*)&cdat->dstr_871__GLOBAL_DISCR_CHA; cdat->dstr_871__GLOBAL_DISCR_CHA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_871__GLOBAL_DISCR_CHA.val, "GLOBAL_DISCR_CHARINTEGER"); BASILYS_LOCATION("warmelt-normal.bysl:546: @iniobj"); /*iniobj dobj_872__GLOBAL_DISCR_CHARINTEGER*/ if (!/*_.VALDATA___V1002*/ curfptr[1001]) /*_.VALDATA___V1002*/ curfptr[1001] = (void*)&cdat->dobj_872__GLOBAL_DISCR_CHARINTEGER; basilys_assertmsg("iniobj checkdiscr dobj_872__GLOBAL_DISCR_CHARINTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_872__GLOBAL_DISCR_CHARINTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_872__GLOBAL_DISCR_CHARINTEGER.obj_hash = 232414972; cdat->dobj_872__GLOBAL_DISCR_CHARINTEGER.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_872__GLOBAL_DISCR_CHARINTEGER)); /*inimult dtup_873__GLOBAL_DISCR_CHARINTEGER*/ /*_.VALTUP___V1006*/ curfptr[1005] = (void*)&cdat->dtup_873__GLOBAL_DISCR_CHARINTEGER; cdat->dtup_873__GLOBAL_DISCR_CHARINTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_873__GLOBAL_DISCR_CHARINTEGER.nbval = 1; /*inimult dtup_874__GLOBAL_DISCR_CHARINTEGER*/ /*_.VALTUP___V1004*/ curfptr[1003] = (void*)&cdat->dtup_874__GLOBAL_DISCR_CHARINTEGER; cdat->dtup_874__GLOBAL_DISCR_CHARINTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_874__GLOBAL_DISCR_CHARINTEGER.nbval = 0; /*inistring dstr_875__void_BASILYSG_*/ /*_.VALSTR___V1005*/ curfptr[1004] = (void*)&cdat->dstr_875__void_BASILYSG_; cdat->dstr_875__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_875__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_CHARINTEGER)"); /*inistring dstr_876__GLOBAL_DISCR_CHA*/ /*_.VALSTR___V1003*/ curfptr[1002] = (void*)&cdat->dstr_876__GLOBAL_DISCR_CHA; cdat->dstr_876__GLOBAL_DISCR_CHA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_876__GLOBAL_DISCR_CHA.val, "GLOBAL_DISCR_CHARINTEGER"); /*iniobj dsym_877__GLOBAL_DISCR_CLOSURE*/ if (!/*_.VALDATA___V1007*/ curfptr[1006]) /*_.VALDATA___V1007*/ curfptr[1006] = (void*)&cdat->dsym_877__GLOBAL_DISCR_CLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_877__GLOBAL_DISCR_CLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_877__GLOBAL_DISCR_CLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_877__GLOBAL_DISCR_CLOSURE.obj_hash = 362052620; cdat->dsym_877__GLOBAL_DISCR_CLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_877__GLOBAL_DISCR_CLOSURE)); /*inistring dstr_878__GLOBAL_DISCR_CLO*/ /*_.VALSTR___V1008*/ curfptr[1007] = (void*)&cdat->dstr_878__GLOBAL_DISCR_CLO; cdat->dstr_878__GLOBAL_DISCR_CLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_878__GLOBAL_DISCR_CLO.val, "GLOBAL_DISCR_CLOSURE"); BASILYS_LOCATION("warmelt-normal.bysl:547: @iniobj"); /*iniobj dobj_879__GLOBAL_DISCR_CLOSURE*/ if (!/*_.VALDATA___V1009*/ curfptr[1008]) /*_.VALDATA___V1009*/ curfptr[1008] = (void*)&cdat->dobj_879__GLOBAL_DISCR_CLOSURE; basilys_assertmsg("iniobj checkdiscr dobj_879__GLOBAL_DISCR_CLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_879__GLOBAL_DISCR_CLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_879__GLOBAL_DISCR_CLOSURE.obj_hash = 734130229; cdat->dobj_879__GLOBAL_DISCR_CLOSURE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_879__GLOBAL_DISCR_CLOSURE)); /*inimult dtup_880__GLOBAL_DISCR_CLOSURE*/ /*_.VALTUP___V1013*/ curfptr[1012] = (void*)&cdat->dtup_880__GLOBAL_DISCR_CLOSURE; cdat->dtup_880__GLOBAL_DISCR_CLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_880__GLOBAL_DISCR_CLOSURE.nbval = 1; /*inimult dtup_881__GLOBAL_DISCR_CLOSURE*/ /*_.VALTUP___V1011*/ curfptr[1010] = (void*)&cdat->dtup_881__GLOBAL_DISCR_CLOSURE; cdat->dtup_881__GLOBAL_DISCR_CLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_881__GLOBAL_DISCR_CLOSURE.nbval = 0; /*inistring dstr_882__void_BASILYSG_*/ /*_.VALSTR___V1012*/ curfptr[1011] = (void*)&cdat->dstr_882__void_BASILYSG_; cdat->dstr_882__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_882__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_CLOSURE)"); /*inistring dstr_883__GLOBAL_DISCR_CLO*/ /*_.VALSTR___V1010*/ curfptr[1009] = (void*)&cdat->dstr_883__GLOBAL_DISCR_CLO; cdat->dstr_883__GLOBAL_DISCR_CLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_883__GLOBAL_DISCR_CLO.val, "GLOBAL_DISCR_CLOSURE"); /*iniobj dsym_884__GLOBAL_DISCR_INTEGER*/ if (!/*_.VALDATA___V1014*/ curfptr[1013]) /*_.VALDATA___V1014*/ curfptr[1013] = (void*)&cdat->dsym_884__GLOBAL_DISCR_INTEGER; basilys_assertmsg("iniobj checkdiscr dsym_884__GLOBAL_DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_884__GLOBAL_DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_884__GLOBAL_DISCR_INTEGER.obj_hash = 520838535; cdat->dsym_884__GLOBAL_DISCR_INTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_884__GLOBAL_DISCR_INTEGER)); /*inistring dstr_885__GLOBAL_DISCR_INT*/ /*_.VALSTR___V1015*/ curfptr[1014] = (void*)&cdat->dstr_885__GLOBAL_DISCR_INT; cdat->dstr_885__GLOBAL_DISCR_INT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_885__GLOBAL_DISCR_INT.val, "GLOBAL_DISCR_INTEGER"); BASILYS_LOCATION("warmelt-normal.bysl:548: @iniobj"); /*iniobj dobj_886__GLOBAL_DISCR_INTEGER*/ if (!/*_.VALDATA___V1016*/ curfptr[1015]) /*_.VALDATA___V1016*/ curfptr[1015] = (void*)&cdat->dobj_886__GLOBAL_DISCR_INTEGER; basilys_assertmsg("iniobj checkdiscr dobj_886__GLOBAL_DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_886__GLOBAL_DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_886__GLOBAL_DISCR_INTEGER.obj_hash = 524648557; cdat->dobj_886__GLOBAL_DISCR_INTEGER.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_886__GLOBAL_DISCR_INTEGER)); /*inimult dtup_887__GLOBAL_DISCR_INTEGER*/ /*_.VALTUP___V1020*/ curfptr[1019] = (void*)&cdat->dtup_887__GLOBAL_DISCR_INTEGER; cdat->dtup_887__GLOBAL_DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_887__GLOBAL_DISCR_INTEGER.nbval = 1; /*inimult dtup_888__GLOBAL_DISCR_INTEGER*/ /*_.VALTUP___V1018*/ curfptr[1017] = (void*)&cdat->dtup_888__GLOBAL_DISCR_INTEGER; cdat->dtup_888__GLOBAL_DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_888__GLOBAL_DISCR_INTEGER.nbval = 0; /*inistring dstr_889__void_BASILYSG_*/ /*_.VALSTR___V1019*/ curfptr[1018] = (void*)&cdat->dstr_889__void_BASILYSG_; cdat->dstr_889__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_889__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_INTEGER)"); /*inistring dstr_890__GLOBAL_DISCR_INT*/ /*_.VALSTR___V1017*/ curfptr[1016] = (void*)&cdat->dstr_890__GLOBAL_DISCR_INT; cdat->dstr_890__GLOBAL_DISCR_INT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_890__GLOBAL_DISCR_INT.val, "GLOBAL_DISCR_INTEGER"); /*iniobj dsym_891__GLOBAL_DISCR_LIST*/ if (!/*_.VALDATA___V1021*/ curfptr[1020]) /*_.VALDATA___V1021*/ curfptr[1020] = (void*)&cdat->dsym_891__GLOBAL_DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_891__GLOBAL_DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_891__GLOBAL_DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_891__GLOBAL_DISCR_LIST.obj_hash = 654393956; cdat->dsym_891__GLOBAL_DISCR_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_891__GLOBAL_DISCR_LIST)); /*inistring dstr_892__GLOBAL_DISCR_LIS*/ /*_.VALSTR___V1022*/ curfptr[1021] = (void*)&cdat->dstr_892__GLOBAL_DISCR_LIS; cdat->dstr_892__GLOBAL_DISCR_LIS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_892__GLOBAL_DISCR_LIS.val, "GLOBAL_DISCR_LIST"); BASILYS_LOCATION("warmelt-normal.bysl:549: @iniobj"); /*iniobj dobj_893__GLOBAL_DISCR_LIST*/ if (!/*_.VALDATA___V1023*/ curfptr[1022]) /*_.VALDATA___V1023*/ curfptr[1022] = (void*)&cdat->dobj_893__GLOBAL_DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dobj_893__GLOBAL_DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_893__GLOBAL_DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_893__GLOBAL_DISCR_LIST.obj_hash = 934262120; cdat->dobj_893__GLOBAL_DISCR_LIST.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_893__GLOBAL_DISCR_LIST)); /*inimult dtup_894__GLOBAL_DISCR_LIST*/ /*_.VALTUP___V1027*/ curfptr[1026] = (void*)&cdat->dtup_894__GLOBAL_DISCR_LIST; cdat->dtup_894__GLOBAL_DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_894__GLOBAL_DISCR_LIST.nbval = 1; /*inimult dtup_895__GLOBAL_DISCR_LIST*/ /*_.VALTUP___V1025*/ curfptr[1024] = (void*)&cdat->dtup_895__GLOBAL_DISCR_LIST; cdat->dtup_895__GLOBAL_DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_895__GLOBAL_DISCR_LIST.nbval = 0; /*inistring dstr_896__void_BASILYSG_*/ /*_.VALSTR___V1026*/ curfptr[1025] = (void*)&cdat->dstr_896__void_BASILYSG_; cdat->dstr_896__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_896__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_LIST)"); /*inistring dstr_897__GLOBAL_DISCR_LIS*/ /*_.VALSTR___V1024*/ curfptr[1023] = (void*)&cdat->dstr_897__GLOBAL_DISCR_LIS; cdat->dstr_897__GLOBAL_DISCR_LIS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_897__GLOBAL_DISCR_LIS.val, "GLOBAL_DISCR_LIST"); /*iniobj dsym_898__GLOBAL_DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V1028*/ curfptr[1027]) /*_.VALDATA___V1028*/ curfptr[1027] = (void*)&cdat->dsym_898__GLOBAL_DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_898__GLOBAL_DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__GLOBAL_DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_898__GLOBAL_DISCR_MAPOBJECTS.obj_hash = 633312112; cdat->dsym_898__GLOBAL_DISCR_MAPOBJECTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_898__GLOBAL_DISCR_MAPOBJECTS)); /*inistring dstr_899__GLOBAL_DISCR_MAP*/ /*_.VALSTR___V1029*/ curfptr[1028] = (void*)&cdat->dstr_899__GLOBAL_DISCR_MAP; cdat->dstr_899__GLOBAL_DISCR_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_899__GLOBAL_DISCR_MAP.val, "GLOBAL_DISCR_MAPOBJECTS"); BASILYS_LOCATION("warmelt-normal.bysl:550: @iniobj"); /*iniobj dobj_900__GLOBAL_DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V1030*/ curfptr[1029]) /*_.VALDATA___V1030*/ curfptr[1029] = (void*)&cdat->dobj_900__GLOBAL_DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dobj_900__GLOBAL_DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_900__GLOBAL_DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_900__GLOBAL_DISCR_MAPOBJECTS.obj_hash = 961163020; cdat->dobj_900__GLOBAL_DISCR_MAPOBJECTS.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_900__GLOBAL_DISCR_MAPOBJECTS)); /*inimult dtup_901__GLOBAL_DISCR_MAPOBJECTS*/ /*_.VALTUP___V1034*/ curfptr[1033] = (void*)&cdat->dtup_901__GLOBAL_DISCR_MAPOBJECTS; cdat->dtup_901__GLOBAL_DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_901__GLOBAL_DISCR_MAPOBJECTS.nbval = 1; /*inimult dtup_902__GLOBAL_DISCR_MAPOBJECTS*/ /*_.VALTUP___V1032*/ curfptr[1031] = (void*)&cdat->dtup_902__GLOBAL_DISCR_MAPOBJECTS; cdat->dtup_902__GLOBAL_DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_902__GLOBAL_DISCR_MAPOBJECTS.nbval = 0; /*inistring dstr_903__void_BASILYSG_*/ /*_.VALSTR___V1033*/ curfptr[1032] = (void*)&cdat->dstr_903__void_BASILYSG_; cdat->dstr_903__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_903__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_MAPOBJECTS)"); /*inistring dstr_904__GLOBAL_DISCR_MAP*/ /*_.VALSTR___V1031*/ curfptr[1030] = (void*)&cdat->dstr_904__GLOBAL_DISCR_MAP; cdat->dstr_904__GLOBAL_DISCR_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_904__GLOBAL_DISCR_MAP.val, "GLOBAL_DISCR_MAPOBJECTS"); /*iniobj dsym_905__GLOBAL_DISCR_MAPSTRINGS*/ if (!/*_.VALDATA___V1035*/ curfptr[1034]) /*_.VALDATA___V1035*/ curfptr[1034] = (void*)&cdat->dsym_905__GLOBAL_DISCR_MAPSTRINGS; basilys_assertmsg("iniobj checkdiscr dsym_905__GLOBAL_DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_905__GLOBAL_DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_905__GLOBAL_DISCR_MAPSTRINGS.obj_hash = 894355421; cdat->dsym_905__GLOBAL_DISCR_MAPSTRINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_905__GLOBAL_DISCR_MAPSTRINGS)); /*inistring dstr_906__GLOBAL_DISCR_MAP*/ /*_.VALSTR___V1036*/ curfptr[1035] = (void*)&cdat->dstr_906__GLOBAL_DISCR_MAP; cdat->dstr_906__GLOBAL_DISCR_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_906__GLOBAL_DISCR_MAP.val, "GLOBAL_DISCR_MAPSTRINGS"); BASILYS_LOCATION("warmelt-normal.bysl:551: @iniobj"); /*iniobj dobj_907__GLOBAL_DISCR_MAPSTRINGS*/ if (!/*_.VALDATA___V1037*/ curfptr[1036]) /*_.VALDATA___V1037*/ curfptr[1036] = (void*)&cdat->dobj_907__GLOBAL_DISCR_MAPSTRINGS; basilys_assertmsg("iniobj checkdiscr dobj_907__GLOBAL_DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_907__GLOBAL_DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_907__GLOBAL_DISCR_MAPSTRINGS.obj_hash = 831541084; cdat->dobj_907__GLOBAL_DISCR_MAPSTRINGS.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_907__GLOBAL_DISCR_MAPSTRINGS)); /*inimult dtup_908__GLOBAL_DISCR_MAPSTRINGS*/ /*_.VALTUP___V1041*/ curfptr[1040] = (void*)&cdat->dtup_908__GLOBAL_DISCR_MAPSTRINGS; cdat->dtup_908__GLOBAL_DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_908__GLOBAL_DISCR_MAPSTRINGS.nbval = 1; /*inimult dtup_909__GLOBAL_DISCR_MAPSTRINGS*/ /*_.VALTUP___V1039*/ curfptr[1038] = (void*)&cdat->dtup_909__GLOBAL_DISCR_MAPSTRINGS; cdat->dtup_909__GLOBAL_DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_909__GLOBAL_DISCR_MAPSTRINGS.nbval = 0; /*inistring dstr_910__void_BASILYSG_*/ /*_.VALSTR___V1040*/ curfptr[1039] = (void*)&cdat->dstr_910__void_BASILYSG_; cdat->dstr_910__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_910__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_MAPSTRINGS)"); /*inistring dstr_911__GLOBAL_DISCR_MAP*/ /*_.VALSTR___V1038*/ curfptr[1037] = (void*)&cdat->dstr_911__GLOBAL_DISCR_MAP; cdat->dstr_911__GLOBAL_DISCR_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_911__GLOBAL_DISCR_MAP.val, "GLOBAL_DISCR_MAPSTRINGS"); /*iniobj dsym_912__GLOBAL_DISCR_METHODMAP*/ if (!/*_.VALDATA___V1042*/ curfptr[1041]) /*_.VALDATA___V1042*/ curfptr[1041] = (void*)&cdat->dsym_912__GLOBAL_DISCR_METHODMAP; basilys_assertmsg("iniobj checkdiscr dsym_912__GLOBAL_DISCR_METHODMAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_912__GLOBAL_DISCR_METHODMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_912__GLOBAL_DISCR_METHODMAP.obj_hash = 1062181341; cdat->dsym_912__GLOBAL_DISCR_METHODMAP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_912__GLOBAL_DISCR_METHODMAP)); /*inistring dstr_913__GLOBAL_DISCR_MET*/ /*_.VALSTR___V1043*/ curfptr[1042] = (void*)&cdat->dstr_913__GLOBAL_DISCR_MET; cdat->dstr_913__GLOBAL_DISCR_MET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_913__GLOBAL_DISCR_MET.val, "GLOBAL_DISCR_METHODMAP"); BASILYS_LOCATION("warmelt-normal.bysl:552: @iniobj"); /*iniobj dobj_914__GLOBAL_DISCR_METHODMAP*/ if (!/*_.VALDATA___V1044*/ curfptr[1043]) /*_.VALDATA___V1044*/ curfptr[1043] = (void*)&cdat->dobj_914__GLOBAL_DISCR_METHODMAP; basilys_assertmsg("iniobj checkdiscr dobj_914__GLOBAL_DISCR_METHODMAP", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_914__GLOBAL_DISCR_METHODMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_914__GLOBAL_DISCR_METHODMAP.obj_hash = 497287805; cdat->dobj_914__GLOBAL_DISCR_METHODMAP.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_914__GLOBAL_DISCR_METHODMAP)); /*inimult dtup_915__GLOBAL_DISCR_METHODMAP*/ /*_.VALTUP___V1048*/ curfptr[1047] = (void*)&cdat->dtup_915__GLOBAL_DISCR_METHODMAP; cdat->dtup_915__GLOBAL_DISCR_METHODMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_915__GLOBAL_DISCR_METHODMAP.nbval = 1; /*inimult dtup_916__GLOBAL_DISCR_METHODMAP*/ /*_.VALTUP___V1046*/ curfptr[1045] = (void*)&cdat->dtup_916__GLOBAL_DISCR_METHODMAP; cdat->dtup_916__GLOBAL_DISCR_METHODMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_916__GLOBAL_DISCR_METHODMAP.nbval = 0; /*inistring dstr_917__void_BASILYSG_*/ /*_.VALSTR___V1047*/ curfptr[1046] = (void*)&cdat->dstr_917__void_BASILYSG_; cdat->dstr_917__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_917__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_METHODMAP)"); /*inistring dstr_918__GLOBAL_DISCR_MET*/ /*_.VALSTR___V1045*/ curfptr[1044] = (void*)&cdat->dstr_918__GLOBAL_DISCR_MET; cdat->dstr_918__GLOBAL_DISCR_MET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_918__GLOBAL_DISCR_MET.val, "GLOBAL_DISCR_METHODMAP"); /*iniobj dsym_919__GLOBAL_DISCR_MIXEDINT*/ if (!/*_.VALDATA___V1049*/ curfptr[1048]) /*_.VALDATA___V1049*/ curfptr[1048] = (void*)&cdat->dsym_919__GLOBAL_DISCR_MIXEDINT; basilys_assertmsg("iniobj checkdiscr dsym_919__GLOBAL_DISCR_MIXEDINT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_919__GLOBAL_DISCR_MIXEDINT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_919__GLOBAL_DISCR_MIXEDINT.obj_hash = 567831992; cdat->dsym_919__GLOBAL_DISCR_MIXEDINT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_919__GLOBAL_DISCR_MIXEDINT)); /*inistring dstr_920__GLOBAL_DISCR_MIX*/ /*_.VALSTR___V1050*/ curfptr[1049] = (void*)&cdat->dstr_920__GLOBAL_DISCR_MIX; cdat->dstr_920__GLOBAL_DISCR_MIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_920__GLOBAL_DISCR_MIX.val, "GLOBAL_DISCR_MIXEDINT"); BASILYS_LOCATION("warmelt-normal.bysl:553: @iniobj"); /*iniobj dobj_921__GLOBAL_DISCR_MIXEDINT*/ if (!/*_.VALDATA___V1051*/ curfptr[1050]) /*_.VALDATA___V1051*/ curfptr[1050] = (void*)&cdat->dobj_921__GLOBAL_DISCR_MIXEDINT; basilys_assertmsg("iniobj checkdiscr dobj_921__GLOBAL_DISCR_MIXEDINT", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_921__GLOBAL_DISCR_MIXEDINT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_921__GLOBAL_DISCR_MIXEDINT.obj_hash = 931432116; cdat->dobj_921__GLOBAL_DISCR_MIXEDINT.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_921__GLOBAL_DISCR_MIXEDINT)); /*inimult dtup_922__GLOBAL_DISCR_MIXEDINT*/ /*_.VALTUP___V1055*/ curfptr[1054] = (void*)&cdat->dtup_922__GLOBAL_DISCR_MIXEDINT; cdat->dtup_922__GLOBAL_DISCR_MIXEDINT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_922__GLOBAL_DISCR_MIXEDINT.nbval = 1; /*inimult dtup_923__GLOBAL_DISCR_MIXEDINT*/ /*_.VALTUP___V1053*/ curfptr[1052] = (void*)&cdat->dtup_923__GLOBAL_DISCR_MIXEDINT; cdat->dtup_923__GLOBAL_DISCR_MIXEDINT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_923__GLOBAL_DISCR_MIXEDINT.nbval = 0; /*inistring dstr_924__void_BASILYSG_*/ /*_.VALSTR___V1054*/ curfptr[1053] = (void*)&cdat->dstr_924__void_BASILYSG_; cdat->dstr_924__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_924__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_MIXEDINT)"); /*inistring dstr_925__GLOBAL_DISCR_MIX*/ /*_.VALSTR___V1052*/ curfptr[1051] = (void*)&cdat->dstr_925__GLOBAL_DISCR_MIX; cdat->dstr_925__GLOBAL_DISCR_MIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_925__GLOBAL_DISCR_MIX.val, "GLOBAL_DISCR_MIXEDINT"); /*iniobj dsym_926__GLOBAL_DISCR_MIXEDLOC*/ if (!/*_.VALDATA___V1056*/ curfptr[1055]) /*_.VALDATA___V1056*/ curfptr[1055] = (void*)&cdat->dsym_926__GLOBAL_DISCR_MIXEDLOC; basilys_assertmsg("iniobj checkdiscr dsym_926__GLOBAL_DISCR_MIXEDLOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_926__GLOBAL_DISCR_MIXEDLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_926__GLOBAL_DISCR_MIXEDLOC.obj_hash = 565346962; cdat->dsym_926__GLOBAL_DISCR_MIXEDLOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_926__GLOBAL_DISCR_MIXEDLOC)); /*inistring dstr_927__GLOBAL_DISCR_MIX*/ /*_.VALSTR___V1057*/ curfptr[1056] = (void*)&cdat->dstr_927__GLOBAL_DISCR_MIX; cdat->dstr_927__GLOBAL_DISCR_MIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_927__GLOBAL_DISCR_MIX.val, "GLOBAL_DISCR_MIXEDLOC"); BASILYS_LOCATION("warmelt-normal.bysl:554: @iniobj"); /*iniobj dobj_928__GLOBAL_DISCR_MIXEDLOC*/ if (!/*_.VALDATA___V1058*/ curfptr[1057]) /*_.VALDATA___V1058*/ curfptr[1057] = (void*)&cdat->dobj_928__GLOBAL_DISCR_MIXEDLOC; basilys_assertmsg("iniobj checkdiscr dobj_928__GLOBAL_DISCR_MIXEDLOC", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_928__GLOBAL_DISCR_MIXEDLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_928__GLOBAL_DISCR_MIXEDLOC.obj_hash = 512177252; cdat->dobj_928__GLOBAL_DISCR_MIXEDLOC.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_928__GLOBAL_DISCR_MIXEDLOC)); /*inimult dtup_929__GLOBAL_DISCR_MIXEDLOC*/ /*_.VALTUP___V1062*/ curfptr[1061] = (void*)&cdat->dtup_929__GLOBAL_DISCR_MIXEDLOC; cdat->dtup_929__GLOBAL_DISCR_MIXEDLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_929__GLOBAL_DISCR_MIXEDLOC.nbval = 1; /*inimult dtup_930__GLOBAL_DISCR_MIXEDLOC*/ /*_.VALTUP___V1060*/ curfptr[1059] = (void*)&cdat->dtup_930__GLOBAL_DISCR_MIXEDLOC; cdat->dtup_930__GLOBAL_DISCR_MIXEDLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_930__GLOBAL_DISCR_MIXEDLOC.nbval = 0; /*inistring dstr_931__void_BASILYSG_*/ /*_.VALSTR___V1061*/ curfptr[1060] = (void*)&cdat->dstr_931__void_BASILYSG_; cdat->dstr_931__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_931__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_MIXEDLOC)"); /*inistring dstr_932__GLOBAL_DISCR_MIX*/ /*_.VALSTR___V1059*/ curfptr[1058] = (void*)&cdat->dstr_932__GLOBAL_DISCR_MIX; cdat->dstr_932__GLOBAL_DISCR_MIX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_932__GLOBAL_DISCR_MIX.val, "GLOBAL_DISCR_MIXEDLOC"); /*iniobj dsym_933__GLOBAL_DISCR_MULTIPLE*/ if (!/*_.VALDATA___V1063*/ curfptr[1062]) /*_.VALDATA___V1063*/ curfptr[1062] = (void*)&cdat->dsym_933__GLOBAL_DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_933__GLOBAL_DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_933__GLOBAL_DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_933__GLOBAL_DISCR_MULTIPLE.obj_hash = 33549309; cdat->dsym_933__GLOBAL_DISCR_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_933__GLOBAL_DISCR_MULTIPLE)); /*inistring dstr_934__GLOBAL_DISCR_MUL*/ /*_.VALSTR___V1064*/ curfptr[1063] = (void*)&cdat->dstr_934__GLOBAL_DISCR_MUL; cdat->dstr_934__GLOBAL_DISCR_MUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_934__GLOBAL_DISCR_MUL.val, "GLOBAL_DISCR_MULTIPLE"); BASILYS_LOCATION("warmelt-normal.bysl:555: @iniobj"); /*iniobj dobj_935__GLOBAL_DISCR_MULTIPLE*/ if (!/*_.VALDATA___V1065*/ curfptr[1064]) /*_.VALDATA___V1065*/ curfptr[1064] = (void*)&cdat->dobj_935__GLOBAL_DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dobj_935__GLOBAL_DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_935__GLOBAL_DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_935__GLOBAL_DISCR_MULTIPLE.obj_hash = 798115347; cdat->dobj_935__GLOBAL_DISCR_MULTIPLE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_935__GLOBAL_DISCR_MULTIPLE)); /*inimult dtup_936__GLOBAL_DISCR_MULTIPLE*/ /*_.VALTUP___V1069*/ curfptr[1068] = (void*)&cdat->dtup_936__GLOBAL_DISCR_MULTIPLE; cdat->dtup_936__GLOBAL_DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_936__GLOBAL_DISCR_MULTIPLE.nbval = 1; /*inimult dtup_937__GLOBAL_DISCR_MULTIPLE*/ /*_.VALTUP___V1067*/ curfptr[1066] = (void*)&cdat->dtup_937__GLOBAL_DISCR_MULTIPLE; cdat->dtup_937__GLOBAL_DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_937__GLOBAL_DISCR_MULTIPLE.nbval = 0; /*inistring dstr_938__void_BASILYSG_*/ /*_.VALSTR___V1068*/ curfptr[1067] = (void*)&cdat->dstr_938__void_BASILYSG_; cdat->dstr_938__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_938__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_MULTIPLE)"); /*inistring dstr_939__GLOBAL_DISCR_MUL*/ /*_.VALSTR___V1066*/ curfptr[1065] = (void*)&cdat->dstr_939__GLOBAL_DISCR_MUL; cdat->dstr_939__GLOBAL_DISCR_MUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_939__GLOBAL_DISCR_MUL.val, "GLOBAL_DISCR_MULTIPLE"); /*iniobj dsym_940__GLOBAL_DISCR_NAMESTRING*/ if (!/*_.VALDATA___V1070*/ curfptr[1069]) /*_.VALDATA___V1070*/ curfptr[1069] = (void*)&cdat->dsym_940__GLOBAL_DISCR_NAMESTRING; basilys_assertmsg("iniobj checkdiscr dsym_940__GLOBAL_DISCR_NAMESTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_940__GLOBAL_DISCR_NAMESTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_940__GLOBAL_DISCR_NAMESTRING.obj_hash = 81978748; cdat->dsym_940__GLOBAL_DISCR_NAMESTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_940__GLOBAL_DISCR_NAMESTRING)); /*inistring dstr_941__GLOBAL_DISCR_NAM*/ /*_.VALSTR___V1071*/ curfptr[1070] = (void*)&cdat->dstr_941__GLOBAL_DISCR_NAM; cdat->dstr_941__GLOBAL_DISCR_NAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_941__GLOBAL_DISCR_NAM.val, "GLOBAL_DISCR_NAMESTRING"); BASILYS_LOCATION("warmelt-normal.bysl:556: @iniobj"); /*iniobj dobj_942__GLOBAL_DISCR_NAMESTRING*/ if (!/*_.VALDATA___V1072*/ curfptr[1071]) /*_.VALDATA___V1072*/ curfptr[1071] = (void*)&cdat->dobj_942__GLOBAL_DISCR_NAMESTRING; basilys_assertmsg("iniobj checkdiscr dobj_942__GLOBAL_DISCR_NAMESTRING", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_942__GLOBAL_DISCR_NAMESTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_942__GLOBAL_DISCR_NAMESTRING.obj_hash = 26845285; cdat->dobj_942__GLOBAL_DISCR_NAMESTRING.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_942__GLOBAL_DISCR_NAMESTRING)); /*inimult dtup_943__GLOBAL_DISCR_NAMESTRING*/ /*_.VALTUP___V1076*/ curfptr[1075] = (void*)&cdat->dtup_943__GLOBAL_DISCR_NAMESTRING; cdat->dtup_943__GLOBAL_DISCR_NAMESTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_943__GLOBAL_DISCR_NAMESTRING.nbval = 1; /*inimult dtup_944__GLOBAL_DISCR_NAMESTRING*/ /*_.VALTUP___V1074*/ curfptr[1073] = (void*)&cdat->dtup_944__GLOBAL_DISCR_NAMESTRING; cdat->dtup_944__GLOBAL_DISCR_NAMESTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_944__GLOBAL_DISCR_NAMESTRING.nbval = 0; /*inistring dstr_945__void_BASILYSG_*/ /*_.VALSTR___V1075*/ curfptr[1074] = (void*)&cdat->dstr_945__void_BASILYSG_; cdat->dstr_945__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_945__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_NAMESTRING)"); /*inistring dstr_946__GLOBAL_DISCR_NAM*/ /*_.VALSTR___V1073*/ curfptr[1072] = (void*)&cdat->dstr_946__GLOBAL_DISCR_NAM; cdat->dstr_946__GLOBAL_DISCR_NAM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_946__GLOBAL_DISCR_NAM.val, "GLOBAL_DISCR_NAMESTRING"); /*iniobj dsym_947__GLOBAL_DISCR_NULLRECV*/ if (!/*_.VALDATA___V1077*/ curfptr[1076]) /*_.VALDATA___V1077*/ curfptr[1076] = (void*)&cdat->dsym_947__GLOBAL_DISCR_NULLRECV; basilys_assertmsg("iniobj checkdiscr dsym_947__GLOBAL_DISCR_NULLRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_947__GLOBAL_DISCR_NULLRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_947__GLOBAL_DISCR_NULLRECV.obj_hash = 931062953; cdat->dsym_947__GLOBAL_DISCR_NULLRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_947__GLOBAL_DISCR_NULLRECV)); /*inistring dstr_948__GLOBAL_DISCR_NUL*/ /*_.VALSTR___V1078*/ curfptr[1077] = (void*)&cdat->dstr_948__GLOBAL_DISCR_NUL; cdat->dstr_948__GLOBAL_DISCR_NUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_948__GLOBAL_DISCR_NUL.val, "GLOBAL_DISCR_NULLRECV"); BASILYS_LOCATION("warmelt-normal.bysl:557: @iniobj"); /*iniobj dobj_949__GLOBAL_DISCR_NULLRECV*/ if (!/*_.VALDATA___V1079*/ curfptr[1078]) /*_.VALDATA___V1079*/ curfptr[1078] = (void*)&cdat->dobj_949__GLOBAL_DISCR_NULLRECV; basilys_assertmsg("iniobj checkdiscr dobj_949__GLOBAL_DISCR_NULLRECV", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_949__GLOBAL_DISCR_NULLRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_949__GLOBAL_DISCR_NULLRECV.obj_hash = 450730527; cdat->dobj_949__GLOBAL_DISCR_NULLRECV.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_949__GLOBAL_DISCR_NULLRECV)); /*inimult dtup_950__GLOBAL_DISCR_NULLRECV*/ /*_.VALTUP___V1083*/ curfptr[1082] = (void*)&cdat->dtup_950__GLOBAL_DISCR_NULLRECV; cdat->dtup_950__GLOBAL_DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_950__GLOBAL_DISCR_NULLRECV.nbval = 1; /*inimult dtup_951__GLOBAL_DISCR_NULLRECV*/ /*_.VALTUP___V1081*/ curfptr[1080] = (void*)&cdat->dtup_951__GLOBAL_DISCR_NULLRECV; cdat->dtup_951__GLOBAL_DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_951__GLOBAL_DISCR_NULLRECV.nbval = 0; /*inistring dstr_952__void_BASILYSG_*/ /*_.VALSTR___V1082*/ curfptr[1081] = (void*)&cdat->dstr_952__void_BASILYSG_; cdat->dstr_952__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_952__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_NULLRECV)"); /*inistring dstr_953__GLOBAL_DISCR_NUL*/ /*_.VALSTR___V1080*/ curfptr[1079] = (void*)&cdat->dstr_953__GLOBAL_DISCR_NUL; cdat->dstr_953__GLOBAL_DISCR_NUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_953__GLOBAL_DISCR_NUL.val, "GLOBAL_DISCR_NULLRECV"); /*iniobj dsym_954__GLOBAL_DISCR_PAIR*/ if (!/*_.VALDATA___V1084*/ curfptr[1083]) /*_.VALDATA___V1084*/ curfptr[1083] = (void*)&cdat->dsym_954__GLOBAL_DISCR_PAIR; basilys_assertmsg("iniobj checkdiscr dsym_954__GLOBAL_DISCR_PAIR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_954__GLOBAL_DISCR_PAIR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_954__GLOBAL_DISCR_PAIR.obj_hash = 563286183; cdat->dsym_954__GLOBAL_DISCR_PAIR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_954__GLOBAL_DISCR_PAIR)); /*inistring dstr_955__GLOBAL_DISCR_PAI*/ /*_.VALSTR___V1085*/ curfptr[1084] = (void*)&cdat->dstr_955__GLOBAL_DISCR_PAI; cdat->dstr_955__GLOBAL_DISCR_PAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_955__GLOBAL_DISCR_PAI.val, "GLOBAL_DISCR_PAIR"); BASILYS_LOCATION("warmelt-normal.bysl:558: @iniobj"); /*iniobj dobj_956__GLOBAL_DISCR_PAIR*/ if (!/*_.VALDATA___V1086*/ curfptr[1085]) /*_.VALDATA___V1086*/ curfptr[1085] = (void*)&cdat->dobj_956__GLOBAL_DISCR_PAIR; basilys_assertmsg("iniobj checkdiscr dobj_956__GLOBAL_DISCR_PAIR", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_956__GLOBAL_DISCR_PAIR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_956__GLOBAL_DISCR_PAIR.obj_hash = 325829669; cdat->dobj_956__GLOBAL_DISCR_PAIR.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_956__GLOBAL_DISCR_PAIR)); /*inimult dtup_957__GLOBAL_DISCR_PAIR*/ /*_.VALTUP___V1090*/ curfptr[1089] = (void*)&cdat->dtup_957__GLOBAL_DISCR_PAIR; cdat->dtup_957__GLOBAL_DISCR_PAIR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_957__GLOBAL_DISCR_PAIR.nbval = 1; /*inimult dtup_958__GLOBAL_DISCR_PAIR*/ /*_.VALTUP___V1088*/ curfptr[1087] = (void*)&cdat->dtup_958__GLOBAL_DISCR_PAIR; cdat->dtup_958__GLOBAL_DISCR_PAIR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_958__GLOBAL_DISCR_PAIR.nbval = 0; /*inistring dstr_959__void_BASILYSG_*/ /*_.VALSTR___V1089*/ curfptr[1088] = (void*)&cdat->dstr_959__void_BASILYSG_; cdat->dstr_959__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_959__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_PAIR)"); /*inistring dstr_960__GLOBAL_DISCR_PAI*/ /*_.VALSTR___V1087*/ curfptr[1086] = (void*)&cdat->dstr_960__GLOBAL_DISCR_PAI; cdat->dstr_960__GLOBAL_DISCR_PAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_960__GLOBAL_DISCR_PAI.val, "GLOBAL_DISCR_PAIR"); /*iniobj dsym_961__GLOBAL_DISCR_ROUTINE*/ if (!/*_.VALDATA___V1091*/ curfptr[1090]) /*_.VALDATA___V1091*/ curfptr[1090] = (void*)&cdat->dsym_961__GLOBAL_DISCR_ROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_961__GLOBAL_DISCR_ROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_961__GLOBAL_DISCR_ROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_961__GLOBAL_DISCR_ROUTINE.obj_hash = 713057832; cdat->dsym_961__GLOBAL_DISCR_ROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_961__GLOBAL_DISCR_ROUTINE)); /*inistring dstr_962__GLOBAL_DISCR_ROU*/ /*_.VALSTR___V1092*/ curfptr[1091] = (void*)&cdat->dstr_962__GLOBAL_DISCR_ROU; cdat->dstr_962__GLOBAL_DISCR_ROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_962__GLOBAL_DISCR_ROU.val, "GLOBAL_DISCR_ROUTINE"); BASILYS_LOCATION("warmelt-normal.bysl:559: @iniobj"); /*iniobj dobj_963__GLOBAL_DISCR_ROUTINE*/ if (!/*_.VALDATA___V1093*/ curfptr[1092]) /*_.VALDATA___V1093*/ curfptr[1092] = (void*)&cdat->dobj_963__GLOBAL_DISCR_ROUTINE; basilys_assertmsg("iniobj checkdiscr dobj_963__GLOBAL_DISCR_ROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_963__GLOBAL_DISCR_ROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_963__GLOBAL_DISCR_ROUTINE.obj_hash = 962703739; cdat->dobj_963__GLOBAL_DISCR_ROUTINE.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_963__GLOBAL_DISCR_ROUTINE)); /*inimult dtup_964__GLOBAL_DISCR_ROUTINE*/ /*_.VALTUP___V1097*/ curfptr[1096] = (void*)&cdat->dtup_964__GLOBAL_DISCR_ROUTINE; cdat->dtup_964__GLOBAL_DISCR_ROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_964__GLOBAL_DISCR_ROUTINE.nbval = 1; /*inimult dtup_965__GLOBAL_DISCR_ROUTINE*/ /*_.VALTUP___V1095*/ curfptr[1094] = (void*)&cdat->dtup_965__GLOBAL_DISCR_ROUTINE; cdat->dtup_965__GLOBAL_DISCR_ROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_965__GLOBAL_DISCR_ROUTINE.nbval = 0; /*inistring dstr_966__void_BASILYSG_*/ /*_.VALSTR___V1096*/ curfptr[1095] = (void*)&cdat->dstr_966__void_BASILYSG_; cdat->dstr_966__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_966__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_ROUTINE)"); /*inistring dstr_967__GLOBAL_DISCR_ROU*/ /*_.VALSTR___V1094*/ curfptr[1093] = (void*)&cdat->dstr_967__GLOBAL_DISCR_ROU; cdat->dstr_967__GLOBAL_DISCR_ROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_967__GLOBAL_DISCR_ROU.val, "GLOBAL_DISCR_ROUTINE"); /*iniobj dsym_968__GLOBAL_DISCR_SEQCLASS*/ if (!/*_.VALDATA___V1098*/ curfptr[1097]) /*_.VALDATA___V1098*/ curfptr[1097] = (void*)&cdat->dsym_968__GLOBAL_DISCR_SEQCLASS; basilys_assertmsg("iniobj checkdiscr dsym_968__GLOBAL_DISCR_SEQCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_968__GLOBAL_DISCR_SEQCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_968__GLOBAL_DISCR_SEQCLASS.obj_hash = 969683125; cdat->dsym_968__GLOBAL_DISCR_SEQCLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_968__GLOBAL_DISCR_SEQCLASS)); /*inistring dstr_969__GLOBAL_DISCR_SEQ*/ /*_.VALSTR___V1099*/ curfptr[1098] = (void*)&cdat->dstr_969__GLOBAL_DISCR_SEQ; cdat->dstr_969__GLOBAL_DISCR_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_969__GLOBAL_DISCR_SEQ.val, "GLOBAL_DISCR_SEQCLASS"); BASILYS_LOCATION("warmelt-normal.bysl:560: @iniobj"); /*iniobj dobj_970__GLOBAL_DISCR_SEQCLASS*/ if (!/*_.VALDATA___V1100*/ curfptr[1099]) /*_.VALDATA___V1100*/ curfptr[1099] = (void*)&cdat->dobj_970__GLOBAL_DISCR_SEQCLASS; basilys_assertmsg("iniobj checkdiscr dobj_970__GLOBAL_DISCR_SEQCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_970__GLOBAL_DISCR_SEQCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_970__GLOBAL_DISCR_SEQCLASS.obj_hash = 728874822; cdat->dobj_970__GLOBAL_DISCR_SEQCLASS.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_970__GLOBAL_DISCR_SEQCLASS)); /*inimult dtup_971__GLOBAL_DISCR_SEQCLASS*/ /*_.VALTUP___V1104*/ curfptr[1103] = (void*)&cdat->dtup_971__GLOBAL_DISCR_SEQCLASS; cdat->dtup_971__GLOBAL_DISCR_SEQCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_971__GLOBAL_DISCR_SEQCLASS.nbval = 1; /*inimult dtup_972__GLOBAL_DISCR_SEQCLASS*/ /*_.VALTUP___V1102*/ curfptr[1101] = (void*)&cdat->dtup_972__GLOBAL_DISCR_SEQCLASS; cdat->dtup_972__GLOBAL_DISCR_SEQCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_972__GLOBAL_DISCR_SEQCLASS.nbval = 0; /*inistring dstr_973__void_BASILYSG_*/ /*_.VALSTR___V1103*/ curfptr[1102] = (void*)&cdat->dstr_973__void_BASILYSG_; cdat->dstr_973__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_973__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_SEQCLASS)"); /*inistring dstr_974__GLOBAL_DISCR_SEQ*/ /*_.VALSTR___V1101*/ curfptr[1100] = (void*)&cdat->dstr_974__GLOBAL_DISCR_SEQ; cdat->dstr_974__GLOBAL_DISCR_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_974__GLOBAL_DISCR_SEQ.val, "GLOBAL_DISCR_SEQCLASS"); /*iniobj dsym_975__GLOBAL_DISCR_SEQFIELD*/ if (!/*_.VALDATA___V1105*/ curfptr[1104]) /*_.VALDATA___V1105*/ curfptr[1104] = (void*)&cdat->dsym_975__GLOBAL_DISCR_SEQFIELD; basilys_assertmsg("iniobj checkdiscr dsym_975__GLOBAL_DISCR_SEQFIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_975__GLOBAL_DISCR_SEQFIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_975__GLOBAL_DISCR_SEQFIELD.obj_hash = 1073538010; cdat->dsym_975__GLOBAL_DISCR_SEQFIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_975__GLOBAL_DISCR_SEQFIELD)); /*inistring dstr_976__GLOBAL_DISCR_SEQ*/ /*_.VALSTR___V1106*/ curfptr[1105] = (void*)&cdat->dstr_976__GLOBAL_DISCR_SEQ; cdat->dstr_976__GLOBAL_DISCR_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_976__GLOBAL_DISCR_SEQ.val, "GLOBAL_DISCR_SEQFIELD"); BASILYS_LOCATION("warmelt-normal.bysl:561: @iniobj"); /*iniobj dobj_977__GLOBAL_DISCR_SEQFIELD*/ if (!/*_.VALDATA___V1107*/ curfptr[1106]) /*_.VALDATA___V1107*/ curfptr[1106] = (void*)&cdat->dobj_977__GLOBAL_DISCR_SEQFIELD; basilys_assertmsg("iniobj checkdiscr dobj_977__GLOBAL_DISCR_SEQFIELD", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_977__GLOBAL_DISCR_SEQFIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_977__GLOBAL_DISCR_SEQFIELD.obj_hash = 1042930891; cdat->dobj_977__GLOBAL_DISCR_SEQFIELD.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_977__GLOBAL_DISCR_SEQFIELD)); /*inimult dtup_978__GLOBAL_DISCR_SEQFIELD*/ /*_.VALTUP___V1111*/ curfptr[1110] = (void*)&cdat->dtup_978__GLOBAL_DISCR_SEQFIELD; cdat->dtup_978__GLOBAL_DISCR_SEQFIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_978__GLOBAL_DISCR_SEQFIELD.nbval = 1; /*inimult dtup_979__GLOBAL_DISCR_SEQFIELD*/ /*_.VALTUP___V1109*/ curfptr[1108] = (void*)&cdat->dtup_979__GLOBAL_DISCR_SEQFIELD; cdat->dtup_979__GLOBAL_DISCR_SEQFIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_979__GLOBAL_DISCR_SEQFIELD.nbval = 0; /*inistring dstr_980__void_BASILYSG_*/ /*_.VALSTR___V1110*/ curfptr[1109] = (void*)&cdat->dstr_980__void_BASILYSG_; cdat->dstr_980__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_980__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_SEQFIELD)"); /*inistring dstr_981__GLOBAL_DISCR_SEQ*/ /*_.VALSTR___V1108*/ curfptr[1107] = (void*)&cdat->dstr_981__GLOBAL_DISCR_SEQ; cdat->dstr_981__GLOBAL_DISCR_SEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_981__GLOBAL_DISCR_SEQ.val, "GLOBAL_DISCR_SEQFIELD"); /*iniobj dsym_982__GLOBAL_DISCR_STRING*/ if (!/*_.VALDATA___V1112*/ curfptr[1111]) /*_.VALDATA___V1112*/ curfptr[1111] = (void*)&cdat->dsym_982__GLOBAL_DISCR_STRING; basilys_assertmsg("iniobj checkdiscr dsym_982__GLOBAL_DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_982__GLOBAL_DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_982__GLOBAL_DISCR_STRING.obj_hash = 172035233; cdat->dsym_982__GLOBAL_DISCR_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_982__GLOBAL_DISCR_STRING)); /*inistring dstr_983__GLOBAL_DISCR_STR*/ /*_.VALSTR___V1113*/ curfptr[1112] = (void*)&cdat->dstr_983__GLOBAL_DISCR_STR; cdat->dstr_983__GLOBAL_DISCR_STR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_983__GLOBAL_DISCR_STR.val, "GLOBAL_DISCR_STRING"); BASILYS_LOCATION("warmelt-normal.bysl:562: @iniobj"); /*iniobj dobj_984__GLOBAL_DISCR_STRING*/ if (!/*_.VALDATA___V1114*/ curfptr[1113]) /*_.VALDATA___V1114*/ curfptr[1113] = (void*)&cdat->dobj_984__GLOBAL_DISCR_STRING; basilys_assertmsg("iniobj checkdiscr dobj_984__GLOBAL_DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_984__GLOBAL_DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_984__GLOBAL_DISCR_STRING.obj_hash = 545018733; cdat->dobj_984__GLOBAL_DISCR_STRING.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_984__GLOBAL_DISCR_STRING)); /*inimult dtup_985__GLOBAL_DISCR_STRING*/ /*_.VALTUP___V1118*/ curfptr[1117] = (void*)&cdat->dtup_985__GLOBAL_DISCR_STRING; cdat->dtup_985__GLOBAL_DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_985__GLOBAL_DISCR_STRING.nbval = 1; /*inimult dtup_986__GLOBAL_DISCR_STRING*/ /*_.VALTUP___V1116*/ curfptr[1115] = (void*)&cdat->dtup_986__GLOBAL_DISCR_STRING; cdat->dtup_986__GLOBAL_DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_986__GLOBAL_DISCR_STRING.nbval = 0; /*inistring dstr_987__void_BASILYSG_*/ /*_.VALSTR___V1117*/ curfptr[1116] = (void*)&cdat->dstr_987__void_BASILYSG_; cdat->dstr_987__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_987__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_STRING)"); /*inistring dstr_988__GLOBAL_DISCR_STR*/ /*_.VALSTR___V1115*/ curfptr[1114] = (void*)&cdat->dstr_988__GLOBAL_DISCR_STR; cdat->dstr_988__GLOBAL_DISCR_STR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_988__GLOBAL_DISCR_STR.val, "GLOBAL_DISCR_STRING"); /*iniobj dsym_989__GLOBAL_DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V1119*/ curfptr[1118]) /*_.VALDATA___V1119*/ curfptr[1118] = (void*)&cdat->dsym_989__GLOBAL_DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dsym_989__GLOBAL_DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_989__GLOBAL_DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_989__GLOBAL_DISCR_VERBATIMSTRING.obj_hash = 166401527; cdat->dsym_989__GLOBAL_DISCR_VERBATIMSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_989__GLOBAL_DISCR_VERBATIMSTRING)); /*inistring dstr_990__GLOBAL_DISCR_VER*/ /*_.VALSTR___V1120*/ curfptr[1119] = (void*)&cdat->dstr_990__GLOBAL_DISCR_VER; cdat->dstr_990__GLOBAL_DISCR_VER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_990__GLOBAL_DISCR_VER.val, "GLOBAL_DISCR_VERBATIMSTRING"); BASILYS_LOCATION("warmelt-normal.bysl:563: @iniobj"); /*iniobj dobj_991__GLOBAL_DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V1121*/ curfptr[1120]) /*_.VALDATA___V1121*/ curfptr[1120] = (void*)&cdat->dobj_991__GLOBAL_DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dobj_991__GLOBAL_DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_991__GLOBAL_DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_991__GLOBAL_DISCR_VERBATIMSTRING.obj_hash = 336236210; cdat->dobj_991__GLOBAL_DISCR_VERBATIMSTRING.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_991__GLOBAL_DISCR_VERBATIMSTRING)); /*inimult dtup_992__GLOBAL_DISCR_VERBATIMSTRING*/ /*_.VALTUP___V1125*/ curfptr[1124] = (void*)&cdat->dtup_992__GLOBAL_DISCR_VERBATIMSTRING; cdat->dtup_992__GLOBAL_DISCR_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_992__GLOBAL_DISCR_VERBATIMSTRING.nbval = 1; /*inimult dtup_993__GLOBAL_DISCR_VERBATIMSTRING*/ /*_.VALTUP___V1123*/ curfptr[1122] = (void*)&cdat->dtup_993__GLOBAL_DISCR_VERBATIMSTRING; cdat->dtup_993__GLOBAL_DISCR_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_993__GLOBAL_DISCR_VERBATIMSTRING.nbval = 0; /*inistring dstr_994__void_BASILYSG_*/ /*_.VALSTR___V1124*/ curfptr[1123] = (void*)&cdat->dstr_994__void_BASILYSG_; cdat->dstr_994__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_994__void_BASILYSG_.val, "(void*)BASILYSG(DISCR_VERBATIMSTRING)"); /*inistring dstr_995__GLOBAL_DISCR_VER*/ /*_.VALSTR___V1122*/ curfptr[1121] = (void*)&cdat->dstr_995__GLOBAL_DISCR_VER; cdat->dstr_995__GLOBAL_DISCR_VER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_995__GLOBAL_DISCR_VER.val, "GLOBAL_DISCR_VERBATIMSTRING"); /*iniobj dsym_996__GLOBAL_INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V1126*/ curfptr[1125]) /*_.VALDATA___V1126*/ curfptr[1125] = (void*)&cdat->dsym_996__GLOBAL_INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_996__GLOBAL_INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_996__GLOBAL_INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_996__GLOBAL_INITIAL_SYSTEM_DATA.obj_hash = 1030515397; cdat->dsym_996__GLOBAL_INITIAL_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_996__GLOBAL_INITIAL_SYSTEM_DATA)); /*inistring dstr_997__GLOBAL_INITIAL_S*/ /*_.VALSTR___V1127*/ curfptr[1126] = (void*)&cdat->dstr_997__GLOBAL_INITIAL_S; cdat->dstr_997__GLOBAL_INITIAL_S.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_997__GLOBAL_INITIAL_S.val, "GLOBAL_INITIAL_SYSTEM_DATA"); BASILYS_LOCATION("warmelt-normal.bysl:564: @iniobj"); /*iniobj dobj_998__GLOBAL_INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V1128*/ curfptr[1127]) /*_.VALDATA___V1128*/ curfptr[1127] = (void*)&cdat->dobj_998__GLOBAL_INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dobj_998__GLOBAL_INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_998__GLOBAL_INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_PRIMITIVE)))); cdat->dobj_998__GLOBAL_INITIAL_SYSTEM_DATA.obj_hash = 766633023; cdat->dobj_998__GLOBAL_INITIAL_SYSTEM_DATA.obj_len = 5; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_998__GLOBAL_INITIAL_SYSTEM_DATA)); /*inimult dtup_999__GLOBAL_INITIAL_SYSTEM_DATA*/ /*_.VALTUP___V1132*/ curfptr[1131] = (void*)&cdat->dtup_999__GLOBAL_INITIAL_SYSTEM_DATA; cdat->dtup_999__GLOBAL_INITIAL_SYSTEM_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_999__GLOBAL_INITIAL_SYSTEM_DATA.nbval = 1; /*inimult dtup_1000__GLOBAL_INITIAL_SYSTEM_DATA*/ /*_.VALTUP___V1130*/ curfptr[1129] = (void*)&cdat->dtup_1000__GLOBAL_INITIAL_SYSTEM_DATA; cdat->dtup_1000__GLOBAL_INITIAL_SYSTEM_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_MULTIPLE)))); cdat->dtup_1000__GLOBAL_INITIAL_SYSTEM_DATA.nbval = 0; /*inistring dstr_1001__void_BASILYSG_*/ /*_.VALSTR___V1131*/ curfptr[1130] = (void*)&cdat->dstr_1001__void_BASILYSG_; cdat->dstr_1001__void_BASILYSG_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_VERBATIMSTRING)))); strcpy(cdat->dstr_1001__void_BASILYSG_.val, "(void*)BASILYSG(INITIAL_SYSTEM_DATA)"); /*inistring dstr_1002__GLOBAL_INITIAL_S*/ /*_.VALSTR___V1129*/ curfptr[1128] = (void*)&cdat->dstr_1002__GLOBAL_INITIAL_S; cdat->dstr_1002__GLOBAL_INITIAL_S.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1002__GLOBAL_INITIAL_S.val, "GLOBAL_INITIAL_SYSTEM_DATA"); /*inirout drout_1003__FILL_INITIAL_PREDEFMAP*/ /*_.VALROUT___V1133*/ curfptr[1132] = (void*)&cdat->drout_1003__FILL_INITIAL_PREDEFMAP; cdat->drout_1003__FILL_INITIAL_PREDEFMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1003__FILL_INITIAL_PREDEFMAP.routdescr, "FILL_INITIAL_PREDEFMAP @warmelt-normal.bysl:567", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1003__FILL_INITIAL_PREDEFMAP.nbval = 42; *(basilysroutfun_t **) (cdat->drout_1003__FILL_INITIAL_PREDEFMAP.routaddr) = rout_2_FILL_INITIAL_PREDEFMAP; /*iniclos dclo_1004__FILL_INITIAL_PREDEFMAP*/ /*_.VALCLO___V1210*/ curfptr[1209] = (void*)&cdat->dclo_1004__FILL_INITIAL_PREDEFMAP; cdat->dclo_1004__FILL_INITIAL_PREDEFMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1004__FILL_INITIAL_PREDEFMAP.nbval = 0; /*iniobj dsym_1005__ATOM_TRUE*/ if (!/*_.VALDATA___V1134*/ curfptr[1133]) /*_.VALDATA___V1134*/ curfptr[1133] = (void*)&cdat->dsym_1005__ATOM_TRUE; basilys_assertmsg("iniobj checkdiscr dsym_1005__ATOM_TRUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1005__ATOM_TRUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1005__ATOM_TRUE.obj_hash = 25487678; cdat->dsym_1005__ATOM_TRUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1005__ATOM_TRUE)); /*inistring dstr_1006__ATOM_TRUE*/ /*_.VALSTR___V1135*/ curfptr[1134] = (void*)&cdat->dstr_1006__ATOM_TRUE; cdat->dstr_1006__ATOM_TRUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1006__ATOM_TRUE.val, "ATOM_TRUE"); /*iniobj dsym_1007__CLASS_CITERATOR*/ if (!/*_.VALDATA___V1136*/ curfptr[1135]) /*_.VALDATA___V1136*/ curfptr[1135] = (void*)&cdat->dsym_1007__CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_1007__CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1007__CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1007__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_1007__CLASS_CITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1007__CLASS_CITERATOR)); /*inistring dstr_1008__CLASS_CITERATOR*/ /*_.VALSTR___V1137*/ curfptr[1136] = (void*)&cdat->dstr_1008__CLASS_CITERATOR; cdat->dstr_1008__CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1008__CLASS_CITERATOR.val, "CLASS_CITERATOR"); /*iniobj dsym_1009__CLASS_CONTAINER*/ if (!/*_.VALDATA___V1138*/ curfptr[1137]) /*_.VALDATA___V1138*/ curfptr[1137] = (void*)&cdat->dsym_1009__CLASS_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_1009__CLASS_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1009__CLASS_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1009__CLASS_CONTAINER.obj_hash = 301899711; cdat->dsym_1009__CLASS_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1009__CLASS_CONTAINER)); /*inistring dstr_1010__CLASS_CONTAINER*/ /*_.VALSTR___V1139*/ curfptr[1138] = (void*)&cdat->dstr_1010__CLASS_CONTAINER; cdat->dstr_1010__CLASS_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1010__CLASS_CONTAINER.val, "CLASS_CONTAINER"); /*iniobj dsym_1011__CLASS_DISCR*/ if (!/*_.VALDATA___V1140*/ curfptr[1139]) /*_.VALDATA___V1140*/ curfptr[1139] = (void*)&cdat->dsym_1011__CLASS_DISCR; basilys_assertmsg("iniobj checkdiscr dsym_1011__CLASS_DISCR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1011__CLASS_DISCR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1011__CLASS_DISCR.obj_hash = 80091542; cdat->dsym_1011__CLASS_DISCR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1011__CLASS_DISCR)); /*inistring dstr_1012__CLASS_DISCR*/ /*_.VALSTR___V1141*/ curfptr[1140] = (void*)&cdat->dstr_1012__CLASS_DISCR; cdat->dstr_1012__CLASS_DISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1012__CLASS_DISCR.val, "CLASS_DISCR"); /*iniobj dsym_1013__CLASS_FIELD*/ if (!/*_.VALDATA___V1142*/ curfptr[1141]) /*_.VALDATA___V1142*/ curfptr[1141] = (void*)&cdat->dsym_1013__CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_1013__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1013__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1013__CLASS_FIELD.obj_hash = 523073; cdat->dsym_1013__CLASS_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1013__CLASS_FIELD)); /*inistring dstr_1014__CLASS_FIELD*/ /*_.VALSTR___V1143*/ curfptr[1142] = (void*)&cdat->dstr_1014__CLASS_FIELD; cdat->dstr_1014__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1014__CLASS_FIELD.val, "CLASS_FIELD"); /*iniobj dsym_1015__CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V1144*/ curfptr[1143]) /*_.VALDATA___V1144*/ curfptr[1143] = (void*)&cdat->dsym_1015__CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1015__CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1015__CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1015__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_1015__CLASS_FORMAL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1015__CLASS_FORMAL_BINDING)); /*inistring dstr_1016__CLASS_FORMAL_BIN*/ /*_.VALSTR___V1145*/ curfptr[1144] = (void*)&cdat->dstr_1016__CLASS_FORMAL_BIN; cdat->dstr_1016__CLASS_FORMAL_BIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1016__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING"); /*iniobj dsym_1017__CLASS_KEYWORD*/ if (!/*_.VALDATA___V1146*/ curfptr[1145]) /*_.VALDATA___V1146*/ curfptr[1145] = (void*)&cdat->dsym_1017__CLASS_KEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_1017__CLASS_KEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1017__CLASS_KEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1017__CLASS_KEYWORD.obj_hash = 14992133; cdat->dsym_1017__CLASS_KEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1017__CLASS_KEYWORD)); /*inistring dstr_1018__CLASS_KEYWORD*/ /*_.VALSTR___V1147*/ curfptr[1146] = (void*)&cdat->dstr_1018__CLASS_KEYWORD; cdat->dstr_1018__CLASS_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1018__CLASS_KEYWORD.val, "CLASS_KEYWORD"); /*iniobj dsym_1019__CLASS_LOCATED*/ if (!/*_.VALDATA___V1148*/ curfptr[1147]) /*_.VALDATA___V1148*/ curfptr[1147] = (void*)&cdat->dsym_1019__CLASS_LOCATED; basilys_assertmsg("iniobj checkdiscr dsym_1019__CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1019__CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1019__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_1019__CLASS_LOCATED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1019__CLASS_LOCATED)); /*inistring dstr_1020__CLASS_LOCATED*/ /*_.VALSTR___V1149*/ curfptr[1148] = (void*)&cdat->dstr_1020__CLASS_LOCATED; cdat->dstr_1020__CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1020__CLASS_LOCATED.val, "CLASS_LOCATED"); /*iniobj dsym_1021__CLASS_NAMED*/ if (!/*_.VALDATA___V1150*/ curfptr[1149]) /*_.VALDATA___V1150*/ curfptr[1149] = (void*)&cdat->dsym_1021__CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dsym_1021__CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1021__CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1021__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_1021__CLASS_NAMED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1021__CLASS_NAMED)); /*inistring dstr_1022__CLASS_NAMED*/ /*_.VALSTR___V1151*/ curfptr[1150] = (void*)&cdat->dstr_1022__CLASS_NAMED; cdat->dstr_1022__CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1022__CLASS_NAMED.val, "CLASS_NAMED"); /*iniobj dsym_1023__CLASS_PRIMITIVE*/ if (!/*_.VALDATA___V1152*/ curfptr[1151]) /*_.VALDATA___V1152*/ curfptr[1151] = (void*)&cdat->dsym_1023__CLASS_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_1023__CLASS_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1023__CLASS_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1023__CLASS_PRIMITIVE.obj_hash = 102527506; cdat->dsym_1023__CLASS_PRIMITIVE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1023__CLASS_PRIMITIVE)); /*inistring dstr_1024__CLASS_PRIMITIVE*/ /*_.VALSTR___V1153*/ curfptr[1152] = (void*)&cdat->dstr_1024__CLASS_PRIMITIVE; cdat->dstr_1024__CLASS_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1024__CLASS_PRIMITIVE.val, "CLASS_PRIMITIVE"); /*iniobj dsym_1025__CLASS_PROPED*/ if (!/*_.VALDATA___V1154*/ curfptr[1153]) /*_.VALDATA___V1154*/ curfptr[1153] = (void*)&cdat->dsym_1025__CLASS_PROPED; basilys_assertmsg("iniobj checkdiscr dsym_1025__CLASS_PROPED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1025__CLASS_PROPED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1025__CLASS_PROPED.obj_hash = 96765023; cdat->dsym_1025__CLASS_PROPED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1025__CLASS_PROPED)); /*inistring dstr_1026__CLASS_PROPED*/ /*_.VALSTR___V1155*/ curfptr[1154] = (void*)&cdat->dstr_1026__CLASS_PROPED; cdat->dstr_1026__CLASS_PROPED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1026__CLASS_PROPED.val, "CLASS_PROPED"); /*iniobj dsym_1027__CLASS_SELECTOR*/ if (!/*_.VALDATA___V1156*/ curfptr[1155]) /*_.VALDATA___V1156*/ curfptr[1155] = (void*)&cdat->dsym_1027__CLASS_SELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_1027__CLASS_SELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1027__CLASS_SELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1027__CLASS_SELECTOR.obj_hash = 100646971; cdat->dsym_1027__CLASS_SELECTOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1027__CLASS_SELECTOR)); /*inistring dstr_1028__CLASS_SELECTOR*/ /*_.VALSTR___V1157*/ curfptr[1156] = (void*)&cdat->dstr_1028__CLASS_SELECTOR; cdat->dstr_1028__CLASS_SELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1028__CLASS_SELECTOR.val, "CLASS_SELECTOR"); /*iniobj dsym_1029__CLASS_SEXPR*/ if (!/*_.VALDATA___V1158*/ curfptr[1157]) /*_.VALDATA___V1158*/ curfptr[1157] = (void*)&cdat->dsym_1029__CLASS_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_1029__CLASS_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1029__CLASS_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1029__CLASS_SEXPR.obj_hash = 53411612; cdat->dsym_1029__CLASS_SEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1029__CLASS_SEXPR)); /*inistring dstr_1030__CLASS_SEXPR*/ /*_.VALSTR___V1159*/ curfptr[1158] = (void*)&cdat->dstr_1030__CLASS_SEXPR; cdat->dstr_1030__CLASS_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1030__CLASS_SEXPR.val, "CLASS_SEXPR"); /*iniobj dsym_1031__CLASS_SYSTEM_DATA*/ if (!/*_.VALDATA___V1160*/ curfptr[1159]) /*_.VALDATA___V1160*/ curfptr[1159] = (void*)&cdat->dsym_1031__CLASS_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_1031__CLASS_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1031__CLASS_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1031__CLASS_SYSTEM_DATA.obj_hash = 648451867; cdat->dsym_1031__CLASS_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1031__CLASS_SYSTEM_DATA)); /*inistring dstr_1032__CLASS_SYSTEM_DAT*/ /*_.VALSTR___V1161*/ curfptr[1160] = (void*)&cdat->dstr_1032__CLASS_SYSTEM_DAT; cdat->dstr_1032__CLASS_SYSTEM_DAT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1032__CLASS_SYSTEM_DAT.val, "CLASS_SYSTEM_DATA"); /*iniobj dsym_1033__CTYPE_CSTRING*/ if (!/*_.VALDATA___V1162*/ curfptr[1161]) /*_.VALDATA___V1162*/ curfptr[1161] = (void*)&cdat->dsym_1033__CTYPE_CSTRING; basilys_assertmsg("iniobj checkdiscr dsym_1033__CTYPE_CSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1033__CTYPE_CSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1033__CTYPE_CSTRING.obj_hash = 90196516; cdat->dsym_1033__CTYPE_CSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1033__CTYPE_CSTRING)); /*inistring dstr_1034__CTYPE_CSTRING*/ /*_.VALSTR___V1163*/ curfptr[1162] = (void*)&cdat->dstr_1034__CTYPE_CSTRING; cdat->dstr_1034__CTYPE_CSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1034__CTYPE_CSTRING.val, "CTYPE_CSTRING"); /*iniobj dsym_1035__CTYPE_LONG*/ if (!/*_.VALDATA___V1164*/ curfptr[1163]) /*_.VALDATA___V1164*/ curfptr[1163] = (void*)&cdat->dsym_1035__CTYPE_LONG; basilys_assertmsg("iniobj checkdiscr dsym_1035__CTYPE_LONG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1035__CTYPE_LONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1035__CTYPE_LONG.obj_hash = 64180850; cdat->dsym_1035__CTYPE_LONG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1035__CTYPE_LONG)); /*inistring dstr_1036__CTYPE_LONG*/ /*_.VALSTR___V1165*/ curfptr[1164] = (void*)&cdat->dstr_1036__CTYPE_LONG; cdat->dstr_1036__CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1036__CTYPE_LONG.val, "CTYPE_LONG"); /*iniobj dsym_1037__CTYPE_TREE*/ if (!/*_.VALDATA___V1166*/ curfptr[1165]) /*_.VALDATA___V1166*/ curfptr[1165] = (void*)&cdat->dsym_1037__CTYPE_TREE; basilys_assertmsg("iniobj checkdiscr dsym_1037__CTYPE_TREE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1037__CTYPE_TREE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1037__CTYPE_TREE.obj_hash = 93576863; cdat->dsym_1037__CTYPE_TREE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1037__CTYPE_TREE)); /*inistring dstr_1038__CTYPE_TREE*/ /*_.VALSTR___V1167*/ curfptr[1166] = (void*)&cdat->dstr_1038__CTYPE_TREE; cdat->dstr_1038__CTYPE_TREE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1038__CTYPE_TREE.val, "CTYPE_TREE"); /*iniobj dsym_1039__CTYPE_VALUE*/ if (!/*_.VALDATA___V1168*/ curfptr[1167]) /*_.VALDATA___V1168*/ curfptr[1167] = (void*)&cdat->dsym_1039__CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_1039__CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1039__CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1039__CTYPE_VALUE.obj_hash = 11062864; cdat->dsym_1039__CTYPE_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1039__CTYPE_VALUE)); /*inistring dstr_1040__CTYPE_VALUE*/ /*_.VALSTR___V1169*/ curfptr[1168] = (void*)&cdat->dstr_1040__CTYPE_VALUE; cdat->dstr_1040__CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1040__CTYPE_VALUE.val, "CTYPE_VALUE"); /*iniobj dsym_1041__CTYPE_VOID*/ if (!/*_.VALDATA___V1170*/ curfptr[1169]) /*_.VALDATA___V1170*/ curfptr[1169] = (void*)&cdat->dsym_1041__CTYPE_VOID; basilys_assertmsg("iniobj checkdiscr dsym_1041__CTYPE_VOID", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1041__CTYPE_VOID.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1041__CTYPE_VOID.obj_hash = 94242002; cdat->dsym_1041__CTYPE_VOID.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1041__CTYPE_VOID)); /*inistring dstr_1042__CTYPE_VOID*/ /*_.VALSTR___V1171*/ curfptr[1170] = (void*)&cdat->dstr_1042__CTYPE_VOID; cdat->dstr_1042__CTYPE_VOID.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1042__CTYPE_VOID.val, "CTYPE_VOID"); /*iniobj dsym_1043__DISCR_BOX*/ if (!/*_.VALDATA___V1172*/ curfptr[1171]) /*_.VALDATA___V1172*/ curfptr[1171] = (void*)&cdat->dsym_1043__DISCR_BOX; basilys_assertmsg("iniobj checkdiscr dsym_1043__DISCR_BOX", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1043__DISCR_BOX.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1043__DISCR_BOX.obj_hash = 8042275; cdat->dsym_1043__DISCR_BOX.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1043__DISCR_BOX)); /*inistring dstr_1044__DISCR_BOX*/ /*_.VALSTR___V1173*/ curfptr[1172] = (void*)&cdat->dstr_1044__DISCR_BOX; cdat->dstr_1044__DISCR_BOX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1044__DISCR_BOX.val, "DISCR_BOX"); /*iniobj dsym_1045__DISCR_CHARINTEGER*/ if (!/*_.VALDATA___V1174*/ curfptr[1173]) /*_.VALDATA___V1174*/ curfptr[1173] = (void*)&cdat->dsym_1045__DISCR_CHARINTEGER; basilys_assertmsg("iniobj checkdiscr dsym_1045__DISCR_CHARINTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1045__DISCR_CHARINTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1045__DISCR_CHARINTEGER.obj_hash = 86518030; cdat->dsym_1045__DISCR_CHARINTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1045__DISCR_CHARINTEGER)); /*inistring dstr_1046__DISCR_CHARINTEGE*/ /*_.VALSTR___V1175*/ curfptr[1174] = (void*)&cdat->dstr_1046__DISCR_CHARINTEGE; cdat->dstr_1046__DISCR_CHARINTEGE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1046__DISCR_CHARINTEGE.val, "DISCR_CHARINTEGER"); /*iniobj dsym_1047__DISCR_CLOSURE*/ if (!/*_.VALDATA___V1176*/ curfptr[1175]) /*_.VALDATA___V1176*/ curfptr[1175] = (void*)&cdat->dsym_1047__DISCR_CLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_1047__DISCR_CLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1047__DISCR_CLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1047__DISCR_CLOSURE.obj_hash = 99248147; cdat->dsym_1047__DISCR_CLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1047__DISCR_CLOSURE)); /*inistring dstr_1048__DISCR_CLOSURE*/ /*_.VALSTR___V1177*/ curfptr[1176] = (void*)&cdat->dstr_1048__DISCR_CLOSURE; cdat->dstr_1048__DISCR_CLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1048__DISCR_CLOSURE.val, "DISCR_CLOSURE"); /*iniobj dsym_1049__DISCR_LIST*/ if (!/*_.VALDATA___V1178*/ curfptr[1177]) /*_.VALDATA___V1178*/ curfptr[1177] = (void*)&cdat->dsym_1049__DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_1049__DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1049__DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1049__DISCR_LIST.obj_hash = 98407634; cdat->dsym_1049__DISCR_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1049__DISCR_LIST)); /*inistring dstr_1050__DISCR_LIST*/ /*_.VALSTR___V1179*/ curfptr[1178] = (void*)&cdat->dstr_1050__DISCR_LIST; cdat->dstr_1050__DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1050__DISCR_LIST.val, "DISCR_LIST"); /*iniobj dsym_1051__DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V1180*/ curfptr[1179]) /*_.VALDATA___V1180*/ curfptr[1179] = (void*)&cdat->dsym_1051__DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_1051__DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1051__DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1051__DISCR_MAPOBJECTS.obj_hash = 95669218; cdat->dsym_1051__DISCR_MAPOBJECTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1051__DISCR_MAPOBJECTS)); /*inistring dstr_1052__DISCR_MAPOBJECTS*/ /*_.VALSTR___V1181*/ curfptr[1180] = (void*)&cdat->dstr_1052__DISCR_MAPOBJECTS; cdat->dstr_1052__DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1052__DISCR_MAPOBJECTS.val, "DISCR_MAPOBJECTS"); /*iniobj dsym_1053__DISCR_MAPSTRINGS*/ if (!/*_.VALDATA___V1182*/ curfptr[1181]) /*_.VALDATA___V1182*/ curfptr[1181] = (void*)&cdat->dsym_1053__DISCR_MAPSTRINGS; basilys_assertmsg("iniobj checkdiscr dsym_1053__DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1053__DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1053__DISCR_MAPSTRINGS.obj_hash = 122797468; cdat->dsym_1053__DISCR_MAPSTRINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1053__DISCR_MAPSTRINGS)); /*inistring dstr_1054__DISCR_MAPSTRINGS*/ /*_.VALSTR___V1183*/ curfptr[1182] = (void*)&cdat->dstr_1054__DISCR_MAPSTRINGS; cdat->dstr_1054__DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1054__DISCR_MAPSTRINGS.val, "DISCR_MAPSTRINGS"); /*iniobj dsym_1055__DISCR_METHODMAP*/ if (!/*_.VALDATA___V1184*/ curfptr[1183]) /*_.VALDATA___V1184*/ curfptr[1183] = (void*)&cdat->dsym_1055__DISCR_METHODMAP; basilys_assertmsg("iniobj checkdiscr dsym_1055__DISCR_METHODMAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1055__DISCR_METHODMAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1055__DISCR_METHODMAP.obj_hash = 94385941; cdat->dsym_1055__DISCR_METHODMAP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1055__DISCR_METHODMAP)); /*inistring dstr_1056__DISCR_METHODMAP*/ /*_.VALSTR___V1185*/ curfptr[1184] = (void*)&cdat->dstr_1056__DISCR_METHODMAP; cdat->dstr_1056__DISCR_METHODMAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1056__DISCR_METHODMAP.val, "DISCR_METHODMAP"); /*iniobj dsym_1057__DISCR_MIXEDINT*/ if (!/*_.VALDATA___V1186*/ curfptr[1185]) /*_.VALDATA___V1186*/ curfptr[1185] = (void*)&cdat->dsym_1057__DISCR_MIXEDINT; basilys_assertmsg("iniobj checkdiscr dsym_1057__DISCR_MIXEDINT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1057__DISCR_MIXEDINT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1057__DISCR_MIXEDINT.obj_hash = 81469217; cdat->dsym_1057__DISCR_MIXEDINT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1057__DISCR_MIXEDINT)); /*inistring dstr_1058__DISCR_MIXEDINT*/ /*_.VALSTR___V1187*/ curfptr[1186] = (void*)&cdat->dstr_1058__DISCR_MIXEDINT; cdat->dstr_1058__DISCR_MIXEDINT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1058__DISCR_MIXEDINT.val, "DISCR_MIXEDINT"); /*iniobj dsym_1059__DISCR_MIXEDLOC*/ if (!/*_.VALDATA___V1188*/ curfptr[1187]) /*_.VALDATA___V1188*/ curfptr[1187] = (void*)&cdat->dsym_1059__DISCR_MIXEDLOC; basilys_assertmsg("iniobj checkdiscr dsym_1059__DISCR_MIXEDLOC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1059__DISCR_MIXEDLOC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1059__DISCR_MIXEDLOC.obj_hash = 578300551; cdat->dsym_1059__DISCR_MIXEDLOC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1059__DISCR_MIXEDLOC)); /*inistring dstr_1060__DISCR_MIXEDLOC*/ /*_.VALSTR___V1189*/ curfptr[1188] = (void*)&cdat->dstr_1060__DISCR_MIXEDLOC; cdat->dstr_1060__DISCR_MIXEDLOC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1060__DISCR_MIXEDLOC.val, "DISCR_MIXEDLOC"); /*iniobj dsym_1061__DISCR_MULTIPLE*/ if (!/*_.VALDATA___V1190*/ curfptr[1189]) /*_.VALDATA___V1190*/ curfptr[1189] = (void*)&cdat->dsym_1061__DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_1061__DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1061__DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1061__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_1061__DISCR_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1061__DISCR_MULTIPLE)); /*inistring dstr_1062__DISCR_MULTIPLE*/ /*_.VALSTR___V1191*/ curfptr[1190] = (void*)&cdat->dstr_1062__DISCR_MULTIPLE; cdat->dstr_1062__DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1062__DISCR_MULTIPLE.val, "DISCR_MULTIPLE"); /*iniobj dsym_1063__DISCR_NAMESTRING*/ if (!/*_.VALDATA___V1192*/ curfptr[1191]) /*_.VALDATA___V1192*/ curfptr[1191] = (void*)&cdat->dsym_1063__DISCR_NAMESTRING; basilys_assertmsg("iniobj checkdiscr dsym_1063__DISCR_NAMESTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1063__DISCR_NAMESTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1063__DISCR_NAMESTRING.obj_hash = 60373972; cdat->dsym_1063__DISCR_NAMESTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1063__DISCR_NAMESTRING)); /*inistring dstr_1064__DISCR_NAMESTRING*/ /*_.VALSTR___V1193*/ curfptr[1192] = (void*)&cdat->dstr_1064__DISCR_NAMESTRING; cdat->dstr_1064__DISCR_NAMESTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1064__DISCR_NAMESTRING.val, "DISCR_NAMESTRING"); /*iniobj dsym_1065__DISCR_NULLRECV*/ if (!/*_.VALDATA___V1194*/ curfptr[1193]) /*_.VALDATA___V1194*/ curfptr[1193] = (void*)&cdat->dsym_1065__DISCR_NULLRECV; basilys_assertmsg("iniobj checkdiscr dsym_1065__DISCR_NULLRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1065__DISCR_NULLRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1065__DISCR_NULLRECV.obj_hash = 39603699; cdat->dsym_1065__DISCR_NULLRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1065__DISCR_NULLRECV)); /*inistring dstr_1066__DISCR_NULLRECV*/ /*_.VALSTR___V1195*/ curfptr[1194] = (void*)&cdat->dstr_1066__DISCR_NULLRECV; cdat->dstr_1066__DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1066__DISCR_NULLRECV.val, "DISCR_NULLRECV"); /*iniobj dsym_1067__DISCR_PAIR*/ if (!/*_.VALDATA___V1196*/ curfptr[1195]) /*_.VALDATA___V1196*/ curfptr[1195] = (void*)&cdat->dsym_1067__DISCR_PAIR; basilys_assertmsg("iniobj checkdiscr dsym_1067__DISCR_PAIR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1067__DISCR_PAIR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1067__DISCR_PAIR.obj_hash = 69333571; cdat->dsym_1067__DISCR_PAIR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1067__DISCR_PAIR)); /*inistring dstr_1068__DISCR_PAIR*/ /*_.VALSTR___V1197*/ curfptr[1196] = (void*)&cdat->dstr_1068__DISCR_PAIR; cdat->dstr_1068__DISCR_PAIR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1068__DISCR_PAIR.val, "DISCR_PAIR"); /*iniobj dsym_1069__DISCR_ROUTINE*/ if (!/*_.VALDATA___V1198*/ curfptr[1197]) /*_.VALDATA___V1198*/ curfptr[1197] = (void*)&cdat->dsym_1069__DISCR_ROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_1069__DISCR_ROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1069__DISCR_ROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1069__DISCR_ROUTINE.obj_hash = 30464565; cdat->dsym_1069__DISCR_ROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1069__DISCR_ROUTINE)); /*inistring dstr_1070__DISCR_ROUTINE*/ /*_.VALSTR___V1199*/ curfptr[1198] = (void*)&cdat->dstr_1070__DISCR_ROUTINE; cdat->dstr_1070__DISCR_ROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1070__DISCR_ROUTINE.val, "DISCR_ROUTINE"); /*iniobj dsym_1071__DISCR_SEQCLASS*/ if (!/*_.VALDATA___V1200*/ curfptr[1199]) /*_.VALDATA___V1200*/ curfptr[1199] = (void*)&cdat->dsym_1071__DISCR_SEQCLASS; basilys_assertmsg("iniobj checkdiscr dsym_1071__DISCR_SEQCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1071__DISCR_SEQCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1071__DISCR_SEQCLASS.obj_hash = 98036243; cdat->dsym_1071__DISCR_SEQCLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1071__DISCR_SEQCLASS)); /*inistring dstr_1072__DISCR_SEQCLASS*/ /*_.VALSTR___V1201*/ curfptr[1200] = (void*)&cdat->dstr_1072__DISCR_SEQCLASS; cdat->dstr_1072__DISCR_SEQCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1072__DISCR_SEQCLASS.val, "DISCR_SEQCLASS"); /*iniobj dsym_1073__DISCR_SEQFIELD*/ if (!/*_.VALDATA___V1202*/ curfptr[1201]) /*_.VALDATA___V1202*/ curfptr[1201] = (void*)&cdat->dsym_1073__DISCR_SEQFIELD; basilys_assertmsg("iniobj checkdiscr dsym_1073__DISCR_SEQFIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1073__DISCR_SEQFIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1073__DISCR_SEQFIELD.obj_hash = 118740612; cdat->dsym_1073__DISCR_SEQFIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1073__DISCR_SEQFIELD)); /*inistring dstr_1074__DISCR_SEQFIELD*/ /*_.VALSTR___V1203*/ curfptr[1202] = (void*)&cdat->dstr_1074__DISCR_SEQFIELD; cdat->dstr_1074__DISCR_SEQFIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1074__DISCR_SEQFIELD.val, "DISCR_SEQFIELD"); /*iniobj dsym_1075__DISCR_STRING*/ if (!/*_.VALDATA___V1204*/ curfptr[1203]) /*_.VALDATA___V1204*/ curfptr[1203] = (void*)&cdat->dsym_1075__DISCR_STRING; basilys_assertmsg("iniobj checkdiscr dsym_1075__DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1075__DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1075__DISCR_STRING.obj_hash = 100436219; cdat->dsym_1075__DISCR_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1075__DISCR_STRING)); /*inistring dstr_1076__DISCR_STRING*/ /*_.VALSTR___V1205*/ curfptr[1204] = (void*)&cdat->dstr_1076__DISCR_STRING; cdat->dstr_1076__DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1076__DISCR_STRING.val, "DISCR_STRING"); /*iniobj dsym_1077__DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V1206*/ curfptr[1205]) /*_.VALDATA___V1206*/ curfptr[1205] = (void*)&cdat->dsym_1077__DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dsym_1077__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1077__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1077__DISCR_VERBATIMSTRING.obj_hash = 6759605; cdat->dsym_1077__DISCR_VERBATIMSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1077__DISCR_VERBATIMSTRING)); /*inistring dstr_1078__DISCR_VERBATIMST*/ /*_.VALSTR___V1207*/ curfptr[1206] = (void*)&cdat->dstr_1078__DISCR_VERBATIMST; cdat->dstr_1078__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1078__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING"); /*iniobj dsym_1079__INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V1208*/ curfptr[1207]) /*_.VALDATA___V1208*/ curfptr[1207] = (void*)&cdat->dsym_1079__INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_1079__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1079__INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1079__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_1079__INITIAL_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1079__INITIAL_SYSTEM_DATA)); /*inistring dstr_1080__INITIAL_SYSTEM_D*/ /*_.VALSTR___V1209*/ curfptr[1208] = (void*)&cdat->dstr_1080__INITIAL_SYSTEM_D; cdat->dstr_1080__INITIAL_SYSTEM_D.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1080__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA"); /*inirout drout_1081__CREATE_NORMCONTEXT*/ /*_.VALROUT___V1211*/ curfptr[1210] = (void*)&cdat->drout_1081__CREATE_NORMCONTEXT; cdat->drout_1081__CREATE_NORMCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1081__CREATE_NORMCONTEXT.routdescr, "CREATE_NORMCONTEXT @warmelt-normal.bysl:616", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1081__CREATE_NORMCONTEXT.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1081__CREATE_NORMCONTEXT.routaddr) = rout_3_CREATE_NORMCONTEXT; /*iniclos dclo_1082__CREATE_NORMCONTEXT*/ /*_.VALCLO___V1212*/ curfptr[1211] = (void*)&cdat->dclo_1082__CREATE_NORMCONTEXT; cdat->dclo_1082__CREATE_NORMCONTEXT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1082__CREATE_NORMCONTEXT.nbval = 0; /*iniobj dsym_1083__CLASS_MODULCONTEXT*/ if (!/*_.VALDATA___V1213*/ curfptr[1212]) /*_.VALDATA___V1213*/ curfptr[1212] = (void*)&cdat->dsym_1083__CLASS_MODULCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_1083__CLASS_MODULCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1083__CLASS_MODULCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1083__CLASS_MODULCONTEXT.obj_hash = 827706478; cdat->dsym_1083__CLASS_MODULCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1083__CLASS_MODULCONTEXT)); /*inistring dstr_1084__CLASS_MODULCONTE*/ /*_.VALSTR___V1214*/ curfptr[1213] = (void*)&cdat->dstr_1084__CLASS_MODULCONTE; cdat->dstr_1084__CLASS_MODULCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1084__CLASS_MODULCONTE.val, "CLASS_MODULCONTEXT"); /*iniobj dsym_1085__NORMAL_EXP*/ if (!/*_.VALDATA___V1215*/ curfptr[1214]) /*_.VALDATA___V1215*/ curfptr[1214] = (void*)&cdat->dsym_1085__NORMAL_EXP; basilys_assertmsg("iniobj checkdiscr dsym_1085__NORMAL_EXP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1085__NORMAL_EXP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1085__NORMAL_EXP.obj_hash = 420282450; cdat->dsym_1085__NORMAL_EXP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1085__NORMAL_EXP)); /*inistring dstr_1086__NORMAL_EXP*/ /*_.VALSTR___V1216*/ curfptr[1215] = (void*)&cdat->dstr_1086__NORMAL_EXP; cdat->dstr_1086__NORMAL_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1086__NORMAL_EXP.val, "NORMAL_EXP"); BASILYS_LOCATION("warmelt-normal.bysl:674: @iniobj"); /*iniobj dobj_1087__NORMAL_EXP*/ if (!/*_.VALDATA___V1217*/ curfptr[1216]) /*_.VALDATA___V1217*/ curfptr[1216] = (void*)&cdat->dobj_1087__NORMAL_EXP; basilys_assertmsg("iniobj checkdiscr dobj_1087__NORMAL_EXP", NULL != (void*)/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1087__NORMAL_EXP.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1087__NORMAL_EXP.obj_hash = 70404914; cdat->dobj_1087__NORMAL_EXP.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1087__NORMAL_EXP)); /*inistring dstr_1088__NORMAL_EXP*/ /*_.VALSTR___V1218*/ curfptr[1217] = (void*)&cdat->dstr_1088__NORMAL_EXP; cdat->dstr_1088__NORMAL_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1088__NORMAL_EXP.val, "NORMAL_EXP"); /*inirout drout_1089__NORMEXP_IDENTICAL*/ /*_.VALROUT___V1219*/ curfptr[1218] = (void*)&cdat->drout_1089__NORMEXP_IDENTICAL; cdat->drout_1089__NORMEXP_IDENTICAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1089__NORMEXP_IDENTICAL.routdescr, "NORMEXP_IDENTICAL @warmelt-normal.bysl:679", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1089__NORMEXP_IDENTICAL.nbval = 3; *(basilysroutfun_t **) (cdat->drout_1089__NORMEXP_IDENTICAL.routaddr) = rout_4_NORMEXP_IDENTICAL; /*iniclos dclo_1090__NORMEXP_IDENTICAL*/ /*_.VALCLO___V1220*/ curfptr[1219] = (void*)&cdat->dclo_1090__NORMEXP_IDENTICAL; cdat->dclo_1090__NORMEXP_IDENTICAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1090__NORMEXP_IDENTICAL.nbval = 0; /*iniobj dsym_1091__CLASS_ENVIRONMENT*/ if (!/*_.VALDATA___V1221*/ curfptr[1220]) /*_.VALDATA___V1221*/ curfptr[1220] = (void*)&cdat->dsym_1091__CLASS_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_1091__CLASS_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1091__CLASS_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1091__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_1091__CLASS_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1091__CLASS_ENVIRONMENT)); /*inistring dstr_1092__CLASS_ENVIRONMEN*/ /*_.VALSTR___V1222*/ curfptr[1221] = (void*)&cdat->dstr_1092__CLASS_ENVIRONMEN; cdat->dstr_1092__CLASS_ENVIRONMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1092__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT"); /*iniobj dsym_1093__INSTALL_METHOD*/ if (!/*_.VALDATA___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*)&cdat->dsym_1093__INSTALL_METHOD; basilys_assertmsg("iniobj checkdiscr dsym_1093__INSTALL_METHOD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1093__INSTALL_METHOD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1093__INSTALL_METHOD.obj_hash = 680699224; cdat->dsym_1093__INSTALL_METHOD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1093__INSTALL_METHOD)); /*inistring dstr_1094__INSTALL_METHOD*/ /*_.VALSTR___V1224*/ curfptr[1223] = (void*)&cdat->dstr_1094__INSTALL_METHOD; cdat->dstr_1094__INSTALL_METHOD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1094__INSTALL_METHOD.val, "INSTALL_METHOD"); /*iniobj dsym_1095__DISCR_ANYRECV*/ if (!/*_.VALDATA___V1225*/ curfptr[1224]) /*_.VALDATA___V1225*/ curfptr[1224] = (void*)&cdat->dsym_1095__DISCR_ANYRECV; basilys_assertmsg("iniobj checkdiscr dsym_1095__DISCR_ANYRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1095__DISCR_ANYRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1095__DISCR_ANYRECV.obj_hash = 88765237; cdat->dsym_1095__DISCR_ANYRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1095__DISCR_ANYRECV)); /*inistring dstr_1096__DISCR_ANYRECV*/ /*_.VALSTR___V1226*/ curfptr[1225] = (void*)&cdat->dstr_1096__DISCR_ANYRECV; cdat->dstr_1096__DISCR_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1096__DISCR_ANYRECV.val, "DISCR_ANYRECV"); /*inirout drout_1097__NORMEXP_NULL*/ /*_.VALROUT___V1227*/ curfptr[1226] = (void*)&cdat->drout_1097__NORMEXP_NULL; cdat->drout_1097__NORMEXP_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1097__NORMEXP_NULL.routdescr, "NORMEXP_NULL @warmelt-normal.bysl:691", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1097__NORMEXP_NULL.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1097__NORMEXP_NULL.routaddr) = rout_5_NORMEXP_NULL; /*iniclos dclo_1098__NORMEXP_NULL*/ /*_.VALCLO___V1228*/ curfptr[1227] = (void*)&cdat->dclo_1098__NORMEXP_NULL; cdat->dclo_1098__NORMEXP_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1098__NORMEXP_NULL.nbval = 0; /*inirout drout_1099__NORMEXP_SRC_CATCHALL*/ /*_.VALROUT___V1229*/ curfptr[1228] = (void*)&cdat->drout_1099__NORMEXP_SRC_CATCHALL; cdat->drout_1099__NORMEXP_SRC_CATCHALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1099__NORMEXP_SRC_CATCHALL.routdescr, "NORMEXP_SRC_CATCHALL @warmelt-normal.bysl:701", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1099__NORMEXP_SRC_CATCHALL.nbval = 3; *(basilysroutfun_t **) (cdat->drout_1099__NORMEXP_SRC_CATCHALL.routaddr) = rout_6_NORMEXP_SRC_CATCHALL; /*iniclos dclo_1100__NORMEXP_SRC_CATCHALL*/ /*_.VALCLO___V1230*/ curfptr[1229] = (void*)&cdat->dclo_1100__NORMEXP_SRC_CATCHALL; cdat->dclo_1100__NORMEXP_SRC_CATCHALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1100__NORMEXP_SRC_CATCHALL.nbval = 0; /*iniobj dsym_1101__CLASS_SRC*/ if (!/*_.VALDATA___V1231*/ curfptr[1230]) /*_.VALDATA___V1231*/ curfptr[1230] = (void*)&cdat->dsym_1101__CLASS_SRC; basilys_assertmsg("iniobj checkdiscr dsym_1101__CLASS_SRC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1101__CLASS_SRC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1101__CLASS_SRC.obj_hash = 631779221; cdat->dsym_1101__CLASS_SRC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1101__CLASS_SRC)); /*inistring dstr_1102__CLASS_SRC*/ /*_.VALSTR___V1232*/ curfptr[1231] = (void*)&cdat->dstr_1102__CLASS_SRC; cdat->dstr_1102__CLASS_SRC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1102__CLASS_SRC.val, "CLASS_SRC"); /*iniobj dsym_1103__GET_CTYPE*/ if (!/*_.VALDATA___V1233*/ curfptr[1232]) /*_.VALDATA___V1233*/ curfptr[1232] = (void*)&cdat->dsym_1103__GET_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_1103__GET_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1103__GET_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1103__GET_CTYPE.obj_hash = 747649571; cdat->dsym_1103__GET_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1103__GET_CTYPE)); /*inistring dstr_1104__GET_CTYPE*/ /*_.VALSTR___V1234*/ curfptr[1233] = (void*)&cdat->dstr_1104__GET_CTYPE; cdat->dstr_1104__GET_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1104__GET_CTYPE.val, "GET_CTYPE"); BASILYS_LOCATION("warmelt-normal.bysl:717: @iniobj"); /*iniobj dobj_1105__GET_CTYPE*/ if (!/*_.VALDATA___V1235*/ curfptr[1234]) /*_.VALDATA___V1235*/ curfptr[1234] = (void*)&cdat->dobj_1105__GET_CTYPE; basilys_assertmsg("iniobj checkdiscr dobj_1105__GET_CTYPE", NULL != (void*)/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1105__GET_CTYPE.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1105__GET_CTYPE.obj_hash = 42524497; cdat->dobj_1105__GET_CTYPE.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1105__GET_CTYPE)); /*inistring dstr_1106__GET_CTYPE*/ /*_.VALSTR___V1236*/ curfptr[1235] = (void*)&cdat->dstr_1106__GET_CTYPE; cdat->dstr_1106__GET_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1106__GET_CTYPE.val, "GET_CTYPE"); /*iniobj dsym_1107__COMPILE_OBJ*/ if (!/*_.VALDATA___V1237*/ curfptr[1236]) /*_.VALDATA___V1237*/ curfptr[1236] = (void*)&cdat->dsym_1107__COMPILE_OBJ; basilys_assertmsg("iniobj checkdiscr dsym_1107__COMPILE_OBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1107__COMPILE_OBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1107__COMPILE_OBJ.obj_hash = 749017560; cdat->dsym_1107__COMPILE_OBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1107__COMPILE_OBJ)); /*inistring dstr_1108__COMPILE_OBJ*/ /*_.VALSTR___V1238*/ curfptr[1237] = (void*)&cdat->dstr_1108__COMPILE_OBJ; cdat->dstr_1108__COMPILE_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1108__COMPILE_OBJ.val, "COMPILE_OBJ"); BASILYS_LOCATION("warmelt-normal.bysl:727: @iniobj"); /*iniobj dobj_1109__COMPILE_OBJ*/ if (!/*_.VALDATA___V1239*/ curfptr[1238]) /*_.VALDATA___V1239*/ curfptr[1238] = (void*)&cdat->dobj_1109__COMPILE_OBJ; basilys_assertmsg("iniobj checkdiscr dobj_1109__COMPILE_OBJ", NULL != (void*)/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1109__COMPILE_OBJ.obj_class = (basilysobject_ptr_t)(/*_.CLASS_SELECTOR__V19*/ curfptr[18]); cdat->dobj_1109__COMPILE_OBJ.obj_hash = 360640676; cdat->dobj_1109__COMPILE_OBJ.obj_len = 4; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dobj_1109__COMPILE_OBJ)); /*inistring dstr_1110__COMPILE_OBJ*/ /*_.VALSTR___V1240*/ curfptr[1239] = (void*)&cdat->dstr_1110__COMPILE_OBJ; cdat->dstr_1110__COMPILE_OBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1110__COMPILE_OBJ.val, "COMPILE_OBJ"); /*inirout drout_1111__GECTYP_ANYRECV*/ /*_.VALROUT___V1241*/ curfptr[1240] = (void*)&cdat->drout_1111__GECTYP_ANYRECV; cdat->drout_1111__GECTYP_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1111__GECTYP_ANYRECV.routdescr, "GECTYP_ANYRECV @warmelt-normal.bysl:731", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1111__GECTYP_ANYRECV.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1111__GECTYP_ANYRECV.routaddr) = rout_7_GECTYP_ANYRECV; /*iniclos dclo_1112__GECTYP_ANYRECV*/ /*_.VALCLO___V1242*/ curfptr[1241] = (void*)&cdat->dclo_1112__GECTYP_ANYRECV; cdat->dclo_1112__GECTYP_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1112__GECTYP_ANYRECV.nbval = 0; /*inirout drout_1113__GECTYP_ROOT*/ /*_.VALROUT___V1243*/ curfptr[1242] = (void*)&cdat->drout_1113__GECTYP_ROOT; cdat->drout_1113__GECTYP_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1113__GECTYP_ROOT.routdescr, "GECTYP_ROOT @warmelt-normal.bysl:734", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1113__GECTYP_ROOT.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1113__GECTYP_ROOT.routaddr) = rout_8_GECTYP_ROOT; /*iniclos dclo_1114__GECTYP_ROOT*/ /*_.VALCLO___V1244*/ curfptr[1243] = (void*)&cdat->dclo_1114__GECTYP_ROOT; cdat->dclo_1114__GECTYP_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1114__GECTYP_ROOT.nbval = 0; /*inirout drout_1115__GECTYP_INTEGER*/ /*_.VALROUT___V1245*/ curfptr[1244] = (void*)&cdat->drout_1115__GECTYP_INTEGER; cdat->drout_1115__GECTYP_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1115__GECTYP_INTEGER.routdescr, "GECTYP_INTEGER @warmelt-normal.bysl:738", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1115__GECTYP_INTEGER.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1115__GECTYP_INTEGER.routaddr) = rout_9_GECTYP_INTEGER; /*iniclos dclo_1116__GECTYP_INTEGER*/ /*_.VALCLO___V1246*/ curfptr[1245] = (void*)&cdat->dclo_1116__GECTYP_INTEGER; cdat->dclo_1116__GECTYP_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1116__GECTYP_INTEGER.nbval = 0; /*inirout drout_1117__GECTYP_STRING*/ /*_.VALROUT___V1247*/ curfptr[1246] = (void*)&cdat->drout_1117__GECTYP_STRING; cdat->drout_1117__GECTYP_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1117__GECTYP_STRING.routdescr, "GECTYP_STRING @warmelt-normal.bysl:744", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1117__GECTYP_STRING.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1117__GECTYP_STRING.routaddr) = rout_10_GECTYP_STRING; /*iniclos dclo_1118__GECTYP_STRING*/ /*_.VALCLO___V1248*/ curfptr[1247] = (void*)&cdat->dclo_1118__GECTYP_STRING; cdat->dclo_1118__GECTYP_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1118__GECTYP_STRING.nbval = 0; /*inirout drout_1119__NORMALIZE_TUPLE*/ /*_.VALROUT___V1249*/ curfptr[1248] = (void*)&cdat->drout_1119__NORMALIZE_TUPLE; cdat->drout_1119__NORMALIZE_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1119__NORMALIZE_TUPLE.routdescr, "NORMALIZE_TUPLE @warmelt-normal.bysl:749", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1119__NORMALIZE_TUPLE.nbval = 10; *(basilysroutfun_t **) (cdat->drout_1119__NORMALIZE_TUPLE.routaddr) = rout_11_NORMALIZE_TUPLE; /*iniclos dclo_1120__NORMALIZE_TUPLE*/ /*_.VALCLO___V1252*/ curfptr[1251] = (void*)&cdat->dclo_1120__NORMALIZE_TUPLE; cdat->dclo_1120__NORMALIZE_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1120__NORMALIZE_TUPLE.nbval = 0; /*iniobj dsym_1121__MULTIPLE_MAP*/ if (!/*_.VALDATA___V1253*/ curfptr[1252]) /*_.VALDATA___V1253*/ curfptr[1252] = (void*)&cdat->dsym_1121__MULTIPLE_MAP; basilys_assertmsg("iniobj checkdiscr dsym_1121__MULTIPLE_MAP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1121__MULTIPLE_MAP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1121__MULTIPLE_MAP.obj_hash = 218301686; cdat->dsym_1121__MULTIPLE_MAP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1121__MULTIPLE_MAP)); /*inistring dstr_1122__MULTIPLE_MAP*/ /*_.VALSTR___V1254*/ curfptr[1253] = (void*)&cdat->dstr_1122__MULTIPLE_MAP; cdat->dstr_1122__MULTIPLE_MAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1122__MULTIPLE_MAP.val, "MULTIPLE_MAP"); /*inirout drout_1123__LAMBDA_*/ /*_.VALROUT___V1250*/ curfptr[1249] = (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-normal.bysl:757", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1123__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1123__LAMBDA_.routaddr) = rout_12_LAMBDA_; /*iniobj dsym_1124__LIST_EVERY*/ if (!/*_.VALDATA___V1255*/ curfptr[1254]) /*_.VALDATA___V1255*/ curfptr[1254] = (void*)&cdat->dsym_1124__LIST_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_1124__LIST_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1124__LIST_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1124__LIST_EVERY.obj_hash = 942863429; cdat->dsym_1124__LIST_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1124__LIST_EVERY)); /*inistring dstr_1125__LIST_EVERY*/ /*_.VALSTR___V1256*/ curfptr[1255] = (void*)&cdat->dstr_1125__LIST_EVERY; cdat->dstr_1125__LIST_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1125__LIST_EVERY.val, "LIST_EVERY"); /*inirout drout_1126__LAMBDA_*/ /*_.VALROUT___V1251*/ curfptr[1250] = (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-normal.bysl:768", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1126__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1126__LAMBDA_.routaddr) = rout_13_LAMBDA_; /*iniobj dsym_1127__CLASS_ANY_BINDING*/ if (!/*_.VALDATA___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*)&cdat->dsym_1127__CLASS_ANY_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1127__CLASS_ANY_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1127__CLASS_ANY_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1127__CLASS_ANY_BINDING.obj_hash = 935770; cdat->dsym_1127__CLASS_ANY_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1127__CLASS_ANY_BINDING)); /*inistring dstr_1128__CLASS_ANY_BINDIN*/ /*_.VALSTR___V1258*/ curfptr[1257] = (void*)&cdat->dstr_1128__CLASS_ANY_BINDIN; cdat->dstr_1128__CLASS_ANY_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1128__CLASS_ANY_BINDIN.val, "CLASS_ANY_BINDING"); /*inirout drout_1129__WRAP_NORMAL_LETSEQ*/ /*_.VALROUT___V1259*/ curfptr[1258] = (void*)&cdat->drout_1129__WRAP_NORMAL_LETSEQ; cdat->drout_1129__WRAP_NORMAL_LETSEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1129__WRAP_NORMAL_LETSEQ.routdescr, "WRAP_NORMAL_LETSEQ @warmelt-normal.bysl:786", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1129__WRAP_NORMAL_LETSEQ.nbval = 6; *(basilysroutfun_t **) (cdat->drout_1129__WRAP_NORMAL_LETSEQ.routaddr) = rout_14_WRAP_NORMAL_LETSEQ; /*iniclos dclo_1130__WRAP_NORMAL_LETSEQ*/ /*_.VALCLO___V1261*/ curfptr[1260] = (void*)&cdat->dclo_1130__WRAP_NORMAL_LETSEQ; cdat->dclo_1130__WRAP_NORMAL_LETSEQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1130__WRAP_NORMAL_LETSEQ.nbval = 0; /*inirout drout_1131__LAMBDA_*/ /*_.VALROUT___V1260*/ curfptr[1259] = (void*)&cdat->drout_1131__LAMBDA_; cdat->drout_1131__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1131__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:791", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1131__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1131__LAMBDA_.routaddr) = rout_15_LAMBDA_; /*iniobj dsym_1132__CLASS_NORMLET_BINDING*/ if (!/*_.VALDATA___V1262*/ curfptr[1261]) /*_.VALDATA___V1262*/ curfptr[1261] = (void*)&cdat->dsym_1132__CLASS_NORMLET_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1132__CLASS_NORMLET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1132__CLASS_NORMLET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1132__CLASS_NORMLET_BINDING.obj_hash = 17546439; cdat->dsym_1132__CLASS_NORMLET_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1132__CLASS_NORMLET_BINDING)); /*inistring dstr_1133__CLASS_NORMLET_BI*/ /*_.VALSTR___V1263*/ curfptr[1262] = (void*)&cdat->dstr_1133__CLASS_NORMLET_BI; cdat->dstr_1133__CLASS_NORMLET_BI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1133__CLASS_NORMLET_BI.val, "CLASS_NORMLET_BINDING"); /*iniobj dsym_1134__LIST_TO_MULTIPLE*/ if (!/*_.VALDATA___V1264*/ curfptr[1263]) /*_.VALDATA___V1264*/ curfptr[1263] = (void*)&cdat->dsym_1134__LIST_TO_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_1134__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1134__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1134__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_1134__LIST_TO_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1134__LIST_TO_MULTIPLE)); /*inistring dstr_1135__LIST_TO_MULTIPLE*/ /*_.VALSTR___V1265*/ curfptr[1264] = (void*)&cdat->dstr_1135__LIST_TO_MULTIPLE; cdat->dstr_1135__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1135__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE"); /*inirout drout_1136__WRAP_NORMAL_LET1*/ /*_.VALROUT___V1266*/ curfptr[1265] = (void*)&cdat->drout_1136__WRAP_NORMAL_LET1; cdat->drout_1136__WRAP_NORMAL_LET1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1136__WRAP_NORMAL_LET1.routdescr, "WRAP_NORMAL_LET1 @warmelt-normal.bysl:807", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1136__WRAP_NORMAL_LET1.nbval = 7; *(basilysroutfun_t **) (cdat->drout_1136__WRAP_NORMAL_LET1.routaddr) = rout_16_WRAP_NORMAL_LET1; /*iniclos dclo_1137__WRAP_NORMAL_LET1*/ /*_.VALCLO___V1268*/ curfptr[1267] = (void*)&cdat->dclo_1137__WRAP_NORMAL_LET1; cdat->dclo_1137__WRAP_NORMAL_LET1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1137__WRAP_NORMAL_LET1.nbval = 0; /*inirout drout_1138__LAMBDA_*/ /*_.VALROUT___V1267*/ curfptr[1266] = (void*)&cdat->drout_1138__LAMBDA_; cdat->drout_1138__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1138__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:811", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1138__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1138__LAMBDA_.routaddr) = rout_17_LAMBDA_; /*inirout drout_1139__CHECK_CTYPE_NARGS*/ /*_.VALROUT___V1269*/ curfptr[1268] = (void*)&cdat->drout_1139__CHECK_CTYPE_NARGS; cdat->drout_1139__CHECK_CTYPE_NARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1139__CHECK_CTYPE_NARGS.routdescr, "CHECK_CTYPE_NARGS @warmelt-normal.bysl:833", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1139__CHECK_CTYPE_NARGS.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1139__CHECK_CTYPE_NARGS.routaddr) = rout_18_CHECK_CTYPE_NARGS; /*iniclos dclo_1140__CHECK_CTYPE_NARGS*/ /*_.VALCLO___V1271*/ curfptr[1270] = (void*)&cdat->dclo_1140__CHECK_CTYPE_NARGS; cdat->dclo_1140__CHECK_CTYPE_NARGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1140__CHECK_CTYPE_NARGS.nbval = 0; /*iniobj dsym_1141__MULTIPLE_EVERY*/ if (!/*_.VALDATA___V1272*/ curfptr[1271]) /*_.VALDATA___V1272*/ curfptr[1271] = (void*)&cdat->dsym_1141__MULTIPLE_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_1141__MULTIPLE_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1141__MULTIPLE_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1141__MULTIPLE_EVERY.obj_hash = 130098745; cdat->dsym_1141__MULTIPLE_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1141__MULTIPLE_EVERY)); /*inistring dstr_1142__MULTIPLE_EVERY*/ /*_.VALSTR___V1273*/ curfptr[1272] = (void*)&cdat->dstr_1142__MULTIPLE_EVERY; cdat->dstr_1142__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1142__MULTIPLE_EVERY.val, "MULTIPLE_EVERY"); /*inirout drout_1143__LAMBDA_*/ /*_.VALROUT___V1270*/ curfptr[1269] = (void*)&cdat->drout_1143__LAMBDA_; cdat->drout_1143__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1143__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:836", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1143__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1143__LAMBDA_.routaddr) = rout_19_LAMBDA_; /*iniobj dsym_1144__CLASS_CTYPE*/ if (!/*_.VALDATA___V1274*/ curfptr[1273]) /*_.VALDATA___V1274*/ curfptr[1273] = (void*)&cdat->dsym_1144__CLASS_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_1144__CLASS_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1144__CLASS_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1144__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_1144__CLASS_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1144__CLASS_CTYPE)); /*inistring dstr_1145__CLASS_CTYPE*/ /*_.VALSTR___V1275*/ curfptr[1274] = (void*)&cdat->dstr_1145__CLASS_CTYPE; cdat->dstr_1145__CLASS_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1145__CLASS_CTYPE.val, "CLASS_CTYPE"); /*iniobj dsym_1146__CREATE_NORMCONTEXT*/ if (!/*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*)&cdat->dsym_1146__CREATE_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_1146__CREATE_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1146__CREATE_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1146__CREATE_NORMCONTEXT.obj_hash = 127778273; cdat->dsym_1146__CREATE_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1146__CREATE_NORMCONTEXT)); /*inistring dstr_1147__CREATE_NORMCONTE*/ /*_.VALSTR___V1277*/ curfptr[1276] = (void*)&cdat->dstr_1147__CREATE_NORMCONTE; cdat->dstr_1147__CREATE_NORMCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1147__CREATE_NORMCONTE.val, "CREATE_NORMCONTEXT"); /*iniobj dsym_1148__NORMALIZE_TUPLE*/ if (!/*_.VALDATA___V1278*/ curfptr[1277]) /*_.VALDATA___V1278*/ curfptr[1277] = (void*)&cdat->dsym_1148__NORMALIZE_TUPLE; basilys_assertmsg("iniobj checkdiscr dsym_1148__NORMALIZE_TUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1148__NORMALIZE_TUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1148__NORMALIZE_TUPLE.obj_hash = 805824045; cdat->dsym_1148__NORMALIZE_TUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1148__NORMALIZE_TUPLE)); /*inistring dstr_1149__NORMALIZE_TUPLE*/ /*_.VALSTR___V1279*/ curfptr[1278] = (void*)&cdat->dstr_1149__NORMALIZE_TUPLE; cdat->dstr_1149__NORMALIZE_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1149__NORMALIZE_TUPLE.val, "NORMALIZE_TUPLE"); /*iniobj dsym_1150__WRAP_NORMAL_LETSEQ*/ if (!/*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*)&cdat->dsym_1150__WRAP_NORMAL_LETSEQ; basilys_assertmsg("iniobj checkdiscr dsym_1150__WRAP_NORMAL_LETSEQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1150__WRAP_NORMAL_LETSEQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1150__WRAP_NORMAL_LETSEQ.obj_hash = 638564573; cdat->dsym_1150__WRAP_NORMAL_LETSEQ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1150__WRAP_NORMAL_LETSEQ)); /*inistring dstr_1151__WRAP_NORMAL_LETS*/ /*_.VALSTR___V1281*/ curfptr[1280] = (void*)&cdat->dstr_1151__WRAP_NORMAL_LETS; cdat->dstr_1151__WRAP_NORMAL_LETS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1151__WRAP_NORMAL_LETS.val, "WRAP_NORMAL_LETSEQ"); /*iniobj dsym_1152__WRAP_NORMAL_LET1*/ if (!/*_.VALDATA___V1282*/ curfptr[1281]) /*_.VALDATA___V1282*/ curfptr[1281] = (void*)&cdat->dsym_1152__WRAP_NORMAL_LET1; basilys_assertmsg("iniobj checkdiscr dsym_1152__WRAP_NORMAL_LET1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1152__WRAP_NORMAL_LET1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1152__WRAP_NORMAL_LET1.obj_hash = 891908866; cdat->dsym_1152__WRAP_NORMAL_LET1.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1152__WRAP_NORMAL_LET1)); /*inistring dstr_1153__WRAP_NORMAL_LET1*/ /*_.VALSTR___V1283*/ curfptr[1282] = (void*)&cdat->dstr_1153__WRAP_NORMAL_LET1; cdat->dstr_1153__WRAP_NORMAL_LET1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1153__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1"); /*iniobj dsym_1154__CHECK_CTYPE_NARGS*/ if (!/*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*)&cdat->dsym_1154__CHECK_CTYPE_NARGS; basilys_assertmsg("iniobj checkdiscr dsym_1154__CHECK_CTYPE_NARGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1154__CHECK_CTYPE_NARGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1154__CHECK_CTYPE_NARGS.obj_hash = 167792738; cdat->dsym_1154__CHECK_CTYPE_NARGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1154__CHECK_CTYPE_NARGS)); /*inistring dstr_1155__CHECK_CTYPE_NARG*/ /*_.VALSTR___V1285*/ curfptr[1284] = (void*)&cdat->dstr_1155__CHECK_CTYPE_NARG; cdat->dstr_1155__CHECK_CTYPE_NARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1155__CHECK_CTYPE_NARG.val, "CHECK_CTYPE_NARGS"); /*inirout drout_1156__NORMEXP_SYMBOL*/ /*_.VALROUT___V1286*/ curfptr[1285] = (void*)&cdat->drout_1156__NORMEXP_SYMBOL; cdat->drout_1156__NORMEXP_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1156__NORMEXP_SYMBOL.routdescr, "NORMEXP_SYMBOL @warmelt-normal.bysl:864", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1156__NORMEXP_SYMBOL.nbval = 39; *(basilysroutfun_t **) (cdat->drout_1156__NORMEXP_SYMBOL.routaddr) = rout_20_NORMEXP_SYMBOL; /*iniclos dclo_1157__NORMEXP_SYMBOL*/ /*_.VALCLO___V1299*/ curfptr[1298] = (void*)&cdat->dclo_1157__NORMEXP_SYMBOL; cdat->dclo_1157__NORMEXP_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1157__NORMEXP_SYMBOL.nbval = 0; /*iniobj dsym_1158__FIND_ENCLOSING_ENV*/ if (!/*_.VALDATA___V1300*/ curfptr[1299]) /*_.VALDATA___V1300*/ curfptr[1299] = (void*)&cdat->dsym_1158__FIND_ENCLOSING_ENV; basilys_assertmsg("iniobj checkdiscr dsym_1158__FIND_ENCLOSING_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1158__FIND_ENCLOSING_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1158__FIND_ENCLOSING_ENV.obj_hash = 227770701; cdat->dsym_1158__FIND_ENCLOSING_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1158__FIND_ENCLOSING_ENV)); /*inistring dstr_1159__FIND_ENCLOSING_E*/ /*_.VALSTR___V1301*/ curfptr[1300] = (void*)&cdat->dstr_1159__FIND_ENCLOSING_E; cdat->dstr_1159__FIND_ENCLOSING_E.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1159__FIND_ENCLOSING_E.val, "FIND_ENCLOSING_ENV"); /*iniobj dsym_1160__CLASS_VALUE_BINDING*/ if (!/*_.VALDATA___V1302*/ curfptr[1301]) /*_.VALDATA___V1302*/ curfptr[1301] = (void*)&cdat->dsym_1160__CLASS_VALUE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1160__CLASS_VALUE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1160__CLASS_VALUE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1160__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_1160__CLASS_VALUE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1160__CLASS_VALUE_BINDING)); /*inistring dstr_1161__CLASS_VALUE_BIND*/ /*_.VALSTR___V1303*/ curfptr[1302] = (void*)&cdat->dstr_1161__CLASS_VALUE_BIND; cdat->dstr_1161__CLASS_VALUE_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1161__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING"); /*inirout drout_1162__LAMBDA_*/ /*_.VALROUT___V1291*/ curfptr[1290] = (void*)&cdat->drout_1162__LAMBDA_; cdat->drout_1162__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1162__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:915", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1162__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1162__LAMBDA_.routaddr) = rout_21_LAMBDA_; /*inirout drout_1163__LAMBDA_*/ /*_.VALROUT___V1292*/ curfptr[1291] = (void*)&cdat->drout_1163__LAMBDA_; cdat->drout_1163__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1163__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:921", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1163__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1163__LAMBDA_.routaddr) = rout_22_LAMBDA_; /*iniobj dsym_1164__CLASS_LET_BINDING*/ if (!/*_.VALDATA___V1304*/ curfptr[1303]) /*_.VALDATA___V1304*/ curfptr[1303] = (void*)&cdat->dsym_1164__CLASS_LET_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1164__CLASS_LET_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1164__CLASS_LET_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1164__CLASS_LET_BINDING.obj_hash = 373730517; cdat->dsym_1164__CLASS_LET_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1164__CLASS_LET_BINDING)); /*inistring dstr_1165__CLASS_LET_BINDIN*/ /*_.VALSTR___V1305*/ curfptr[1304] = (void*)&cdat->dstr_1165__CLASS_LET_BINDIN; cdat->dstr_1165__CLASS_LET_BINDIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1165__CLASS_LET_BINDIN.val, "CLASS_LET_BINDING"); /*iniobj dsym_1166__CLASS_FIXED_BINDING*/ if (!/*_.VALDATA___V1306*/ curfptr[1305]) /*_.VALDATA___V1306*/ curfptr[1305] = (void*)&cdat->dsym_1166__CLASS_FIXED_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1166__CLASS_FIXED_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1166__CLASS_FIXED_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1166__CLASS_FIXED_BINDING.obj_hash = 179808938; cdat->dsym_1166__CLASS_FIXED_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1166__CLASS_FIXED_BINDING)); /*inistring dstr_1167__CLASS_FIXED_BIND*/ /*_.VALSTR___V1307*/ curfptr[1306] = (void*)&cdat->dstr_1167__CLASS_FIXED_BIND; cdat->dstr_1167__CLASS_FIXED_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1167__CLASS_FIXED_BIND.val, "CLASS_FIXED_BINDING"); /*inirout drout_1168__LAMBDA_*/ /*_.VALROUT___V1293*/ curfptr[1292] = (void*)&cdat->drout_1168__LAMBDA_; cdat->drout_1168__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1168__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:968", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1168__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1168__LAMBDA_.routaddr) = rout_23_LAMBDA_; /*inirout drout_1169__LAMBDA_*/ /*_.VALROUT___V1294*/ curfptr[1293] = (void*)&cdat->drout_1169__LAMBDA_; cdat->drout_1169__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1169__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:974", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1169__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1169__LAMBDA_.routaddr) = rout_24_LAMBDA_; /*inirout drout_1170__LAMBDA_*/ /*_.VALROUT___V1295*/ curfptr[1294] = (void*)&cdat->drout_1170__LAMBDA_; cdat->drout_1170__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1170__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:993", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1170__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1170__LAMBDA_.routaddr) = rout_25_LAMBDA_; /*inirout drout_1171__LAMBDA_*/ /*_.VALROUT___V1296*/ curfptr[1295] = (void*)&cdat->drout_1171__LAMBDA_; cdat->drout_1171__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1171__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:999", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1171__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1171__LAMBDA_.routaddr) = rout_26_LAMBDA_; /*iniobj dsym_1172__CLASS_FUNCTION_BINDING*/ if (!/*_.VALDATA___V1308*/ curfptr[1307]) /*_.VALDATA___V1308*/ curfptr[1307] = (void*)&cdat->dsym_1172__CLASS_FUNCTION_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1172__CLASS_FUNCTION_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1172__CLASS_FUNCTION_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1172__CLASS_FUNCTION_BINDING.obj_hash = 942362333; cdat->dsym_1172__CLASS_FUNCTION_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1172__CLASS_FUNCTION_BINDING)); /*inistring dstr_1173__CLASS_FUNCTION_B*/ /*_.VALSTR___V1309*/ curfptr[1308] = (void*)&cdat->dstr_1173__CLASS_FUNCTION_B; cdat->dstr_1173__CLASS_FUNCTION_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1173__CLASS_FUNCTION_B.val, "CLASS_FUNCTION_BINDING"); /*iniobj dsym_1174__CLASS_PRIMITIVE_BINDING*/ if (!/*_.VALDATA___V1310*/ curfptr[1309]) /*_.VALDATA___V1310*/ curfptr[1309] = (void*)&cdat->dsym_1174__CLASS_PRIMITIVE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1174__CLASS_PRIMITIVE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1174__CLASS_PRIMITIVE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1174__CLASS_PRIMITIVE_BINDING.obj_hash = 648418829; cdat->dsym_1174__CLASS_PRIMITIVE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1174__CLASS_PRIMITIVE_BINDING)); /*inistring dstr_1175__CLASS_PRIMITIVE_*/ /*_.VALSTR___V1311*/ curfptr[1310] = (void*)&cdat->dstr_1175__CLASS_PRIMITIVE_; cdat->dstr_1175__CLASS_PRIMITIVE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1175__CLASS_PRIMITIVE_.val, "CLASS_PRIMITIVE_BINDING"); /*iniobj dsym_1176__CLASS_CLASS_BINDING*/ if (!/*_.VALDATA___V1312*/ curfptr[1311]) /*_.VALDATA___V1312*/ curfptr[1311] = (void*)&cdat->dsym_1176__CLASS_CLASS_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1176__CLASS_CLASS_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1176__CLASS_CLASS_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1176__CLASS_CLASS_BINDING.obj_hash = 848133131; cdat->dsym_1176__CLASS_CLASS_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1176__CLASS_CLASS_BINDING)); /*inistring dstr_1177__CLASS_CLASS_BIND*/ /*_.VALSTR___V1313*/ curfptr[1312] = (void*)&cdat->dstr_1177__CLASS_CLASS_BIND; cdat->dstr_1177__CLASS_CLASS_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1177__CLASS_CLASS_BIND.val, "CLASS_CLASS_BINDING"); /*iniobj dsym_1178__CLASS_FIELD_BINDING*/ if (!/*_.VALDATA___V1314*/ curfptr[1313]) /*_.VALDATA___V1314*/ curfptr[1313] = (void*)&cdat->dsym_1178__CLASS_FIELD_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1178__CLASS_FIELD_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1178__CLASS_FIELD_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1178__CLASS_FIELD_BINDING.obj_hash = 412002748; cdat->dsym_1178__CLASS_FIELD_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1178__CLASS_FIELD_BINDING)); /*inistring dstr_1179__CLASS_FIELD_BIND*/ /*_.VALSTR___V1315*/ curfptr[1314] = (void*)&cdat->dstr_1179__CLASS_FIELD_BIND; cdat->dstr_1179__CLASS_FIELD_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1179__CLASS_FIELD_BIND.val, "CLASS_FIELD_BINDING"); /*iniobj dsym_1180__CLASS_SELECTOR_BINDING*/ if (!/*_.VALDATA___V1316*/ curfptr[1315]) /*_.VALDATA___V1316*/ curfptr[1315] = (void*)&cdat->dsym_1180__CLASS_SELECTOR_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1180__CLASS_SELECTOR_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1180__CLASS_SELECTOR_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1180__CLASS_SELECTOR_BINDING.obj_hash = 80713028; cdat->dsym_1180__CLASS_SELECTOR_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1180__CLASS_SELECTOR_BINDING)); /*inistring dstr_1181__CLASS_SELECTOR_B*/ /*_.VALSTR___V1317*/ curfptr[1316] = (void*)&cdat->dstr_1181__CLASS_SELECTOR_B; cdat->dstr_1181__CLASS_SELECTOR_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1181__CLASS_SELECTOR_B.val, "CLASS_SELECTOR_BINDING"); /*iniobj dsym_1182__CLASS_INSTANCE_BINDING*/ if (!/*_.VALDATA___V1318*/ curfptr[1317]) /*_.VALDATA___V1318*/ curfptr[1317] = (void*)&cdat->dsym_1182__CLASS_INSTANCE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1182__CLASS_INSTANCE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1182__CLASS_INSTANCE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1182__CLASS_INSTANCE_BINDING.obj_hash = 401143458; cdat->dsym_1182__CLASS_INSTANCE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1182__CLASS_INSTANCE_BINDING)); /*inistring dstr_1183__CLASS_INSTANCE_B*/ /*_.VALSTR___V1319*/ curfptr[1318] = (void*)&cdat->dstr_1183__CLASS_INSTANCE_B; cdat->dstr_1183__CLASS_INSTANCE_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1183__CLASS_INSTANCE_B.val, "CLASS_INSTANCE_BINDING"); /*inirout drout_1184__LAMBDA_*/ /*_.VALROUT___V1297*/ curfptr[1296] = (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-normal.bysl:1118", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1184__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1184__LAMBDA_.routaddr) = rout_27_LAMBDA_; /*inirout drout_1185__LAMBDA_*/ /*_.VALROUT___V1298*/ curfptr[1297] = (void*)&cdat->drout_1185__LAMBDA_; cdat->drout_1185__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1185__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1125", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1185__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1185__LAMBDA_.routaddr) = rout_28_LAMBDA_; /*inirout drout_1186__GECTYP_SYMOCC*/ /*_.VALROUT___V1320*/ curfptr[1319] = (void*)&cdat->drout_1186__GECTYP_SYMOCC; cdat->drout_1186__GECTYP_SYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1186__GECTYP_SYMOCC.routdescr, "GECTYP_SYMOCC @warmelt-normal.bysl:1134", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1186__GECTYP_SYMOCC.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1186__GECTYP_SYMOCC.routaddr) = rout_29_GECTYP_SYMOCC; /*iniclos dclo_1187__GECTYP_SYMOCC*/ /*_.VALCLO___V1321*/ curfptr[1320] = (void*)&cdat->dclo_1187__GECTYP_SYMOCC; cdat->dclo_1187__GECTYP_SYMOCC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1187__GECTYP_SYMOCC.nbval = 0; /*inirout drout_1188__NORMEXP_PRIMITIVE*/ /*_.VALROUT___V1322*/ curfptr[1321] = (void*)&cdat->drout_1188__NORMEXP_PRIMITIVE; cdat->drout_1188__NORMEXP_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1188__NORMEXP_PRIMITIVE.routdescr, "NORMEXP_PRIMITIVE @warmelt-normal.bysl:1142", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1188__NORMEXP_PRIMITIVE.nbval = 22; *(basilysroutfun_t **) (cdat->drout_1188__NORMEXP_PRIMITIVE.routaddr) = rout_30_NORMEXP_PRIMITIVE; /*iniclos dclo_1189__NORMEXP_PRIMITIVE*/ /*_.VALCLO___V1325*/ curfptr[1324] = (void*)&cdat->dclo_1189__NORMEXP_PRIMITIVE; cdat->dclo_1189__NORMEXP_PRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1189__NORMEXP_PRIMITIVE.nbval = 0; /*iniobj dsym_1190__CLASS_SRC_PRIMITIVE*/ if (!/*_.VALDATA___V1326*/ curfptr[1325]) /*_.VALDATA___V1326*/ curfptr[1325] = (void*)&cdat->dsym_1190__CLASS_SRC_PRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_1190__CLASS_SRC_PRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1190__CLASS_SRC_PRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1190__CLASS_SRC_PRIMITIVE.obj_hash = 1034909242; cdat->dsym_1190__CLASS_SRC_PRIMITIVE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1190__CLASS_SRC_PRIMITIVE)); /*inistring dstr_1191__CLASS_SRC_PRIMIT*/ /*_.VALSTR___V1327*/ curfptr[1326] = (void*)&cdat->dstr_1191__CLASS_SRC_PRIMIT; cdat->dstr_1191__CLASS_SRC_PRIMIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1191__CLASS_SRC_PRIMIT.val, "CLASS_SRC_PRIMITIVE"); /*inirout drout_1192__LAMBDA_*/ /*_.VALROUT___V1323*/ curfptr[1322] = (void*)&cdat->drout_1192__LAMBDA_; cdat->drout_1192__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1192__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1174", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1192__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1192__LAMBDA_.routaddr) = rout_31_LAMBDA_; /*inirout drout_1193__LAMBDA_*/ /*_.VALROUT___V1324*/ curfptr[1323] = (void*)&cdat->drout_1193__LAMBDA_; cdat->drout_1193__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1193__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1185", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1193__LAMBDA_.nbval = 3; *(basilysroutfun_t **) (cdat->drout_1193__LAMBDA_.routaddr) = rout_32_LAMBDA_; /*iniobj dsym_1194__CLONE_SYMBOL*/ if (!/*_.VALDATA___V1328*/ curfptr[1327]) /*_.VALDATA___V1328*/ curfptr[1327] = (void*)&cdat->dsym_1194__CLONE_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_1194__CLONE_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1194__CLONE_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1194__CLONE_SYMBOL.obj_hash = 213258240; cdat->dsym_1194__CLONE_SYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1194__CLONE_SYMBOL)); /*inistring dstr_1195__CLONE_SYMBOL*/ /*_.VALSTR___V1329*/ curfptr[1328] = (void*)&cdat->dstr_1195__CLONE_SYMBOL; cdat->dstr_1195__CLONE_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1195__CLONE_SYMBOL.val, "CLONE_SYMBOL"); /*inirout drout_1196__LAMBDA_*/ /*_.VALROUT___V1330*/ curfptr[1329] = (void*)&cdat->drout_1196__LAMBDA_; cdat->drout_1196__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1196__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1242", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1196__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1196__LAMBDA_.routaddr) = rout_33_LAMBDA_; /*inirout drout_1197__NORMEXP_APPLY*/ /*_.VALROUT___V1331*/ curfptr[1330] = (void*)&cdat->drout_1197__NORMEXP_APPLY; cdat->drout_1197__NORMEXP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1197__NORMEXP_APPLY.routdescr, "NORMEXP_APPLY @warmelt-normal.bysl:1253", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1197__NORMEXP_APPLY.nbval = 15; *(basilysroutfun_t **) (cdat->drout_1197__NORMEXP_APPLY.routaddr) = rout_34_NORMEXP_APPLY; /*iniclos dclo_1198__NORMEXP_APPLY*/ /*_.VALCLO___V1334*/ curfptr[1333] = (void*)&cdat->dclo_1198__NORMEXP_APPLY; cdat->dclo_1198__NORMEXP_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1198__NORMEXP_APPLY.nbval = 0; /*iniobj dsym_1199__CLASS_SRC_APPLY*/ if (!/*_.VALDATA___V1335*/ curfptr[1334]) /*_.VALDATA___V1335*/ curfptr[1334] = (void*)&cdat->dsym_1199__CLASS_SRC_APPLY; basilys_assertmsg("iniobj checkdiscr dsym_1199__CLASS_SRC_APPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1199__CLASS_SRC_APPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1199__CLASS_SRC_APPLY.obj_hash = 211549998; cdat->dsym_1199__CLASS_SRC_APPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1199__CLASS_SRC_APPLY)); /*inistring dstr_1200__CLASS_SRC_APPLY*/ /*_.VALSTR___V1336*/ curfptr[1335] = (void*)&cdat->dstr_1200__CLASS_SRC_APPLY; cdat->dstr_1200__CLASS_SRC_APPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1200__CLASS_SRC_APPLY.val, "CLASS_SRC_APPLY"); /*iniobj dsym_1201__FUN_*/ if (!/*_.VALDATA___V1332*/ curfptr[1331]) /*_.VALDATA___V1332*/ curfptr[1331] = (void*)&cdat->dsym_1201__FUN_; basilys_assertmsg("iniobj checkdiscr dsym_1201__FUN_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1201__FUN_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1201__FUN_.obj_hash = 12751726; cdat->dsym_1201__FUN_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1201__FUN_)); /*inistring dstr_1202__FUN_*/ /*_.VALSTR___V1333*/ curfptr[1332] = (void*)&cdat->dstr_1202__FUN_; cdat->dstr_1202__FUN_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1202__FUN_.val, "_FUN_"); /*iniobj dsym_1203__LIST_APPEND2LIST*/ if (!/*_.VALDATA___V1337*/ curfptr[1336]) /*_.VALDATA___V1337*/ curfptr[1336] = (void*)&cdat->dsym_1203__LIST_APPEND2LIST; basilys_assertmsg("iniobj checkdiscr dsym_1203__LIST_APPEND2LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1203__LIST_APPEND2LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1203__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_1203__LIST_APPEND2LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1203__LIST_APPEND2LIST)); /*inistring dstr_1204__LIST_APPEND2LIST*/ /*_.VALSTR___V1338*/ curfptr[1337] = (void*)&cdat->dstr_1204__LIST_APPEND2LIST; cdat->dstr_1204__LIST_APPEND2LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1204__LIST_APPEND2LIST.val, "LIST_APPEND2LIST"); /*inirout drout_1205__NORMEXP_MSEND*/ /*_.VALROUT___V1339*/ curfptr[1338] = (void*)&cdat->drout_1205__NORMEXP_MSEND; cdat->drout_1205__NORMEXP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1205__NORMEXP_MSEND.routdescr, "NORMEXP_MSEND @warmelt-normal.bysl:1299", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1205__NORMEXP_MSEND.nbval = 17; *(basilysroutfun_t **) (cdat->drout_1205__NORMEXP_MSEND.routaddr) = rout_35_NORMEXP_MSEND; /*iniclos dclo_1206__NORMEXP_MSEND*/ /*_.VALCLO___V1340*/ curfptr[1339] = (void*)&cdat->dclo_1206__NORMEXP_MSEND; cdat->dclo_1206__NORMEXP_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1206__NORMEXP_MSEND.nbval = 0; /*iniobj dsym_1207__CLASS_SRC_MSEND*/ if (!/*_.VALDATA___V1341*/ curfptr[1340]) /*_.VALDATA___V1341*/ curfptr[1340] = (void*)&cdat->dsym_1207__CLASS_SRC_MSEND; basilys_assertmsg("iniobj checkdiscr dsym_1207__CLASS_SRC_MSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1207__CLASS_SRC_MSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1207__CLASS_SRC_MSEND.obj_hash = 768655685; cdat->dsym_1207__CLASS_SRC_MSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1207__CLASS_SRC_MSEND)); /*inistring dstr_1208__CLASS_SRC_MSEND*/ /*_.VALSTR___V1342*/ curfptr[1341] = (void*)&cdat->dstr_1208__CLASS_SRC_MSEND; cdat->dstr_1208__CLASS_SRC_MSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1208__CLASS_SRC_MSEND.val, "CLASS_SRC_MSEND"); /*inirout drout_1209__NORMEXP_RETURN*/ /*_.VALROUT___V1343*/ curfptr[1342] = (void*)&cdat->drout_1209__NORMEXP_RETURN; cdat->drout_1209__NORMEXP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1209__NORMEXP_RETURN.routdescr, "NORMEXP_RETURN @warmelt-normal.bysl:1361", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1209__NORMEXP_RETURN.nbval = 16; *(basilysroutfun_t **) (cdat->drout_1209__NORMEXP_RETURN.routaddr) = rout_36_NORMEXP_RETURN; /*iniclos dclo_1210__NORMEXP_RETURN*/ /*_.VALCLO___V1347*/ curfptr[1346] = (void*)&cdat->dclo_1210__NORMEXP_RETURN; cdat->dclo_1210__NORMEXP_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1210__NORMEXP_RETURN.nbval = 0; /*iniobj dsym_1211__CLASS_SRC_RETURN*/ if (!/*_.VALDATA___V1348*/ curfptr[1347]) /*_.VALDATA___V1348*/ curfptr[1347] = (void*)&cdat->dsym_1211__CLASS_SRC_RETURN; basilys_assertmsg("iniobj checkdiscr dsym_1211__CLASS_SRC_RETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1211__CLASS_SRC_RETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1211__CLASS_SRC_RETURN.obj_hash = 1046953653; cdat->dsym_1211__CLASS_SRC_RETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1211__CLASS_SRC_RETURN)); /*inistring dstr_1212__CLASS_SRC_RETURN*/ /*_.VALSTR___V1349*/ curfptr[1348] = (void*)&cdat->dstr_1212__CLASS_SRC_RETURN; cdat->dstr_1212__CLASS_SRC_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1212__CLASS_SRC_RETURN.val, "CLASS_SRC_RETURN"); /*iniobj dsym_1213__RETURN_*/ if (!/*_.VALDATA___V1344*/ curfptr[1343]) /*_.VALDATA___V1344*/ curfptr[1343] = (void*)&cdat->dsym_1213__RETURN_; basilys_assertmsg("iniobj checkdiscr dsym_1213__RETURN_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1213__RETURN_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1213__RETURN_.obj_hash = 75463444; cdat->dsym_1213__RETURN_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1213__RETURN_)); /*inistring dstr_1214__RETURN_*/ /*_.VALSTR___V1345*/ curfptr[1344] = (void*)&cdat->dstr_1214__RETURN_; cdat->dstr_1214__RETURN_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1214__RETURN_.val, "RETURN_"); /*inirout drout_1215__LAMBDA_*/ /*_.VALROUT___V1346*/ curfptr[1345] = (void*)&cdat->drout_1215__LAMBDA_; cdat->drout_1215__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1215__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1413", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1215__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1215__LAMBDA_.routaddr) = rout_37_LAMBDA_; /*inirout drout_1216__NORMEXP_IF*/ /*_.VALROUT___V1350*/ curfptr[1349] = (void*)&cdat->drout_1216__NORMEXP_IF; cdat->drout_1216__NORMEXP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1216__NORMEXP_IF.routdescr, "NORMEXP_IF @warmelt-normal.bysl:1432", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1216__NORMEXP_IF.nbval = 18; *(basilysroutfun_t **) (cdat->drout_1216__NORMEXP_IF.routaddr) = rout_38_NORMEXP_IF; /*iniclos dclo_1217__NORMEXP_IF*/ /*_.VALCLO___V1354*/ curfptr[1353] = (void*)&cdat->dclo_1217__NORMEXP_IF; cdat->dclo_1217__NORMEXP_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1217__NORMEXP_IF.nbval = 0; /*iniobj dsym_1218__CLASS_SRC_IF*/ if (!/*_.VALDATA___V1355*/ curfptr[1354]) /*_.VALDATA___V1355*/ curfptr[1354] = (void*)&cdat->dsym_1218__CLASS_SRC_IF; basilys_assertmsg("iniobj checkdiscr dsym_1218__CLASS_SRC_IF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1218__CLASS_SRC_IF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1218__CLASS_SRC_IF.obj_hash = 923867620; cdat->dsym_1218__CLASS_SRC_IF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1218__CLASS_SRC_IF)); /*inistring dstr_1219__CLASS_SRC_IF*/ /*_.VALSTR___V1356*/ curfptr[1355] = (void*)&cdat->dstr_1219__CLASS_SRC_IF; cdat->dstr_1219__CLASS_SRC_IF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1219__CLASS_SRC_IF.val, "CLASS_SRC_IF"); /*iniobj dsym_1220__FRESH_ENV*/ if (!/*_.VALDATA___V1357*/ curfptr[1356]) /*_.VALDATA___V1357*/ curfptr[1356] = (void*)&cdat->dsym_1220__FRESH_ENV; basilys_assertmsg("iniobj checkdiscr dsym_1220__FRESH_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1220__FRESH_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1220__FRESH_ENV.obj_hash = 1002363940; cdat->dsym_1220__FRESH_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1220__FRESH_ENV)); /*inistring dstr_1221__FRESH_ENV*/ /*_.VALSTR___V1358*/ curfptr[1357] = (void*)&cdat->dstr_1221__FRESH_ENV; cdat->dstr_1221__FRESH_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1221__FRESH_ENV.val, "FRESH_ENV"); /*inirout drout_1222__LAMBDA_*/ /*_.VALROUT___V1351*/ curfptr[1350] = (void*)&cdat->drout_1222__LAMBDA_; cdat->drout_1222__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1222__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1459", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1222__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1222__LAMBDA_.routaddr) = rout_39_LAMBDA_; /*iniobj dsym_1223__PUT_ENV*/ if (!/*_.VALDATA___V1359*/ curfptr[1358]) /*_.VALDATA___V1359*/ curfptr[1358] = (void*)&cdat->dsym_1223__PUT_ENV; basilys_assertmsg("iniobj checkdiscr dsym_1223__PUT_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1223__PUT_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1223__PUT_ENV.obj_hash = 440202203; cdat->dsym_1223__PUT_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1223__PUT_ENV)); /*inistring dstr_1224__PUT_ENV*/ /*_.VALSTR___V1360*/ curfptr[1359] = (void*)&cdat->dstr_1224__PUT_ENV; cdat->dstr_1224__PUT_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1224__PUT_ENV.val, "PUT_ENV"); /*iniobj dsym_1225__IF_*/ if (!/*_.VALDATA___V1352*/ curfptr[1351]) /*_.VALDATA___V1352*/ curfptr[1351] = (void*)&cdat->dsym_1225__IF_; basilys_assertmsg("iniobj checkdiscr dsym_1225__IF_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1225__IF_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1225__IF_.obj_hash = 48638398; cdat->dsym_1225__IF_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1225__IF_)); /*inistring dstr_1226__IF_*/ /*_.VALSTR___V1353*/ curfptr[1352] = (void*)&cdat->dstr_1226__IF_; cdat->dstr_1226__IF_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1226__IF_.val, "_IF_"); /*inirout drout_1227__LAMBDA_*/ /*_.VALROUT___V1361*/ curfptr[1360] = (void*)&cdat->drout_1227__LAMBDA_; cdat->drout_1227__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1227__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1493", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1227__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1227__LAMBDA_.routaddr) = rout_40_LAMBDA_; /*inirout drout_1228__NORMEXP_IFELSE*/ /*_.VALROUT___V1362*/ curfptr[1361] = (void*)&cdat->drout_1228__NORMEXP_IFELSE; cdat->drout_1228__NORMEXP_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1228__NORMEXP_IFELSE.routdescr, "NORMEXP_IFELSE @warmelt-normal.bysl:1498", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1228__NORMEXP_IFELSE.nbval = 21; *(basilysroutfun_t **) (cdat->drout_1228__NORMEXP_IFELSE.routaddr) = rout_41_NORMEXP_IFELSE; /*iniclos dclo_1229__NORMEXP_IFELSE*/ /*_.VALCLO___V1367*/ curfptr[1366] = (void*)&cdat->dclo_1229__NORMEXP_IFELSE; cdat->dclo_1229__NORMEXP_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1229__NORMEXP_IFELSE.nbval = 0; /*iniobj dsym_1230__CLASS_SRC_IFELSE*/ if (!/*_.VALDATA___V1368*/ curfptr[1367]) /*_.VALDATA___V1368*/ curfptr[1367] = (void*)&cdat->dsym_1230__CLASS_SRC_IFELSE; basilys_assertmsg("iniobj checkdiscr dsym_1230__CLASS_SRC_IFELSE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1230__CLASS_SRC_IFELSE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1230__CLASS_SRC_IFELSE.obj_hash = 95338173; cdat->dsym_1230__CLASS_SRC_IFELSE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1230__CLASS_SRC_IFELSE)); /*inistring dstr_1231__CLASS_SRC_IFELSE*/ /*_.VALSTR___V1369*/ curfptr[1368] = (void*)&cdat->dstr_1231__CLASS_SRC_IFELSE; cdat->dstr_1231__CLASS_SRC_IFELSE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1231__CLASS_SRC_IFELSE.val, "CLASS_SRC_IFELSE"); /*inirout drout_1232__LAMBDA_*/ /*_.VALROUT___V1363*/ curfptr[1362] = (void*)&cdat->drout_1232__LAMBDA_; cdat->drout_1232__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1232__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1526", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1232__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1232__LAMBDA_.routaddr) = rout_42_LAMBDA_; /*inirout drout_1233__LAMBDA_*/ /*_.VALROUT___V1364*/ curfptr[1363] = (void*)&cdat->drout_1233__LAMBDA_; cdat->drout_1233__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1233__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1539", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1233__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1233__LAMBDA_.routaddr) = rout_43_LAMBDA_; /*iniobj dsym_1234__IFELSE_*/ if (!/*_.VALDATA___V1365*/ curfptr[1364]) /*_.VALDATA___V1365*/ curfptr[1364] = (void*)&cdat->dsym_1234__IFELSE_; basilys_assertmsg("iniobj checkdiscr dsym_1234__IFELSE_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1234__IFELSE_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1234__IFELSE_.obj_hash = 26502628; cdat->dsym_1234__IFELSE_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1234__IFELSE_)); /*inistring dstr_1235__IFELSE_*/ /*_.VALSTR___V1366*/ curfptr[1365] = (void*)&cdat->dstr_1235__IFELSE_; cdat->dstr_1235__IFELSE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1235__IFELSE_.val, "_IFELSE_"); /*inirout drout_1236__NORMEXP_CPPIF*/ /*_.VALROUT___V1370*/ curfptr[1369] = (void*)&cdat->drout_1236__NORMEXP_CPPIF; cdat->drout_1236__NORMEXP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1236__NORMEXP_CPPIF.routdescr, "NORMEXP_CPPIF @warmelt-normal.bysl:1598", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1236__NORMEXP_CPPIF.nbval = 21; *(basilysroutfun_t **) (cdat->drout_1236__NORMEXP_CPPIF.routaddr) = rout_44_NORMEXP_CPPIF; /*iniclos dclo_1237__NORMEXP_CPPIF*/ /*_.VALCLO___V1375*/ curfptr[1374] = (void*)&cdat->dclo_1237__NORMEXP_CPPIF; cdat->dclo_1237__NORMEXP_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1237__NORMEXP_CPPIF.nbval = 0; /*iniobj dsym_1238__CLASS_SRC_CPPIF*/ if (!/*_.VALDATA___V1376*/ curfptr[1375]) /*_.VALDATA___V1376*/ curfptr[1375] = (void*)&cdat->dsym_1238__CLASS_SRC_CPPIF; basilys_assertmsg("iniobj checkdiscr dsym_1238__CLASS_SRC_CPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1238__CLASS_SRC_CPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1238__CLASS_SRC_CPPIF.obj_hash = 837563104; cdat->dsym_1238__CLASS_SRC_CPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1238__CLASS_SRC_CPPIF)); /*inistring dstr_1239__CLASS_SRC_CPPIF*/ /*_.VALSTR___V1377*/ curfptr[1376] = (void*)&cdat->dstr_1239__CLASS_SRC_CPPIF; cdat->dstr_1239__CLASS_SRC_CPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1239__CLASS_SRC_CPPIF.val, "CLASS_SRC_CPPIF"); /*inirout drout_1240__LAMBDA_*/ /*_.VALROUT___V1371*/ curfptr[1370] = (void*)&cdat->drout_1240__LAMBDA_; cdat->drout_1240__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1240__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1618", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1240__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1240__LAMBDA_.routaddr) = rout_45_LAMBDA_; /*inirout drout_1241__LAMBDA_*/ /*_.VALROUT___V1372*/ curfptr[1371] = (void*)&cdat->drout_1241__LAMBDA_; cdat->drout_1241__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1241__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1631", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1241__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1241__LAMBDA_.routaddr) = rout_46_LAMBDA_; /*iniobj dsym_1242__IFCPP_*/ if (!/*_.VALDATA___V1373*/ curfptr[1372]) /*_.VALDATA___V1373*/ curfptr[1372] = (void*)&cdat->dsym_1242__IFCPP_; basilys_assertmsg("iniobj checkdiscr dsym_1242__IFCPP_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1242__IFCPP_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1242__IFCPP_.obj_hash = 109074880; cdat->dsym_1242__IFCPP_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1242__IFCPP_)); /*inistring dstr_1243__IFCPP_*/ /*_.VALSTR___V1374*/ curfptr[1373] = (void*)&cdat->dstr_1243__IFCPP_; cdat->dstr_1243__IFCPP_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1243__IFCPP_.val, "IFCPP_"); /*inirout drout_1244__NORMEXP_OR*/ /*_.VALROUT___V1378*/ curfptr[1377] = (void*)&cdat->drout_1244__NORMEXP_OR; cdat->drout_1244__NORMEXP_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1244__NORMEXP_OR.routdescr, "NORMEXP_OR @warmelt-normal.bysl:1673", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1244__NORMEXP_OR.nbval = 24; *(basilysroutfun_t **) (cdat->drout_1244__NORMEXP_OR.routaddr) = rout_47_NORMEXP_OR; /*iniclos dclo_1245__NORMEXP_OR*/ /*_.VALCLO___V1383*/ curfptr[1382] = (void*)&cdat->dclo_1245__NORMEXP_OR; cdat->dclo_1245__NORMEXP_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1245__NORMEXP_OR.nbval = 0; /*iniobj dsym_1246__CLASS_SRC_OR*/ if (!/*_.VALDATA___V1384*/ curfptr[1383]) /*_.VALDATA___V1384*/ curfptr[1383] = (void*)&cdat->dsym_1246__CLASS_SRC_OR; basilys_assertmsg("iniobj checkdiscr dsym_1246__CLASS_SRC_OR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1246__CLASS_SRC_OR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1246__CLASS_SRC_OR.obj_hash = 770301960; cdat->dsym_1246__CLASS_SRC_OR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1246__CLASS_SRC_OR)); /*inistring dstr_1247__CLASS_SRC_OR*/ /*_.VALSTR___V1385*/ curfptr[1384] = (void*)&cdat->dstr_1247__CLASS_SRC_OR; cdat->dstr_1247__CLASS_SRC_OR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1247__CLASS_SRC_OR.val, "CLASS_SRC_OR"); /*iniobj dsym_1248__MULTIPLE_BACKWARD_EVERY*/ if (!/*_.VALDATA___V1386*/ curfptr[1385]) /*_.VALDATA___V1386*/ curfptr[1385] = (void*)&cdat->dsym_1248__MULTIPLE_BACKWARD_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_1248__MULTIPLE_BACKWARD_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1248__MULTIPLE_BACKWARD_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1248__MULTIPLE_BACKWARD_EVERY.obj_hash = 79677830; cdat->dsym_1248__MULTIPLE_BACKWARD_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1248__MULTIPLE_BACKWARD_EVERY)); /*inistring dstr_1249__MULTIPLE_BACKWAR*/ /*_.VALSTR___V1387*/ curfptr[1386] = (void*)&cdat->dstr_1249__MULTIPLE_BACKWAR; cdat->dstr_1249__MULTIPLE_BACKWAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1249__MULTIPLE_BACKWAR.val, "MULTIPLE_BACKWARD_EVERY"); /*inirout drout_1250__LAMBDA_*/ /*_.VALROUT___V1379*/ curfptr[1378] = (void*)&cdat->drout_1250__LAMBDA_; cdat->drout_1250__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1250__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1691", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1250__LAMBDA_.nbval = 15; *(basilysroutfun_t **) (cdat->drout_1250__LAMBDA_.routaddr) = rout_48_LAMBDA_; /*inirout drout_1251__LAMBDA_*/ /*_.VALROUT___V1380*/ curfptr[1379] = (void*)&cdat->drout_1251__LAMBDA_; cdat->drout_1251__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1251__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1698", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1251__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1251__LAMBDA_.routaddr) = rout_49_LAMBDA_; /*iniobj dsym_1252__OR_*/ if (!/*_.VALDATA___V1381*/ curfptr[1380]) /*_.VALDATA___V1381*/ curfptr[1380] = (void*)&cdat->dsym_1252__OR_; basilys_assertmsg("iniobj checkdiscr dsym_1252__OR_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1252__OR_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1252__OR_.obj_hash = 65214481; cdat->dsym_1252__OR_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1252__OR_)); /*inistring dstr_1253__OR_*/ /*_.VALSTR___V1382*/ curfptr[1381] = (void*)&cdat->dstr_1253__OR_; cdat->dstr_1253__OR_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1253__OR_.val, "OR_"); /*inirout drout_1254__NORMEXP_PROGN*/ /*_.VALROUT___V1388*/ curfptr[1387] = (void*)&cdat->drout_1254__NORMEXP_PROGN; cdat->drout_1254__NORMEXP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1254__NORMEXP_PROGN.routdescr, "NORMEXP_PROGN @warmelt-normal.bysl:1756", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1254__NORMEXP_PROGN.nbval = 15; *(basilysroutfun_t **) (cdat->drout_1254__NORMEXP_PROGN.routaddr) = rout_50_NORMEXP_PROGN; /*iniclos dclo_1255__NORMEXP_PROGN*/ /*_.VALCLO___V1391*/ curfptr[1390] = (void*)&cdat->dclo_1255__NORMEXP_PROGN; cdat->dclo_1255__NORMEXP_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1255__NORMEXP_PROGN.nbval = 0; /*iniobj dsym_1256__CLASS_SRC_PROGN*/ if (!/*_.VALDATA___V1392*/ curfptr[1391]) /*_.VALDATA___V1392*/ curfptr[1391] = (void*)&cdat->dsym_1256__CLASS_SRC_PROGN; basilys_assertmsg("iniobj checkdiscr dsym_1256__CLASS_SRC_PROGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1256__CLASS_SRC_PROGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1256__CLASS_SRC_PROGN.obj_hash = 215682296; cdat->dsym_1256__CLASS_SRC_PROGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1256__CLASS_SRC_PROGN)); /*inistring dstr_1257__CLASS_SRC_PROGN*/ /*_.VALSTR___V1393*/ curfptr[1392] = (void*)&cdat->dstr_1257__CLASS_SRC_PROGN; cdat->dstr_1257__CLASS_SRC_PROGN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1257__CLASS_SRC_PROGN.val, "CLASS_SRC_PROGN"); /*iniobj dsym_1258__PROGN_*/ if (!/*_.VALDATA___V1389*/ curfptr[1388]) /*_.VALDATA___V1389*/ curfptr[1388] = (void*)&cdat->dsym_1258__PROGN_; basilys_assertmsg("iniobj checkdiscr dsym_1258__PROGN_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1258__PROGN_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1258__PROGN_.obj_hash = 108965853; cdat->dsym_1258__PROGN_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1258__PROGN_)); /*inistring dstr_1259__PROGN_*/ /*_.VALSTR___V1390*/ curfptr[1389] = (void*)&cdat->dstr_1259__PROGN_; cdat->dstr_1259__PROGN_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1259__PROGN_.val, "PROGN_"); /*inirout drout_1260__LAMBDA_*/ /*_.VALROUT___V1394*/ curfptr[1393] = (void*)&cdat->drout_1260__LAMBDA_; cdat->drout_1260__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1260__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1812", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1260__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1260__LAMBDA_.routaddr) = rout_51_LAMBDA_; /*inirout drout_1261__NORMEXP_LET*/ /*_.VALROUT___V1395*/ curfptr[1394] = (void*)&cdat->drout_1261__NORMEXP_LET; cdat->drout_1261__NORMEXP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1261__NORMEXP_LET.routdescr, "NORMEXP_LET @warmelt-normal.bysl:1817", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1261__NORMEXP_LET.nbval = 30; *(basilysroutfun_t **) (cdat->drout_1261__NORMEXP_LET.routaddr) = rout_52_NORMEXP_LET; /*iniclos dclo_1262__NORMEXP_LET*/ /*_.VALCLO___V1402*/ curfptr[1401] = (void*)&cdat->dclo_1262__NORMEXP_LET; cdat->dclo_1262__NORMEXP_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1262__NORMEXP_LET.nbval = 0; /*iniobj dsym_1263__CLASS_SRC_LET*/ if (!/*_.VALDATA___V1403*/ curfptr[1402]) /*_.VALDATA___V1403*/ curfptr[1402] = (void*)&cdat->dsym_1263__CLASS_SRC_LET; basilys_assertmsg("iniobj checkdiscr dsym_1263__CLASS_SRC_LET", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1263__CLASS_SRC_LET.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1263__CLASS_SRC_LET.obj_hash = 639003644; cdat->dsym_1263__CLASS_SRC_LET.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1263__CLASS_SRC_LET)); /*inistring dstr_1264__CLASS_SRC_LET*/ /*_.VALSTR___V1404*/ curfptr[1403] = (void*)&cdat->dstr_1264__CLASS_SRC_LET; cdat->dstr_1264__CLASS_SRC_LET.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1264__CLASS_SRC_LET.val, "CLASS_SRC_LET"); /*inirout drout_1265__LAMBDA_*/ /*_.VALROUT___V1396*/ curfptr[1395] = (void*)&cdat->drout_1265__LAMBDA_; cdat->drout_1265__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1265__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1830", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1265__LAMBDA_.nbval = 8; *(basilysroutfun_t **) (cdat->drout_1265__LAMBDA_.routaddr) = rout_53_LAMBDA_; /*iniobj dsym_1266__CLASS_SRC_LETBINDING*/ if (!/*_.VALDATA___V1405*/ curfptr[1404]) /*_.VALDATA___V1405*/ curfptr[1404] = (void*)&cdat->dsym_1266__CLASS_SRC_LETBINDING; basilys_assertmsg("iniobj checkdiscr dsym_1266__CLASS_SRC_LETBINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1266__CLASS_SRC_LETBINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1266__CLASS_SRC_LETBINDING.obj_hash = 644267771; cdat->dsym_1266__CLASS_SRC_LETBINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1266__CLASS_SRC_LETBINDING)); /*inistring dstr_1267__CLASS_SRC_LETBIN*/ /*_.VALSTR___V1406*/ curfptr[1405] = (void*)&cdat->dstr_1267__CLASS_SRC_LETBIN; cdat->dstr_1267__CLASS_SRC_LETBIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1267__CLASS_SRC_LETBIN.val, "CLASS_SRC_LETBINDING"); /*inirout drout_1268__LAMBDA_*/ /*_.VALROUT___V1397*/ curfptr[1396] = (void*)&cdat->drout_1268__LAMBDA_; cdat->drout_1268__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1268__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1852", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1268__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1268__LAMBDA_.routaddr) = rout_54_LAMBDA_; /*inirout drout_1269__LAMBDA_*/ /*_.VALROUT___V1398*/ curfptr[1397] = (void*)&cdat->drout_1269__LAMBDA_; cdat->drout_1269__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1269__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1888", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1269__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1269__LAMBDA_.routaddr) = rout_55_LAMBDA_; /*inirout drout_1270__LAMBDA_*/ /*_.VALROUT___V1399*/ curfptr[1398] = (void*)&cdat->drout_1270__LAMBDA_; cdat->drout_1270__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1270__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1893", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1270__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1270__LAMBDA_.routaddr) = rout_56_LAMBDA_; /*iniobj dsym_1271__LET_*/ if (!/*_.VALDATA___V1400*/ curfptr[1399]) /*_.VALDATA___V1400*/ curfptr[1399] = (void*)&cdat->dsym_1271__LET_; basilys_assertmsg("iniobj checkdiscr dsym_1271__LET_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1271__LET_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1271__LET_.obj_hash = 60022448; cdat->dsym_1271__LET_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1271__LET_)); /*inistring dstr_1272__LET_*/ /*_.VALSTR___V1401*/ curfptr[1400] = (void*)&cdat->dstr_1272__LET_; cdat->dstr_1272__LET_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1272__LET_.val, "LET_"); /*inirout drout_1273__LAMBDA_*/ /*_.VALROUT___V1407*/ curfptr[1406] = (void*)&cdat->drout_1273__LAMBDA_; cdat->drout_1273__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1273__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:1926", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1273__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1273__LAMBDA_.routaddr) = rout_57_LAMBDA_; /*inirout drout_1274__NORMEXP_UNSAFE_GET_FIELD*/ /*_.VALROUT___V1408*/ curfptr[1407] = (void*)&cdat->drout_1274__NORMEXP_UNSAFE_GET_FIELD; cdat->drout_1274__NORMEXP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1274__NORMEXP_UNSAFE_GET_FIELD.routdescr, "NORMEXP_UNSAFE_GET_FIELD @warmelt-normal.bysl:1935", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1274__NORMEXP_UNSAFE_GET_FIELD.nbval = 12; *(basilysroutfun_t **) (cdat->drout_1274__NORMEXP_UNSAFE_GET_FIELD.routaddr) = rout_58_NORMEXP_UNSAFE_GET_FIELD; /*iniclos dclo_1275__NORMEXP_UNSAFE_GET_FIELD*/ /*_.VALCLO___V1409*/ curfptr[1408] = (void*)&cdat->dclo_1275__NORMEXP_UNSAFE_GET_FIELD; cdat->dclo_1275__NORMEXP_UNSAFE_GET_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1275__NORMEXP_UNSAFE_GET_FIELD.nbval = 0; /*iniobj dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD*/ if (!/*_.VALDATA___V1410*/ curfptr[1409]) /*_.VALDATA___V1410*/ curfptr[1409] = (void*)&cdat->dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD.obj_hash = 387347725; cdat->dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1276__CLASS_SRC_UNSAFE_GET_FIELD)); /*inistring dstr_1277__CLASS_SRC_UNSAFE*/ /*_.VALSTR___V1411*/ curfptr[1410] = (void*)&cdat->dstr_1277__CLASS_SRC_UNSAFE; cdat->dstr_1277__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1277__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_GET_FIELD"); /*inirout drout_1278__NORMEXP_UNSAFE_PUT_FIELDS*/ /*_.VALROUT___V1412*/ curfptr[1411] = (void*)&cdat->drout_1278__NORMEXP_UNSAFE_PUT_FIELDS; cdat->drout_1278__NORMEXP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1278__NORMEXP_UNSAFE_PUT_FIELDS.routdescr, "NORMEXP_UNSAFE_PUT_FIELDS @warmelt-normal.bysl:1974", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1278__NORMEXP_UNSAFE_PUT_FIELDS.nbval = 21; *(basilysroutfun_t **) (cdat->drout_1278__NORMEXP_UNSAFE_PUT_FIELDS.routaddr) = rout_59_NORMEXP_UNSAFE_PUT_FIELDS; /*iniclos dclo_1279__NORMEXP_UNSAFE_PUT_FIELDS*/ /*_.VALCLO___V1416*/ curfptr[1415] = (void*)&cdat->dclo_1279__NORMEXP_UNSAFE_PUT_FIELDS; cdat->dclo_1279__NORMEXP_UNSAFE_PUT_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1279__NORMEXP_UNSAFE_PUT_FIELDS.nbval = 0; /*iniobj dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS*/ if (!/*_.VALDATA___V1417*/ curfptr[1416]) /*_.VALDATA___V1417*/ curfptr[1416] = (void*)&cdat->dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_hash = 448952000; cdat->dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1280__CLASS_SRC_UNSAFE_PUT_FIELDS)); /*inistring dstr_1281__CLASS_SRC_UNSAFE*/ /*_.VALSTR___V1418*/ curfptr[1417] = (void*)&cdat->dstr_1281__CLASS_SRC_UNSAFE; cdat->dstr_1281__CLASS_SRC_UNSAFE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1281__CLASS_SRC_UNSAFE.val, "CLASS_SRC_UNSAFE_PUT_FIELDS"); /*iniobj dsym_1282__UNSAFPUT_*/ if (!/*_.VALDATA___V1413*/ curfptr[1412]) /*_.VALDATA___V1413*/ curfptr[1412] = (void*)&cdat->dsym_1282__UNSAFPUT_; basilys_assertmsg("iniobj checkdiscr dsym_1282__UNSAFPUT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1282__UNSAFPUT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1282__UNSAFPUT_.obj_hash = 85909409; cdat->dsym_1282__UNSAFPUT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1282__UNSAFPUT_)); /*inistring dstr_1283__UNSAFPUT_*/ /*_.VALSTR___V1414*/ curfptr[1413] = (void*)&cdat->dstr_1283__UNSAFPUT_; cdat->dstr_1283__UNSAFPUT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1283__UNSAFPUT_.val, "UNSAFPUT_"); /*inirout drout_1284__LAMBDA_*/ /*_.VALROUT___V1415*/ curfptr[1414] = (void*)&cdat->drout_1284__LAMBDA_; cdat->drout_1284__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1284__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2004", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1284__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1284__LAMBDA_.routaddr) = rout_60_LAMBDA_; /*iniobj dsym_1285__CLASS_SRC_FIELDASSIGN*/ if (!/*_.VALDATA___V1419*/ curfptr[1418]) /*_.VALDATA___V1419*/ curfptr[1418] = (void*)&cdat->dsym_1285__CLASS_SRC_FIELDASSIGN; basilys_assertmsg("iniobj checkdiscr dsym_1285__CLASS_SRC_FIELDASSIGN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1285__CLASS_SRC_FIELDASSIGN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1285__CLASS_SRC_FIELDASSIGN.obj_hash = 79184702; cdat->dsym_1285__CLASS_SRC_FIELDASSIGN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1285__CLASS_SRC_FIELDASSIGN)); /*inistring dstr_1286__CLASS_SRC_FIELDA*/ /*_.VALSTR___V1420*/ curfptr[1419] = (void*)&cdat->dstr_1286__CLASS_SRC_FIELDA; cdat->dstr_1286__CLASS_SRC_FIELDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1286__CLASS_SRC_FIELDA.val, "CLASS_SRC_FIELDASSIGN"); /*inirout drout_1287__LAMBDA_*/ /*_.VALROUT___V1421*/ curfptr[1420] = (void*)&cdat->drout_1287__LAMBDA_; cdat->drout_1287__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1287__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2030", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1287__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1287__LAMBDA_.routaddr) = rout_61_LAMBDA_; /*inirout drout_1288__NORMEXP_SETQ*/ /*_.VALROUT___V1422*/ curfptr[1421] = (void*)&cdat->drout_1288__NORMEXP_SETQ; cdat->drout_1288__NORMEXP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1288__NORMEXP_SETQ.routdescr, "NORMEXP_SETQ @warmelt-normal.bysl:2033", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1288__NORMEXP_SETQ.nbval = 15; *(basilysroutfun_t **) (cdat->drout_1288__NORMEXP_SETQ.routaddr) = rout_62_NORMEXP_SETQ; /*iniclos dclo_1289__NORMEXP_SETQ*/ /*_.VALCLO___V1425*/ curfptr[1424] = (void*)&cdat->dclo_1289__NORMEXP_SETQ; cdat->dclo_1289__NORMEXP_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1289__NORMEXP_SETQ.nbval = 0; /*iniobj dsym_1290__CLASS_SRC_SETQ*/ if (!/*_.VALDATA___V1426*/ curfptr[1425]) /*_.VALDATA___V1426*/ curfptr[1425] = (void*)&cdat->dsym_1290__CLASS_SRC_SETQ; basilys_assertmsg("iniobj checkdiscr dsym_1290__CLASS_SRC_SETQ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1290__CLASS_SRC_SETQ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1290__CLASS_SRC_SETQ.obj_hash = 989224332; cdat->dsym_1290__CLASS_SRC_SETQ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1290__CLASS_SRC_SETQ)); /*inistring dstr_1291__CLASS_SRC_SETQ*/ /*_.VALSTR___V1427*/ curfptr[1426] = (void*)&cdat->dstr_1291__CLASS_SRC_SETQ; cdat->dstr_1291__CLASS_SRC_SETQ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1291__CLASS_SRC_SETQ.val, "CLASS_SRC_SETQ"); /*iniobj dsym_1292__SETQ_*/ if (!/*_.VALDATA___V1423*/ curfptr[1422]) /*_.VALDATA___V1423*/ curfptr[1422] = (void*)&cdat->dsym_1292__SETQ_; basilys_assertmsg("iniobj checkdiscr dsym_1292__SETQ_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1292__SETQ_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1292__SETQ_.obj_hash = 22815629; cdat->dsym_1292__SETQ_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1292__SETQ_)); /*inistring dstr_1293__SETQ_*/ /*_.VALSTR___V1424*/ curfptr[1423] = (void*)&cdat->dstr_1293__SETQ_; cdat->dstr_1293__SETQ_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1293__SETQ_.val, "SETQ_"); /*inirout drout_1294__LAMBDA_*/ /*_.VALROUT___V1428*/ curfptr[1427] = (void*)&cdat->drout_1294__LAMBDA_; cdat->drout_1294__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1294__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2085", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1294__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1294__LAMBDA_.routaddr) = rout_63_LAMBDA_; /*inirout drout_1295__NORMEXP_MAKE_INSTANCE*/ /*_.VALROUT___V1429*/ curfptr[1428] = (void*)&cdat->drout_1295__NORMEXP_MAKE_INSTANCE; cdat->drout_1295__NORMEXP_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1295__NORMEXP_MAKE_INSTANCE.routdescr, "NORMEXP_MAKE_INSTANCE @warmelt-normal.bysl:2092", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1295__NORMEXP_MAKE_INSTANCE.nbval = 21; *(basilysroutfun_t **) (cdat->drout_1295__NORMEXP_MAKE_INSTANCE.routaddr) = rout_64_NORMEXP_MAKE_INSTANCE; /*iniclos dclo_1296__NORMEXP_MAKE_INSTANCE*/ /*_.VALCLO___V1433*/ curfptr[1432] = (void*)&cdat->dclo_1296__NORMEXP_MAKE_INSTANCE; cdat->dclo_1296__NORMEXP_MAKE_INSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1296__NORMEXP_MAKE_INSTANCE.nbval = 0; /*iniobj dsym_1297__CLASS_SRC_MAKE_INSTANCE*/ if (!/*_.VALDATA___V1434*/ curfptr[1433]) /*_.VALDATA___V1434*/ curfptr[1433] = (void*)&cdat->dsym_1297__CLASS_SRC_MAKE_INSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_1297__CLASS_SRC_MAKE_INSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1297__CLASS_SRC_MAKE_INSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1297__CLASS_SRC_MAKE_INSTANCE.obj_hash = 148175723; cdat->dsym_1297__CLASS_SRC_MAKE_INSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1297__CLASS_SRC_MAKE_INSTANCE)); /*inistring dstr_1298__CLASS_SRC_MAKE_I*/ /*_.VALSTR___V1435*/ curfptr[1434] = (void*)&cdat->dstr_1298__CLASS_SRC_MAKE_I; cdat->dstr_1298__CLASS_SRC_MAKE_I.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1298__CLASS_SRC_MAKE_I.val, "CLASS_SRC_MAKE_INSTANCE"); /*inirout drout_1299__LAMBDA_*/ /*_.VALROUT___V1430*/ curfptr[1429] = (void*)&cdat->drout_1299__LAMBDA_; cdat->drout_1299__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1299__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2113", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1299__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1299__LAMBDA_.routaddr) = rout_65_LAMBDA_; /*iniobj dsym_1300__INST_*/ if (!/*_.VALDATA___V1431*/ curfptr[1430]) /*_.VALDATA___V1431*/ curfptr[1430] = (void*)&cdat->dsym_1300__INST_; basilys_assertmsg("iniobj checkdiscr dsym_1300__INST_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1300__INST_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1300__INST_.obj_hash = 34561600; cdat->dsym_1300__INST_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1300__INST_)); /*inistring dstr_1301__INST_*/ /*_.VALSTR___V1432*/ curfptr[1431] = (void*)&cdat->dstr_1301__INST_; cdat->dstr_1301__INST_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1301__INST_.val, "INST_"); /*inirout drout_1302__LAMBDA_*/ /*_.VALROUT___V1436*/ curfptr[1435] = (void*)&cdat->drout_1302__LAMBDA_; cdat->drout_1302__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1302__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2156", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1302__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1302__LAMBDA_.routaddr) = rout_66_LAMBDA_; /*inirout drout_1303__NORMEXP_FOREVER*/ /*_.VALROUT___V1437*/ curfptr[1436] = (void*)&cdat->drout_1303__NORMEXP_FOREVER; cdat->drout_1303__NORMEXP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1303__NORMEXP_FOREVER.routdescr, "NORMEXP_FOREVER @warmelt-normal.bysl:2161", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1303__NORMEXP_FOREVER.nbval = 19; *(basilysroutfun_t **) (cdat->drout_1303__NORMEXP_FOREVER.routaddr) = rout_67_NORMEXP_FOREVER; /*iniclos dclo_1304__NORMEXP_FOREVER*/ /*_.VALCLO___V1440*/ curfptr[1439] = (void*)&cdat->dclo_1304__NORMEXP_FOREVER; cdat->dclo_1304__NORMEXP_FOREVER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1304__NORMEXP_FOREVER.nbval = 0; /*iniobj dsym_1305__CLASS_SRC_FOREVER*/ if (!/*_.VALDATA___V1441*/ curfptr[1440]) /*_.VALDATA___V1441*/ curfptr[1440] = (void*)&cdat->dsym_1305__CLASS_SRC_FOREVER; basilys_assertmsg("iniobj checkdiscr dsym_1305__CLASS_SRC_FOREVER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1305__CLASS_SRC_FOREVER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1305__CLASS_SRC_FOREVER.obj_hash = 967265882; cdat->dsym_1305__CLASS_SRC_FOREVER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1305__CLASS_SRC_FOREVER)); /*inistring dstr_1306__CLASS_SRC_FOREVE*/ /*_.VALSTR___V1442*/ curfptr[1441] = (void*)&cdat->dstr_1306__CLASS_SRC_FOREVE; cdat->dstr_1306__CLASS_SRC_FOREVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1306__CLASS_SRC_FOREVE.val, "CLASS_SRC_FOREVER"); /*iniobj dsym_1307__CLASS_LABEL_BINDING*/ if (!/*_.VALDATA___V1443*/ curfptr[1442]) /*_.VALDATA___V1443*/ curfptr[1442] = (void*)&cdat->dsym_1307__CLASS_LABEL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_1307__CLASS_LABEL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1307__CLASS_LABEL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1307__CLASS_LABEL_BINDING.obj_hash = 513737494; cdat->dsym_1307__CLASS_LABEL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1307__CLASS_LABEL_BINDING)); /*inistring dstr_1308__CLASS_LABEL_BIND*/ /*_.VALSTR___V1444*/ curfptr[1443] = (void*)&cdat->dstr_1308__CLASS_LABEL_BIND; cdat->dstr_1308__CLASS_LABEL_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1308__CLASS_LABEL_BIND.val, "CLASS_LABEL_BINDING"); /*iniobj dsym_1309__CLASS_CLONEDSYMBOL*/ if (!/*_.VALDATA___V1445*/ curfptr[1444]) /*_.VALDATA___V1445*/ curfptr[1444] = (void*)&cdat->dsym_1309__CLASS_CLONEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_1309__CLASS_CLONEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1309__CLASS_CLONEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1309__CLASS_CLONEDSYMBOL.obj_hash = 101008864; cdat->dsym_1309__CLASS_CLONEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1309__CLASS_CLONEDSYMBOL)); /*inistring dstr_1310__CLASS_CLONEDSYMB*/ /*_.VALSTR___V1446*/ curfptr[1445] = (void*)&cdat->dstr_1310__CLASS_CLONEDSYMB; cdat->dstr_1310__CLASS_CLONEDSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1310__CLASS_CLONEDSYMB.val, "CLASS_CLONEDSYMBOL"); /*iniobj dsym_1311__LABIND_CLONSY*/ if (!/*_.VALDATA___V1447*/ curfptr[1446]) /*_.VALDATA___V1447*/ curfptr[1446] = (void*)&cdat->dsym_1311__LABIND_CLONSY; basilys_assertmsg("iniobj checkdiscr dsym_1311__LABIND_CLONSY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1311__LABIND_CLONSY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1311__LABIND_CLONSY.obj_hash = 540109865; cdat->dsym_1311__LABIND_CLONSY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1311__LABIND_CLONSY)); /*inistring dstr_1312__LABIND_CLONSY*/ /*_.VALSTR___V1448*/ curfptr[1447] = (void*)&cdat->dstr_1312__LABIND_CLONSY; cdat->dstr_1312__LABIND_CLONSY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1312__LABIND_CLONSY.val, "LABIND_CLONSY"); /*iniobj dsym_1313__FOREVER_*/ if (!/*_.VALDATA___V1438*/ curfptr[1437]) /*_.VALDATA___V1438*/ curfptr[1437] = (void*)&cdat->dsym_1313__FOREVER_; basilys_assertmsg("iniobj checkdiscr dsym_1313__FOREVER_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1313__FOREVER_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1313__FOREVER_.obj_hash = 115412287; cdat->dsym_1313__FOREVER_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1313__FOREVER_)); /*inistring dstr_1314__FOREVER_*/ /*_.VALSTR___V1439*/ curfptr[1438] = (void*)&cdat->dstr_1314__FOREVER_; cdat->dstr_1314__FOREVER_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1314__FOREVER_.val, "FOREVER_"); /*inirout drout_1315__NORMEXP_EXIT*/ /*_.VALROUT___V1449*/ curfptr[1448] = (void*)&cdat->drout_1315__NORMEXP_EXIT; cdat->drout_1315__NORMEXP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1315__NORMEXP_EXIT.routdescr, "NORMEXP_EXIT @warmelt-normal.bysl:2225", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1315__NORMEXP_EXIT.nbval = 15; *(basilysroutfun_t **) (cdat->drout_1315__NORMEXP_EXIT.routaddr) = rout_68_NORMEXP_EXIT; /*iniclos dclo_1316__NORMEXP_EXIT*/ /*_.VALCLO___V1452*/ curfptr[1451] = (void*)&cdat->dclo_1316__NORMEXP_EXIT; cdat->dclo_1316__NORMEXP_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1316__NORMEXP_EXIT.nbval = 0; /*iniobj dsym_1317__CLASS_SRC_EXIT*/ if (!/*_.VALDATA___V1453*/ curfptr[1452]) /*_.VALDATA___V1453*/ curfptr[1452] = (void*)&cdat->dsym_1317__CLASS_SRC_EXIT; basilys_assertmsg("iniobj checkdiscr dsym_1317__CLASS_SRC_EXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1317__CLASS_SRC_EXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1317__CLASS_SRC_EXIT.obj_hash = 924679147; cdat->dsym_1317__CLASS_SRC_EXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1317__CLASS_SRC_EXIT)); /*inistring dstr_1318__CLASS_SRC_EXIT*/ /*_.VALSTR___V1454*/ curfptr[1453] = (void*)&cdat->dstr_1318__CLASS_SRC_EXIT; cdat->dstr_1318__CLASS_SRC_EXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1318__CLASS_SRC_EXIT.val, "CLASS_SRC_EXIT"); /*iniobj dsym_1319__EXIT_*/ if (!/*_.VALDATA___V1450*/ curfptr[1449]) /*_.VALDATA___V1450*/ curfptr[1449] = (void*)&cdat->dsym_1319__EXIT_; basilys_assertmsg("iniobj checkdiscr dsym_1319__EXIT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1319__EXIT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1319__EXIT_.obj_hash = 45060757; cdat->dsym_1319__EXIT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1319__EXIT_)); /*inistring dstr_1320__EXIT_*/ /*_.VALSTR___V1451*/ curfptr[1450] = (void*)&cdat->dstr_1320__EXIT_; cdat->dstr_1320__EXIT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1320__EXIT_.val, "EXIT_"); /*inirout drout_1321__NORMEXP_COMPILEWARNING*/ /*_.VALROUT___V1455*/ curfptr[1454] = (void*)&cdat->drout_1321__NORMEXP_COMPILEWARNING; cdat->drout_1321__NORMEXP_COMPILEWARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1321__NORMEXP_COMPILEWARNING.routdescr, "NORMEXP_COMPILEWARNING @warmelt-normal.bysl:2268", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1321__NORMEXP_COMPILEWARNING.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1321__NORMEXP_COMPILEWARNING.routaddr) = rout_69_NORMEXP_COMPILEWARNING; /*iniclos dclo_1322__NORMEXP_COMPILEWARNING*/ /*_.VALCLO___V1456*/ curfptr[1455] = (void*)&cdat->dclo_1322__NORMEXP_COMPILEWARNING; cdat->dclo_1322__NORMEXP_COMPILEWARNING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1322__NORMEXP_COMPILEWARNING.nbval = 0; /*iniobj dsym_1323__CLASS_SRC_COMPILEWARNING*/ if (!/*_.VALDATA___V1457*/ curfptr[1456]) /*_.VALDATA___V1457*/ curfptr[1456] = (void*)&cdat->dsym_1323__CLASS_SRC_COMPILEWARNING; basilys_assertmsg("iniobj checkdiscr dsym_1323__CLASS_SRC_COMPILEWARNING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1323__CLASS_SRC_COMPILEWARNING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1323__CLASS_SRC_COMPILEWARNING.obj_hash = 631779221; cdat->dsym_1323__CLASS_SRC_COMPILEWARNING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1323__CLASS_SRC_COMPILEWARNING)); /*inistring dstr_1324__CLASS_SRC_COMPIL*/ /*_.VALSTR___V1458*/ curfptr[1457] = (void*)&cdat->dstr_1324__CLASS_SRC_COMPIL; cdat->dstr_1324__CLASS_SRC_COMPIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1324__CLASS_SRC_COMPIL.val, "CLASS_SRC_COMPILEWARNING"); /*inirout drout_1325__LAMBDA_*/ /*_.VALROUT___V1459*/ curfptr[1458] = (void*)&cdat->drout_1325__LAMBDA_; cdat->drout_1325__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1325__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2288", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1325__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1325__LAMBDA_.routaddr) = rout_70_LAMBDA_; /*inirout drout_1326__REPLACE_LAST_BY_RETURN*/ /*_.VALROUT___V1460*/ curfptr[1459] = (void*)&cdat->drout_1326__REPLACE_LAST_BY_RETURN; cdat->drout_1326__REPLACE_LAST_BY_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1326__REPLACE_LAST_BY_RETURN.routdescr, "REPLACE_LAST_BY_RETURN @warmelt-normal.bysl:2292", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1326__REPLACE_LAST_BY_RETURN.nbval = 18; *(basilysroutfun_t **) (cdat->drout_1326__REPLACE_LAST_BY_RETURN.routaddr) = rout_71_REPLACE_LAST_BY_RETURN; /*iniclos dclo_1327__REPLACE_LAST_BY_RETURN*/ /*_.VALCLO___V1462*/ curfptr[1461] = (void*)&cdat->dclo_1327__REPLACE_LAST_BY_RETURN; cdat->dclo_1327__REPLACE_LAST_BY_RETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1327__REPLACE_LAST_BY_RETURN.nbval = 0; /*inirout drout_1328__LAMBDA_*/ /*_.VALROUT___V1461*/ curfptr[1460] = (void*)&cdat->drout_1328__LAMBDA_; cdat->drout_1328__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1328__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2334", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1328__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1328__LAMBDA_.routaddr) = rout_72_LAMBDA_; /*iniobj dsym_1329__RETVAL_*/ if (!/*_.VALDATA___V1463*/ curfptr[1462]) /*_.VALDATA___V1463*/ curfptr[1462] = (void*)&cdat->dsym_1329__RETVAL_; basilys_assertmsg("iniobj checkdiscr dsym_1329__RETVAL_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1329__RETVAL_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1329__RETVAL_.obj_hash = 101078457; cdat->dsym_1329__RETVAL_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1329__RETVAL_)); /*inistring dstr_1330__RETVAL_*/ /*_.VALSTR___V1464*/ curfptr[1463] = (void*)&cdat->dstr_1330__RETVAL_; cdat->dstr_1330__RETVAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1330__RETVAL_.val, "_RETVAL_"); /*inirout drout_1331__NORMEXP_DEFUN*/ /*_.VALROUT___V1465*/ curfptr[1464] = (void*)&cdat->drout_1331__NORMEXP_DEFUN; cdat->drout_1331__NORMEXP_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1331__NORMEXP_DEFUN.routdescr, "NORMEXP_DEFUN @warmelt-normal.bysl:2383", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1331__NORMEXP_DEFUN.nbval = 30; *(basilysroutfun_t **) (cdat->drout_1331__NORMEXP_DEFUN.routaddr) = rout_73_NORMEXP_DEFUN; /*iniclos dclo_1332__NORMEXP_DEFUN*/ /*_.VALCLO___V1469*/ curfptr[1468] = (void*)&cdat->dclo_1332__NORMEXP_DEFUN; cdat->dclo_1332__NORMEXP_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1332__NORMEXP_DEFUN.nbval = 0; /*iniobj dsym_1333__CLASS_SRC_DEFUN*/ if (!/*_.VALDATA___V1470*/ curfptr[1469]) /*_.VALDATA___V1470*/ curfptr[1469] = (void*)&cdat->dsym_1333__CLASS_SRC_DEFUN; basilys_assertmsg("iniobj checkdiscr dsym_1333__CLASS_SRC_DEFUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1333__CLASS_SRC_DEFUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1333__CLASS_SRC_DEFUN.obj_hash = 685677356; cdat->dsym_1333__CLASS_SRC_DEFUN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1333__CLASS_SRC_DEFUN)); /*inistring dstr_1334__CLASS_SRC_DEFUN*/ /*_.VALSTR___V1471*/ curfptr[1470] = (void*)&cdat->dstr_1334__CLASS_SRC_DEFUN; cdat->dstr_1334__CLASS_SRC_DEFUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1334__CLASS_SRC_DEFUN.val, "CLASS_SRC_DEFUN"); /*iniobj dsym_1335__FIND_ENV*/ if (!/*_.VALDATA___V1472*/ curfptr[1471]) /*_.VALDATA___V1472*/ curfptr[1471] = (void*)&cdat->dsym_1335__FIND_ENV; basilys_assertmsg("iniobj checkdiscr dsym_1335__FIND_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1335__FIND_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1335__FIND_ENV.obj_hash = 233459738; cdat->dsym_1335__FIND_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1335__FIND_ENV)); /*inistring dstr_1336__FIND_ENV*/ /*_.VALSTR___V1473*/ curfptr[1472] = (void*)&cdat->dstr_1336__FIND_ENV; cdat->dstr_1336__FIND_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1336__FIND_ENV.val, "FIND_ENV"); /*inirout drout_1337__LAMBDA_*/ /*_.VALROUT___V1466*/ curfptr[1465] = (void*)&cdat->drout_1337__LAMBDA_; cdat->drout_1337__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1337__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2430", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1337__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1337__LAMBDA_.routaddr) = rout_74_LAMBDA_; /*inirout drout_1338__LAMBDA_*/ /*_.VALROUT___V1467*/ curfptr[1466] = (void*)&cdat->drout_1338__LAMBDA_; cdat->drout_1338__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1338__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2442", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1338__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1338__LAMBDA_.routaddr) = rout_75_LAMBDA_; /*inirout drout_1339__LAMBDA_*/ /*_.VALROUT___V1468*/ curfptr[1467] = (void*)&cdat->drout_1339__LAMBDA_; cdat->drout_1339__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1339__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2455", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1339__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1339__LAMBDA_.routaddr) = rout_76_LAMBDA_; /*inirout drout_1340__NORMEXP_LAMBDA*/ /*_.VALROUT___V1474*/ curfptr[1473] = (void*)&cdat->drout_1340__NORMEXP_LAMBDA; cdat->drout_1340__NORMEXP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1340__NORMEXP_LAMBDA.routdescr, "NORMEXP_LAMBDA @warmelt-normal.bysl:2477", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1340__NORMEXP_LAMBDA.nbval = 33; *(basilysroutfun_t **) (cdat->drout_1340__NORMEXP_LAMBDA.routaddr) = rout_77_NORMEXP_LAMBDA; /*iniclos dclo_1341__NORMEXP_LAMBDA*/ /*_.VALCLO___V1480*/ curfptr[1479] = (void*)&cdat->dclo_1341__NORMEXP_LAMBDA; cdat->dclo_1341__NORMEXP_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1341__NORMEXP_LAMBDA.nbval = 0; /*iniobj dsym_1342__CLASS_SRC_LAMBDA*/ if (!/*_.VALDATA___V1481*/ curfptr[1480]) /*_.VALDATA___V1481*/ curfptr[1480] = (void*)&cdat->dsym_1342__CLASS_SRC_LAMBDA; basilys_assertmsg("iniobj checkdiscr dsym_1342__CLASS_SRC_LAMBDA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1342__CLASS_SRC_LAMBDA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1342__CLASS_SRC_LAMBDA.obj_hash = 701094695; cdat->dsym_1342__CLASS_SRC_LAMBDA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1342__CLASS_SRC_LAMBDA)); /*inistring dstr_1343__CLASS_SRC_LAMBDA*/ /*_.VALSTR___V1482*/ curfptr[1481] = (void*)&cdat->dstr_1343__CLASS_SRC_LAMBDA; cdat->dstr_1343__CLASS_SRC_LAMBDA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1343__CLASS_SRC_LAMBDA.val, "CLASS_SRC_LAMBDA"); /*iniobj dsym_1344__LAMBDA_*/ if (!/*_.VALDATA___V1475*/ curfptr[1474]) /*_.VALDATA___V1475*/ curfptr[1474] = (void*)&cdat->dsym_1344__LAMBDA_; basilys_assertmsg("iniobj checkdiscr dsym_1344__LAMBDA_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1344__LAMBDA_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1344__LAMBDA_.obj_hash = 19331678; cdat->dsym_1344__LAMBDA_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1344__LAMBDA_)); /*inistring dstr_1345__LAMBDA_*/ /*_.VALSTR___V1476*/ curfptr[1475] = (void*)&cdat->dstr_1345__LAMBDA_; cdat->dstr_1345__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1345__LAMBDA_.val, "LAMBDA_"); /*inirout drout_1346__LAMBDA_*/ /*_.VALROUT___V1477*/ curfptr[1476] = (void*)&cdat->drout_1346__LAMBDA_; cdat->drout_1346__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1346__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2519", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1346__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1346__LAMBDA_.routaddr) = rout_78_LAMBDA_; /*inirout drout_1347__LAMBDA_*/ /*_.VALROUT___V1478*/ curfptr[1477] = (void*)&cdat->drout_1347__LAMBDA_; cdat->drout_1347__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1347__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2530", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1347__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1347__LAMBDA_.routaddr) = rout_79_LAMBDA_; /*inirout drout_1348__LAMBDA_*/ /*_.VALROUT___V1479*/ curfptr[1478] = (void*)&cdat->drout_1348__LAMBDA_; cdat->drout_1348__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1348__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2553", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1348__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1348__LAMBDA_.routaddr) = rout_80_LAMBDA_; /*inirout drout_1349__NORMEXP_MULTICALL*/ /*_.VALROUT___V1483*/ curfptr[1482] = (void*)&cdat->drout_1349__NORMEXP_MULTICALL; cdat->drout_1349__NORMEXP_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1349__NORMEXP_MULTICALL.routdescr, "NORMEXP_MULTICALL @warmelt-normal.bysl:2585", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1349__NORMEXP_MULTICALL.nbval = 29; *(basilysroutfun_t **) (cdat->drout_1349__NORMEXP_MULTICALL.routaddr) = rout_81_NORMEXP_MULTICALL; /*iniclos dclo_1350__NORMEXP_MULTICALL*/ /*_.VALCLO___V1489*/ curfptr[1488] = (void*)&cdat->dclo_1350__NORMEXP_MULTICALL; cdat->dclo_1350__NORMEXP_MULTICALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1350__NORMEXP_MULTICALL.nbval = 0; /*iniobj dsym_1351__CLASS_SRC_MULTICALL*/ if (!/*_.VALDATA___V1490*/ curfptr[1489]) /*_.VALDATA___V1490*/ curfptr[1489] = (void*)&cdat->dsym_1351__CLASS_SRC_MULTICALL; basilys_assertmsg("iniobj checkdiscr dsym_1351__CLASS_SRC_MULTICALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1351__CLASS_SRC_MULTICALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1351__CLASS_SRC_MULTICALL.obj_hash = 462163749; cdat->dsym_1351__CLASS_SRC_MULTICALL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1351__CLASS_SRC_MULTICALL)); /*inistring dstr_1352__CLASS_SRC_MULTIC*/ /*_.VALSTR___V1491*/ curfptr[1490] = (void*)&cdat->dstr_1352__CLASS_SRC_MULTIC; cdat->dstr_1352__CLASS_SRC_MULTIC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1352__CLASS_SRC_MULTIC.val, "CLASS_SRC_MULTICALL"); /*iniobj dsym_1353__LIST_ITERATE_TEST*/ if (!/*_.VALDATA___V1492*/ curfptr[1491]) /*_.VALDATA___V1492*/ curfptr[1491] = (void*)&cdat->dsym_1353__LIST_ITERATE_TEST; basilys_assertmsg("iniobj checkdiscr dsym_1353__LIST_ITERATE_TEST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1353__LIST_ITERATE_TEST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1353__LIST_ITERATE_TEST.obj_hash = 561820482; cdat->dsym_1353__LIST_ITERATE_TEST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1353__LIST_ITERATE_TEST)); /*inistring dstr_1354__LIST_ITERATE_TES*/ /*_.VALSTR___V1493*/ curfptr[1492] = (void*)&cdat->dstr_1354__LIST_ITERATE_TES; cdat->dstr_1354__LIST_ITERATE_TES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1354__LIST_ITERATE_TES.val, "LIST_ITERATE_TEST"); /*inirout drout_1355__LAMBDA_*/ /*_.VALROUT___V1484*/ curfptr[1483] = (void*)&cdat->drout_1355__LAMBDA_; cdat->drout_1355__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1355__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2612", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1355__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1355__LAMBDA_.routaddr) = rout_82_LAMBDA_; /*inirout drout_1356__LAMBDA_*/ /*_.VALROUT___V1485*/ curfptr[1484] = (void*)&cdat->drout_1356__LAMBDA_; cdat->drout_1356__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1356__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2623", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1356__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1356__LAMBDA_.routaddr) = rout_83_LAMBDA_; /*inirout drout_1357__LAMBDA_*/ /*_.VALROUT___V1486*/ curfptr[1485] = (void*)&cdat->drout_1357__LAMBDA_; cdat->drout_1357__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1357__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2634", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1357__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1357__LAMBDA_.routaddr) = rout_84_LAMBDA_; /*iniobj dsym_1358__MULTI_*/ if (!/*_.VALDATA___V1487*/ curfptr[1486]) /*_.VALDATA___V1487*/ curfptr[1486] = (void*)&cdat->dsym_1358__MULTI_; basilys_assertmsg("iniobj checkdiscr dsym_1358__MULTI_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1358__MULTI_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1358__MULTI_.obj_hash = 39588045; cdat->dsym_1358__MULTI_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1358__MULTI_)); /*inistring dstr_1359__MULTI_*/ /*_.VALSTR___V1488*/ curfptr[1487] = (void*)&cdat->dstr_1359__MULTI_; cdat->dstr_1359__MULTI_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1359__MULTI_.val, "MULTI_"); /*inirout drout_1360__NORMAL_PREDEF*/ /*_.VALROUT___V1290*/ curfptr[1289] = (void*)&cdat->drout_1360__NORMAL_PREDEF; cdat->drout_1360__NORMAL_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1360__NORMAL_PREDEF.routdescr, "NORMAL_PREDEF @warmelt-normal.bysl:2699", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1360__NORMAL_PREDEF.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1360__NORMAL_PREDEF.routaddr) = rout_85_NORMAL_PREDEF; /*iniclos dclo_1361__NORMAL_PREDEF*/ /*_.VALCLO___V1289*/ curfptr[1288] = (void*)&cdat->dclo_1361__NORMAL_PREDEF; cdat->dclo_1361__NORMAL_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1361__NORMAL_PREDEF.nbval = 0; /*inirout drout_1362__NORMAL_SYMBOL_DATA*/ /*_.VALROUT___V1288*/ curfptr[1287] = (void*)&cdat->drout_1362__NORMAL_SYMBOL_DATA; cdat->drout_1362__NORMAL_SYMBOL_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1362__NORMAL_SYMBOL_DATA.routdescr, "NORMAL_SYMBOL_DATA @warmelt-normal.bysl:2718", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1362__NORMAL_SYMBOL_DATA.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1362__NORMAL_SYMBOL_DATA.routaddr) = rout_86_NORMAL_SYMBOL_DATA; /*iniclos dclo_1363__NORMAL_SYMBOL_DATA*/ /*_.VALCLO___V1287*/ curfptr[1286] = (void*)&cdat->dclo_1363__NORMAL_SYMBOL_DATA; cdat->dclo_1363__NORMAL_SYMBOL_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1363__NORMAL_SYMBOL_DATA.nbval = 0; /*iniobj dsym_1364__NAMED_NAME*/ if (!/*_.VALDATA___V1494*/ curfptr[1493]) /*_.VALDATA___V1494*/ curfptr[1493] = (void*)&cdat->dsym_1364__NAMED_NAME; basilys_assertmsg("iniobj checkdiscr dsym_1364__NAMED_NAME", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1364__NAMED_NAME.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1364__NAMED_NAME.obj_hash = 1004123395; cdat->dsym_1364__NAMED_NAME.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1364__NAMED_NAME)); /*inistring dstr_1365__NAMED_NAME*/ /*_.VALSTR___V1495*/ curfptr[1494] = (void*)&cdat->dstr_1365__NAMED_NAME; cdat->dstr_1365__NAMED_NAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1365__NAMED_NAME.val, "NAMED_NAME"); /*inirout drout_1366__NORMAL_KEYWORD_DATA*/ /*_.VALROUT___V1496*/ curfptr[1495] = (void*)&cdat->drout_1366__NORMAL_KEYWORD_DATA; cdat->drout_1366__NORMAL_KEYWORD_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1366__NORMAL_KEYWORD_DATA.routdescr, "NORMAL_KEYWORD_DATA @warmelt-normal.bysl:2758", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1366__NORMAL_KEYWORD_DATA.nbval = 10; *(basilysroutfun_t **) (cdat->drout_1366__NORMAL_KEYWORD_DATA.routaddr) = rout_87_NORMAL_KEYWORD_DATA; /*iniclos dclo_1367__NORMAL_KEYWORD_DATA*/ /*_.VALCLO___V1497*/ curfptr[1496] = (void*)&cdat->dclo_1367__NORMAL_KEYWORD_DATA; cdat->dclo_1367__NORMAL_KEYWORD_DATA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1367__NORMAL_KEYWORD_DATA.nbval = 0; /*inirout drout_1368__CREATE_DATA_SLOTS*/ /*_.VALROUT___V1498*/ curfptr[1497] = (void*)&cdat->drout_1368__CREATE_DATA_SLOTS; cdat->drout_1368__CREATE_DATA_SLOTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1368__CREATE_DATA_SLOTS.routdescr, "CREATE_DATA_SLOTS @warmelt-normal.bysl:2792", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1368__CREATE_DATA_SLOTS.nbval = 3; *(basilysroutfun_t **) (cdat->drout_1368__CREATE_DATA_SLOTS.routaddr) = rout_88_CREATE_DATA_SLOTS; /*iniclos dclo_1369__CREATE_DATA_SLOTS*/ /*_.VALCLO___V1499*/ curfptr[1498] = (void*)&cdat->dclo_1369__CREATE_DATA_SLOTS; cdat->dclo_1369__CREATE_DATA_SLOTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1369__CREATE_DATA_SLOTS.nbval = 0; /*inirout drout_1370__FILL_DATA_SLOT*/ /*_.VALROUT___V1500*/ curfptr[1499] = (void*)&cdat->drout_1370__FILL_DATA_SLOT; cdat->drout_1370__FILL_DATA_SLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1370__FILL_DATA_SLOT.routdescr, "FILL_DATA_SLOT @warmelt-normal.bysl:2803", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1370__FILL_DATA_SLOT.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1370__FILL_DATA_SLOT.routaddr) = rout_89_FILL_DATA_SLOT; /*iniclos dclo_1371__FILL_DATA_SLOT*/ /*_.VALCLO___V1501*/ curfptr[1500] = (void*)&cdat->dclo_1371__FILL_DATA_SLOT; cdat->dclo_1371__FILL_DATA_SLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1371__FILL_DATA_SLOT.nbval = 0; /*inirout drout_1372__NORMEXP_QUOTE*/ /*_.VALROUT___V1502*/ curfptr[1501] = (void*)&cdat->drout_1372__NORMEXP_QUOTE; cdat->drout_1372__NORMEXP_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1372__NORMEXP_QUOTE.routdescr, "NORMEXP_QUOTE @warmelt-normal.bysl:2813", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1372__NORMEXP_QUOTE.nbval = 8; *(basilysroutfun_t **) (cdat->drout_1372__NORMEXP_QUOTE.routaddr) = rout_90_NORMEXP_QUOTE; /*iniclos dclo_1373__NORMEXP_QUOTE*/ /*_.VALCLO___V1503*/ curfptr[1502] = (void*)&cdat->dclo_1373__NORMEXP_QUOTE; cdat->dclo_1373__NORMEXP_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1373__NORMEXP_QUOTE.nbval = 0; /*iniobj dsym_1374__CLASS_SRC_QUOTE*/ if (!/*_.VALDATA___V1504*/ curfptr[1503]) /*_.VALDATA___V1504*/ curfptr[1503] = (void*)&cdat->dsym_1374__CLASS_SRC_QUOTE; basilys_assertmsg("iniobj checkdiscr dsym_1374__CLASS_SRC_QUOTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1374__CLASS_SRC_QUOTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1374__CLASS_SRC_QUOTE.obj_hash = 126302170; cdat->dsym_1374__CLASS_SRC_QUOTE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1374__CLASS_SRC_QUOTE)); /*inistring dstr_1375__CLASS_SRC_QUOTE*/ /*_.VALSTR___V1505*/ curfptr[1504] = (void*)&cdat->dstr_1375__CLASS_SRC_QUOTE; cdat->dstr_1375__CLASS_SRC_QUOTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1375__CLASS_SRC_QUOTE.val, "CLASS_SRC_QUOTE"); /*inirout drout_1376__NORMEXP_COMMENT*/ /*_.VALROUT___V1506*/ curfptr[1505] = (void*)&cdat->drout_1376__NORMEXP_COMMENT; cdat->drout_1376__NORMEXP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1376__NORMEXP_COMMENT.routdescr, "NORMEXP_COMMENT @warmelt-normal.bysl:2843", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1376__NORMEXP_COMMENT.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1376__NORMEXP_COMMENT.routaddr) = rout_91_NORMEXP_COMMENT; /*iniclos dclo_1377__NORMEXP_COMMENT*/ /*_.VALCLO___V1509*/ curfptr[1508] = (void*)&cdat->dclo_1377__NORMEXP_COMMENT; cdat->dclo_1377__NORMEXP_COMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1377__NORMEXP_COMMENT.nbval = 0; /*iniobj dsym_1378__CLASS_SRC_COMMENT*/ if (!/*_.VALDATA___V1510*/ curfptr[1509]) /*_.VALDATA___V1510*/ curfptr[1509] = (void*)&cdat->dsym_1378__CLASS_SRC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_1378__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1378__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1378__CLASS_SRC_COMMENT.obj_hash = 30350897; cdat->dsym_1378__CLASS_SRC_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1378__CLASS_SRC_COMMENT)); /*inistring dstr_1379__CLASS_SRC_COMMEN*/ /*_.VALSTR___V1511*/ curfptr[1510] = (void*)&cdat->dstr_1379__CLASS_SRC_COMMEN; cdat->dstr_1379__CLASS_SRC_COMMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1379__CLASS_SRC_COMMEN.val, "CLASS_SRC_COMMENT"); /*iniobj dsym_1380__COMMENT_*/ if (!/*_.VALDATA___V1507*/ curfptr[1506]) /*_.VALDATA___V1507*/ curfptr[1506] = (void*)&cdat->dsym_1380__COMMENT_; basilys_assertmsg("iniobj checkdiscr dsym_1380__COMMENT_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1380__COMMENT_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1380__COMMENT_.obj_hash = 832657562; cdat->dsym_1380__COMMENT_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1380__COMMENT_)); /*inistring dstr_1381__COMMENT_*/ /*_.VALSTR___V1508*/ curfptr[1507] = (void*)&cdat->dstr_1381__COMMENT_; cdat->dstr_1381__COMMENT_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1381__COMMENT_.val, "COMMENT_"); /*inirout drout_1382__NORMEXP_KEYWORD*/ /*_.VALROUT___V1512*/ curfptr[1511] = (void*)&cdat->drout_1382__NORMEXP_KEYWORD; cdat->drout_1382__NORMEXP_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1382__NORMEXP_KEYWORD.routdescr, "NORMEXP_KEYWORD @warmelt-normal.bysl:2877", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1382__NORMEXP_KEYWORD.nbval = 8; *(basilysroutfun_t **) (cdat->drout_1382__NORMEXP_KEYWORD.routaddr) = rout_92_NORMEXP_KEYWORD; /*iniclos dclo_1383__NORMEXP_KEYWORD*/ /*_.VALCLO___V1513*/ curfptr[1512] = (void*)&cdat->dclo_1383__NORMEXP_KEYWORD; cdat->dclo_1383__NORMEXP_KEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1383__NORMEXP_KEYWORD.nbval = 0; /*inirout drout_1384__FILL_NORMAL_FORMALS*/ /*_.VALROUT___V1514*/ curfptr[1513] = (void*)&cdat->drout_1384__FILL_NORMAL_FORMALS; cdat->drout_1384__FILL_NORMAL_FORMALS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1384__FILL_NORMAL_FORMALS.routdescr, "FILL_NORMAL_FORMALS @warmelt-normal.bysl:2910", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1384__FILL_NORMAL_FORMALS.nbval = 13; *(basilysroutfun_t **) (cdat->drout_1384__FILL_NORMAL_FORMALS.routaddr) = rout_93_FILL_NORMAL_FORMALS; /*iniclos dclo_1385__FILL_NORMAL_FORMALS*/ /*_.VALCLO___V1516*/ curfptr[1515] = (void*)&cdat->dclo_1385__FILL_NORMAL_FORMALS; cdat->dclo_1385__FILL_NORMAL_FORMALS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1385__FILL_NORMAL_FORMALS.nbval = 0; /*inirout drout_1386__LAMBDA_*/ /*_.VALROUT___V1515*/ curfptr[1514] = (void*)&cdat->drout_1386__LAMBDA_; cdat->drout_1386__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1386__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2913", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1386__LAMBDA_.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1386__LAMBDA_.routaddr) = rout_94_LAMBDA_; /*iniobj dsym_1387__BINDER*/ if (!/*_.VALDATA___V1517*/ curfptr[1516]) /*_.VALDATA___V1517*/ curfptr[1516] = (void*)&cdat->dsym_1387__BINDER; basilys_assertmsg("iniobj checkdiscr dsym_1387__BINDER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1387__BINDER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1387__BINDER.obj_hash = 117501202; cdat->dsym_1387__BINDER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1387__BINDER)); /*inistring dstr_1388__BINDER*/ /*_.VALSTR___V1518*/ curfptr[1517] = (void*)&cdat->dstr_1388__BINDER; cdat->dstr_1388__BINDER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1388__BINDER.val, "BINDER"); /*iniobj dsym_1389__FBIND_TYPE*/ if (!/*_.VALDATA___V1519*/ curfptr[1518]) /*_.VALDATA___V1519*/ curfptr[1518] = (void*)&cdat->dsym_1389__FBIND_TYPE; basilys_assertmsg("iniobj checkdiscr dsym_1389__FBIND_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1389__FBIND_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1389__FBIND_TYPE.obj_hash = 607755508; cdat->dsym_1389__FBIND_TYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1389__FBIND_TYPE)); /*inistring dstr_1390__FBIND_TYPE*/ /*_.VALSTR___V1520*/ curfptr[1519] = (void*)&cdat->dstr_1390__FBIND_TYPE; cdat->dstr_1390__FBIND_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1390__FBIND_TYPE.val, "FBIND_TYPE"); /*inirout drout_1391__FILL_NORMAL_EXPANSION*/ /*_.VALROUT___V1521*/ curfptr[1520] = (void*)&cdat->drout_1391__FILL_NORMAL_EXPANSION; cdat->drout_1391__FILL_NORMAL_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1391__FILL_NORMAL_EXPANSION.routdescr, "FILL_NORMAL_EXPANSION @warmelt-normal.bysl:2939", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1391__FILL_NORMAL_EXPANSION.nbval = 9; *(basilysroutfun_t **) (cdat->drout_1391__FILL_NORMAL_EXPANSION.routaddr) = rout_95_FILL_NORMAL_EXPANSION; /*iniclos dclo_1392__FILL_NORMAL_EXPANSION*/ /*_.VALCLO___V1523*/ curfptr[1522] = (void*)&cdat->dclo_1392__FILL_NORMAL_EXPANSION; cdat->dclo_1392__FILL_NORMAL_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1392__FILL_NORMAL_EXPANSION.nbval = 0; /*inirout drout_1393__LAMBDA_*/ /*_.VALROUT___V1522*/ curfptr[1521] = (void*)&cdat->drout_1393__LAMBDA_; cdat->drout_1393__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1393__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:2942", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1393__LAMBDA_.nbval = 7; *(basilysroutfun_t **) (cdat->drout_1393__LAMBDA_.routaddr) = rout_96_LAMBDA_; /*inirout drout_1394__NORMEXP_DEFPRIMITIVE*/ /*_.VALROUT___V1524*/ curfptr[1523] = (void*)&cdat->drout_1394__NORMEXP_DEFPRIMITIVE; cdat->drout_1394__NORMEXP_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1394__NORMEXP_DEFPRIMITIVE.routdescr, "NORMEXP_DEFPRIMITIVE @warmelt-normal.bysl:2964", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1394__NORMEXP_DEFPRIMITIVE.nbval = 24; *(basilysroutfun_t **) (cdat->drout_1394__NORMEXP_DEFPRIMITIVE.routaddr) = rout_97_NORMEXP_DEFPRIMITIVE; /*iniclos dclo_1395__NORMEXP_DEFPRIMITIVE*/ /*_.VALCLO___V1525*/ curfptr[1524] = (void*)&cdat->dclo_1395__NORMEXP_DEFPRIMITIVE; cdat->dclo_1395__NORMEXP_DEFPRIMITIVE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1395__NORMEXP_DEFPRIMITIVE.nbval = 0; /*iniobj dsym_1396__CLASS_SRC_DEFPRIMITIVE*/ if (!/*_.VALDATA___V1526*/ curfptr[1525]) /*_.VALDATA___V1526*/ curfptr[1525] = (void*)&cdat->dsym_1396__CLASS_SRC_DEFPRIMITIVE; basilys_assertmsg("iniobj checkdiscr dsym_1396__CLASS_SRC_DEFPRIMITIVE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1396__CLASS_SRC_DEFPRIMITIVE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1396__CLASS_SRC_DEFPRIMITIVE.obj_hash = 392289647; cdat->dsym_1396__CLASS_SRC_DEFPRIMITIVE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1396__CLASS_SRC_DEFPRIMITIVE)); /*inistring dstr_1397__CLASS_SRC_DEFPRI*/ /*_.VALSTR___V1527*/ curfptr[1526] = (void*)&cdat->dstr_1397__CLASS_SRC_DEFPRI; cdat->dstr_1397__CLASS_SRC_DEFPRI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1397__CLASS_SRC_DEFPRI.val, "CLASS_SRC_DEFPRIMITIVE"); /*iniobj dsym_1398__PRIM_FORMALS*/ if (!/*_.VALDATA___V1528*/ curfptr[1527]) /*_.VALDATA___V1528*/ curfptr[1527] = (void*)&cdat->dsym_1398__PRIM_FORMALS; basilys_assertmsg("iniobj checkdiscr dsym_1398__PRIM_FORMALS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1398__PRIM_FORMALS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1398__PRIM_FORMALS.obj_hash = 983248080; cdat->dsym_1398__PRIM_FORMALS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1398__PRIM_FORMALS)); /*inistring dstr_1399__PRIM_FORMALS*/ /*_.VALSTR___V1529*/ curfptr[1528] = (void*)&cdat->dstr_1399__PRIM_FORMALS; cdat->dstr_1399__PRIM_FORMALS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1399__PRIM_FORMALS.val, "PRIM_FORMALS"); /*iniobj dsym_1400__PRIM_EXPANSION*/ if (!/*_.VALDATA___V1530*/ curfptr[1529]) /*_.VALDATA___V1530*/ curfptr[1529] = (void*)&cdat->dsym_1400__PRIM_EXPANSION; basilys_assertmsg("iniobj checkdiscr dsym_1400__PRIM_EXPANSION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1400__PRIM_EXPANSION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1400__PRIM_EXPANSION.obj_hash = 25348021; cdat->dsym_1400__PRIM_EXPANSION.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1400__PRIM_EXPANSION)); /*inistring dstr_1401__PRIM_EXPANSION*/ /*_.VALSTR___V1531*/ curfptr[1530] = (void*)&cdat->dstr_1401__PRIM_EXPANSION; cdat->dstr_1401__PRIM_EXPANSION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1401__PRIM_EXPANSION.val, "PRIM_EXPANSION"); /*iniobj dsym_1402__PRIM_TYPE*/ if (!/*_.VALDATA___V1532*/ curfptr[1531]) /*_.VALDATA___V1532*/ curfptr[1531] = (void*)&cdat->dsym_1402__PRIM_TYPE; basilys_assertmsg("iniobj checkdiscr dsym_1402__PRIM_TYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1402__PRIM_TYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1402__PRIM_TYPE.obj_hash = 837770946; cdat->dsym_1402__PRIM_TYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1402__PRIM_TYPE)); /*inistring dstr_1403__PRIM_TYPE*/ /*_.VALSTR___V1533*/ curfptr[1532] = (void*)&cdat->dstr_1403__PRIM_TYPE; cdat->dstr_1403__PRIM_TYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1403__PRIM_TYPE.val, "PRIM_TYPE"); /*inirout drout_1404__NORMEXP_DEFCITERATOR*/ /*_.VALROUT___V1534*/ curfptr[1533] = (void*)&cdat->drout_1404__NORMEXP_DEFCITERATOR; cdat->drout_1404__NORMEXP_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1404__NORMEXP_DEFCITERATOR.routdescr, "NORMEXP_DEFCITERATOR @warmelt-normal.bysl:3030", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1404__NORMEXP_DEFCITERATOR.nbval = 24; *(basilysroutfun_t **) (cdat->drout_1404__NORMEXP_DEFCITERATOR.routaddr) = rout_98_NORMEXP_DEFCITERATOR; /*iniclos dclo_1405__NORMEXP_DEFCITERATOR*/ /*_.VALCLO___V1535*/ curfptr[1534] = (void*)&cdat->dclo_1405__NORMEXP_DEFCITERATOR; cdat->dclo_1405__NORMEXP_DEFCITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1405__NORMEXP_DEFCITERATOR.nbval = 0; /*iniobj dsym_1406__CLASS_SRC_DEFCITERATOR*/ if (!/*_.VALDATA___V1536*/ curfptr[1535]) /*_.VALDATA___V1536*/ curfptr[1535] = (void*)&cdat->dsym_1406__CLASS_SRC_DEFCITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_1406__CLASS_SRC_DEFCITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1406__CLASS_SRC_DEFCITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1406__CLASS_SRC_DEFCITERATOR.obj_hash = 104692430; cdat->dsym_1406__CLASS_SRC_DEFCITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1406__CLASS_SRC_DEFCITERATOR)); /*inistring dstr_1407__CLASS_SRC_DEFCIT*/ /*_.VALSTR___V1537*/ curfptr[1536] = (void*)&cdat->dstr_1407__CLASS_SRC_DEFCIT; cdat->dstr_1407__CLASS_SRC_DEFCIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1407__CLASS_SRC_DEFCIT.val, "CLASS_SRC_DEFCITERATOR"); /*iniobj dsym_1408__CITER_START_FORMALS*/ if (!/*_.VALDATA___V1538*/ curfptr[1537]) /*_.VALDATA___V1538*/ curfptr[1537] = (void*)&cdat->dsym_1408__CITER_START_FORMALS; basilys_assertmsg("iniobj checkdiscr dsym_1408__CITER_START_FORMALS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1408__CITER_START_FORMALS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1408__CITER_START_FORMALS.obj_hash = 286590765; cdat->dsym_1408__CITER_START_FORMALS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1408__CITER_START_FORMALS)); /*inistring dstr_1409__CITER_START_FORM*/ /*_.VALSTR___V1539*/ curfptr[1538] = (void*)&cdat->dstr_1409__CITER_START_FORM; cdat->dstr_1409__CITER_START_FORM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1409__CITER_START_FORM.val, "CITER_START_FORMALS"); /*iniobj dsym_1410__CITER_STATE*/ if (!/*_.VALDATA___V1540*/ curfptr[1539]) /*_.VALDATA___V1540*/ curfptr[1539] = (void*)&cdat->dsym_1410__CITER_STATE; basilys_assertmsg("iniobj checkdiscr dsym_1410__CITER_STATE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1410__CITER_STATE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1410__CITER_STATE.obj_hash = 23281975; cdat->dsym_1410__CITER_STATE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1410__CITER_STATE)); /*inistring dstr_1411__CITER_STATE*/ /*_.VALSTR___V1541*/ curfptr[1540] = (void*)&cdat->dstr_1411__CITER_STATE; cdat->dstr_1411__CITER_STATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1411__CITER_STATE.val, "CITER_STATE"); /*iniobj dsym_1412__CITER_BODY_FORMALS*/ if (!/*_.VALDATA___V1542*/ curfptr[1541]) /*_.VALDATA___V1542*/ curfptr[1541] = (void*)&cdat->dsym_1412__CITER_BODY_FORMALS; basilys_assertmsg("iniobj checkdiscr dsym_1412__CITER_BODY_FORMALS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1412__CITER_BODY_FORMALS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1412__CITER_BODY_FORMALS.obj_hash = 1002998706; cdat->dsym_1412__CITER_BODY_FORMALS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1412__CITER_BODY_FORMALS)); /*inistring dstr_1413__CITER_BODY_FORMA*/ /*_.VALSTR___V1543*/ curfptr[1542] = (void*)&cdat->dstr_1413__CITER_BODY_FORMA; cdat->dstr_1413__CITER_BODY_FORMA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1413__CITER_BODY_FORMA.val, "CITER_BODY_FORMALS"); /*iniobj dsym_1414__CITER_EXPBEFORE*/ if (!/*_.VALDATA___V1544*/ curfptr[1543]) /*_.VALDATA___V1544*/ curfptr[1543] = (void*)&cdat->dsym_1414__CITER_EXPBEFORE; basilys_assertmsg("iniobj checkdiscr dsym_1414__CITER_EXPBEFORE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1414__CITER_EXPBEFORE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1414__CITER_EXPBEFORE.obj_hash = 411562487; cdat->dsym_1414__CITER_EXPBEFORE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1414__CITER_EXPBEFORE)); /*inistring dstr_1415__CITER_EXPBEFORE*/ /*_.VALSTR___V1545*/ curfptr[1544] = (void*)&cdat->dstr_1415__CITER_EXPBEFORE; cdat->dstr_1415__CITER_EXPBEFORE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1415__CITER_EXPBEFORE.val, "CITER_EXPBEFORE"); /*iniobj dsym_1416__CITER_EXPAFTER*/ if (!/*_.VALDATA___V1546*/ curfptr[1545]) /*_.VALDATA___V1546*/ curfptr[1545] = (void*)&cdat->dsym_1416__CITER_EXPAFTER; basilys_assertmsg("iniobj checkdiscr dsym_1416__CITER_EXPAFTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1416__CITER_EXPAFTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1416__CITER_EXPAFTER.obj_hash = 576729961; cdat->dsym_1416__CITER_EXPAFTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1416__CITER_EXPAFTER)); /*inistring dstr_1417__CITER_EXPAFTER*/ /*_.VALSTR___V1547*/ curfptr[1546] = (void*)&cdat->dstr_1417__CITER_EXPAFTER; cdat->dstr_1417__CITER_EXPAFTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1417__CITER_EXPAFTER.val, "CITER_EXPAFTER"); /*inirout drout_1418__NORMEXP_CITERATION*/ /*_.VALROUT___V1548*/ curfptr[1547] = (void*)&cdat->drout_1418__NORMEXP_CITERATION; cdat->drout_1418__NORMEXP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1418__NORMEXP_CITERATION.routdescr, "NORMEXP_CITERATION @warmelt-normal.bysl:3134", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1418__NORMEXP_CITERATION.nbval = 37; *(basilysroutfun_t **) (cdat->drout_1418__NORMEXP_CITERATION.routaddr) = rout_99_NORMEXP_CITERATION; /*iniclos dclo_1419__NORMEXP_CITERATION*/ /*_.VALCLO___V1555*/ curfptr[1554] = (void*)&cdat->dclo_1419__NORMEXP_CITERATION; cdat->dclo_1419__NORMEXP_CITERATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1419__NORMEXP_CITERATION.nbval = 0; /*iniobj dsym_1420__CLASS_SRC_CITERATION*/ if (!/*_.VALDATA___V1556*/ curfptr[1555]) /*_.VALDATA___V1556*/ curfptr[1555] = (void*)&cdat->dsym_1420__CLASS_SRC_CITERATION; basilys_assertmsg("iniobj checkdiscr dsym_1420__CLASS_SRC_CITERATION", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1420__CLASS_SRC_CITERATION.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1420__CLASS_SRC_CITERATION.obj_hash = 838255763; cdat->dsym_1420__CLASS_SRC_CITERATION.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1420__CLASS_SRC_CITERATION)); /*inistring dstr_1421__CLASS_SRC_CITERA*/ /*_.VALSTR___V1557*/ curfptr[1556] = (void*)&cdat->dstr_1421__CLASS_SRC_CITERA; cdat->dstr_1421__CLASS_SRC_CITERA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1421__CLASS_SRC_CITERA.val, "CLASS_SRC_CITERATION"); /*iniobj dsym_1422__MULTIPLE_EVERY_BOTH*/ if (!/*_.VALDATA___V1558*/ curfptr[1557]) /*_.VALDATA___V1558*/ curfptr[1557] = (void*)&cdat->dsym_1422__MULTIPLE_EVERY_BOTH; basilys_assertmsg("iniobj checkdiscr dsym_1422__MULTIPLE_EVERY_BOTH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1422__MULTIPLE_EVERY_BOTH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1422__MULTIPLE_EVERY_BOTH.obj_hash = 528900272; cdat->dsym_1422__MULTIPLE_EVERY_BOTH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1422__MULTIPLE_EVERY_BOTH)); /*inistring dstr_1423__MULTIPLE_EVERY_B*/ /*_.VALSTR___V1559*/ curfptr[1558] = (void*)&cdat->dstr_1423__MULTIPLE_EVERY_B; cdat->dstr_1423__MULTIPLE_EVERY_B.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1423__MULTIPLE_EVERY_B.val, "MULTIPLE_EVERY_BOTH"); /*inirout drout_1424__LAMBDA_*/ /*_.VALROUT___V1549*/ curfptr[1548] = (void*)&cdat->drout_1424__LAMBDA_; cdat->drout_1424__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1424__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3162", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1424__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1424__LAMBDA_.routaddr) = rout_100_LAMBDA_; /*inirout drout_1425__LAMBDA_*/ /*_.VALROUT___V1550*/ curfptr[1549] = (void*)&cdat->drout_1425__LAMBDA_; cdat->drout_1425__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1425__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3199", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1425__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1425__LAMBDA_.routaddr) = rout_101_LAMBDA_; /*inirout drout_1426__LAMBDA_*/ /*_.VALROUT___V1551*/ curfptr[1550] = (void*)&cdat->drout_1426__LAMBDA_; cdat->drout_1426__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1426__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3257", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1426__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1426__LAMBDA_.routaddr) = rout_102_LAMBDA_; /*inirout drout_1427__LAMBDA_*/ /*_.VALROUT___V1552*/ curfptr[1551] = (void*)&cdat->drout_1427__LAMBDA_; cdat->drout_1427__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1427__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3261", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1427__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_1427__LAMBDA_.routaddr) = rout_103_LAMBDA_; /*inirout drout_1428__LAMBDA_*/ /*_.VALROUT___V1553*/ curfptr[1552] = (void*)&cdat->drout_1428__LAMBDA_; cdat->drout_1428__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1428__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3277", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1428__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1428__LAMBDA_.routaddr) = rout_104_LAMBDA_; /*inirout drout_1429__LAMBDA_*/ /*_.VALROUT___V1554*/ curfptr[1553] = (void*)&cdat->drout_1429__LAMBDA_; cdat->drout_1429__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1429__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3286", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1429__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_1429__LAMBDA_.routaddr) = rout_105_LAMBDA_; /*inirout drout_1430__NORMEXP_DEFCLASS*/ /*_.VALROUT___V1560*/ curfptr[1559] = (void*)&cdat->drout_1430__NORMEXP_DEFCLASS; cdat->drout_1430__NORMEXP_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1430__NORMEXP_DEFCLASS.routdescr, "NORMEXP_DEFCLASS @warmelt-normal.bysl:3339", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1430__NORMEXP_DEFCLASS.nbval = 30; *(basilysroutfun_t **) (cdat->drout_1430__NORMEXP_DEFCLASS.routaddr) = rout_106_NORMEXP_DEFCLASS; /*iniclos dclo_1431__NORMEXP_DEFCLASS*/ /*_.VALCLO___V1563*/ curfptr[1562] = (void*)&cdat->dclo_1431__NORMEXP_DEFCLASS; cdat->dclo_1431__NORMEXP_DEFCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1431__NORMEXP_DEFCLASS.nbval = 0; /*iniobj dsym_1432__CLASS_SRC_DEFCLASS*/ if (!/*_.VALDATA___V1564*/ curfptr[1563]) /*_.VALDATA___V1564*/ curfptr[1563] = (void*)&cdat->dsym_1432__CLASS_SRC_DEFCLASS; basilys_assertmsg("iniobj checkdiscr dsym_1432__CLASS_SRC_DEFCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1432__CLASS_SRC_DEFCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1432__CLASS_SRC_DEFCLASS.obj_hash = 752535427; cdat->dsym_1432__CLASS_SRC_DEFCLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1432__CLASS_SRC_DEFCLASS)); /*inistring dstr_1433__CLASS_SRC_DEFCLA*/ /*_.VALSTR___V1565*/ curfptr[1564] = (void*)&cdat->dstr_1433__CLASS_SRC_DEFCLA; cdat->dstr_1433__CLASS_SRC_DEFCLA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1433__CLASS_SRC_DEFCLA.val, "CLASS_SRC_DEFCLASS"); /*iniobj dsym_1434__OBMAG_OBJECT*/ if (!/*_.VALDATA___V1561*/ curfptr[1560]) /*_.VALDATA___V1561*/ curfptr[1560] = (void*)&cdat->dsym_1434__OBMAG_OBJECT; basilys_assertmsg("iniobj checkdiscr dsym_1434__OBMAG_OBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1434__OBMAG_OBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1434__OBMAG_OBJECT.obj_hash = 62168350; cdat->dsym_1434__OBMAG_OBJECT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1434__OBMAG_OBJECT)); /*inistring dstr_1435__OBMAG_OBJECT*/ /*_.VALSTR___V1562*/ curfptr[1561] = (void*)&cdat->dstr_1435__OBMAG_OBJECT; cdat->dstr_1435__OBMAG_OBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1435__OBMAG_OBJECT.val, "OBMAG_OBJECT"); /*iniobj dsym_1436__CLASS_ANCESTORS*/ if (!/*_.VALDATA___V1566*/ curfptr[1565]) /*_.VALDATA___V1566*/ curfptr[1565] = (void*)&cdat->dsym_1436__CLASS_ANCESTORS; basilys_assertmsg("iniobj checkdiscr dsym_1436__CLASS_ANCESTORS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1436__CLASS_ANCESTORS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1436__CLASS_ANCESTORS.obj_hash = 586101398; cdat->dsym_1436__CLASS_ANCESTORS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1436__CLASS_ANCESTORS)); /*inistring dstr_1437__CLASS_ANCESTORS*/ /*_.VALSTR___V1567*/ curfptr[1566] = (void*)&cdat->dstr_1437__CLASS_ANCESTORS; cdat->dstr_1437__CLASS_ANCESTORS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1437__CLASS_ANCESTORS.val, "CLASS_ANCESTORS"); /*iniobj dsym_1438__CLASS_FIELDS*/ if (!/*_.VALDATA___V1568*/ curfptr[1567]) /*_.VALDATA___V1568*/ curfptr[1567] = (void*)&cdat->dsym_1438__CLASS_FIELDS; basilys_assertmsg("iniobj checkdiscr dsym_1438__CLASS_FIELDS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1438__CLASS_FIELDS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1438__CLASS_FIELDS.obj_hash = 405169432; cdat->dsym_1438__CLASS_FIELDS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1438__CLASS_FIELDS)); /*inistring dstr_1439__CLASS_FIELDS*/ /*_.VALSTR___V1569*/ curfptr[1568] = (void*)&cdat->dstr_1439__CLASS_FIELDS; cdat->dstr_1439__CLASS_FIELDS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1439__CLASS_FIELDS.val, "CLASS_FIELDS"); /*iniobj dsym_1440__FLD_OWNCLASS*/ if (!/*_.VALDATA___V1570*/ curfptr[1569]) /*_.VALDATA___V1570*/ curfptr[1569] = (void*)&cdat->dsym_1440__FLD_OWNCLASS; basilys_assertmsg("iniobj checkdiscr dsym_1440__FLD_OWNCLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1440__FLD_OWNCLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1440__FLD_OWNCLASS.obj_hash = 376525087; cdat->dsym_1440__FLD_OWNCLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1440__FLD_OWNCLASS)); /*inistring dstr_1441__FLD_OWNCLASS*/ /*_.VALSTR___V1571*/ curfptr[1570] = (void*)&cdat->dstr_1441__FLD_OWNCLASS; cdat->dstr_1441__FLD_OWNCLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1441__FLD_OWNCLASS.val, "FLD_OWNCLASS"); /*iniobj dsym_1442__DISC_SUPER*/ if (!/*_.VALDATA___V1572*/ curfptr[1571]) /*_.VALDATA___V1572*/ curfptr[1571] = (void*)&cdat->dsym_1442__DISC_SUPER; basilys_assertmsg("iniobj checkdiscr dsym_1442__DISC_SUPER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1442__DISC_SUPER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1442__DISC_SUPER.obj_hash = 410007578; cdat->dsym_1442__DISC_SUPER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1442__DISC_SUPER)); /*inistring dstr_1443__DISC_SUPER*/ /*_.VALSTR___V1573*/ curfptr[1572] = (void*)&cdat->dstr_1443__DISC_SUPER; cdat->dstr_1443__DISC_SUPER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1443__DISC_SUPER.val, "DISC_SUPER"); /*inirout drout_1444__NORMEXP_DEFINSTANCE*/ /*_.VALROUT___V1574*/ curfptr[1573] = (void*)&cdat->drout_1444__NORMEXP_DEFINSTANCE; cdat->drout_1444__NORMEXP_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1444__NORMEXP_DEFINSTANCE.routdescr, "NORMEXP_DEFINSTANCE @warmelt-normal.bysl:3494", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1444__NORMEXP_DEFINSTANCE.nbval = 27; *(basilysroutfun_t **) (cdat->drout_1444__NORMEXP_DEFINSTANCE.routaddr) = rout_107_NORMEXP_DEFINSTANCE; /*iniclos dclo_1445__NORMEXP_DEFINSTANCE*/ /*_.VALCLO___V1576*/ curfptr[1575] = (void*)&cdat->dclo_1445__NORMEXP_DEFINSTANCE; cdat->dclo_1445__NORMEXP_DEFINSTANCE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1445__NORMEXP_DEFINSTANCE.nbval = 0; /*iniobj dsym_1446__CLASS_SRC_DEFINSTANCE*/ if (!/*_.VALDATA___V1577*/ curfptr[1576]) /*_.VALDATA___V1577*/ curfptr[1576] = (void*)&cdat->dsym_1446__CLASS_SRC_DEFINSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_1446__CLASS_SRC_DEFINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1446__CLASS_SRC_DEFINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1446__CLASS_SRC_DEFINSTANCE.obj_hash = 472317987; cdat->dsym_1446__CLASS_SRC_DEFINSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1446__CLASS_SRC_DEFINSTANCE)); /*inistring dstr_1447__CLASS_SRC_DEFINS*/ /*_.VALSTR___V1578*/ curfptr[1577] = (void*)&cdat->dstr_1447__CLASS_SRC_DEFINS; cdat->dstr_1447__CLASS_SRC_DEFINS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1447__CLASS_SRC_DEFINS.val, "CLASS_SRC_DEFINSTANCE"); /*inirout drout_1448__LAMBDA_*/ /*_.VALROUT___V1575*/ curfptr[1574] = (void*)&cdat->drout_1448__LAMBDA_; cdat->drout_1448__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1448__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3550", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1448__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1448__LAMBDA_.routaddr) = rout_108_LAMBDA_; /*inirout drout_1449__NORMEXP_DEFSELECTOR*/ /*_.VALROUT___V1579*/ curfptr[1578] = (void*)&cdat->drout_1449__NORMEXP_DEFSELECTOR; cdat->drout_1449__NORMEXP_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1449__NORMEXP_DEFSELECTOR.routdescr, "NORMEXP_DEFSELECTOR @warmelt-normal.bysl:3586", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1449__NORMEXP_DEFSELECTOR.nbval = 29; *(basilysroutfun_t **) (cdat->drout_1449__NORMEXP_DEFSELECTOR.routaddr) = rout_109_NORMEXP_DEFSELECTOR; /*iniclos dclo_1450__NORMEXP_DEFSELECTOR*/ /*_.VALCLO___V1581*/ curfptr[1580] = (void*)&cdat->dclo_1450__NORMEXP_DEFSELECTOR; cdat->dclo_1450__NORMEXP_DEFSELECTOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1450__NORMEXP_DEFSELECTOR.nbval = 0; /*iniobj dsym_1451__CLASS_SRC_DEFSELECTOR*/ if (!/*_.VALDATA___V1582*/ curfptr[1581]) /*_.VALDATA___V1582*/ curfptr[1581] = (void*)&cdat->dsym_1451__CLASS_SRC_DEFSELECTOR; basilys_assertmsg("iniobj checkdiscr dsym_1451__CLASS_SRC_DEFSELECTOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1451__CLASS_SRC_DEFSELECTOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1451__CLASS_SRC_DEFSELECTOR.obj_hash = 536665905; cdat->dsym_1451__CLASS_SRC_DEFSELECTOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1451__CLASS_SRC_DEFSELECTOR)); /*inistring dstr_1452__CLASS_SRC_DEFSEL*/ /*_.VALSTR___V1583*/ curfptr[1582] = (void*)&cdat->dstr_1452__CLASS_SRC_DEFSEL; cdat->dstr_1452__CLASS_SRC_DEFSEL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1452__CLASS_SRC_DEFSEL.val, "CLASS_SRC_DEFSELECTOR"); /*inirout drout_1453__LAMBDA_*/ /*_.VALROUT___V1580*/ curfptr[1579] = (void*)&cdat->drout_1453__LAMBDA_; cdat->drout_1453__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1453__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3644", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1453__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_1453__LAMBDA_.routaddr) = rout_110_LAMBDA_; /*inirout drout_1454__NORMAL_VALUE_EXPORTER*/ /*_.VALROUT___V1584*/ curfptr[1583] = (void*)&cdat->drout_1454__NORMAL_VALUE_EXPORTER; cdat->drout_1454__NORMAL_VALUE_EXPORTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1454__NORMAL_VALUE_EXPORTER.routdescr, "NORMAL_VALUE_EXPORTER @warmelt-normal.bysl:3692", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1454__NORMAL_VALUE_EXPORTER.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1454__NORMAL_VALUE_EXPORTER.routaddr) = rout_111_NORMAL_VALUE_EXPORTER; /*iniclos dclo_1455__NORMAL_VALUE_EXPORTER*/ /*_.VALCLO___V1587*/ curfptr[1586] = (void*)&cdat->dclo_1455__NORMAL_VALUE_EXPORTER; cdat->dclo_1455__NORMAL_VALUE_EXPORTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1455__NORMAL_VALUE_EXPORTER.nbval = 0; /*iniobj dsym_1456__VALUEXPORTER_*/ if (!/*_.VALDATA___V1585*/ curfptr[1584]) /*_.VALDATA___V1585*/ curfptr[1584] = (void*)&cdat->dsym_1456__VALUEXPORTER_; basilys_assertmsg("iniobj checkdiscr dsym_1456__VALUEXPORTER_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1456__VALUEXPORTER_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1456__VALUEXPORTER_.obj_hash = 257091205; cdat->dsym_1456__VALUEXPORTER_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1456__VALUEXPORTER_)); /*inistring dstr_1457__VALUEXPORTER_*/ /*_.VALSTR___V1586*/ curfptr[1585] = (void*)&cdat->dstr_1457__VALUEXPORTER_; cdat->dstr_1457__VALUEXPORTER_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1457__VALUEXPORTER_.val, "_VALUEXPORTER_"); /*iniobj dsym_1458__SYSDATA_VALUE_EXPORTER*/ if (!/*_.VALDATA___V1588*/ curfptr[1587]) /*_.VALDATA___V1588*/ curfptr[1587] = (void*)&cdat->dsym_1458__SYSDATA_VALUE_EXPORTER; basilys_assertmsg("iniobj checkdiscr dsym_1458__SYSDATA_VALUE_EXPORTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1458__SYSDATA_VALUE_EXPORTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1458__SYSDATA_VALUE_EXPORTER.obj_hash = 648451867; cdat->dsym_1458__SYSDATA_VALUE_EXPORTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1458__SYSDATA_VALUE_EXPORTER)); /*inistring dstr_1459__SYSDATA_VALUE_EX*/ /*_.VALSTR___V1589*/ curfptr[1588] = (void*)&cdat->dstr_1459__SYSDATA_VALUE_EX; cdat->dstr_1459__SYSDATA_VALUE_EX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1459__SYSDATA_VALUE_EX.val, "SYSDATA_VALUE_EXPORTER"); /*inirout drout_1460__NORMAL_EXPORTED_VALUE*/ /*_.VALROUT___V1590*/ curfptr[1589] = (void*)&cdat->drout_1460__NORMAL_EXPORTED_VALUE; cdat->drout_1460__NORMAL_EXPORTED_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1460__NORMAL_EXPORTED_VALUE.routdescr, "NORMAL_EXPORTED_VALUE @warmelt-normal.bysl:3727", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1460__NORMAL_EXPORTED_VALUE.nbval = 18; *(basilysroutfun_t **) (cdat->drout_1460__NORMAL_EXPORTED_VALUE.routaddr) = rout_112_NORMAL_EXPORTED_VALUE; /*iniclos dclo_1461__NORMAL_EXPORTED_VALUE*/ /*_.VALCLO___V1593*/ curfptr[1592] = (void*)&cdat->dclo_1461__NORMAL_EXPORTED_VALUE; cdat->dclo_1461__NORMAL_EXPORTED_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1461__NORMAL_EXPORTED_VALUE.nbval = 0; /*iniobj dsym_1462__EXPORTED_*/ if (!/*_.VALDATA___V1591*/ curfptr[1590]) /*_.VALDATA___V1591*/ curfptr[1590] = (void*)&cdat->dsym_1462__EXPORTED_; basilys_assertmsg("iniobj checkdiscr dsym_1462__EXPORTED_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1462__EXPORTED_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1462__EXPORTED_.obj_hash = 659074871; cdat->dsym_1462__EXPORTED_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1462__EXPORTED_)); /*inistring dstr_1463__EXPORTED_*/ /*_.VALSTR___V1592*/ curfptr[1591] = (void*)&cdat->dstr_1463__EXPORTED_; cdat->dstr_1463__EXPORTED_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1463__EXPORTED_.val, "_EXPORTED_"); /*iniobj dsym_1464__DISCR_STRBUF*/ if (!/*_.VALDATA___V1594*/ curfptr[1593]) /*_.VALDATA___V1594*/ curfptr[1593] = (void*)&cdat->dsym_1464__DISCR_STRBUF; basilys_assertmsg("iniobj checkdiscr dsym_1464__DISCR_STRBUF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1464__DISCR_STRBUF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1464__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_1464__DISCR_STRBUF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1464__DISCR_STRBUF)); /*inistring dstr_1465__DISCR_STRBUF*/ /*_.VALSTR___V1595*/ curfptr[1594] = (void*)&cdat->dstr_1465__DISCR_STRBUF; cdat->dstr_1465__DISCR_STRBUF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1465__DISCR_STRBUF.val, "DISCR_STRBUF"); /*iniobj dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V1596*/ curfptr[1595]) /*_.VALDATA___V1596*/ curfptr[1595] = (void*)&cdat->dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 281133492; cdat->dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1466__CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_1467__CLASS_SRC_CURREN*/ /*_.VALSTR___V1597*/ curfptr[1596] = (void*)&cdat->dstr_1467__CLASS_SRC_CURREN; cdat->dstr_1467__CLASS_SRC_CURREN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1467__CLASS_SRC_CURREN.val, "CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*inirout drout_1468__NORMEXP_EXPORT_VALUES*/ /*_.VALROUT___V1598*/ curfptr[1597] = (void*)&cdat->drout_1468__NORMEXP_EXPORT_VALUES; cdat->drout_1468__NORMEXP_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1468__NORMEXP_EXPORT_VALUES.routdescr, "NORMEXP_EXPORT_VALUES @warmelt-normal.bysl:3781", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1468__NORMEXP_EXPORT_VALUES.nbval = 14; *(basilysroutfun_t **) (cdat->drout_1468__NORMEXP_EXPORT_VALUES.routaddr) = rout_113_NORMEXP_EXPORT_VALUES; /*iniclos dclo_1469__NORMEXP_EXPORT_VALUES*/ /*_.VALCLO___V1600*/ curfptr[1599] = (void*)&cdat->dclo_1469__NORMEXP_EXPORT_VALUES; cdat->dclo_1469__NORMEXP_EXPORT_VALUES.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1469__NORMEXP_EXPORT_VALUES.nbval = 0; /*iniobj dsym_1470__CLASS_SRC_EXPORT_VALUES*/ if (!/*_.VALDATA___V1601*/ curfptr[1600]) /*_.VALDATA___V1601*/ curfptr[1600] = (void*)&cdat->dsym_1470__CLASS_SRC_EXPORT_VALUES; basilys_assertmsg("iniobj checkdiscr dsym_1470__CLASS_SRC_EXPORT_VALUES", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1470__CLASS_SRC_EXPORT_VALUES.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1470__CLASS_SRC_EXPORT_VALUES.obj_hash = 607755508; cdat->dsym_1470__CLASS_SRC_EXPORT_VALUES.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1470__CLASS_SRC_EXPORT_VALUES)); /*inistring dstr_1471__CLASS_SRC_EXPORT*/ /*_.VALSTR___V1602*/ curfptr[1601] = (void*)&cdat->dstr_1471__CLASS_SRC_EXPORT; cdat->dstr_1471__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1471__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_VALUES"); /*inirout drout_1472__LAMBDA_*/ /*_.VALROUT___V1599*/ curfptr[1598] = (void*)&cdat->drout_1472__LAMBDA_; cdat->drout_1472__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1472__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3803", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1472__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1472__LAMBDA_.routaddr) = rout_114_LAMBDA_; /*inirout drout_1473__NORMEXP_EXPORT_CLASS*/ /*_.VALROUT___V1603*/ curfptr[1602] = (void*)&cdat->drout_1473__NORMEXP_EXPORT_CLASS; cdat->drout_1473__NORMEXP_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1473__NORMEXP_EXPORT_CLASS.routdescr, "NORMEXP_EXPORT_CLASS @warmelt-normal.bysl:3828", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1473__NORMEXP_EXPORT_CLASS.nbval = 27; *(basilysroutfun_t **) (cdat->drout_1473__NORMEXP_EXPORT_CLASS.routaddr) = rout_115_NORMEXP_EXPORT_CLASS; /*iniclos dclo_1474__NORMEXP_EXPORT_CLASS*/ /*_.VALCLO___V1606*/ curfptr[1605] = (void*)&cdat->dclo_1474__NORMEXP_EXPORT_CLASS; cdat->dclo_1474__NORMEXP_EXPORT_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1474__NORMEXP_EXPORT_CLASS.nbval = 0; /*iniobj dsym_1475__CLASS_SRC_EXPORT_CLASS*/ if (!/*_.VALDATA___V1607*/ curfptr[1606]) /*_.VALDATA___V1607*/ curfptr[1606] = (void*)&cdat->dsym_1475__CLASS_SRC_EXPORT_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_1475__CLASS_SRC_EXPORT_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1475__CLASS_SRC_EXPORT_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1475__CLASS_SRC_EXPORT_CLASS.obj_hash = 95565036; cdat->dsym_1475__CLASS_SRC_EXPORT_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1475__CLASS_SRC_EXPORT_CLASS)); /*inistring dstr_1476__CLASS_SRC_EXPORT*/ /*_.VALSTR___V1608*/ curfptr[1607] = (void*)&cdat->dstr_1476__CLASS_SRC_EXPORT; cdat->dstr_1476__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1476__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_CLASS"); /*inirout drout_1477__LAMBDA_*/ /*_.VALROUT___V1604*/ curfptr[1603] = (void*)&cdat->drout_1477__LAMBDA_; cdat->drout_1477__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1477__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3845", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1477__LAMBDA_.nbval = 18; *(basilysroutfun_t **) (cdat->drout_1477__LAMBDA_.routaddr) = rout_116_LAMBDA_; /*iniobj dsym_1478__MOCX_EXPCLASSDICT*/ if (!/*_.VALDATA___V1609*/ curfptr[1608]) /*_.VALDATA___V1609*/ curfptr[1608] = (void*)&cdat->dsym_1478__MOCX_EXPCLASSDICT; basilys_assertmsg("iniobj checkdiscr dsym_1478__MOCX_EXPCLASSDICT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1478__MOCX_EXPCLASSDICT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1478__MOCX_EXPCLASSDICT.obj_hash = 383633164; cdat->dsym_1478__MOCX_EXPCLASSDICT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1478__MOCX_EXPCLASSDICT)); /*inistring dstr_1479__MOCX_EXPCLASSDIC*/ /*_.VALSTR___V1610*/ curfptr[1609] = (void*)&cdat->dstr_1479__MOCX_EXPCLASSDIC; cdat->dstr_1479__MOCX_EXPCLASSDIC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1479__MOCX_EXPCLASSDIC.val, "MOCX_EXPCLASSDICT"); /*iniobj dsym_1480__MOCX_EXPFIELDICT*/ if (!/*_.VALDATA___V1611*/ curfptr[1610]) /*_.VALDATA___V1611*/ curfptr[1610] = (void*)&cdat->dsym_1480__MOCX_EXPFIELDICT; basilys_assertmsg("iniobj checkdiscr dsym_1480__MOCX_EXPFIELDICT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1480__MOCX_EXPFIELDICT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1480__MOCX_EXPFIELDICT.obj_hash = 248927698; cdat->dsym_1480__MOCX_EXPFIELDICT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1480__MOCX_EXPFIELDICT)); /*inistring dstr_1481__MOCX_EXPFIELDICT*/ /*_.VALSTR___V1612*/ curfptr[1611] = (void*)&cdat->dstr_1481__MOCX_EXPFIELDICT; cdat->dstr_1481__MOCX_EXPFIELDICT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1481__MOCX_EXPFIELDICT.val, "MOCX_EXPFIELDICT"); /*inirout drout_1482__LAMBDA_*/ /*_.VALROUT___V1605*/ curfptr[1604] = (void*)&cdat->drout_1482__LAMBDA_; cdat->drout_1482__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1482__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:3882", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1482__LAMBDA_.nbval = 5; *(basilysroutfun_t **) (cdat->drout_1482__LAMBDA_.routaddr) = rout_117_LAMBDA_; /*inirout drout_1483__NORMAL_MACRO_EXPORTER*/ /*_.VALROUT___V1613*/ curfptr[1612] = (void*)&cdat->drout_1483__NORMAL_MACRO_EXPORTER; cdat->drout_1483__NORMAL_MACRO_EXPORTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1483__NORMAL_MACRO_EXPORTER.routdescr, "NORMAL_MACRO_EXPORTER @warmelt-normal.bysl:3910", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1483__NORMAL_MACRO_EXPORTER.nbval = 12; *(basilysroutfun_t **) (cdat->drout_1483__NORMAL_MACRO_EXPORTER.routaddr) = rout_118_NORMAL_MACRO_EXPORTER; /*iniclos dclo_1484__NORMAL_MACRO_EXPORTER*/ /*_.VALCLO___V1616*/ curfptr[1615] = (void*)&cdat->dclo_1484__NORMAL_MACRO_EXPORTER; cdat->dclo_1484__NORMAL_MACRO_EXPORTER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1484__NORMAL_MACRO_EXPORTER.nbval = 0; /*iniobj dsym_1485__MACROXPORTER_*/ if (!/*_.VALDATA___V1614*/ curfptr[1613]) /*_.VALDATA___V1614*/ curfptr[1613] = (void*)&cdat->dsym_1485__MACROXPORTER_; basilys_assertmsg("iniobj checkdiscr dsym_1485__MACROXPORTER_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1485__MACROXPORTER_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1485__MACROXPORTER_.obj_hash = 665420847; cdat->dsym_1485__MACROXPORTER_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1485__MACROXPORTER_)); /*inistring dstr_1486__MACROXPORTER_*/ /*_.VALSTR___V1615*/ curfptr[1614] = (void*)&cdat->dstr_1486__MACROXPORTER_; cdat->dstr_1486__MACROXPORTER_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1486__MACROXPORTER_.val, "_MACROXPORTER_"); /*iniobj dsym_1487__SYSDATA_MACRO_EXPORTER*/ if (!/*_.VALDATA___V1617*/ curfptr[1616]) /*_.VALDATA___V1617*/ curfptr[1616] = (void*)&cdat->dsym_1487__SYSDATA_MACRO_EXPORTER; basilys_assertmsg("iniobj checkdiscr dsym_1487__SYSDATA_MACRO_EXPORTER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1487__SYSDATA_MACRO_EXPORTER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1487__SYSDATA_MACRO_EXPORTER.obj_hash = 1031773185; cdat->dsym_1487__SYSDATA_MACRO_EXPORTER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1487__SYSDATA_MACRO_EXPORTER)); /*inistring dstr_1488__SYSDATA_MACRO_EX*/ /*_.VALSTR___V1618*/ curfptr[1617] = (void*)&cdat->dstr_1488__SYSDATA_MACRO_EX; cdat->dstr_1488__SYSDATA_MACRO_EX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1488__SYSDATA_MACRO_EX.val, "SYSDATA_MACRO_EXPORTER"); /*inirout drout_1489__NORMAL_EXPORTED_MACRO*/ /*_.VALROUT___V1619*/ curfptr[1618] = (void*)&cdat->drout_1489__NORMAL_EXPORTED_MACRO; cdat->drout_1489__NORMAL_EXPORTED_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1489__NORMAL_EXPORTED_MACRO.routdescr, "NORMAL_EXPORTED_MACRO @warmelt-normal.bysl:3940", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1489__NORMAL_EXPORTED_MACRO.nbval = 18; *(basilysroutfun_t **) (cdat->drout_1489__NORMAL_EXPORTED_MACRO.routaddr) = rout_119_NORMAL_EXPORTED_MACRO; /*iniclos dclo_1490__NORMAL_EXPORTED_MACRO*/ /*_.VALCLO___V1622*/ curfptr[1621] = (void*)&cdat->dclo_1490__NORMAL_EXPORTED_MACRO; cdat->dclo_1490__NORMAL_EXPORTED_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1490__NORMAL_EXPORTED_MACRO.nbval = 0; /*iniobj dsym_1491__EXPORTEDM_*/ if (!/*_.VALDATA___V1620*/ curfptr[1619]) /*_.VALDATA___V1620*/ curfptr[1619] = (void*)&cdat->dsym_1491__EXPORTEDM_; basilys_assertmsg("iniobj checkdiscr dsym_1491__EXPORTEDM_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1491__EXPORTEDM_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1491__EXPORTEDM_.obj_hash = 749180905; cdat->dsym_1491__EXPORTEDM_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1491__EXPORTEDM_)); /*inistring dstr_1492__EXPORTEDM_*/ /*_.VALSTR___V1621*/ curfptr[1620] = (void*)&cdat->dstr_1492__EXPORTEDM_; cdat->dstr_1492__EXPORTEDM_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1492__EXPORTEDM_.val, "_EXPORTEDM_"); /*inirout drout_1493__NORMEXP_EXPORT_MACRO*/ /*_.VALROUT___V1623*/ curfptr[1622] = (void*)&cdat->drout_1493__NORMEXP_EXPORT_MACRO; cdat->drout_1493__NORMEXP_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1493__NORMEXP_EXPORT_MACRO.routdescr, "NORMEXP_EXPORT_MACRO @warmelt-normal.bysl:3990", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1493__NORMEXP_EXPORT_MACRO.nbval = 11; *(basilysroutfun_t **) (cdat->drout_1493__NORMEXP_EXPORT_MACRO.routaddr) = rout_120_NORMEXP_EXPORT_MACRO; /*iniclos dclo_1494__NORMEXP_EXPORT_MACRO*/ /*_.VALCLO___V1624*/ curfptr[1623] = (void*)&cdat->dclo_1494__NORMEXP_EXPORT_MACRO; cdat->dclo_1494__NORMEXP_EXPORT_MACRO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1494__NORMEXP_EXPORT_MACRO.nbval = 0; /*iniobj dsym_1495__CLASS_SRC_EXPORT_MACRO*/ if (!/*_.VALDATA___V1625*/ curfptr[1624]) /*_.VALDATA___V1625*/ curfptr[1624] = (void*)&cdat->dsym_1495__CLASS_SRC_EXPORT_MACRO; basilys_assertmsg("iniobj checkdiscr dsym_1495__CLASS_SRC_EXPORT_MACRO", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1495__CLASS_SRC_EXPORT_MACRO.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1495__CLASS_SRC_EXPORT_MACRO.obj_hash = 499817380; cdat->dsym_1495__CLASS_SRC_EXPORT_MACRO.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1495__CLASS_SRC_EXPORT_MACRO)); /*inistring dstr_1496__CLASS_SRC_EXPORT*/ /*_.VALSTR___V1626*/ curfptr[1625] = (void*)&cdat->dstr_1496__CLASS_SRC_EXPORT; cdat->dstr_1496__CLASS_SRC_EXPORT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1496__CLASS_SRC_EXPORT.val, "CLASS_SRC_EXPORT_MACRO"); /*inirout drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1627*/ curfptr[1626] = (void*)&cdat->drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-normal.bysl:4021", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 7; *(basilysroutfun_t **) (cdat->drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routaddr) = rout_121_NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER; /*iniclos dclo_1498__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALCLO___V1628*/ curfptr[1627] = (void*)&cdat->dclo_1498__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1498__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1498__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*inirout drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT*/ /*_.VALROUT___V1629*/ curfptr[1628] = (void*)&cdat->drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT; cdat->drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT.routdescr, "NORMEXP_PARENT_MODULE_ENVIRONMENT @warmelt-normal.bysl:4053", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT.nbval = 7; *(basilysroutfun_t **) (cdat->drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT.routaddr) = rout_122_NORMEXP_PARENT_MODULE_ENVIRONMENT; /*iniclos dclo_1500__NORMEXP_PARENT_MODULE_ENVIRONMENT*/ /*_.VALCLO___V1630*/ curfptr[1629] = (void*)&cdat->dclo_1500__NORMEXP_PARENT_MODULE_ENVIRONMENT; cdat->dclo_1500__NORMEXP_PARENT_MODULE_ENVIRONMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1500__NORMEXP_PARENT_MODULE_ENVIRONMENT.nbval = 0; /*iniobj dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ if (!/*_.VALDATA___V1631*/ curfptr[1630]) /*_.VALDATA___V1631*/ curfptr[1630] = (void*)&cdat->dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_hash = 98598467; cdat->dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1501__CLASS_SRC_PARENT_MODULE_ENVIRONMENT)); /*inistring dstr_1502__CLASS_SRC_PARENT*/ /*_.VALSTR___V1632*/ curfptr[1631] = (void*)&cdat->dstr_1502__CLASS_SRC_PARENT; cdat->dstr_1502__CLASS_SRC_PARENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1502__CLASS_SRC_PARENT.val, "CLASS_SRC_PARENT_MODULE_ENVIRONMENT"); /*inirout drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALROUT___V1633*/ curfptr[1632] = (void*)&cdat->drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routdescr, "NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER @warmelt-normal.bysl:4079", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 23; *(basilysroutfun_t **) (cdat->drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.routaddr) = rout_123_NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; /*iniclos dclo_1504__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.VALCLO___V1636*/ curfptr[1635] = (void*)&cdat->dclo_1504__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; cdat->dclo_1504__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1504__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.nbval = 0; /*iniobj dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V1637*/ curfptr[1636]) /*_.VALDATA___V1637*/ curfptr[1636] = (void*)&cdat->dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 165024192; cdat->dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1505__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_1506__CLASS_SRC_UPDATE*/ /*_.VALSTR___V1638*/ curfptr[1637] = (void*)&cdat->dstr_1506__CLASS_SRC_UPDATE; cdat->dstr_1506__CLASS_SRC_UPDATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1506__CLASS_SRC_UPDATE.val, "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*iniobj dsym_1507__UPDATCURMODENVBOX_*/ if (!/*_.VALDATA___V1634*/ curfptr[1633]) /*_.VALDATA___V1634*/ curfptr[1633] = (void*)&cdat->dsym_1507__UPDATCURMODENVBOX_; basilys_assertmsg("iniobj checkdiscr dsym_1507__UPDATCURMODENVBOX_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1507__UPDATCURMODENVBOX_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1507__UPDATCURMODENVBOX_.obj_hash = 884318142; cdat->dsym_1507__UPDATCURMODENVBOX_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1507__UPDATCURMODENVBOX_)); /*inistring dstr_1508__UPDATCURMODENVBO*/ /*_.VALSTR___V1635*/ curfptr[1634] = (void*)&cdat->dstr_1508__UPDATCURMODENVBO; cdat->dstr_1508__UPDATCURMODENVBO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1508__UPDATCURMODENVBO.val, "UPDATCURMODENVBOX_"); /*iniobj dsym_1509__CLASS_SRC_FETCH_PREDEFINED*/ if (!/*_.VALDATA___V1639*/ curfptr[1638]) /*_.VALDATA___V1639*/ curfptr[1638] = (void*)&cdat->dsym_1509__CLASS_SRC_FETCH_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_1509__CLASS_SRC_FETCH_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1509__CLASS_SRC_FETCH_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1509__CLASS_SRC_FETCH_PREDEFINED.obj_hash = 742491529; cdat->dsym_1509__CLASS_SRC_FETCH_PREDEFINED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1509__CLASS_SRC_FETCH_PREDEFINED)); /*inistring dstr_1510__CLASS_SRC_FETCH_*/ /*_.VALSTR___V1640*/ curfptr[1639] = (void*)&cdat->dstr_1510__CLASS_SRC_FETCH_; cdat->dstr_1510__CLASS_SRC_FETCH_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1510__CLASS_SRC_FETCH_.val, "CLASS_SRC_FETCH_PREDEFINED"); /*iniobj dsym_1511__SYSDATA_CONT_FRESH_ENV*/ if (!/*_.VALDATA___V1641*/ curfptr[1640]) /*_.VALDATA___V1641*/ curfptr[1640] = (void*)&cdat->dsym_1511__SYSDATA_CONT_FRESH_ENV; basilys_assertmsg("iniobj checkdiscr dsym_1511__SYSDATA_CONT_FRESH_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1511__SYSDATA_CONT_FRESH_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1511__SYSDATA_CONT_FRESH_ENV.obj_hash = 628092944; cdat->dsym_1511__SYSDATA_CONT_FRESH_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1511__SYSDATA_CONT_FRESH_ENV)); /*inistring dstr_1512__SYSDATA_CONT_FRE*/ /*_.VALSTR___V1642*/ curfptr[1641] = (void*)&cdat->dstr_1512__SYSDATA_CONT_FRE; cdat->dstr_1512__SYSDATA_CONT_FRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1512__SYSDATA_CONT_FRE.val, "SYSDATA_CONT_FRESH_ENV"); /*inirout drout_1513__NORMEXP_FETCH_PREDEFINED*/ /*_.VALROUT___V1643*/ curfptr[1642] = (void*)&cdat->drout_1513__NORMEXP_FETCH_PREDEFINED; cdat->drout_1513__NORMEXP_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1513__NORMEXP_FETCH_PREDEFINED.routdescr, "NORMEXP_FETCH_PREDEFINED @warmelt-normal.bysl:4164", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1513__NORMEXP_FETCH_PREDEFINED.nbval = 9; *(basilysroutfun_t **) (cdat->drout_1513__NORMEXP_FETCH_PREDEFINED.routaddr) = rout_124_NORMEXP_FETCH_PREDEFINED; /*iniclos dclo_1514__NORMEXP_FETCH_PREDEFINED*/ /*_.VALCLO___V1645*/ curfptr[1644] = (void*)&cdat->dclo_1514__NORMEXP_FETCH_PREDEFINED; cdat->dclo_1514__NORMEXP_FETCH_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1514__NORMEXP_FETCH_PREDEFINED.nbval = 0; /*iniobj dsym_1515__MAPOBJECT_EVERY*/ if (!/*_.VALDATA___V1646*/ curfptr[1645]) /*_.VALDATA___V1646*/ curfptr[1645] = (void*)&cdat->dsym_1515__MAPOBJECT_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_1515__MAPOBJECT_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1515__MAPOBJECT_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1515__MAPOBJECT_EVERY.obj_hash = 726732435; cdat->dsym_1515__MAPOBJECT_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1515__MAPOBJECT_EVERY)); /*inistring dstr_1516__MAPOBJECT_EVERY*/ /*_.VALSTR___V1647*/ curfptr[1646] = (void*)&cdat->dstr_1516__MAPOBJECT_EVERY; cdat->dstr_1516__MAPOBJECT_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1516__MAPOBJECT_EVERY.val, "MAPOBJECT_EVERY"); /*inirout drout_1517__LAMBDA_*/ /*_.VALROUT___V1644*/ curfptr[1643] = (void*)&cdat->drout_1517__LAMBDA_; cdat->drout_1517__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1517__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:4179", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1517__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1517__LAMBDA_.routaddr) = rout_125_LAMBDA_; /*inirout drout_1518__NORMEXP_STORE_PREDEFINED*/ /*_.VALROUT___V1648*/ curfptr[1647] = (void*)&cdat->drout_1518__NORMEXP_STORE_PREDEFINED; cdat->drout_1518__NORMEXP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1518__NORMEXP_STORE_PREDEFINED.routdescr, "NORMEXP_STORE_PREDEFINED @warmelt-normal.bysl:4210", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1518__NORMEXP_STORE_PREDEFINED.nbval = 16; *(basilysroutfun_t **) (cdat->drout_1518__NORMEXP_STORE_PREDEFINED.routaddr) = rout_126_NORMEXP_STORE_PREDEFINED; /*iniclos dclo_1519__NORMEXP_STORE_PREDEFINED*/ /*_.VALCLO___V1652*/ curfptr[1651] = (void*)&cdat->dclo_1519__NORMEXP_STORE_PREDEFINED; cdat->dclo_1519__NORMEXP_STORE_PREDEFINED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_1519__NORMEXP_STORE_PREDEFINED.nbval = 0; /*iniobj dsym_1520__CLASS_SRC_STORE_PREDEFINED*/ if (!/*_.VALDATA___V1653*/ curfptr[1652]) /*_.VALDATA___V1653*/ curfptr[1652] = (void*)&cdat->dsym_1520__CLASS_SRC_STORE_PREDEFINED; basilys_assertmsg("iniobj checkdiscr dsym_1520__CLASS_SRC_STORE_PREDEFINED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1520__CLASS_SRC_STORE_PREDEFINED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1520__CLASS_SRC_STORE_PREDEFINED.obj_hash = 60451158; cdat->dsym_1520__CLASS_SRC_STORE_PREDEFINED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1520__CLASS_SRC_STORE_PREDEFINED)); /*inistring dstr_1521__CLASS_SRC_STORE_*/ /*_.VALSTR___V1654*/ curfptr[1653] = (void*)&cdat->dstr_1521__CLASS_SRC_STORE_; cdat->dstr_1521__CLASS_SRC_STORE_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1521__CLASS_SRC_STORE_.val, "CLASS_SRC_STORE_PREDEFINED"); /*inirout drout_1522__LAMBDA_*/ /*_.VALROUT___V1649*/ curfptr[1648] = (void*)&cdat->drout_1522__LAMBDA_; cdat->drout_1522__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_1522__LAMBDA_.routdescr, "LAMBDA_ @warmelt-normal.bysl:4226", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_1522__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_1522__LAMBDA_.routaddr) = rout_127_LAMBDA_; /*iniobj dsym_1523__STOREPREDEF_*/ if (!/*_.VALDATA___V1650*/ curfptr[1649]) /*_.VALDATA___V1650*/ curfptr[1649] = (void*)&cdat->dsym_1523__STOREPREDEF_; basilys_assertmsg("iniobj checkdiscr dsym_1523__STOREPREDEF_", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1523__STOREPREDEF_.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1523__STOREPREDEF_.obj_hash = 697353008; cdat->dsym_1523__STOREPREDEF_.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1523__STOREPREDEF_)); /*inistring dstr_1524__STOREPREDEF_*/ /*_.VALSTR___V1651*/ curfptr[1650] = (void*)&cdat->dstr_1524__STOREPREDEF_; cdat->dstr_1524__STOREPREDEF_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_1524__STOREPREDEF_.val, "_STOREPREDEF_"); 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 = 1744; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; /**initial routine prologue**/ /**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_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___V131*/ curfptr[130]) /*_.VALDATA___V131*/ curfptr[130] = (void*) sy_CLASS_SYMBOL; } /*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___V133*/ curfptr[132]) /*_.VALDATA___V133*/ curfptr[132] = (void*) sy_CLASS_CLASS; } /*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___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (void*) sy_DEBUG_MSG_FUN; } /*getnamedsym:INSTALL_INITIAL_MACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INSTALL_INITIAL_MACRO = basilysgc_named_symbol("INSTALL_INITIAL_MACRO", BASILYS_GET); if (sy_INSTALL_INITIAL_MACRO && NULL == /*_.VALDATA___V137*/ curfptr[136]) /*_.VALDATA___V137*/ curfptr[136] = (void*) sy_INSTALL_INITIAL_MACRO; } /*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___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*) sy_CLASS_NREP; } /*getnamedsym:CLASS_ROOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ROOT = basilysgc_named_symbol("CLASS_ROOT", BASILYS_GET); if (sy_CLASS_ROOT && NULL == /*_.VALDATA___V141*/ curfptr[140]) /*_.VALDATA___V141*/ curfptr[140] = (void*) sy_CLASS_ROOT; } /*getnamedsym:NREP_LOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NREP_LOC = basilysgc_named_symbol("NREP_LOC", BASILYS_GET); if (sy_NREP_LOC && NULL == /*_.VALDATA___V149*/ curfptr[148]) /*_.VALDATA___V149*/ curfptr[148] = (void*) sy_NREP_LOC; } /*getnamedsym:CLASS_NREP_SIMPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_SIMPLE = basilysgc_named_symbol("CLASS_NREP_SIMPLE", BASILYS_GET); if (sy_CLASS_NREP_SIMPLE && NULL == /*_.VALDATA___V151*/ curfptr[150]) /*_.VALDATA___V151*/ curfptr[150] = (void*) sy_CLASS_NREP_SIMPLE; } /*getnamedsym:CLASS_NREP_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_EXPR = basilysgc_named_symbol("CLASS_NREP_EXPR", BASILYS_GET); if (sy_CLASS_NREP_EXPR && NULL == /*_.VALDATA___V157*/ curfptr[156]) /*_.VALDATA___V157*/ curfptr[156] = (void*) sy_CLASS_NREP_EXPR; } /*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___V163*/ curfptr[162]) /*_.VALDATA___V163*/ curfptr[162] = (void*) sy_CLASS_NREP_APPLY; } /*getnamedsym:NAPP_FUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NAPP_FUN = basilysgc_named_symbol("NAPP_FUN", BASILYS_GET); if (sy_NAPP_FUN && NULL == /*_.VALDATA___V173*/ curfptr[172]) /*_.VALDATA___V173*/ curfptr[172] = (void*) sy_NAPP_FUN; } /*getnamedsym:NAPP_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NAPP_ARGS = basilysgc_named_symbol("NAPP_ARGS", BASILYS_GET); if (sy_NAPP_ARGS && NULL == /*_.VALDATA___V175*/ curfptr[174]) /*_.VALDATA___V175*/ curfptr[174] = (void*) sy_NAPP_ARGS; } /*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___V177*/ curfptr[176]) /*_.VALDATA___V177*/ curfptr[176] = (void*) sy_CLASS_NREP_MULTIAPPLY; } /*getnamedsym:NMULAPP_BINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMULAPP_BINDINGS = basilysgc_named_symbol("NMULAPP_BINDINGS", BASILYS_GET); if (sy_NMULAPP_BINDINGS && NULL == /*_.VALDATA___V187*/ curfptr[186]) /*_.VALDATA___V187*/ curfptr[186] = (void*) sy_NMULAPP_BINDINGS; } /*getnamedsym:NMULAPP_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMULAPP_BODY = basilysgc_named_symbol("NMULAPP_BODY", BASILYS_GET); if (sy_NMULAPP_BODY && NULL == /*_.VALDATA___V189*/ curfptr[188]) /*_.VALDATA___V189*/ curfptr[188] = (void*) sy_NMULAPP_BODY; } /*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___V191*/ curfptr[190]) /*_.VALDATA___V191*/ curfptr[190] = (void*) sy_CLASS_NREP_MSEND; } /*getnamedsym:NSEND_SEL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSEND_SEL = basilysgc_named_symbol("NSEND_SEL", BASILYS_GET); if (sy_NSEND_SEL && NULL == /*_.VALDATA___V203*/ curfptr[202]) /*_.VALDATA___V203*/ curfptr[202] = (void*) sy_NSEND_SEL; } /*getnamedsym:NSEND_RECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSEND_RECV = basilysgc_named_symbol("NSEND_RECV", BASILYS_GET); if (sy_NSEND_RECV && NULL == /*_.VALDATA___V205*/ curfptr[204]) /*_.VALDATA___V205*/ curfptr[204] = (void*) sy_NSEND_RECV; } /*getnamedsym:NSEND_ARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSEND_ARGS = basilysgc_named_symbol("NSEND_ARGS", BASILYS_GET); if (sy_NSEND_ARGS && NULL == /*_.VALDATA___V207*/ curfptr[206]) /*_.VALDATA___V207*/ curfptr[206] = (void*) sy_NSEND_ARGS; } /*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___V209*/ curfptr[208]) /*_.VALDATA___V209*/ curfptr[208] = (void*) sy_CLASS_NREP_MULTIMSEND; } /*getnamedsym:NMULSEND_BINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMULSEND_BINDINGS = basilysgc_named_symbol("NMULSEND_BINDINGS", BASILYS_GET); if (sy_NMULSEND_BINDINGS && NULL == /*_.VALDATA___V219*/ curfptr[218]) /*_.VALDATA___V219*/ curfptr[218] = (void*) sy_NMULSEND_BINDINGS; } /*getnamedsym:NMULSEND_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMULSEND_BODY = basilysgc_named_symbol("NMULSEND_BODY", BASILYS_GET); if (sy_NMULSEND_BODY && NULL == /*_.VALDATA___V221*/ curfptr[220]) /*_.VALDATA___V221*/ curfptr[220] = (void*) sy_NMULSEND_BODY; } /*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___V223*/ curfptr[222]) /*_.VALDATA___V223*/ curfptr[222] = (void*) sy_CLASS_NREP_CHUNK; } /*getnamedsym:NCHUNK_EXPANSION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCHUNK_EXPANSION = basilysgc_named_symbol("NCHUNK_EXPANSION", BASILYS_GET); if (sy_NCHUNK_EXPANSION && NULL == /*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (void*) sy_NCHUNK_EXPANSION; } /*getnamedsym:NCHUNK_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCHUNK_PRIMITIVE = basilysgc_named_symbol("NCHUNK_PRIMITIVE", BASILYS_GET); if (sy_NCHUNK_PRIMITIVE && NULL == /*_.VALDATA___V235*/ curfptr[234]) /*_.VALDATA___V235*/ curfptr[234] = (void*) sy_NCHUNK_PRIMITIVE; } /*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___V237*/ curfptr[236]) /*_.VALDATA___V237*/ curfptr[236] = (void*) sy_CLASS_NREP_COMMENT; } /*getnamedsym:NCOMM_STRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCOMM_STRING = basilysgc_named_symbol("NCOMM_STRING", BASILYS_GET); if (sy_NCOMM_STRING && NULL == /*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*) sy_NCOMM_STRING; } /*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___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (void*) sy_CLASS_NREP_LET; } /*getnamedsym:NLET_BINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NLET_BINDINGS = basilysgc_named_symbol("NLET_BINDINGS", BASILYS_GET); if (sy_NLET_BINDINGS && NULL == /*_.VALDATA___V257*/ curfptr[256]) /*_.VALDATA___V257*/ curfptr[256] = (void*) sy_NLET_BINDINGS; } /*getnamedsym:NLET_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NLET_BODY = basilysgc_named_symbol("NLET_BODY", BASILYS_GET); if (sy_NLET_BODY && NULL == /*_.VALDATA___V259*/ curfptr[258]) /*_.VALDATA___V259*/ curfptr[258] = (void*) sy_NLET_BODY; } /*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___V261*/ curfptr[260]) /*_.VALDATA___V261*/ curfptr[260] = (void*) sy_CLASS_NREP_RETURN; } /*getnamedsym:NRET_MAIN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRET_MAIN = basilysgc_named_symbol("NRET_MAIN", BASILYS_GET); if (sy_NRET_MAIN && NULL == /*_.VALDATA___V271*/ curfptr[270]) /*_.VALDATA___V271*/ curfptr[270] = (void*) sy_NRET_MAIN; } /*getnamedsym:NRET_REST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRET_REST = basilysgc_named_symbol("NRET_REST", BASILYS_GET); if (sy_NRET_REST && NULL == /*_.VALDATA___V273*/ curfptr[272]) /*_.VALDATA___V273*/ curfptr[272] = (void*) sy_NRET_REST; } /*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___V275*/ curfptr[274]) /*_.VALDATA___V275*/ curfptr[274] = (void*) sy_CLASS_NREP_IF; } /*getnamedsym:NIF_TEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIF_TEST = basilysgc_named_symbol("NIF_TEST", BASILYS_GET); if (sy_NIF_TEST && NULL == /*_.VALDATA___V289*/ curfptr[288]) /*_.VALDATA___V289*/ curfptr[288] = (void*) sy_NIF_TEST; } /*getnamedsym:NIF_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIF_THEN = basilysgc_named_symbol("NIF_THEN", BASILYS_GET); if (sy_NIF_THEN && NULL == /*_.VALDATA___V291*/ curfptr[290]) /*_.VALDATA___V291*/ curfptr[290] = (void*) sy_NIF_THEN; } /*getnamedsym:NIF_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIF_ELSE = basilysgc_named_symbol("NIF_ELSE", BASILYS_GET); if (sy_NIF_ELSE && NULL == /*_.VALDATA___V293*/ curfptr[292]) /*_.VALDATA___V293*/ curfptr[292] = (void*) sy_NIF_ELSE; } /*getnamedsym:NIF_CTYP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIF_CTYP = basilysgc_named_symbol("NIF_CTYP", BASILYS_GET); if (sy_NIF_CTYP && NULL == /*_.VALDATA___V295*/ curfptr[294]) /*_.VALDATA___V295*/ curfptr[294] = (void*) sy_NIF_CTYP; } /*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___V297*/ curfptr[296]) /*_.VALDATA___V297*/ curfptr[296] = (void*) sy_CLASS_NREP_CPPIF; } /*getnamedsym:NIFP_COND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIFP_COND = basilysgc_named_symbol("NIFP_COND", BASILYS_GET); if (sy_NIFP_COND && NULL == /*_.VALDATA___V311*/ curfptr[310]) /*_.VALDATA___V311*/ curfptr[310] = (void*) sy_NIFP_COND; } /*getnamedsym:NIFP_THEN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIFP_THEN = basilysgc_named_symbol("NIFP_THEN", BASILYS_GET); if (sy_NIFP_THEN && NULL == /*_.VALDATA___V313*/ curfptr[312]) /*_.VALDATA___V313*/ curfptr[312] = (void*) sy_NIFP_THEN; } /*getnamedsym:NIFP_ELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIFP_ELSE = basilysgc_named_symbol("NIFP_ELSE", BASILYS_GET); if (sy_NIFP_ELSE && NULL == /*_.VALDATA___V315*/ curfptr[314]) /*_.VALDATA___V315*/ curfptr[314] = (void*) sy_NIFP_ELSE; } /*getnamedsym:NIFP_CTYP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIFP_CTYP = basilysgc_named_symbol("NIFP_CTYP", BASILYS_GET); if (sy_NIFP_CTYP && NULL == /*_.VALDATA___V317*/ curfptr[316]) /*_.VALDATA___V317*/ curfptr[316] = (void*) sy_NIFP_CTYP; } /*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___V319*/ curfptr[318]) /*_.VALDATA___V319*/ curfptr[318] = (void*) sy_CLASS_NREP_PROGN; } /*getnamedsym:NPROGN_SEQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NPROGN_SEQ = basilysgc_named_symbol("NPROGN_SEQ", BASILYS_GET); if (sy_NPROGN_SEQ && NULL == /*_.VALDATA___V329*/ curfptr[328]) /*_.VALDATA___V329*/ curfptr[328] = (void*) sy_NPROGN_SEQ; } /*getnamedsym:NPROGN_LAST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NPROGN_LAST = basilysgc_named_symbol("NPROGN_LAST", BASILYS_GET); if (sy_NPROGN_LAST && NULL == /*_.VALDATA___V331*/ curfptr[330]) /*_.VALDATA___V331*/ curfptr[330] = (void*) sy_NPROGN_LAST; } /*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___V333*/ curfptr[332]) /*_.VALDATA___V333*/ curfptr[332] = (void*) sy_CLASS_NREP_UNSAFE_GET_FIELD; } /*getnamedsym:NUGET_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NUGET_OBJ = basilysgc_named_symbol("NUGET_OBJ", BASILYS_GET); if (sy_NUGET_OBJ && NULL == /*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*) sy_NUGET_OBJ; } /*getnamedsym:NUGET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NUGET_FIELD = basilysgc_named_symbol("NUGET_FIELD", BASILYS_GET); if (sy_NUGET_FIELD && NULL == /*_.VALDATA___V345*/ curfptr[344]) /*_.VALDATA___V345*/ curfptr[344] = (void*) sy_NUGET_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___V347*/ curfptr[346]) /*_.VALDATA___V347*/ curfptr[346] = (void*) sy_CLASS_NREP_UNSAFE_PUT_FIELDS; } /*getnamedsym:NUPUT_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NUPUT_OBJ = basilysgc_named_symbol("NUPUT_OBJ", BASILYS_GET); if (sy_NUPUT_OBJ && NULL == /*_.VALDATA___V357*/ curfptr[356]) /*_.VALDATA___V357*/ curfptr[356] = (void*) sy_NUPUT_OBJ; } /*getnamedsym:NUPUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NUPUT_FIELDS = basilysgc_named_symbol("NUPUT_FIELDS", BASILYS_GET); if (sy_NUPUT_FIELDS && NULL == /*_.VALDATA___V359*/ curfptr[358]) /*_.VALDATA___V359*/ curfptr[358] = (void*) sy_NUPUT_FIELDS; } /*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___V361*/ curfptr[360]) /*_.VALDATA___V361*/ curfptr[360] = (void*) sy_CLASS_NREP_SETQ; } /*getnamedsym:NSTQ_VAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSTQ_VAR = basilysgc_named_symbol("NSTQ_VAR", BASILYS_GET); if (sy_NSTQ_VAR && NULL == /*_.VALDATA___V371*/ curfptr[370]) /*_.VALDATA___V371*/ curfptr[370] = (void*) sy_NSTQ_VAR; } /*getnamedsym:NSTQ_EXP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSTQ_EXP = basilysgc_named_symbol("NSTQ_EXP", BASILYS_GET); if (sy_NSTQ_EXP && NULL == /*_.VALDATA___V373*/ curfptr[372]) /*_.VALDATA___V373*/ curfptr[372] = (void*) sy_NSTQ_EXP; } /*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___V375*/ curfptr[374]) /*_.VALDATA___V375*/ curfptr[374] = (void*) sy_CLASS_NREP_FOREVER; } /*getnamedsym:NFOREVER_BIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NFOREVER_BIND = basilysgc_named_symbol("NFOREVER_BIND", BASILYS_GET); if (sy_NFOREVER_BIND && NULL == /*_.VALDATA___V387*/ curfptr[386]) /*_.VALDATA___V387*/ curfptr[386] = (void*) sy_NFOREVER_BIND; } /*getnamedsym:NFOREVER_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NFOREVER_BODY = basilysgc_named_symbol("NFOREVER_BODY", BASILYS_GET); if (sy_NFOREVER_BODY && NULL == /*_.VALDATA___V389*/ curfptr[388]) /*_.VALDATA___V389*/ curfptr[388] = (void*) sy_NFOREVER_BODY; } /*getnamedsym:NFOREVER_RESULT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NFOREVER_RESULT = basilysgc_named_symbol("NFOREVER_RESULT", BASILYS_GET); if (sy_NFOREVER_RESULT && NULL == /*_.VALDATA___V391*/ curfptr[390]) /*_.VALDATA___V391*/ curfptr[390] = (void*) sy_NFOREVER_RESULT; } /*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___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*) sy_CLASS_NREP_EXIT; } /*getnamedsym:NEXIT_BIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NEXIT_BIND = basilysgc_named_symbol("NEXIT_BIND", BASILYS_GET); if (sy_NEXIT_BIND && NULL == /*_.VALDATA___V403*/ curfptr[402]) /*_.VALDATA___V403*/ curfptr[402] = (void*) sy_NEXIT_BIND; } /*getnamedsym:NEXIT_VAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NEXIT_VAL = basilysgc_named_symbol("NEXIT_VAL", BASILYS_GET); if (sy_NEXIT_VAL && NULL == /*_.VALDATA___V405*/ curfptr[404]) /*_.VALDATA___V405*/ curfptr[404] = (void*) sy_NEXIT_VAL; } /*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___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*) sy_CLASS_NREP_FIELDASSIGN; } /*getnamedsym:NFLA_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NFLA_FIELD = basilysgc_named_symbol("NFLA_FIELD", BASILYS_GET); if (sy_NFLA_FIELD && NULL == /*_.VALDATA___V417*/ curfptr[416]) /*_.VALDATA___V417*/ curfptr[416] = (void*) sy_NFLA_FIELD; } /*getnamedsym:NFLA_VAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NFLA_VAL = basilysgc_named_symbol("NFLA_VAL", BASILYS_GET); if (sy_NFLA_VAL && NULL == /*_.VALDATA___V419*/ curfptr[418]) /*_.VALDATA___V419*/ curfptr[418] = (void*) sy_NFLA_VAL; } /*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___V421*/ curfptr[420]) /*_.VALDATA___V421*/ curfptr[420] = (void*) sy_CLASS_NREP_MAKE_INSTANCE; } /*getnamedsym:NMINS_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMINS_CLASS = basilysgc_named_symbol("NMINS_CLASS", BASILYS_GET); if (sy_NMINS_CLASS && NULL == /*_.VALDATA___V433*/ curfptr[432]) /*_.VALDATA___V433*/ curfptr[432] = (void*) sy_NMINS_CLASS; } /*getnamedsym:NMINS_CLADATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMINS_CLADATA = basilysgc_named_symbol("NMINS_CLADATA", BASILYS_GET); if (sy_NMINS_CLADATA && NULL == /*_.VALDATA___V435*/ curfptr[434]) /*_.VALDATA___V435*/ curfptr[434] = (void*) sy_NMINS_CLADATA; } /*getnamedsym:NMINS_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NMINS_FIELDS = basilysgc_named_symbol("NMINS_FIELDS", BASILYS_GET); if (sy_NMINS_FIELDS && NULL == /*_.VALDATA___V437*/ curfptr[436]) /*_.VALDATA___V437*/ curfptr[436] = (void*) sy_NMINS_FIELDS; } /*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___V439*/ curfptr[438]) /*_.VALDATA___V439*/ curfptr[438] = (void*) sy_CLASS_NREP_LAMBDA; } /*getnamedsym:NLAMBDA_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NLAMBDA_PROC = basilysgc_named_symbol("NLAMBDA_PROC", BASILYS_GET); if (sy_NLAMBDA_PROC && NULL == /*_.VALDATA___V451*/ curfptr[450]) /*_.VALDATA___V451*/ curfptr[450] = (void*) sy_NLAMBDA_PROC; } /*getnamedsym:NLAMBDA_CONSTROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NLAMBDA_CONSTROUT = basilysgc_named_symbol("NLAMBDA_CONSTROUT", BASILYS_GET); if (sy_NLAMBDA_CONSTROUT && NULL == /*_.VALDATA___V453*/ curfptr[452]) /*_.VALDATA___V453*/ curfptr[452] = (void*) sy_NLAMBDA_CONSTROUT; } /*getnamedsym:NLAMBDA_CLOSEDV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NLAMBDA_CLOSEDV = basilysgc_named_symbol("NLAMBDA_CLOSEDV", BASILYS_GET); if (sy_NLAMBDA_CLOSEDV && NULL == /*_.VALDATA___V455*/ curfptr[454]) /*_.VALDATA___V455*/ curfptr[454] = (void*) sy_NLAMBDA_CLOSEDV; } /*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___V457*/ curfptr[456]) /*_.VALDATA___V457*/ curfptr[456] = (void*) sy_CLASS_NREP_CITERATION; } /*getnamedsym:NCITER_CITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_CITERATOR = basilysgc_named_symbol("NCITER_CITERATOR", BASILYS_GET); if (sy_NCITER_CITERATOR && NULL == /*_.VALDATA___V477*/ curfptr[476]) /*_.VALDATA___V477*/ curfptr[476] = (void*) sy_NCITER_CITERATOR; } /*getnamedsym:NCITER_LOCBINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_LOCBINDINGS = basilysgc_named_symbol("NCITER_LOCBINDINGS", BASILYS_GET); if (sy_NCITER_LOCBINDINGS && NULL == /*_.VALDATA___V479*/ curfptr[478]) /*_.VALDATA___V479*/ curfptr[478] = (void*) sy_NCITER_LOCBINDINGS; } /*getnamedsym:NCITER_CHUNKBEFORE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_CHUNKBEFORE = basilysgc_named_symbol("NCITER_CHUNKBEFORE", BASILYS_GET); if (sy_NCITER_CHUNKBEFORE && NULL == /*_.VALDATA___V481*/ curfptr[480]) /*_.VALDATA___V481*/ curfptr[480] = (void*) sy_NCITER_CHUNKBEFORE; } /*getnamedsym:NCITER_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_BODY = basilysgc_named_symbol("NCITER_BODY", BASILYS_GET); if (sy_NCITER_BODY && NULL == /*_.VALDATA___V483*/ curfptr[482]) /*_.VALDATA___V483*/ curfptr[482] = (void*) sy_NCITER_BODY; } /*getnamedsym:NCITER_STATOCC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_STATOCC = basilysgc_named_symbol("NCITER_STATOCC", BASILYS_GET); if (sy_NCITER_STATOCC && NULL == /*_.VALDATA___V485*/ curfptr[484]) /*_.VALDATA___V485*/ curfptr[484] = (void*) sy_NCITER_STATOCC; } /*getnamedsym:NCITER_BODBINDINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_BODBINDINGS = basilysgc_named_symbol("NCITER_BODBINDINGS", BASILYS_GET); if (sy_NCITER_BODBINDINGS && NULL == /*_.VALDATA___V487*/ curfptr[486]) /*_.VALDATA___V487*/ curfptr[486] = (void*) sy_NCITER_BODBINDINGS; } /*getnamedsym:NCITER_CHUNKAFTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCITER_CHUNKAFTER = basilysgc_named_symbol("NCITER_CHUNKAFTER", BASILYS_GET); if (sy_NCITER_CHUNKAFTER && NULL == /*_.VALDATA___V489*/ curfptr[488]) /*_.VALDATA___V489*/ curfptr[488] = (void*) sy_NCITER_CHUNKAFTER; } /*getnamedsym:CLASS_NREP_ANYPROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_ANYPROC = basilysgc_named_symbol("CLASS_NREP_ANYPROC", BASILYS_GET); if (sy_CLASS_NREP_ANYPROC && NULL == /*_.VALDATA___V491*/ curfptr[490]) /*_.VALDATA___V491*/ curfptr[490] = (void*) sy_CLASS_NREP_ANYPROC; } /*getnamedsym:NPROC_BODY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NPROC_BODY = basilysgc_named_symbol("NPROC_BODY", BASILYS_GET); if (sy_NPROC_BODY && NULL == /*_.VALDATA___V499*/ curfptr[498]) /*_.VALDATA___V499*/ curfptr[498] = (void*) sy_NPROC_BODY; } /*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___V501*/ curfptr[500]) /*_.VALDATA___V501*/ curfptr[500] = (void*) sy_CLASS_NREP_INITPROC; } /*getnamedsym:NINIT_TOPL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NINIT_TOPL = basilysgc_named_symbol("NINIT_TOPL", BASILYS_GET); if (sy_NINIT_TOPL && NULL == /*_.VALDATA___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*) sy_NINIT_TOPL; } /*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___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*) sy_CLASS_NREP_ROUTPROC; } /*getnamedsym:NRPRO_NAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_NAME = basilysgc_named_symbol("NRPRO_NAME", BASILYS_GET); if (sy_NRPRO_NAME && NULL == /*_.VALDATA___V531*/ curfptr[530]) /*_.VALDATA___V531*/ curfptr[530] = (void*) sy_NRPRO_NAME; } /*getnamedsym:NRPRO_ARGB*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_ARGB = basilysgc_named_symbol("NRPRO_ARGB", BASILYS_GET); if (sy_NRPRO_ARGB && NULL == /*_.VALDATA___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*) sy_NRPRO_ARGB; } /*getnamedsym:NRPRO_CLOSEDB*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_CLOSEDB = basilysgc_named_symbol("NRPRO_CLOSEDB", BASILYS_GET); if (sy_NRPRO_CLOSEDB && NULL == /*_.VALDATA___V535*/ curfptr[534]) /*_.VALDATA___V535*/ curfptr[534] = (void*) sy_NRPRO_CLOSEDB; } /*getnamedsym:NRPRO_CONST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_CONST = basilysgc_named_symbol("NRPRO_CONST", BASILYS_GET); if (sy_NRPRO_CONST && NULL == /*_.VALDATA___V537*/ curfptr[536]) /*_.VALDATA___V537*/ curfptr[536] = (void*) sy_NRPRO_CONST; } /*getnamedsym:NRPRO_DATAROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_DATAROUT = basilysgc_named_symbol("NRPRO_DATAROUT", BASILYS_GET); if (sy_NRPRO_DATAROUT && NULL == /*_.VALDATA___V539*/ curfptr[538]) /*_.VALDATA___V539*/ curfptr[538] = (void*) sy_NRPRO_DATAROUT; } /*getnamedsym:NRPRO_DATACLOS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_DATACLOS = basilysgc_named_symbol("NRPRO_DATACLOS", BASILYS_GET); if (sy_NRPRO_DATACLOS && NULL == /*_.VALDATA___V541*/ curfptr[540]) /*_.VALDATA___V541*/ curfptr[540] = (void*) sy_NRPRO_DATACLOS; } /*getnamedsym:NRPRO_THUNKLIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPRO_THUNKLIST = basilysgc_named_symbol("NRPRO_THUNKLIST", BASILYS_GET); if (sy_NRPRO_THUNKLIST && NULL == /*_.VALDATA___V543*/ curfptr[542]) /*_.VALDATA___V543*/ curfptr[542] = (void*) sy_NRPRO_THUNKLIST; } /*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___V545*/ curfptr[544]) /*_.VALDATA___V545*/ curfptr[544] = (void*) sy_CLASS_NREP_PREDEF; } /*getnamedsym:NRPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NRPREDEF = basilysgc_named_symbol("NRPREDEF", BASILYS_GET); if (sy_NRPREDEF && NULL == /*_.VALDATA___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*) sy_NRPREDEF; } /*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___V555*/ curfptr[554]) /*_.VALDATA___V555*/ curfptr[554] = (void*) sy_CLASS_NREP_NIL; } /*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___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*) sy_CLASS_NREP_QUASIDATA; } /*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___V567*/ curfptr[566]) /*_.VALDATA___V567*/ curfptr[566] = (void*) sy_CLASS_NREP_DATA; } /*getnamedsym:NDATA_NAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDATA_NAME = basilysgc_named_symbol("NDATA_NAME", BASILYS_GET); if (sy_NDATA_NAME && NULL == /*_.VALDATA___V581*/ curfptr[580]) /*_.VALDATA___V581*/ curfptr[580] = (void*) sy_NDATA_NAME; } /*getnamedsym:NDATA_DISCRX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDATA_DISCRX = basilysgc_named_symbol("NDATA_DISCRX", BASILYS_GET); if (sy_NDATA_DISCRX && NULL == /*_.VALDATA___V583*/ curfptr[582]) /*_.VALDATA___V583*/ curfptr[582] = (void*) sy_NDATA_DISCRX; } /*getnamedsym:NDATA_RANK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDATA_RANK = basilysgc_named_symbol("NDATA_RANK", BASILYS_GET); if (sy_NDATA_RANK && NULL == /*_.VALDATA___V585*/ curfptr[584]) /*_.VALDATA___V585*/ curfptr[584] = (void*) sy_NDATA_RANK; } /*getnamedsym:NDATA_LOCBIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDATA_LOCBIND = basilysgc_named_symbol("NDATA_LOCBIND", BASILYS_GET); if (sy_NDATA_LOCBIND && NULL == /*_.VALDATA___V587*/ curfptr[586]) /*_.VALDATA___V587*/ curfptr[586] = (void*) sy_NDATA_LOCBIND; } /*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___V589*/ curfptr[588]) /*_.VALDATA___V589*/ curfptr[588] = (void*) sy_CLASS_NREP_DATAINSTANCE; } /*getnamedsym:NINST_OBJNUM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NINST_OBJNUM = basilysgc_named_symbol("NINST_OBJNUM", BASILYS_GET); if (sy_NINST_OBJNUM && NULL == /*_.VALDATA___V603*/ curfptr[602]) /*_.VALDATA___V603*/ curfptr[602] = (void*) sy_NINST_OBJNUM; } /*getnamedsym:NINST_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NINST_PREDEF = basilysgc_named_symbol("NINST_PREDEF", BASILYS_GET); if (sy_NINST_PREDEF && NULL == /*_.VALDATA___V605*/ curfptr[604]) /*_.VALDATA___V605*/ curfptr[604] = (void*) sy_NINST_PREDEF; } /*getnamedsym:NINST_HASH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NINST_HASH = basilysgc_named_symbol("NINST_HASH", BASILYS_GET); if (sy_NINST_HASH && NULL == /*_.VALDATA___V607*/ curfptr[606]) /*_.VALDATA___V607*/ curfptr[606] = (void*) sy_NINST_HASH; } /*getnamedsym:NINST_SLOTS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NINST_SLOTS = basilysgc_named_symbol("NINST_SLOTS", BASILYS_GET); if (sy_NINST_SLOTS && NULL == /*_.VALDATA___V609*/ curfptr[608]) /*_.VALDATA___V609*/ curfptr[608] = (void*) sy_NINST_SLOTS; } /*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___V611*/ curfptr[610]) /*_.VALDATA___V611*/ curfptr[610] = (void*) sy_CLASS_NREP_DATASTRING; } /*getnamedsym:NSTR_STRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSTR_STRING = basilysgc_named_symbol("NSTR_STRING", BASILYS_GET); if (sy_NSTR_STRING && NULL == /*_.VALDATA___V619*/ curfptr[618]) /*_.VALDATA___V619*/ curfptr[618] = (void*) sy_NSTR_STRING; } /*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___V621*/ curfptr[620]) /*_.VALDATA___V621*/ curfptr[620] = (void*) sy_CLASS_NREP_DATATUPLE; } /*getnamedsym:NTUP_COMP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NTUP_COMP = basilysgc_named_symbol("NTUP_COMP", BASILYS_GET); if (sy_NTUP_COMP && NULL == /*_.VALDATA___V629*/ curfptr[628]) /*_.VALDATA___V629*/ curfptr[628] = (void*) sy_NTUP_COMP; } /*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___V631*/ curfptr[630]) /*_.VALDATA___V631*/ curfptr[630] = (void*) sy_CLASS_NREP_DATASYMBOL; } /*getnamedsym:NDSY_NAMESTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDSY_NAMESTR = basilysgc_named_symbol("NDSY_NAMESTR", BASILYS_GET); if (sy_NDSY_NAMESTR && NULL == /*_.VALDATA___V639*/ curfptr[638]) /*_.VALDATA___V639*/ curfptr[638] = (void*) sy_NDSY_NAMESTR; } /*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___V641*/ curfptr[640]) /*_.VALDATA___V641*/ curfptr[640] = (void*) sy_CLASS_NREP_DATAKEYWORD; } /*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___V647*/ curfptr[646]) /*_.VALDATA___V647*/ curfptr[646] = (void*) sy_CLASS_NREP_DATAROUTINE; } /*getnamedsym:NDROU_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDROU_PROC = basilysgc_named_symbol("NDROU_PROC", BASILYS_GET); if (sy_NDROU_PROC && NULL == /*_.VALDATA___V655*/ curfptr[654]) /*_.VALDATA___V655*/ curfptr[654] = (void*) sy_NDROU_PROC; } /*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___V657*/ curfptr[656]) /*_.VALDATA___V657*/ curfptr[656] = (void*) sy_CLASS_NREP_DATACLOSURE; } /*getnamedsym:NDCLO_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDCLO_PROC = basilysgc_named_symbol("NDCLO_PROC", BASILYS_GET); if (sy_NDCLO_PROC && NULL == /*_.VALDATA___V667*/ curfptr[666]) /*_.VALDATA___V667*/ curfptr[666] = (void*) sy_NDCLO_PROC; } /*getnamedsym:NDCLO_CLOSV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NDCLO_CLOSV = basilysgc_named_symbol("NDCLO_CLOSV", BASILYS_GET); if (sy_NDCLO_CLOSV && NULL == /*_.VALDATA___V669*/ curfptr[668]) /*_.VALDATA___V669*/ curfptr[668] = (void*) sy_NDCLO_CLOSV; } /*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___V671*/ curfptr[670]) /*_.VALDATA___V671*/ curfptr[670] = (void*) sy_CLASS_NREP_IMPORTEDVAL; } /*getnamedsym:NIMPORT_SYMB*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIMPORT_SYMB = basilysgc_named_symbol("NIMPORT_SYMB", BASILYS_GET); if (sy_NIMPORT_SYMB && NULL == /*_.VALDATA___V681*/ curfptr[680]) /*_.VALDATA___V681*/ curfptr[680] = (void*) sy_NIMPORT_SYMB; } /*getnamedsym:NIMPORT_SYDATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NIMPORT_SYDATA = basilysgc_named_symbol("NIMPORT_SYDATA", BASILYS_GET); if (sy_NIMPORT_SYDATA && NULL == /*_.VALDATA___V683*/ curfptr[682]) /*_.VALDATA___V683*/ curfptr[682] = (void*) sy_NIMPORT_SYDATA; } /*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___V685*/ curfptr[684]) /*_.VALDATA___V685*/ curfptr[684] = (void*) sy_CLASS_NREP_SYMOCC; } /*getnamedsym:NOCC_SYMB*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NOCC_SYMB = basilysgc_named_symbol("NOCC_SYMB", BASILYS_GET); if (sy_NOCC_SYMB && NULL == /*_.VALDATA___V697*/ curfptr[696]) /*_.VALDATA___V697*/ curfptr[696] = (void*) sy_NOCC_SYMB; } /*getnamedsym:NOCC_CTYP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NOCC_CTYP = basilysgc_named_symbol("NOCC_CTYP", BASILYS_GET); if (sy_NOCC_CTYP && NULL == /*_.VALDATA___V699*/ curfptr[698]) /*_.VALDATA___V699*/ curfptr[698] = (void*) sy_NOCC_CTYP; } /*getnamedsym:NOCC_BIND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NOCC_BIND = basilysgc_named_symbol("NOCC_BIND", BASILYS_GET); if (sy_NOCC_BIND && NULL == /*_.VALDATA___V701*/ curfptr[700]) /*_.VALDATA___V701*/ curfptr[700] = (void*) sy_NOCC_BIND; } /*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___V703*/ curfptr[702]) /*_.VALDATA___V703*/ curfptr[702] = (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___V709*/ curfptr[708]) /*_.VALDATA___V709*/ curfptr[708] = (void*) sy_CLASS_NREP_CLOSEDOCC; } /*getnamedsym:NCLOC_PROCS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCLOC_PROCS = basilysgc_named_symbol("NCLOC_PROCS", BASILYS_GET); if (sy_NCLOC_PROCS && NULL == /*_.VALDATA___V717*/ curfptr[716]) /*_.VALDATA___V717*/ curfptr[716] = (void*) sy_NCLOC_PROCS; } /*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___V719*/ curfptr[718]) /*_.VALDATA___V719*/ curfptr[718] = (void*) sy_CLASS_NREP_CONSTOCC; } /*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___V725*/ curfptr[724]) /*_.VALDATA___V725*/ curfptr[724] = (void*) sy_CLASS_NREP_QUASICONSTANT; } /*getnamedsym:NCONST_SVAL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCONST_SVAL = basilysgc_named_symbol("NCONST_SVAL", BASILYS_GET); if (sy_NCONST_SVAL && NULL == /*_.VALDATA___V737*/ curfptr[736]) /*_.VALDATA___V737*/ curfptr[736] = (void*) sy_NCONST_SVAL; } /*getnamedsym:NCONST_PROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCONST_PROC = basilysgc_named_symbol("NCONST_PROC", BASILYS_GET); if (sy_NCONST_PROC && NULL == /*_.VALDATA___V739*/ curfptr[738]) /*_.VALDATA___V739*/ curfptr[738] = (void*) sy_NCONST_PROC; } /*getnamedsym:NCONST_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCONST_DATA = basilysgc_named_symbol("NCONST_DATA", BASILYS_GET); if (sy_NCONST_DATA && NULL == /*_.VALDATA___V741*/ curfptr[740]) /*_.VALDATA___V741*/ curfptr[740] = (void*) sy_NCONST_DATA; } /*getnamedsym:CLASS_NREP_CONSTANT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_CONSTANT = basilysgc_named_symbol("CLASS_NREP_CONSTANT", BASILYS_GET); if (sy_CLASS_NREP_CONSTANT && NULL == /*_.VALDATA___V743*/ curfptr[742]) /*_.VALDATA___V743*/ curfptr[742] = (void*) sy_CLASS_NREP_CONSTANT; } /*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___V749*/ curfptr[748]) /*_.VALDATA___V749*/ curfptr[748] = (void*) sy_CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:NQCMEC_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NQCMEC_COMMENT = basilysgc_named_symbol("NQCMEC_COMMENT", BASILYS_GET); if (sy_NQCMEC_COMMENT && NULL == /*_.VALDATA___V757*/ curfptr[756]) /*_.VALDATA___V757*/ curfptr[756] = (void*) sy_NQCMEC_COMMENT; } /*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___V759*/ curfptr[758]) /*_.VALDATA___V759*/ curfptr[758] = (void*) sy_CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT = basilysgc_named_symbol("CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT", BASILYS_GET); if (sy_CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V765*/ curfptr[764]) /*_.VALDATA___V765*/ curfptr[764] = (void*) sy_CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT; } /*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___V771*/ curfptr[770]) /*_.VALDATA___V771*/ curfptr[770] = (void*) sy_CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT; } /*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___V777*/ curfptr[776]) /*_.VALDATA___V777*/ curfptr[776] = (void*) sy_CLASS_NREP_FIELDACC; } /*getnamedsym:NACCF_OBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NACCF_OBJ = basilysgc_named_symbol("NACCF_OBJ", BASILYS_GET); if (sy_NACCF_OBJ && NULL == /*_.VALDATA___V787*/ curfptr[786]) /*_.VALDATA___V787*/ curfptr[786] = (void*) sy_NACCF_OBJ; } /*getnamedsym:NACCF_FLD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NACCF_FLD = basilysgc_named_symbol("NACCF_FLD", BASILYS_GET); if (sy_NACCF_FLD && NULL == /*_.VALDATA___V789*/ curfptr[788]) /*_.VALDATA___V789*/ curfptr[788] = (void*) sy_NACCF_FLD; } /*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___V791*/ curfptr[790]) /*_.VALDATA___V791*/ curfptr[790] = (void*) sy_CLASS_NREP_MULTACC; } /*getnamedsym:NACCM_MUL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NACCM_MUL = basilysgc_named_symbol("NACCM_MUL", BASILYS_GET); if (sy_NACCM_MUL && NULL == /*_.VALDATA___V801*/ curfptr[800]) /*_.VALDATA___V801*/ curfptr[800] = (void*) sy_NACCM_MUL; } /*getnamedsym:NACCM_IX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NACCM_IX = basilysgc_named_symbol("NACCM_IX", BASILYS_GET); if (sy_NACCM_IX && NULL == /*_.VALDATA___V803*/ curfptr[802]) /*_.VALDATA___V803*/ curfptr[802] = (void*) sy_NACCM_IX; } /*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___V805*/ curfptr[804]) /*_.VALDATA___V805*/ curfptr[804] = (void*) sy_CLASS_NREP_STORE_PREDEFINED; } /*getnamedsym:NSTPD_PREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSTPD_PREDEF = basilysgc_named_symbol("NSTPD_PREDEF", BASILYS_GET); if (sy_NSTPD_PREDEF && NULL == /*_.VALDATA___V815*/ curfptr[814]) /*_.VALDATA___V815*/ curfptr[814] = (void*) sy_NSTPD_PREDEF; } /*getnamedsym:NSTPD_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NSTPD_VALUE = basilysgc_named_symbol("NSTPD_VALUE", BASILYS_GET); if (sy_NSTPD_VALUE && NULL == /*_.VALDATA___V817*/ curfptr[816]) /*_.VALDATA___V817*/ curfptr[816] = (void*) sy_NSTPD_VALUE; } /*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___V819*/ curfptr[818]) /*_.VALDATA___V819*/ curfptr[818] = (void*) sy_CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:NUCMEB_EXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NUCMEB_EXPR = basilysgc_named_symbol("NUCMEB_EXPR", BASILYS_GET); if (sy_NUCMEB_EXPR && NULL == /*_.VALDATA___V829*/ curfptr[828]) /*_.VALDATA___V829*/ curfptr[828] = (void*) sy_NUCMEB_EXPR; } /*getnamedsym:NCUMEB_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NCUMEB_COMMENT = basilysgc_named_symbol("NCUMEB_COMMENT", BASILYS_GET); if (sy_NCUMEB_COMMENT && NULL == /*_.VALDATA___V831*/ curfptr[830]) /*_.VALDATA___V831*/ curfptr[830] = (void*) sy_NCUMEB_COMMENT; } /*getnamedsym:CLASS_NORMCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_NORMCONTEXT = basilysgc_named_symbol("CLASS_NORMCONTEXT", BASILYS_GET); if (sy_CLASS_NORMCONTEXT && NULL == /*_.VALDATA___V835*/ curfptr[834]) /*_.VALDATA___V835*/ curfptr[834] = (void*) sy_CLASS_NORMCONTEXT; } /*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___V837*/ curfptr[836]) /*_.VALDATA___V837*/ curfptr[836] = (void*) sy_DISCR_INTEGER; } /*getnamedsym:GLOBAL_ATOM_TRUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_ATOM_TRUE = basilysgc_named_symbol("GLOBAL_ATOM_TRUE", BASILYS_GET); if (sy_GLOBAL_ATOM_TRUE && NULL == /*_.VALDATA___V839*/ curfptr[838]) /*_.VALDATA___V839*/ curfptr[838] = (void*) sy_GLOBAL_ATOM_TRUE; } /*getnamedsym:GLOBAL_CLASS_CITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_CITERATOR = basilysgc_named_symbol("GLOBAL_CLASS_CITERATOR", BASILYS_GET); if (sy_GLOBAL_CLASS_CITERATOR && NULL == /*_.VALDATA___V846*/ curfptr[845]) /*_.VALDATA___V846*/ curfptr[845] = (void*) sy_GLOBAL_CLASS_CITERATOR; } /*getnamedsym:GLOBAL_CLASS_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_CLASS = basilysgc_named_symbol("GLOBAL_CLASS_CLASS", BASILYS_GET); if (sy_GLOBAL_CLASS_CLASS && NULL == /*_.VALDATA___V853*/ curfptr[852]) /*_.VALDATA___V853*/ curfptr[852] = (void*) sy_GLOBAL_CLASS_CLASS; } /*getnamedsym:GLOBAL_CLASS_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_CONTAINER = basilysgc_named_symbol("GLOBAL_CLASS_CONTAINER", BASILYS_GET); if (sy_GLOBAL_CLASS_CONTAINER && NULL == /*_.VALDATA___V860*/ curfptr[859]) /*_.VALDATA___V860*/ curfptr[859] = (void*) sy_GLOBAL_CLASS_CONTAINER; } /*getnamedsym:GLOBAL_CLASS_DISCR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_DISCR = basilysgc_named_symbol("GLOBAL_CLASS_DISCR", BASILYS_GET); if (sy_GLOBAL_CLASS_DISCR && NULL == /*_.VALDATA___V867*/ curfptr[866]) /*_.VALDATA___V867*/ curfptr[866] = (void*) sy_GLOBAL_CLASS_DISCR; } /*getnamedsym:GLOBAL_CLASS_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_FIELD = basilysgc_named_symbol("GLOBAL_CLASS_FIELD", BASILYS_GET); if (sy_GLOBAL_CLASS_FIELD && NULL == /*_.VALDATA___V874*/ curfptr[873]) /*_.VALDATA___V874*/ curfptr[873] = (void*) sy_GLOBAL_CLASS_FIELD; } /*getnamedsym:GLOBAL_CLASS_FORMAL_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_FORMAL_BINDING = basilysgc_named_symbol("GLOBAL_CLASS_FORMAL_BINDING", BASILYS_GET); if (sy_GLOBAL_CLASS_FORMAL_BINDING && NULL == /*_.VALDATA___V881*/ curfptr[880]) /*_.VALDATA___V881*/ curfptr[880] = (void*) sy_GLOBAL_CLASS_FORMAL_BINDING; } /*getnamedsym:GLOBAL_CLASS_KEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_KEYWORD = basilysgc_named_symbol("GLOBAL_CLASS_KEYWORD", BASILYS_GET); if (sy_GLOBAL_CLASS_KEYWORD && NULL == /*_.VALDATA___V888*/ curfptr[887]) /*_.VALDATA___V888*/ curfptr[887] = (void*) sy_GLOBAL_CLASS_KEYWORD; } /*getnamedsym:GLOBAL_CLASS_LOCATED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_LOCATED = basilysgc_named_symbol("GLOBAL_CLASS_LOCATED", BASILYS_GET); if (sy_GLOBAL_CLASS_LOCATED && NULL == /*_.VALDATA___V895*/ curfptr[894]) /*_.VALDATA___V895*/ curfptr[894] = (void*) sy_GLOBAL_CLASS_LOCATED; } /*getnamedsym:GLOBAL_CLASS_NAMED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_NAMED = basilysgc_named_symbol("GLOBAL_CLASS_NAMED", BASILYS_GET); if (sy_GLOBAL_CLASS_NAMED && NULL == /*_.VALDATA___V902*/ curfptr[901]) /*_.VALDATA___V902*/ curfptr[901] = (void*) sy_GLOBAL_CLASS_NAMED; } /*getnamedsym:GLOBAL_CLASS_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_PRIMITIVE = basilysgc_named_symbol("GLOBAL_CLASS_PRIMITIVE", BASILYS_GET); if (sy_GLOBAL_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V909*/ curfptr[908]) /*_.VALDATA___V909*/ curfptr[908] = (void*) sy_GLOBAL_CLASS_PRIMITIVE; } /*getnamedsym:GLOBAL_CLASS_PROPED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_PROPED = basilysgc_named_symbol("GLOBAL_CLASS_PROPED", BASILYS_GET); if (sy_GLOBAL_CLASS_PROPED && NULL == /*_.VALDATA___V916*/ curfptr[915]) /*_.VALDATA___V916*/ curfptr[915] = (void*) sy_GLOBAL_CLASS_PROPED; } /*getnamedsym:GLOBAL_CLASS_ROOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_ROOT = basilysgc_named_symbol("GLOBAL_CLASS_ROOT", BASILYS_GET); if (sy_GLOBAL_CLASS_ROOT && NULL == /*_.VALDATA___V923*/ curfptr[922]) /*_.VALDATA___V923*/ curfptr[922] = (void*) sy_GLOBAL_CLASS_ROOT; } /*getnamedsym:GLOBAL_CLASS_SELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_SELECTOR = basilysgc_named_symbol("GLOBAL_CLASS_SELECTOR", BASILYS_GET); if (sy_GLOBAL_CLASS_SELECTOR && NULL == /*_.VALDATA___V930*/ curfptr[929]) /*_.VALDATA___V930*/ curfptr[929] = (void*) sy_GLOBAL_CLASS_SELECTOR; } /*getnamedsym:GLOBAL_CLASS_SEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_SEXPR = basilysgc_named_symbol("GLOBAL_CLASS_SEXPR", BASILYS_GET); if (sy_GLOBAL_CLASS_SEXPR && NULL == /*_.VALDATA___V937*/ curfptr[936]) /*_.VALDATA___V937*/ curfptr[936] = (void*) sy_GLOBAL_CLASS_SEXPR; } /*getnamedsym:GLOBAL_CLASS_SYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_SYMBOL = basilysgc_named_symbol("GLOBAL_CLASS_SYMBOL", BASILYS_GET); if (sy_GLOBAL_CLASS_SYMBOL && NULL == /*_.VALDATA___V944*/ curfptr[943]) /*_.VALDATA___V944*/ curfptr[943] = (void*) sy_GLOBAL_CLASS_SYMBOL; } /*getnamedsym:GLOBAL_CLASS_SYSTEM_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CLASS_SYSTEM_DATA = basilysgc_named_symbol("GLOBAL_CLASS_SYSTEM_DATA", BASILYS_GET); if (sy_GLOBAL_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V951*/ curfptr[950]) /*_.VALDATA___V951*/ curfptr[950] = (void*) sy_GLOBAL_CLASS_SYSTEM_DATA; } /*getnamedsym:GLOBAL_CTYPE_CSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CTYPE_CSTRING = basilysgc_named_symbol("GLOBAL_CTYPE_CSTRING", BASILYS_GET); if (sy_GLOBAL_CTYPE_CSTRING && NULL == /*_.VALDATA___V958*/ curfptr[957]) /*_.VALDATA___V958*/ curfptr[957] = (void*) sy_GLOBAL_CTYPE_CSTRING; } /*getnamedsym:GLOBAL_CTYPE_LONG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CTYPE_LONG = basilysgc_named_symbol("GLOBAL_CTYPE_LONG", BASILYS_GET); if (sy_GLOBAL_CTYPE_LONG && NULL == /*_.VALDATA___V965*/ curfptr[964]) /*_.VALDATA___V965*/ curfptr[964] = (void*) sy_GLOBAL_CTYPE_LONG; } /*getnamedsym:GLOBAL_CTYPE_TREE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CTYPE_TREE = basilysgc_named_symbol("GLOBAL_CTYPE_TREE", BASILYS_GET); if (sy_GLOBAL_CTYPE_TREE && NULL == /*_.VALDATA___V972*/ curfptr[971]) /*_.VALDATA___V972*/ curfptr[971] = (void*) sy_GLOBAL_CTYPE_TREE; } /*getnamedsym:GLOBAL_CTYPE_VALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CTYPE_VALUE = basilysgc_named_symbol("GLOBAL_CTYPE_VALUE", BASILYS_GET); if (sy_GLOBAL_CTYPE_VALUE && NULL == /*_.VALDATA___V979*/ curfptr[978]) /*_.VALDATA___V979*/ curfptr[978] = (void*) sy_GLOBAL_CTYPE_VALUE; } /*getnamedsym:GLOBAL_CTYPE_VOID*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_CTYPE_VOID = basilysgc_named_symbol("GLOBAL_CTYPE_VOID", BASILYS_GET); if (sy_GLOBAL_CTYPE_VOID && NULL == /*_.VALDATA___V986*/ curfptr[985]) /*_.VALDATA___V986*/ curfptr[985] = (void*) sy_GLOBAL_CTYPE_VOID; } /*getnamedsym:GLOBAL_DISCR_BOX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_BOX = basilysgc_named_symbol("GLOBAL_DISCR_BOX", BASILYS_GET); if (sy_GLOBAL_DISCR_BOX && NULL == /*_.VALDATA___V993*/ curfptr[992]) /*_.VALDATA___V993*/ curfptr[992] = (void*) sy_GLOBAL_DISCR_BOX; } /*getnamedsym:GLOBAL_DISCR_CHARINTEGER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_CHARINTEGER = basilysgc_named_symbol("GLOBAL_DISCR_CHARINTEGER", BASILYS_GET); if (sy_GLOBAL_DISCR_CHARINTEGER && NULL == /*_.VALDATA___V1000*/ curfptr[999]) /*_.VALDATA___V1000*/ curfptr[999] = (void*) sy_GLOBAL_DISCR_CHARINTEGER; } /*getnamedsym:GLOBAL_DISCR_CLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_CLOSURE = basilysgc_named_symbol("GLOBAL_DISCR_CLOSURE", BASILYS_GET); if (sy_GLOBAL_DISCR_CLOSURE && NULL == /*_.VALDATA___V1007*/ curfptr[1006]) /*_.VALDATA___V1007*/ curfptr[1006] = (void*) sy_GLOBAL_DISCR_CLOSURE; } /*getnamedsym:GLOBAL_DISCR_INTEGER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_INTEGER = basilysgc_named_symbol("GLOBAL_DISCR_INTEGER", BASILYS_GET); if (sy_GLOBAL_DISCR_INTEGER && NULL == /*_.VALDATA___V1014*/ curfptr[1013]) /*_.VALDATA___V1014*/ curfptr[1013] = (void*) sy_GLOBAL_DISCR_INTEGER; } /*getnamedsym:GLOBAL_DISCR_LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_LIST = basilysgc_named_symbol("GLOBAL_DISCR_LIST", BASILYS_GET); if (sy_GLOBAL_DISCR_LIST && NULL == /*_.VALDATA___V1021*/ curfptr[1020]) /*_.VALDATA___V1021*/ curfptr[1020] = (void*) sy_GLOBAL_DISCR_LIST; } /*getnamedsym:GLOBAL_DISCR_MAPOBJECTS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_MAPOBJECTS = basilysgc_named_symbol("GLOBAL_DISCR_MAPOBJECTS", BASILYS_GET); if (sy_GLOBAL_DISCR_MAPOBJECTS && NULL == /*_.VALDATA___V1028*/ curfptr[1027]) /*_.VALDATA___V1028*/ curfptr[1027] = (void*) sy_GLOBAL_DISCR_MAPOBJECTS; } /*getnamedsym:GLOBAL_DISCR_MAPSTRINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_MAPSTRINGS = basilysgc_named_symbol("GLOBAL_DISCR_MAPSTRINGS", BASILYS_GET); if (sy_GLOBAL_DISCR_MAPSTRINGS && NULL == /*_.VALDATA___V1035*/ curfptr[1034]) /*_.VALDATA___V1035*/ curfptr[1034] = (void*) sy_GLOBAL_DISCR_MAPSTRINGS; } /*getnamedsym:GLOBAL_DISCR_METHODMAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_METHODMAP = basilysgc_named_symbol("GLOBAL_DISCR_METHODMAP", BASILYS_GET); if (sy_GLOBAL_DISCR_METHODMAP && NULL == /*_.VALDATA___V1042*/ curfptr[1041]) /*_.VALDATA___V1042*/ curfptr[1041] = (void*) sy_GLOBAL_DISCR_METHODMAP; } /*getnamedsym:GLOBAL_DISCR_MIXEDINT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_MIXEDINT = basilysgc_named_symbol("GLOBAL_DISCR_MIXEDINT", BASILYS_GET); if (sy_GLOBAL_DISCR_MIXEDINT && NULL == /*_.VALDATA___V1049*/ curfptr[1048]) /*_.VALDATA___V1049*/ curfptr[1048] = (void*) sy_GLOBAL_DISCR_MIXEDINT; } /*getnamedsym:GLOBAL_DISCR_MIXEDLOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_MIXEDLOC = basilysgc_named_symbol("GLOBAL_DISCR_MIXEDLOC", BASILYS_GET); if (sy_GLOBAL_DISCR_MIXEDLOC && NULL == /*_.VALDATA___V1056*/ curfptr[1055]) /*_.VALDATA___V1056*/ curfptr[1055] = (void*) sy_GLOBAL_DISCR_MIXEDLOC; } /*getnamedsym:GLOBAL_DISCR_MULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_MULTIPLE = basilysgc_named_symbol("GLOBAL_DISCR_MULTIPLE", BASILYS_GET); if (sy_GLOBAL_DISCR_MULTIPLE && NULL == /*_.VALDATA___V1063*/ curfptr[1062]) /*_.VALDATA___V1063*/ curfptr[1062] = (void*) sy_GLOBAL_DISCR_MULTIPLE; } /*getnamedsym:GLOBAL_DISCR_NAMESTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_NAMESTRING = basilysgc_named_symbol("GLOBAL_DISCR_NAMESTRING", BASILYS_GET); if (sy_GLOBAL_DISCR_NAMESTRING && NULL == /*_.VALDATA___V1070*/ curfptr[1069]) /*_.VALDATA___V1070*/ curfptr[1069] = (void*) sy_GLOBAL_DISCR_NAMESTRING; } /*getnamedsym:GLOBAL_DISCR_NULLRECV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_NULLRECV = basilysgc_named_symbol("GLOBAL_DISCR_NULLRECV", BASILYS_GET); if (sy_GLOBAL_DISCR_NULLRECV && NULL == /*_.VALDATA___V1077*/ curfptr[1076]) /*_.VALDATA___V1077*/ curfptr[1076] = (void*) sy_GLOBAL_DISCR_NULLRECV; } /*getnamedsym:GLOBAL_DISCR_PAIR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_PAIR = basilysgc_named_symbol("GLOBAL_DISCR_PAIR", BASILYS_GET); if (sy_GLOBAL_DISCR_PAIR && NULL == /*_.VALDATA___V1084*/ curfptr[1083]) /*_.VALDATA___V1084*/ curfptr[1083] = (void*) sy_GLOBAL_DISCR_PAIR; } /*getnamedsym:GLOBAL_DISCR_ROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_ROUTINE = basilysgc_named_symbol("GLOBAL_DISCR_ROUTINE", BASILYS_GET); if (sy_GLOBAL_DISCR_ROUTINE && NULL == /*_.VALDATA___V1091*/ curfptr[1090]) /*_.VALDATA___V1091*/ curfptr[1090] = (void*) sy_GLOBAL_DISCR_ROUTINE; } /*getnamedsym:GLOBAL_DISCR_SEQCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_SEQCLASS = basilysgc_named_symbol("GLOBAL_DISCR_SEQCLASS", BASILYS_GET); if (sy_GLOBAL_DISCR_SEQCLASS && NULL == /*_.VALDATA___V1098*/ curfptr[1097]) /*_.VALDATA___V1098*/ curfptr[1097] = (void*) sy_GLOBAL_DISCR_SEQCLASS; } /*getnamedsym:GLOBAL_DISCR_SEQFIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_SEQFIELD = basilysgc_named_symbol("GLOBAL_DISCR_SEQFIELD", BASILYS_GET); if (sy_GLOBAL_DISCR_SEQFIELD && NULL == /*_.VALDATA___V1105*/ curfptr[1104]) /*_.VALDATA___V1105*/ curfptr[1104] = (void*) sy_GLOBAL_DISCR_SEQFIELD; } /*getnamedsym:GLOBAL_DISCR_STRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_STRING = basilysgc_named_symbol("GLOBAL_DISCR_STRING", BASILYS_GET); if (sy_GLOBAL_DISCR_STRING && NULL == /*_.VALDATA___V1112*/ curfptr[1111]) /*_.VALDATA___V1112*/ curfptr[1111] = (void*) sy_GLOBAL_DISCR_STRING; } /*getnamedsym:GLOBAL_DISCR_VERBATIMSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_DISCR_VERBATIMSTRING = basilysgc_named_symbol("GLOBAL_DISCR_VERBATIMSTRING", BASILYS_GET); if (sy_GLOBAL_DISCR_VERBATIMSTRING && NULL == /*_.VALDATA___V1119*/ curfptr[1118]) /*_.VALDATA___V1119*/ curfptr[1118] = (void*) sy_GLOBAL_DISCR_VERBATIMSTRING; } /*getnamedsym:GLOBAL_INITIAL_SYSTEM_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_GLOBAL_INITIAL_SYSTEM_DATA = basilysgc_named_symbol("GLOBAL_INITIAL_SYSTEM_DATA", BASILYS_GET); if (sy_GLOBAL_INITIAL_SYSTEM_DATA && NULL == /*_.VALDATA___V1126*/ curfptr[1125]) /*_.VALDATA___V1126*/ curfptr[1125] = (void*) sy_GLOBAL_INITIAL_SYSTEM_DATA; } /*getnamedsym:ATOM_TRUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_ATOM_TRUE = basilysgc_named_symbol("ATOM_TRUE", BASILYS_GET); if (sy_ATOM_TRUE && NULL == /*_.VALDATA___V1134*/ curfptr[1133]) /*_.VALDATA___V1134*/ curfptr[1133] = (void*) sy_ATOM_TRUE; } /*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___V1136*/ curfptr[1135]) /*_.VALDATA___V1136*/ curfptr[1135] = (void*) sy_CLASS_CITERATOR; } /*getnamedsym:CLASS_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CONTAINER = basilysgc_named_symbol("CLASS_CONTAINER", BASILYS_GET); if (sy_CLASS_CONTAINER && NULL == /*_.VALDATA___V1138*/ curfptr[1137]) /*_.VALDATA___V1138*/ curfptr[1137] = (void*) sy_CLASS_CONTAINER; } /*getnamedsym:CLASS_DISCR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_DISCR = basilysgc_named_symbol("CLASS_DISCR", BASILYS_GET); if (sy_CLASS_DISCR && NULL == /*_.VALDATA___V1140*/ curfptr[1139]) /*_.VALDATA___V1140*/ curfptr[1139] = (void*) sy_CLASS_DISCR; } /*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___V1142*/ curfptr[1141]) /*_.VALDATA___V1142*/ curfptr[1141] = (void*) sy_CLASS_FIELD; } /*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___V1144*/ curfptr[1143]) /*_.VALDATA___V1144*/ curfptr[1143] = (void*) sy_CLASS_FORMAL_BINDING; } /*getnamedsym:CLASS_KEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_KEYWORD = basilysgc_named_symbol("CLASS_KEYWORD", BASILYS_GET); if (sy_CLASS_KEYWORD && NULL == /*_.VALDATA___V1146*/ curfptr[1145]) /*_.VALDATA___V1146*/ curfptr[1145] = (void*) sy_CLASS_KEYWORD; } /*getnamedsym:CLASS_LOCATED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_LOCATED = basilysgc_named_symbol("CLASS_LOCATED", BASILYS_GET); if (sy_CLASS_LOCATED && NULL == /*_.VALDATA___V1148*/ curfptr[1147]) /*_.VALDATA___V1148*/ curfptr[1147] = (void*) sy_CLASS_LOCATED; } /*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___V1150*/ curfptr[1149]) /*_.VALDATA___V1150*/ curfptr[1149] = (void*) sy_CLASS_NAMED; } /*getnamedsym:CLASS_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PRIMITIVE = basilysgc_named_symbol("CLASS_PRIMITIVE", BASILYS_GET); if (sy_CLASS_PRIMITIVE && NULL == /*_.VALDATA___V1152*/ curfptr[1151]) /*_.VALDATA___V1152*/ curfptr[1151] = (void*) sy_CLASS_PRIMITIVE; } /*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___V1154*/ curfptr[1153]) /*_.VALDATA___V1154*/ curfptr[1153] = (void*) sy_CLASS_PROPED; } /*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___V1156*/ curfptr[1155]) /*_.VALDATA___V1156*/ curfptr[1155] = (void*) sy_CLASS_SELECTOR; } /*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___V1158*/ curfptr[1157]) /*_.VALDATA___V1158*/ curfptr[1157] = (void*) sy_CLASS_SEXPR; } /*getnamedsym:CLASS_SYSTEM_DATA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SYSTEM_DATA = basilysgc_named_symbol("CLASS_SYSTEM_DATA", BASILYS_GET); if (sy_CLASS_SYSTEM_DATA && NULL == /*_.VALDATA___V1160*/ curfptr[1159]) /*_.VALDATA___V1160*/ curfptr[1159] = (void*) sy_CLASS_SYSTEM_DATA; } /*getnamedsym:CTYPE_CSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_CSTRING = basilysgc_named_symbol("CTYPE_CSTRING", BASILYS_GET); if (sy_CTYPE_CSTRING && NULL == /*_.VALDATA___V1162*/ curfptr[1161]) /*_.VALDATA___V1162*/ curfptr[1161] = (void*) sy_CTYPE_CSTRING; } /*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___V1164*/ curfptr[1163]) /*_.VALDATA___V1164*/ curfptr[1163] = (void*) sy_CTYPE_LONG; } /*getnamedsym:CTYPE_TREE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_TREE = basilysgc_named_symbol("CTYPE_TREE", BASILYS_GET); if (sy_CTYPE_TREE && NULL == /*_.VALDATA___V1166*/ curfptr[1165]) /*_.VALDATA___V1166*/ curfptr[1165] = (void*) sy_CTYPE_TREE; } /*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___V1168*/ curfptr[1167]) /*_.VALDATA___V1168*/ curfptr[1167] = (void*) sy_CTYPE_VALUE; } /*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___V1170*/ curfptr[1169]) /*_.VALDATA___V1170*/ curfptr[1169] = (void*) sy_CTYPE_VOID; } /*getnamedsym:DISCR_BOX*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_BOX = basilysgc_named_symbol("DISCR_BOX", BASILYS_GET); if (sy_DISCR_BOX && NULL == /*_.VALDATA___V1172*/ curfptr[1171]) /*_.VALDATA___V1172*/ curfptr[1171] = (void*) sy_DISCR_BOX; } /*getnamedsym:DISCR_CHARINTEGER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_CHARINTEGER = basilysgc_named_symbol("DISCR_CHARINTEGER", BASILYS_GET); if (sy_DISCR_CHARINTEGER && NULL == /*_.VALDATA___V1174*/ curfptr[1173]) /*_.VALDATA___V1174*/ curfptr[1173] = (void*) sy_DISCR_CHARINTEGER; } /*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___V1176*/ curfptr[1175]) /*_.VALDATA___V1176*/ curfptr[1175] = (void*) sy_DISCR_CLOSURE; } /*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___V1178*/ curfptr[1177]) /*_.VALDATA___V1178*/ curfptr[1177] = (void*) sy_DISCR_LIST; } /*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___V1180*/ curfptr[1179]) /*_.VALDATA___V1180*/ curfptr[1179] = (void*) sy_DISCR_MAPOBJECTS; } /*getnamedsym:DISCR_MAPSTRINGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MAPSTRINGS = basilysgc_named_symbol("DISCR_MAPSTRINGS", BASILYS_GET); if (sy_DISCR_MAPSTRINGS && NULL == /*_.VALDATA___V1182*/ curfptr[1181]) /*_.VALDATA___V1182*/ curfptr[1181] = (void*) sy_DISCR_MAPSTRINGS; } /*getnamedsym:DISCR_METHODMAP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_METHODMAP = basilysgc_named_symbol("DISCR_METHODMAP", BASILYS_GET); if (sy_DISCR_METHODMAP && NULL == /*_.VALDATA___V1184*/ curfptr[1183]) /*_.VALDATA___V1184*/ curfptr[1183] = (void*) sy_DISCR_METHODMAP; } /*getnamedsym:DISCR_MIXEDINT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MIXEDINT = basilysgc_named_symbol("DISCR_MIXEDINT", BASILYS_GET); if (sy_DISCR_MIXEDINT && NULL == /*_.VALDATA___V1186*/ curfptr[1185]) /*_.VALDATA___V1186*/ curfptr[1185] = (void*) sy_DISCR_MIXEDINT; } /*getnamedsym:DISCR_MIXEDLOC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_MIXEDLOC = basilysgc_named_symbol("DISCR_MIXEDLOC", BASILYS_GET); if (sy_DISCR_MIXEDLOC && NULL == /*_.VALDATA___V1188*/ curfptr[1187]) /*_.VALDATA___V1188*/ curfptr[1187] = (void*) sy_DISCR_MIXEDLOC; } /*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___V1190*/ curfptr[1189]) /*_.VALDATA___V1190*/ curfptr[1189] = (void*) sy_DISCR_MULTIPLE; } /*getnamedsym:DISCR_NAMESTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_NAMESTRING = basilysgc_named_symbol("DISCR_NAMESTRING", BASILYS_GET); if (sy_DISCR_NAMESTRING && NULL == /*_.VALDATA___V1192*/ curfptr[1191]) /*_.VALDATA___V1192*/ curfptr[1191] = (void*) sy_DISCR_NAMESTRING; } /*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___V1194*/ curfptr[1193]) /*_.VALDATA___V1194*/ curfptr[1193] = (void*) sy_DISCR_NULLRECV; } /*getnamedsym:DISCR_PAIR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_PAIR = basilysgc_named_symbol("DISCR_PAIR", BASILYS_GET); if (sy_DISCR_PAIR && NULL == /*_.VALDATA___V1196*/ curfptr[1195]) /*_.VALDATA___V1196*/ curfptr[1195] = (void*) sy_DISCR_PAIR; } /*getnamedsym:DISCR_ROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_ROUTINE = basilysgc_named_symbol("DISCR_ROUTINE", BASILYS_GET); if (sy_DISCR_ROUTINE && NULL == /*_.VALDATA___V1198*/ curfptr[1197]) /*_.VALDATA___V1198*/ curfptr[1197] = (void*) sy_DISCR_ROUTINE; } /*getnamedsym:DISCR_SEQCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_SEQCLASS = basilysgc_named_symbol("DISCR_SEQCLASS", BASILYS_GET); if (sy_DISCR_SEQCLASS && NULL == /*_.VALDATA___V1200*/ curfptr[1199]) /*_.VALDATA___V1200*/ curfptr[1199] = (void*) sy_DISCR_SEQCLASS; } /*getnamedsym:DISCR_SEQFIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISCR_SEQFIELD = basilysgc_named_symbol("DISCR_SEQFIELD", BASILYS_GET); if (sy_DISCR_SEQFIELD && NULL == /*_.VALDATA___V1202*/ curfptr[1201]) /*_.VALDATA___V1202*/ curfptr[1201] = (void*) sy_DISCR_SEQFIELD; } /*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___V1204*/ curfptr[1203]) /*_.VALDATA___V1204*/ curfptr[1203] = (void*) sy_DISCR_STRING; } /*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___V1206*/ curfptr[1205]) /*_.VALDATA___V1206*/ curfptr[1205] = (void*) sy_DISCR_VERBATIMSTRING; } /*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___V1208*/ curfptr[1207]) /*_.VALDATA___V1208*/ curfptr[1207] = (void*) sy_INITIAL_SYSTEM_DATA; } /*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___V1213*/ curfptr[1212]) /*_.VALDATA___V1213*/ curfptr[1212] = (void*) sy_CLASS_MODULCONTEXT; } /*getnamedsym:NORMAL_EXP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NORMAL_EXP = basilysgc_named_symbol("NORMAL_EXP", BASILYS_GET); if (sy_NORMAL_EXP && NULL == /*_.VALDATA___V1215*/ curfptr[1214]) /*_.VALDATA___V1215*/ curfptr[1214] = (void*) sy_NORMAL_EXP; } /*getnamedsym:CLASS_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ENVIRONMENT = basilysgc_named_symbol("CLASS_ENVIRONMENT", BASILYS_GET); if (sy_CLASS_ENVIRONMENT && NULL == /*_.VALDATA___V1221*/ curfptr[1220]) /*_.VALDATA___V1221*/ curfptr[1220] = (void*) sy_CLASS_ENVIRONMENT; } /*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___V1223*/ curfptr[1222]) /*_.VALDATA___V1223*/ curfptr[1222] = (void*) sy_INSTALL_METHOD; } /*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___V1225*/ curfptr[1224]) /*_.VALDATA___V1225*/ curfptr[1224] = (void*) sy_DISCR_ANYRECV; } /*getnamedsym:CLASS_SRC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC = basilysgc_named_symbol("CLASS_SRC", BASILYS_GET); if (sy_CLASS_SRC && NULL == /*_.VALDATA___V1231*/ curfptr[1230]) /*_.VALDATA___V1231*/ curfptr[1230] = (void*) sy_CLASS_SRC; } /*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___V1233*/ curfptr[1232]) /*_.VALDATA___V1233*/ curfptr[1232] = (void*) sy_GET_CTYPE; } /*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___V1237*/ curfptr[1236]) /*_.VALDATA___V1237*/ curfptr[1236] = (void*) sy_COMPILE_OBJ; } /*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___V1253*/ curfptr[1252]) /*_.VALDATA___V1253*/ curfptr[1252] = (void*) sy_MULTIPLE_MAP; } /*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___V1255*/ curfptr[1254]) /*_.VALDATA___V1255*/ curfptr[1254] = (void*) sy_LIST_EVERY; } /*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___V1257*/ curfptr[1256]) /*_.VALDATA___V1257*/ curfptr[1256] = (void*) sy_CLASS_ANY_BINDING; } /*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___V1262*/ curfptr[1261]) /*_.VALDATA___V1262*/ curfptr[1261] = (void*) sy_CLASS_NORMLET_BINDING; } /*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___V1264*/ curfptr[1263]) /*_.VALDATA___V1264*/ curfptr[1263] = (void*) sy_LIST_TO_MULTIPLE; } /*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___V1272*/ curfptr[1271]) /*_.VALDATA___V1272*/ curfptr[1271] = (void*) sy_MULTIPLE_EVERY; } /*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___V1274*/ curfptr[1273]) /*_.VALDATA___V1274*/ curfptr[1273] = (void*) sy_CLASS_CTYPE; } /*getnamedsym:CREATE_NORMCONTEXT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CREATE_NORMCONTEXT = basilysgc_named_symbol("CREATE_NORMCONTEXT", BASILYS_GET); if (sy_CREATE_NORMCONTEXT && NULL == /*_.VALDATA___V1276*/ curfptr[1275]) /*_.VALDATA___V1276*/ curfptr[1275] = (void*) sy_CREATE_NORMCONTEXT; } /*getnamedsym:NORMALIZE_TUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NORMALIZE_TUPLE = basilysgc_named_symbol("NORMALIZE_TUPLE", BASILYS_GET); if (sy_NORMALIZE_TUPLE && NULL == /*_.VALDATA___V1278*/ curfptr[1277]) /*_.VALDATA___V1278*/ curfptr[1277] = (void*) sy_NORMALIZE_TUPLE; } /*getnamedsym:WRAP_NORMAL_LETSEQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_WRAP_NORMAL_LETSEQ = basilysgc_named_symbol("WRAP_NORMAL_LETSEQ", BASILYS_GET); if (sy_WRAP_NORMAL_LETSEQ && NULL == /*_.VALDATA___V1280*/ curfptr[1279]) /*_.VALDATA___V1280*/ curfptr[1279] = (void*) sy_WRAP_NORMAL_LETSEQ; } /*getnamedsym:WRAP_NORMAL_LET1*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_WRAP_NORMAL_LET1 = basilysgc_named_symbol("WRAP_NORMAL_LET1", BASILYS_GET); if (sy_WRAP_NORMAL_LET1 && NULL == /*_.VALDATA___V1282*/ curfptr[1281]) /*_.VALDATA___V1282*/ curfptr[1281] = (void*) sy_WRAP_NORMAL_LET1; } /*getnamedsym:CHECK_CTYPE_NARGS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CHECK_CTYPE_NARGS = basilysgc_named_symbol("CHECK_CTYPE_NARGS", BASILYS_GET); if (sy_CHECK_CTYPE_NARGS && NULL == /*_.VALDATA___V1284*/ curfptr[1283]) /*_.VALDATA___V1284*/ curfptr[1283] = (void*) sy_CHECK_CTYPE_NARGS; } /*getnamedsym:FIND_ENCLOSING_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FIND_ENCLOSING_ENV = basilysgc_named_symbol("FIND_ENCLOSING_ENV", BASILYS_GET); if (sy_FIND_ENCLOSING_ENV && NULL == /*_.VALDATA___V1300*/ curfptr[1299]) /*_.VALDATA___V1300*/ curfptr[1299] = (void*) sy_FIND_ENCLOSING_ENV; } /*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___V1302*/ curfptr[1301]) /*_.VALDATA___V1302*/ curfptr[1301] = (void*) sy_CLASS_VALUE_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___V1304*/ curfptr[1303]) /*_.VALDATA___V1304*/ curfptr[1303] = (void*) sy_CLASS_LET_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___V1306*/ curfptr[1305]) /*_.VALDATA___V1306*/ curfptr[1305] = (void*) sy_CLASS_FIXED_BINDING; } /*getnamedsym:CLASS_FUNCTION_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FUNCTION_BINDING = basilysgc_named_symbol("CLASS_FUNCTION_BINDING", BASILYS_GET); if (sy_CLASS_FUNCTION_BINDING && NULL == /*_.VALDATA___V1308*/ curfptr[1307]) /*_.VALDATA___V1308*/ curfptr[1307] = (void*) sy_CLASS_FUNCTION_BINDING; } /*getnamedsym:CLASS_PRIMITIVE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PRIMITIVE_BINDING = basilysgc_named_symbol("CLASS_PRIMITIVE_BINDING", BASILYS_GET); if (sy_CLASS_PRIMITIVE_BINDING && NULL == /*_.VALDATA___V1310*/ curfptr[1309]) /*_.VALDATA___V1310*/ curfptr[1309] = (void*) sy_CLASS_PRIMITIVE_BINDING; } /*getnamedsym:CLASS_CLASS_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_CLASS_BINDING = basilysgc_named_symbol("CLASS_CLASS_BINDING", BASILYS_GET); if (sy_CLASS_CLASS_BINDING && NULL == /*_.VALDATA___V1312*/ curfptr[1311]) /*_.VALDATA___V1312*/ curfptr[1311] = (void*) sy_CLASS_CLASS_BINDING; } /*getnamedsym:CLASS_FIELD_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIELD_BINDING = basilysgc_named_symbol("CLASS_FIELD_BINDING", BASILYS_GET); if (sy_CLASS_FIELD_BINDING && NULL == /*_.VALDATA___V1314*/ curfptr[1313]) /*_.VALDATA___V1314*/ curfptr[1313] = (void*) sy_CLASS_FIELD_BINDING; } /*getnamedsym:CLASS_SELECTOR_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SELECTOR_BINDING = basilysgc_named_symbol("CLASS_SELECTOR_BINDING", BASILYS_GET); if (sy_CLASS_SELECTOR_BINDING && NULL == /*_.VALDATA___V1316*/ curfptr[1315]) /*_.VALDATA___V1316*/ curfptr[1315] = (void*) sy_CLASS_SELECTOR_BINDING; } /*getnamedsym:CLASS_INSTANCE_BINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_INSTANCE_BINDING = basilysgc_named_symbol("CLASS_INSTANCE_BINDING", BASILYS_GET); if (sy_CLASS_INSTANCE_BINDING && NULL == /*_.VALDATA___V1318*/ curfptr[1317]) /*_.VALDATA___V1318*/ curfptr[1317] = (void*) sy_CLASS_INSTANCE_BINDING; } /*getnamedsym:CLASS_SRC_PRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PRIMITIVE = basilysgc_named_symbol("CLASS_SRC_PRIMITIVE", BASILYS_GET); if (sy_CLASS_SRC_PRIMITIVE && NULL == /*_.VALDATA___V1326*/ curfptr[1325]) /*_.VALDATA___V1326*/ curfptr[1325] = (void*) sy_CLASS_SRC_PRIMITIVE; } /*getnamedsym:CLONE_SYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLONE_SYMBOL = basilysgc_named_symbol("CLONE_SYMBOL", BASILYS_GET); if (sy_CLONE_SYMBOL && NULL == /*_.VALDATA___V1328*/ curfptr[1327]) /*_.VALDATA___V1328*/ curfptr[1327] = (void*) sy_CLONE_SYMBOL; } /*getnamedsym:CLASS_SRC_APPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_APPLY = basilysgc_named_symbol("CLASS_SRC_APPLY", BASILYS_GET); if (sy_CLASS_SRC_APPLY && NULL == /*_.VALDATA___V1335*/ curfptr[1334]) /*_.VALDATA___V1335*/ curfptr[1334] = (void*) sy_CLASS_SRC_APPLY; } /*getnamedsym:_FUN_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FUN_ = basilysgc_named_symbol("_FUN_", BASILYS_GET); if (sy_FUN_ && NULL == /*_.VALDATA___V1332*/ curfptr[1331]) /*_.VALDATA___V1332*/ curfptr[1331] = (void*) sy_FUN_; } /*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___V1337*/ curfptr[1336]) /*_.VALDATA___V1337*/ curfptr[1336] = (void*) sy_LIST_APPEND2LIST; } /*getnamedsym:CLASS_SRC_MSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MSEND = basilysgc_named_symbol("CLASS_SRC_MSEND", BASILYS_GET); if (sy_CLASS_SRC_MSEND && NULL == /*_.VALDATA___V1341*/ curfptr[1340]) /*_.VALDATA___V1341*/ curfptr[1340] = (void*) sy_CLASS_SRC_MSEND; } /*getnamedsym:CLASS_SRC_RETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_RETURN = basilysgc_named_symbol("CLASS_SRC_RETURN", BASILYS_GET); if (sy_CLASS_SRC_RETURN && NULL == /*_.VALDATA___V1348*/ curfptr[1347]) /*_.VALDATA___V1348*/ curfptr[1347] = (void*) sy_CLASS_SRC_RETURN; } /*getnamedsym:RETURN_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_RETURN_ = basilysgc_named_symbol("RETURN_", BASILYS_GET); if (sy_RETURN_ && NULL == /*_.VALDATA___V1344*/ curfptr[1343]) /*_.VALDATA___V1344*/ curfptr[1343] = (void*) sy_RETURN_; } /*getnamedsym:CLASS_SRC_IF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_IF = basilysgc_named_symbol("CLASS_SRC_IF", BASILYS_GET); if (sy_CLASS_SRC_IF && NULL == /*_.VALDATA___V1355*/ curfptr[1354]) /*_.VALDATA___V1355*/ curfptr[1354] = (void*) sy_CLASS_SRC_IF; } /*getnamedsym:FRESH_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FRESH_ENV = basilysgc_named_symbol("FRESH_ENV", BASILYS_GET); if (sy_FRESH_ENV && NULL == /*_.VALDATA___V1357*/ curfptr[1356]) /*_.VALDATA___V1357*/ curfptr[1356] = (void*) sy_FRESH_ENV; } /*getnamedsym:PUT_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PUT_ENV = basilysgc_named_symbol("PUT_ENV", BASILYS_GET); if (sy_PUT_ENV && NULL == /*_.VALDATA___V1359*/ curfptr[1358]) /*_.VALDATA___V1359*/ curfptr[1358] = (void*) sy_PUT_ENV; } /*getnamedsym:_IF_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_IF_ = basilysgc_named_symbol("_IF_", BASILYS_GET); if (sy_IF_ && NULL == /*_.VALDATA___V1352*/ curfptr[1351]) /*_.VALDATA___V1352*/ curfptr[1351] = (void*) sy_IF_; } /*getnamedsym:CLASS_SRC_IFELSE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_IFELSE = basilysgc_named_symbol("CLASS_SRC_IFELSE", BASILYS_GET); if (sy_CLASS_SRC_IFELSE && NULL == /*_.VALDATA___V1368*/ curfptr[1367]) /*_.VALDATA___V1368*/ curfptr[1367] = (void*) sy_CLASS_SRC_IFELSE; } /*getnamedsym:_IFELSE_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_IFELSE_ = basilysgc_named_symbol("_IFELSE_", BASILYS_GET); if (sy_IFELSE_ && NULL == /*_.VALDATA___V1365*/ curfptr[1364]) /*_.VALDATA___V1365*/ curfptr[1364] = (void*) sy_IFELSE_; } /*getnamedsym:CLASS_SRC_CPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CPPIF = basilysgc_named_symbol("CLASS_SRC_CPPIF", BASILYS_GET); if (sy_CLASS_SRC_CPPIF && NULL == /*_.VALDATA___V1376*/ curfptr[1375]) /*_.VALDATA___V1376*/ curfptr[1375] = (void*) sy_CLASS_SRC_CPPIF; } /*getnamedsym:IFCPP_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_IFCPP_ = basilysgc_named_symbol("IFCPP_", BASILYS_GET); if (sy_IFCPP_ && NULL == /*_.VALDATA___V1373*/ curfptr[1372]) /*_.VALDATA___V1373*/ curfptr[1372] = (void*) sy_IFCPP_; } /*getnamedsym:CLASS_SRC_OR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_OR = basilysgc_named_symbol("CLASS_SRC_OR", BASILYS_GET); if (sy_CLASS_SRC_OR && NULL == /*_.VALDATA___V1384*/ curfptr[1383]) /*_.VALDATA___V1384*/ curfptr[1383] = (void*) sy_CLASS_SRC_OR; } /*getnamedsym:MULTIPLE_BACKWARD_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTIPLE_BACKWARD_EVERY = basilysgc_named_symbol("MULTIPLE_BACKWARD_EVERY", BASILYS_GET); if (sy_MULTIPLE_BACKWARD_EVERY && NULL == /*_.VALDATA___V1386*/ curfptr[1385]) /*_.VALDATA___V1386*/ curfptr[1385] = (void*) sy_MULTIPLE_BACKWARD_EVERY; } /*getnamedsym:OR_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OR_ = basilysgc_named_symbol("OR_", BASILYS_GET); if (sy_OR_ && NULL == /*_.VALDATA___V1381*/ curfptr[1380]) /*_.VALDATA___V1381*/ curfptr[1380] = (void*) sy_OR_; } /*getnamedsym:CLASS_SRC_PROGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PROGN = basilysgc_named_symbol("CLASS_SRC_PROGN", BASILYS_GET); if (sy_CLASS_SRC_PROGN && NULL == /*_.VALDATA___V1392*/ curfptr[1391]) /*_.VALDATA___V1392*/ curfptr[1391] = (void*) sy_CLASS_SRC_PROGN; } /*getnamedsym:PROGN_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PROGN_ = basilysgc_named_symbol("PROGN_", BASILYS_GET); if (sy_PROGN_ && NULL == /*_.VALDATA___V1389*/ curfptr[1388]) /*_.VALDATA___V1389*/ curfptr[1388] = (void*) sy_PROGN_; } /*getnamedsym:CLASS_SRC_LET*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LET = basilysgc_named_symbol("CLASS_SRC_LET", BASILYS_GET); if (sy_CLASS_SRC_LET && NULL == /*_.VALDATA___V1403*/ curfptr[1402]) /*_.VALDATA___V1403*/ curfptr[1402] = (void*) sy_CLASS_SRC_LET; } /*getnamedsym:CLASS_SRC_LETBINDING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LETBINDING = basilysgc_named_symbol("CLASS_SRC_LETBINDING", BASILYS_GET); if (sy_CLASS_SRC_LETBINDING && NULL == /*_.VALDATA___V1405*/ curfptr[1404]) /*_.VALDATA___V1405*/ curfptr[1404] = (void*) sy_CLASS_SRC_LETBINDING; } /*getnamedsym:LET_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LET_ = basilysgc_named_symbol("LET_", BASILYS_GET); if (sy_LET_ && NULL == /*_.VALDATA___V1400*/ curfptr[1399]) /*_.VALDATA___V1400*/ curfptr[1399] = (void*) sy_LET_; } /*getnamedsym:CLASS_SRC_UNSAFE_GET_FIELD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UNSAFE_GET_FIELD = basilysgc_named_symbol("CLASS_SRC_UNSAFE_GET_FIELD", BASILYS_GET); if (sy_CLASS_SRC_UNSAFE_GET_FIELD && NULL == /*_.VALDATA___V1410*/ curfptr[1409]) /*_.VALDATA___V1410*/ curfptr[1409] = (void*) sy_CLASS_SRC_UNSAFE_GET_FIELD; } /*getnamedsym:CLASS_SRC_UNSAFE_PUT_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UNSAFE_PUT_FIELDS = basilysgc_named_symbol("CLASS_SRC_UNSAFE_PUT_FIELDS", BASILYS_GET); if (sy_CLASS_SRC_UNSAFE_PUT_FIELDS && NULL == /*_.VALDATA___V1417*/ curfptr[1416]) /*_.VALDATA___V1417*/ curfptr[1416] = (void*) sy_CLASS_SRC_UNSAFE_PUT_FIELDS; } /*getnamedsym:UNSAFPUT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_UNSAFPUT_ = basilysgc_named_symbol("UNSAFPUT_", BASILYS_GET); if (sy_UNSAFPUT_ && NULL == /*_.VALDATA___V1413*/ curfptr[1412]) /*_.VALDATA___V1413*/ curfptr[1412] = (void*) sy_UNSAFPUT_; } /*getnamedsym:CLASS_SRC_FIELDASSIGN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FIELDASSIGN = basilysgc_named_symbol("CLASS_SRC_FIELDASSIGN", BASILYS_GET); if (sy_CLASS_SRC_FIELDASSIGN && NULL == /*_.VALDATA___V1419*/ curfptr[1418]) /*_.VALDATA___V1419*/ curfptr[1418] = (void*) sy_CLASS_SRC_FIELDASSIGN; } /*getnamedsym:CLASS_SRC_SETQ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_SETQ = basilysgc_named_symbol("CLASS_SRC_SETQ", BASILYS_GET); if (sy_CLASS_SRC_SETQ && NULL == /*_.VALDATA___V1426*/ curfptr[1425]) /*_.VALDATA___V1426*/ curfptr[1425] = (void*) sy_CLASS_SRC_SETQ; } /*getnamedsym:SETQ_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SETQ_ = basilysgc_named_symbol("SETQ_", BASILYS_GET); if (sy_SETQ_ && NULL == /*_.VALDATA___V1423*/ curfptr[1422]) /*_.VALDATA___V1423*/ curfptr[1422] = (void*) sy_SETQ_; } /*getnamedsym:CLASS_SRC_MAKE_INSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MAKE_INSTANCE = basilysgc_named_symbol("CLASS_SRC_MAKE_INSTANCE", BASILYS_GET); if (sy_CLASS_SRC_MAKE_INSTANCE && NULL == /*_.VALDATA___V1434*/ curfptr[1433]) /*_.VALDATA___V1434*/ curfptr[1433] = (void*) sy_CLASS_SRC_MAKE_INSTANCE; } /*getnamedsym:INST_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INST_ = basilysgc_named_symbol("INST_", BASILYS_GET); if (sy_INST_ && NULL == /*_.VALDATA___V1431*/ curfptr[1430]) /*_.VALDATA___V1431*/ curfptr[1430] = (void*) sy_INST_; } /*getnamedsym:CLASS_SRC_FOREVER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FOREVER = basilysgc_named_symbol("CLASS_SRC_FOREVER", BASILYS_GET); if (sy_CLASS_SRC_FOREVER && NULL == /*_.VALDATA___V1441*/ curfptr[1440]) /*_.VALDATA___V1441*/ curfptr[1440] = (void*) sy_CLASS_SRC_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___V1443*/ curfptr[1442]) /*_.VALDATA___V1443*/ curfptr[1442] = (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___V1445*/ curfptr[1444]) /*_.VALDATA___V1445*/ curfptr[1444] = (void*) sy_CLASS_CLONEDSYMBOL; } /*getnamedsym:LABIND_CLONSY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LABIND_CLONSY = basilysgc_named_symbol("LABIND_CLONSY", BASILYS_GET); if (sy_LABIND_CLONSY && NULL == /*_.VALDATA___V1447*/ curfptr[1446]) /*_.VALDATA___V1447*/ curfptr[1446] = (void*) sy_LABIND_CLONSY; } /*getnamedsym:FOREVER_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FOREVER_ = basilysgc_named_symbol("FOREVER_", BASILYS_GET); if (sy_FOREVER_ && NULL == /*_.VALDATA___V1438*/ curfptr[1437]) /*_.VALDATA___V1438*/ curfptr[1437] = (void*) sy_FOREVER_; } /*getnamedsym:CLASS_SRC_EXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXIT = basilysgc_named_symbol("CLASS_SRC_EXIT", BASILYS_GET); if (sy_CLASS_SRC_EXIT && NULL == /*_.VALDATA___V1453*/ curfptr[1452]) /*_.VALDATA___V1453*/ curfptr[1452] = (void*) sy_CLASS_SRC_EXIT; } /*getnamedsym:EXIT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXIT_ = basilysgc_named_symbol("EXIT_", BASILYS_GET); if (sy_EXIT_ && NULL == /*_.VALDATA___V1450*/ curfptr[1449]) /*_.VALDATA___V1450*/ curfptr[1449] = (void*) sy_EXIT_; } /*getnamedsym:CLASS_SRC_COMPILEWARNING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_COMPILEWARNING = basilysgc_named_symbol("CLASS_SRC_COMPILEWARNING", BASILYS_GET); if (sy_CLASS_SRC_COMPILEWARNING && NULL == /*_.VALDATA___V1457*/ curfptr[1456]) /*_.VALDATA___V1457*/ curfptr[1456] = (void*) sy_CLASS_SRC_COMPILEWARNING; } /*getnamedsym:_RETVAL_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_RETVAL_ = basilysgc_named_symbol("_RETVAL_", BASILYS_GET); if (sy_RETVAL_ && NULL == /*_.VALDATA___V1463*/ curfptr[1462]) /*_.VALDATA___V1463*/ curfptr[1462] = (void*) sy_RETVAL_; } /*getnamedsym:CLASS_SRC_DEFUN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFUN = basilysgc_named_symbol("CLASS_SRC_DEFUN", BASILYS_GET); if (sy_CLASS_SRC_DEFUN && NULL == /*_.VALDATA___V1470*/ curfptr[1469]) /*_.VALDATA___V1470*/ curfptr[1469] = (void*) sy_CLASS_SRC_DEFUN; } /*getnamedsym:FIND_ENV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FIND_ENV = basilysgc_named_symbol("FIND_ENV", BASILYS_GET); if (sy_FIND_ENV && NULL == /*_.VALDATA___V1472*/ curfptr[1471]) /*_.VALDATA___V1472*/ curfptr[1471] = (void*) sy_FIND_ENV; } /*getnamedsym:CLASS_SRC_LAMBDA*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_LAMBDA = basilysgc_named_symbol("CLASS_SRC_LAMBDA", BASILYS_GET); if (sy_CLASS_SRC_LAMBDA && NULL == /*_.VALDATA___V1481*/ curfptr[1480]) /*_.VALDATA___V1481*/ curfptr[1480] = (void*) sy_CLASS_SRC_LAMBDA; } /*getnamedsym:LAMBDA_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LAMBDA_ = basilysgc_named_symbol("LAMBDA_", BASILYS_GET); if (sy_LAMBDA_ && NULL == /*_.VALDATA___V1475*/ curfptr[1474]) /*_.VALDATA___V1475*/ curfptr[1474] = (void*) sy_LAMBDA_; } /*getnamedsym:CLASS_SRC_MULTICALL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_MULTICALL = basilysgc_named_symbol("CLASS_SRC_MULTICALL", BASILYS_GET); if (sy_CLASS_SRC_MULTICALL && NULL == /*_.VALDATA___V1490*/ curfptr[1489]) /*_.VALDATA___V1490*/ curfptr[1489] = (void*) sy_CLASS_SRC_MULTICALL; } /*getnamedsym:LIST_ITERATE_TEST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_LIST_ITERATE_TEST = basilysgc_named_symbol("LIST_ITERATE_TEST", BASILYS_GET); if (sy_LIST_ITERATE_TEST && NULL == /*_.VALDATA___V1492*/ curfptr[1491]) /*_.VALDATA___V1492*/ curfptr[1491] = (void*) sy_LIST_ITERATE_TEST; } /*getnamedsym:MULTI_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MULTI_ = basilysgc_named_symbol("MULTI_", BASILYS_GET); if (sy_MULTI_ && NULL == /*_.VALDATA___V1487*/ curfptr[1486]) /*_.VALDATA___V1487*/ curfptr[1486] = (void*) sy_MULTI_; } /*getnamedsym:NAMED_NAME*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_NAMED_NAME = basilysgc_named_symbol("NAMED_NAME", BASILYS_GET); if (sy_NAMED_NAME && NULL == /*_.VALDATA___V1494*/ curfptr[1493]) /*_.VALDATA___V1494*/ curfptr[1493] = (void*) sy_NAMED_NAME; } /*getnamedsym:CLASS_SRC_QUOTE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_QUOTE = basilysgc_named_symbol("CLASS_SRC_QUOTE", BASILYS_GET); if (sy_CLASS_SRC_QUOTE && NULL == /*_.VALDATA___V1504*/ curfptr[1503]) /*_.VALDATA___V1504*/ curfptr[1503] = (void*) sy_CLASS_SRC_QUOTE; } /*getnamedsym:CLASS_SRC_COMMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_COMMENT = basilysgc_named_symbol("CLASS_SRC_COMMENT", BASILYS_GET); if (sy_CLASS_SRC_COMMENT && NULL == /*_.VALDATA___V1510*/ curfptr[1509]) /*_.VALDATA___V1510*/ curfptr[1509] = (void*) sy_CLASS_SRC_COMMENT; } /*getnamedsym:COMMENT_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMMENT_ = basilysgc_named_symbol("COMMENT_", BASILYS_GET); if (sy_COMMENT_ && NULL == /*_.VALDATA___V1507*/ curfptr[1506]) /*_.VALDATA___V1507*/ curfptr[1506] = (void*) sy_COMMENT_; } /*getnamedsym:BINDER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_BINDER = basilysgc_named_symbol("BINDER", BASILYS_GET); if (sy_BINDER && NULL == /*_.VALDATA___V1517*/ curfptr[1516]) /*_.VALDATA___V1517*/ curfptr[1516] = (void*) sy_BINDER; } /*getnamedsym:FBIND_TYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FBIND_TYPE = basilysgc_named_symbol("FBIND_TYPE", BASILYS_GET); if (sy_FBIND_TYPE && NULL == /*_.VALDATA___V1519*/ curfptr[1518]) /*_.VALDATA___V1519*/ curfptr[1518] = (void*) sy_FBIND_TYPE; } /*getnamedsym:CLASS_SRC_DEFPRIMITIVE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFPRIMITIVE = basilysgc_named_symbol("CLASS_SRC_DEFPRIMITIVE", BASILYS_GET); if (sy_CLASS_SRC_DEFPRIMITIVE && NULL == /*_.VALDATA___V1526*/ curfptr[1525]) /*_.VALDATA___V1526*/ curfptr[1525] = (void*) sy_CLASS_SRC_DEFPRIMITIVE; } /*getnamedsym:PRIM_FORMALS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PRIM_FORMALS = basilysgc_named_symbol("PRIM_FORMALS", BASILYS_GET); if (sy_PRIM_FORMALS && NULL == /*_.VALDATA___V1528*/ curfptr[1527]) /*_.VALDATA___V1528*/ curfptr[1527] = (void*) sy_PRIM_FORMALS; } /*getnamedsym:PRIM_EXPANSION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PRIM_EXPANSION = basilysgc_named_symbol("PRIM_EXPANSION", BASILYS_GET); if (sy_PRIM_EXPANSION && NULL == /*_.VALDATA___V1530*/ curfptr[1529]) /*_.VALDATA___V1530*/ curfptr[1529] = (void*) sy_PRIM_EXPANSION; } /*getnamedsym:PRIM_TYPE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_PRIM_TYPE = basilysgc_named_symbol("PRIM_TYPE", BASILYS_GET); if (sy_PRIM_TYPE && NULL == /*_.VALDATA___V1532*/ curfptr[1531]) /*_.VALDATA___V1532*/ curfptr[1531] = (void*) sy_PRIM_TYPE; } /*getnamedsym:CLASS_SRC_DEFCITERATOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFCITERATOR = basilysgc_named_symbol("CLASS_SRC_DEFCITERATOR", BASILYS_GET); if (sy_CLASS_SRC_DEFCITERATOR && NULL == /*_.VALDATA___V1536*/ curfptr[1535]) /*_.VALDATA___V1536*/ curfptr[1535] = (void*) sy_CLASS_SRC_DEFCITERATOR; } /*getnamedsym:CITER_START_FORMALS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CITER_START_FORMALS = basilysgc_named_symbol("CITER_START_FORMALS", BASILYS_GET); if (sy_CITER_START_FORMALS && NULL == /*_.VALDATA___V1538*/ curfptr[1537]) /*_.VALDATA___V1538*/ curfptr[1537] = (void*) sy_CITER_START_FORMALS; } /*getnamedsym:CITER_STATE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CITER_STATE = basilysgc_named_symbol("CITER_STATE", BASILYS_GET); if (sy_CITER_STATE && NULL == /*_.VALDATA___V1540*/ curfptr[1539]) /*_.VALDATA___V1540*/ curfptr[1539] = (void*) sy_CITER_STATE; } /*getnamedsym:CITER_BODY_FORMALS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CITER_BODY_FORMALS = basilysgc_named_symbol("CITER_BODY_FORMALS", BASILYS_GET); if (sy_CITER_BODY_FORMALS && NULL == /*_.VALDATA___V1542*/ curfptr[1541]) /*_.VALDATA___V1542*/ curfptr[1541] = (void*) sy_CITER_BODY_FORMALS; } /*getnamedsym:CITER_EXPBEFORE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CITER_EXPBEFORE = basilysgc_named_symbol("CITER_EXPBEFORE", BASILYS_GET); if (sy_CITER_EXPBEFORE && NULL == /*_.VALDATA___V1544*/ curfptr[1543]) /*_.VALDATA___V1544*/ curfptr[1543] = (void*) sy_CITER_EXPBEFORE; } /*getnamedsym:CITER_EXPAFTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CITER_EXPAFTER = basilysgc_named_symbol("CITER_EXPAFTER", BASILYS_GET); if (sy_CITER_EXPAFTER && NULL == /*_.VALDATA___V1546*/ curfptr[1545]) /*_.VALDATA___V1546*/ curfptr[1545] = (void*) sy_CITER_EXPAFTER; } /*getnamedsym:CLASS_SRC_CITERATION*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CITERATION = basilysgc_named_symbol("CLASS_SRC_CITERATION", BASILYS_GET); if (sy_CLASS_SRC_CITERATION && NULL == /*_.VALDATA___V1556*/ curfptr[1555]) /*_.VALDATA___V1556*/ curfptr[1555] = (void*) sy_CLASS_SRC_CITERATION; } /*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___V1558*/ curfptr[1557]) /*_.VALDATA___V1558*/ curfptr[1557] = (void*) sy_MULTIPLE_EVERY_BOTH; } /*getnamedsym:CLASS_SRC_DEFCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFCLASS = basilysgc_named_symbol("CLASS_SRC_DEFCLASS", BASILYS_GET); if (sy_CLASS_SRC_DEFCLASS && NULL == /*_.VALDATA___V1564*/ curfptr[1563]) /*_.VALDATA___V1564*/ curfptr[1563] = (void*) sy_CLASS_SRC_DEFCLASS; } /*getnamedsym:OBMAG_OBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBMAG_OBJECT = basilysgc_named_symbol("OBMAG_OBJECT", BASILYS_GET); if (sy_OBMAG_OBJECT && NULL == /*_.VALDATA___V1561*/ curfptr[1560]) /*_.VALDATA___V1561*/ curfptr[1560] = (void*) sy_OBMAG_OBJECT; } /*getnamedsym:CLASS_ANCESTORS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ANCESTORS = basilysgc_named_symbol("CLASS_ANCESTORS", BASILYS_GET); if (sy_CLASS_ANCESTORS && NULL == /*_.VALDATA___V1566*/ curfptr[1565]) /*_.VALDATA___V1566*/ curfptr[1565] = (void*) sy_CLASS_ANCESTORS; } /*getnamedsym:CLASS_FIELDS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_FIELDS = basilysgc_named_symbol("CLASS_FIELDS", BASILYS_GET); if (sy_CLASS_FIELDS && NULL == /*_.VALDATA___V1568*/ curfptr[1567]) /*_.VALDATA___V1568*/ curfptr[1567] = (void*) sy_CLASS_FIELDS; } /*getnamedsym:FLD_OWNCLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_FLD_OWNCLASS = basilysgc_named_symbol("FLD_OWNCLASS", BASILYS_GET); if (sy_FLD_OWNCLASS && NULL == /*_.VALDATA___V1570*/ curfptr[1569]) /*_.VALDATA___V1570*/ curfptr[1569] = (void*) sy_FLD_OWNCLASS; } /*getnamedsym:DISC_SUPER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISC_SUPER = basilysgc_named_symbol("DISC_SUPER", BASILYS_GET); if (sy_DISC_SUPER && NULL == /*_.VALDATA___V1572*/ curfptr[1571]) /*_.VALDATA___V1572*/ curfptr[1571] = (void*) sy_DISC_SUPER; } /*getnamedsym:CLASS_SRC_DEFINSTANCE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFINSTANCE = basilysgc_named_symbol("CLASS_SRC_DEFINSTANCE", BASILYS_GET); if (sy_CLASS_SRC_DEFINSTANCE && NULL == /*_.VALDATA___V1577*/ curfptr[1576]) /*_.VALDATA___V1577*/ curfptr[1576] = (void*) sy_CLASS_SRC_DEFINSTANCE; } /*getnamedsym:CLASS_SRC_DEFSELECTOR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_DEFSELECTOR = basilysgc_named_symbol("CLASS_SRC_DEFSELECTOR", BASILYS_GET); if (sy_CLASS_SRC_DEFSELECTOR && NULL == /*_.VALDATA___V1582*/ curfptr[1581]) /*_.VALDATA___V1582*/ curfptr[1581] = (void*) sy_CLASS_SRC_DEFSELECTOR; } /*getnamedsym:_VALUEXPORTER_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_VALUEXPORTER_ = basilysgc_named_symbol("_VALUEXPORTER_", BASILYS_GET); if (sy_VALUEXPORTER_ && NULL == /*_.VALDATA___V1585*/ curfptr[1584]) /*_.VALDATA___V1585*/ curfptr[1584] = (void*) sy_VALUEXPORTER_; } /*getnamedsym:SYSDATA_VALUE_EXPORTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SYSDATA_VALUE_EXPORTER = basilysgc_named_symbol("SYSDATA_VALUE_EXPORTER", BASILYS_GET); if (sy_SYSDATA_VALUE_EXPORTER && NULL == /*_.VALDATA___V1588*/ curfptr[1587]) /*_.VALDATA___V1588*/ curfptr[1587] = (void*) sy_SYSDATA_VALUE_EXPORTER; } /*getnamedsym:_EXPORTED_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORTED_ = basilysgc_named_symbol("_EXPORTED_", BASILYS_GET); if (sy_EXPORTED_ && NULL == /*_.VALDATA___V1591*/ curfptr[1590]) /*_.VALDATA___V1591*/ curfptr[1590] = (void*) sy_EXPORTED_; } /*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___V1594*/ curfptr[1593]) /*_.VALDATA___V1594*/ curfptr[1593] = (void*) sy_DISCR_STRBUF; } /*getnamedsym:CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); if (sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1596*/ curfptr[1595]) /*_.VALDATA___V1596*/ curfptr[1595] = (void*) sy_CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:CLASS_SRC_EXPORT_VALUES*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_VALUES = basilysgc_named_symbol("CLASS_SRC_EXPORT_VALUES", BASILYS_GET); if (sy_CLASS_SRC_EXPORT_VALUES && NULL == /*_.VALDATA___V1601*/ curfptr[1600]) /*_.VALDATA___V1601*/ curfptr[1600] = (void*) sy_CLASS_SRC_EXPORT_VALUES; } /*getnamedsym:CLASS_SRC_EXPORT_CLASS*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_CLASS = basilysgc_named_symbol("CLASS_SRC_EXPORT_CLASS", BASILYS_GET); if (sy_CLASS_SRC_EXPORT_CLASS && NULL == /*_.VALDATA___V1607*/ curfptr[1606]) /*_.VALDATA___V1607*/ curfptr[1606] = (void*) sy_CLASS_SRC_EXPORT_CLASS; } /*getnamedsym:MOCX_EXPCLASSDICT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MOCX_EXPCLASSDICT = basilysgc_named_symbol("MOCX_EXPCLASSDICT", BASILYS_GET); if (sy_MOCX_EXPCLASSDICT && NULL == /*_.VALDATA___V1609*/ curfptr[1608]) /*_.VALDATA___V1609*/ curfptr[1608] = (void*) sy_MOCX_EXPCLASSDICT; } /*getnamedsym:MOCX_EXPFIELDICT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MOCX_EXPFIELDICT = basilysgc_named_symbol("MOCX_EXPFIELDICT", BASILYS_GET); if (sy_MOCX_EXPFIELDICT && NULL == /*_.VALDATA___V1611*/ curfptr[1610]) /*_.VALDATA___V1611*/ curfptr[1610] = (void*) sy_MOCX_EXPFIELDICT; } /*getnamedsym:_MACROXPORTER_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MACROXPORTER_ = basilysgc_named_symbol("_MACROXPORTER_", BASILYS_GET); if (sy_MACROXPORTER_ && NULL == /*_.VALDATA___V1614*/ curfptr[1613]) /*_.VALDATA___V1614*/ curfptr[1613] = (void*) sy_MACROXPORTER_; } /*getnamedsym:SYSDATA_MACRO_EXPORTER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_SYSDATA_MACRO_EXPORTER = basilysgc_named_symbol("SYSDATA_MACRO_EXPORTER", BASILYS_GET); if (sy_SYSDATA_MACRO_EXPORTER && NULL == /*_.VALDATA___V1617*/ curfptr[1616]) /*_.VALDATA___V1617*/ curfptr[1616] = (void*) sy_SYSDATA_MACRO_EXPORTER; } /*getnamedsym:_EXPORTEDM_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_EXPORTEDM_ = basilysgc_named_symbol("_EXPORTEDM_", BASILYS_GET); if (sy_EXPORTEDM_ && NULL == /*_.VALDATA___V1620*/ curfptr[1619]) /*_.VALDATA___V1620*/ curfptr[1619] = (void*) sy_EXPORTEDM_; } /*getnamedsym:CLASS_SRC_EXPORT_MACRO*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_EXPORT_MACRO = basilysgc_named_symbol("CLASS_SRC_EXPORT_MACRO", BASILYS_GET); if (sy_CLASS_SRC_EXPORT_MACRO && NULL == /*_.VALDATA___V1625*/ curfptr[1624]) /*_.VALDATA___V1625*/ curfptr[1624] = (void*) sy_CLASS_SRC_EXPORT_MACRO; } /*getnamedsym:CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT = basilysgc_named_symbol("CLASS_SRC_PARENT_MODULE_ENVIRONMENT", BASILYS_GET); if (sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT && NULL == /*_.VALDATA___V1631*/ curfptr[1630]) /*_.VALDATA___V1631*/ curfptr[1630] = (void*) sy_CLASS_SRC_PARENT_MODULE_ENVIRONMENT; } /*getnamedsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = basilysgc_named_symbol("CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", BASILYS_GET); if (sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER && NULL == /*_.VALDATA___V1637*/ curfptr[1636]) /*_.VALDATA___V1637*/ curfptr[1636] = (void*) sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*getnamedsym:UPDATCURMODENVBOX_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_UPDATCURMODENVBOX_ = basilysgc_named_symbol("UPDATCURMODENVBOX_", BASILYS_GET); if (sy_UPDATCURMODENVBOX_ && NULL == /*_.VALDATA___V1634*/ curfptr[1633]) /*_.VALDATA___V1634*/ curfptr[1633] = (void*) sy_UPDATCURMODENVBOX_; } /*getnamedsym:CLASS_SRC_FETCH_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_FETCH_PREDEFINED = basilysgc_named_symbol("CLASS_SRC_FETCH_PREDEFINED", BASILYS_GET); if (sy_CLASS_SRC_FETCH_PREDEFINED && NULL == /*_.VALDATA___V1639*/ curfptr[1638]) /*_.VALDATA___V1639*/ curfptr[1638] = (void*) sy_CLASS_SRC_FETCH_PREDEFINED; } /*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___V1641*/ curfptr[1640]) /*_.VALDATA___V1641*/ curfptr[1640] = (void*) sy_SYSDATA_CONT_FRESH_ENV; } /*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___V1646*/ curfptr[1645]) /*_.VALDATA___V1646*/ curfptr[1645] = (void*) sy_MAPOBJECT_EVERY; } /*getnamedsym:CLASS_SRC_STORE_PREDEFINED*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_SRC_STORE_PREDEFINED = basilysgc_named_symbol("CLASS_SRC_STORE_PREDEFINED", BASILYS_GET); if (sy_CLASS_SRC_STORE_PREDEFINED && NULL == /*_.VALDATA___V1653*/ curfptr[1652]) /*_.VALDATA___V1653*/ curfptr[1652] = (void*) sy_CLASS_SRC_STORE_PREDEFINED; } /*getnamedsym:_STOREPREDEF_*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_STOREPREDEF_ = basilysgc_named_symbol("_STOREPREDEF_", BASILYS_GET); if (sy_STOREPREDEF_ && NULL == /*_.VALDATA___V1650*/ curfptr[1649]) /*_.VALDATA___V1650*/ curfptr[1649] = (void*) sy_STOREPREDEF_; } /**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___V7*/ curfptr[6] = 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_SYMBOL__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]), (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__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]), (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___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]), (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_INITIAL_MACRO__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]), (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_ROOT__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]), (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_NORMCONTEXT__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834]), (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__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]), (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__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]), (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__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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]; /*_.DISCR_LIST__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]), (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_MAPSTRINGS__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]), (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__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155]), (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_ENVIRONMENT__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220]), (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__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]), (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__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]), (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__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]), (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__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193]), (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_SRC__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230]), (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__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]), (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__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163]), (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_CSTRING__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]), (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__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252]), (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__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1255*/ curfptr[1254]), (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__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256]), (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__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]), (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__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263]), (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__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]), (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__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]), (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__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273]), (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]; /*_.FIND_ENCLOSING_ENV__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299]), (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__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301]), (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_BOX__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]), (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__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]), (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__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303]), (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__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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_FUNCTION_BINDING__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307]), (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_PRIMITIVE_BINDING__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1310*/ curfptr[1309]), (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_BINDING__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]), (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_BINDING__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]), (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_BINDING__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]), (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_INSTANCE_BINDING__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1318*/ curfptr[1317]), (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_SRC_PRIMITIVE__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325]), (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_PRIMITIVE__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]), (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__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]), (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]; /*_.CLONE_SYMBOL__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327]), (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_SRC_APPLY__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]), (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__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336]), (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_SRC_MSEND__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1341*/ curfptr[1340]), (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_SRC_RETURN__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1348*/ curfptr[1347]), (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_SRC_IF__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]), (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__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]), (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]; /*_.FRESH_ENV__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]), (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]; /*_.PUT_ENV__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358]), (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_SRC_IFELSE__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]), (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_SRC_CPPIF__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]), (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_SRC_OR__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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]; /*_.MULTIPLE_BACKWARD_EVERY__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]), (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_SRC_PROGN__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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]; /*_.CLASS_SRC_LET__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402]), (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_SRC_LETBINDING__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404]), (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_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1410*/ curfptr[1409]), (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__V69*/ curfptr[68] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]), (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_SRC_UNSAFE_PUT_FIELDS__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]), (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_SRC_FIELDASSIGN__V71*/ curfptr[70] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]), (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_SRC_SETQ__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]), (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_SRC_MAKE_INSTANCE__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1434*/ curfptr[1433]), (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_SRC_FOREVER__V74*/ curfptr[73] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]), (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__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1443*/ curfptr[1442]), (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__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1445*/ curfptr[1444]), (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]; /*_.LABIND_CLONSY__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1447*/ curfptr[1446]), (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_SRC_EXIT__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1453*/ curfptr[1452]), (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_SRC_COMPILEWARNING__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]), (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_SRC_DEFUN__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]), (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]; /*_.FIND_ENV__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1472*/ curfptr[1471]), (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_ROUTINE__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]), (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_CLOSURE__V83*/ curfptr[82] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]), (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_SRC_LAMBDA__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1481*/ curfptr[1480]), (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_SRC_MULTICALL__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1490*/ curfptr[1489]), (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_ITERATE_TEST__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]), (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]; /*_.NAMED_NAME__V87*/ curfptr[86] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]), (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_KEYWORD__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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_SRC_QUOTE__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]), (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_SRC_COMMENT__V90*/ curfptr[89] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]), (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]; /*_.BINDER__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1517*/ curfptr[1516]), (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]; /*_.FBIND_TYPE__V92*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1519*/ curfptr[1518]), (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__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]), (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_SRC_DEFPRIMITIVE__V94*/ curfptr[93] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]), (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]; /*_.PRIM_FORMALS__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]), (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]; /*_.PRIM_EXPANSION__V96*/ curfptr[95] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1530*/ curfptr[1529]), (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]; /*_.PRIM_TYPE__V97*/ curfptr[96] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]), (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_SRC_DEFCITERATOR__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]), (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__V99*/ curfptr[98] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135]), (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]; /*_.CITER_START_FORMALS__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1538*/ curfptr[1537]), (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]; /*_.CITER_STATE__V101*/ curfptr[100] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]), (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]; /*_.CITER_BODY_FORMALS__V102*/ curfptr[101] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]), (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]; /*_.CITER_EXPBEFORE__V103*/ curfptr[102] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]), (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]; /*_.CITER_EXPAFTER__V104*/ curfptr[103] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1546*/ curfptr[1545]), (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_SRC_CITERATION__V105*/ curfptr[104] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]), (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__V106*/ curfptr[105] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1558*/ curfptr[1557]), (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_SRC_DEFCLASS__V107*/ curfptr[106] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]), (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_SEQCLASS__V108*/ curfptr[107] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]), (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_SEQFIELD__V109*/ curfptr[108] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (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_ANCESTORS__V110*/ curfptr[109] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1566*/ curfptr[1565]), (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_FIELDS__V111*/ curfptr[110] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1568*/ curfptr[1567]), (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]; /*_.FLD_OWNCLASS__V112*/ curfptr[111] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]), (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]; /*_.DISC_SUPER__V113*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]), (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_SRC_DEFINSTANCE__V114*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]), (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_SRC_DEFSELECTOR__V115*/ curfptr[114] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]), (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_EXPORTER__V116*/ curfptr[115] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1588*/ curfptr[1587]), (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__V117*/ curfptr[116] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]), (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_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1596*/ curfptr[1595]), (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_SRC_EXPORT_VALUES__V119*/ curfptr[118] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]), (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_SRC_EXPORT_CLASS__V120*/ curfptr[119] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]), (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]; /*_.MOCX_EXPCLASSDICT__V121*/ curfptr[120] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]), (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]; /*_.MOCX_EXPFIELDICT__V122*/ curfptr[121] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]), (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_MACRO_EXPORTER__V123*/ curfptr[122] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]), (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_SRC_EXPORT_MACRO__V124*/ curfptr[123] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]), (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_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1631*/ curfptr[1630]), (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_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V126*/ curfptr[125] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]), (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_SRC_FETCH_PREDEFINED__V127*/ curfptr[126] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1639*/ curfptr[1638]), (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__V128*/ curfptr[127] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]), (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__V129*/ curfptr[128] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]), (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_SRC_STORE_PREDEFINED__V130*/ curfptr[129] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V7*/ curfptr[6]), (basilys_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]), (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___V131*/ curfptr[130])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])))); ((basilysobject_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V132*/ curfptr[131]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V131*/ curfptr[130]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])))); ((basilysobject_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V134*/ curfptr[133]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V133*/ curfptr[132]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])))); ((basilysobject_ptr_t)(/*_.VALDATA___V135*/ curfptr[134]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V136*/ curfptr[135]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V135*/ curfptr[134]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])))); ((basilysobject_ptr_t)(/*_.VALDATA___V137*/ curfptr[136]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V138*/ curfptr[137]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V137*/ curfptr[136]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V139*/ curfptr[138]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V141*/ curfptr[140]); BASILYS_LOCATION("warmelt-normal.bysl:44: @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-normal.bysl:44: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[4] = (basilys_ptr_t)( /*_.CLASS_ROOT__V12*/ curfptr[11]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V145*/ curfptr[144]); BASILYS_LOCATION("warmelt-normal.bysl:44: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V145*/ curfptr[144]); BASILYS_LOCATION("warmelt-normal.bysl:44: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:44: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145])))); ((basilysobject_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:44: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V148*/ curfptr[147]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V148*/ curfptr[147])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V148*/ curfptr[147]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V148*/ curfptr[147]); BASILYS_LOCATION("warmelt-normal.bysl:44: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])))); ((basilysobject_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V148*/ curfptr[147]); BASILYS_LOCATION("warmelt-normal.bysl:44: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V143*/ curfptr[142]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])))); ((basilysobject_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V150*/ curfptr[149]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V149*/ curfptr[148]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])))); ((basilysobject_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V152*/ curfptr[151]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V151*/ curfptr[150]); BASILYS_LOCATION("warmelt-normal.bysl:51: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])))); ((basilysobject_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V154*/ curfptr[153]); BASILYS_LOCATION("warmelt-normal.bysl:51: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])))); ((basilysobject_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V155*/ curfptr[154]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V155*/ curfptr[154])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V155*/ curfptr[154]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V155*/ curfptr[154]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V155*/ curfptr[154])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V155*/ curfptr[154]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V155*/ curfptr[154]); BASILYS_LOCATION("warmelt-normal.bysl:51: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])))); ((basilysobject_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V155*/ curfptr[154]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V156*/ curfptr[155]); BASILYS_LOCATION("warmelt-normal.bysl:51: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152])))); ((basilysobject_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V156*/ curfptr[155]); BASILYS_LOCATION("warmelt-normal.bysl:51: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V153*/ curfptr[152]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V157*/ curfptr[156]); BASILYS_LOCATION("warmelt-normal.bysl:58: @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-normal.bysl:58: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V161*/ curfptr[160])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V161*/ curfptr[160]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V161*/ curfptr[160]); BASILYS_LOCATION("warmelt-normal.bysl:58: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V161*/ curfptr[160]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V162*/ curfptr[161]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V162*/ curfptr[161])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V162*/ curfptr[161]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-normal.bysl:58: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])))); ((basilysobject_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-normal.bysl:58: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V159*/ curfptr[158]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V163*/ curfptr[162])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V163*/ curfptr[162])))); ((basilysobject_ptr_t)(/*_.VALDATA___V163*/ curfptr[162]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V164*/ curfptr[163]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V163*/ curfptr[162]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])))); ((basilysobject_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V166*/ curfptr[165]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])))); ((basilysobject_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V167*/ curfptr[166])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V167*/ curfptr[166]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V167*/ curfptr[166]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])))); ((basilysobject_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V167*/ curfptr[166]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167])))); ((basilysobject_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:64: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V168*/ curfptr[167]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169])))); ((basilysobject_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:64: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V170*/ curfptr[169]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V172*/ curfptr[171])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V172*/ curfptr[171]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V172*/ curfptr[171]); BASILYS_LOCATION("warmelt-normal.bysl:64: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164])))); ((basilysobject_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V172*/ curfptr[171]); BASILYS_LOCATION("warmelt-normal.bysl:64: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V165*/ curfptr[164]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])))); ((basilysobject_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V174*/ curfptr[173]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V173*/ curfptr[172]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174])))); ((basilysobject_ptr_t)(/*_.VALDATA___V175*/ curfptr[174]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V176*/ curfptr[175]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V175*/ curfptr[174]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])))); ((basilysobject_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V178*/ curfptr[177]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V177*/ curfptr[176]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])))); ((basilysobject_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V180*/ curfptr[179]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])))); ((basilysobject_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V165*/ curfptr[164]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V181*/ curfptr[180])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V181*/ curfptr[180]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V181*/ curfptr[180]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])))); ((basilysobject_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V181*/ curfptr[180]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V183*/ curfptr[182]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181])))); ((basilysobject_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V179*/ curfptr[178]); BASILYS_LOCATION("warmelt-normal.bysl:71: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V182*/ curfptr[181]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183])))); ((basilysobject_ptr_t)(/*_.VALDATA___V184*/ curfptr[183]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V179*/ curfptr[178]); BASILYS_LOCATION("warmelt-normal.bysl:71: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V184*/ curfptr[183]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V168*/ curfptr[167]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V170*/ curfptr[169]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V182*/ curfptr[181]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V186*/ curfptr[185])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V186*/ curfptr[185]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V184*/ curfptr[183]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V186*/ curfptr[185]); BASILYS_LOCATION("warmelt-normal.bysl:71: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178])))); ((basilysobject_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V186*/ curfptr[185]); BASILYS_LOCATION("warmelt-normal.bysl:71: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V179*/ curfptr[178]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186])))); ((basilysobject_ptr_t)(/*_.VALDATA___V187*/ curfptr[186]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V188*/ curfptr[187]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V187*/ curfptr[186]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])))); ((basilysobject_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V190*/ curfptr[189]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V189*/ curfptr[188]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])))); ((basilysobject_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V192*/ curfptr[191]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V191*/ curfptr[190]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V194*/ curfptr[193]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V195*/ curfptr[194])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V195*/ curfptr[194]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V195*/ curfptr[194]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V195*/ curfptr[194]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])))); ((basilysobject_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V197*/ curfptr[196]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195])))); ((basilysobject_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-normal.bysl:78: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V196*/ curfptr[195]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])))); ((basilysobject_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V199*/ curfptr[198]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197])))); ((basilysobject_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-normal.bysl:78: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V198*/ curfptr[197]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])))); ((basilysobject_ptr_t)(/*_.VALDATA___V200*/ curfptr[199]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V201*/ curfptr[200]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199])))); ((basilysobject_ptr_t)(/*_.VALDATA___V200*/ curfptr[199]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-normal.bysl:78: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V200*/ curfptr[199]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V196*/ curfptr[195]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V198*/ curfptr[197]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V202*/ curfptr[201])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V202*/ curfptr[201]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V200*/ curfptr[199]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V202*/ curfptr[201]); BASILYS_LOCATION("warmelt-normal.bysl:78: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])))); ((basilysobject_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V202*/ curfptr[201]); BASILYS_LOCATION("warmelt-normal.bysl:78: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V193*/ curfptr[192]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V203*/ curfptr[202]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])))); ((basilysobject_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V206*/ curfptr[205]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V205*/ curfptr[204]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])))); ((basilysobject_ptr_t)(/*_.VALDATA___V207*/ curfptr[206]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V208*/ curfptr[207]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V207*/ curfptr[206]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])))); ((basilysobject_ptr_t)(/*_.VALDATA___V209*/ curfptr[208]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V210*/ curfptr[209]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V209*/ curfptr[208]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V212*/ curfptr[211]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V193*/ curfptr[192]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V213*/ curfptr[212])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V213*/ curfptr[212]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V213*/ curfptr[212]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V213*/ curfptr[212]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V214*/ curfptr[213])))); ((basilysobject_ptr_t)(/*_.VALDATA___V214*/ curfptr[213]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V211*/ curfptr[210]); BASILYS_LOCATION("warmelt-normal.bysl:88: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V214*/ curfptr[213]); BASILYS_LOCATION("warmelt-normal.bysl:88: @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-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215])))); ((basilysobject_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V211*/ curfptr[210]); BASILYS_LOCATION("warmelt-normal.bysl:88: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V216*/ curfptr[215]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V196*/ curfptr[195]); /*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___V198*/ curfptr[197]); /*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___V200*/ curfptr[199]); /*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___V214*/ curfptr[213]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V218*/ curfptr[217])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V218*/ curfptr[217]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V216*/ curfptr[215]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-normal.bysl:88: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210])))); ((basilysobject_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V218*/ curfptr[217]); BASILYS_LOCATION("warmelt-normal.bysl:88: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V211*/ curfptr[210]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V219*/ curfptr[218]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V221*/ curfptr[220])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V221*/ curfptr[220])))); ((basilysobject_ptr_t)(/*_.VALDATA___V221*/ curfptr[220]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V222*/ curfptr[221]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V221*/ curfptr[220]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])))); ((basilysobject_ptr_t)(/*_.VALDATA___V223*/ curfptr[222]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V224*/ curfptr[223]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V223*/ curfptr[222]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V226*/ curfptr[225]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V227*/ curfptr[226])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V227*/ curfptr[226]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])))); ((basilysobject_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V229*/ curfptr[228]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227])))); ((basilysobject_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V225*/ curfptr[224]); BASILYS_LOCATION("warmelt-normal.bysl:95: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])))); ((basilysobject_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V231*/ curfptr[230]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229])))); ((basilysobject_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V225*/ curfptr[224]); BASILYS_LOCATION("warmelt-normal.bysl:95: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V230*/ curfptr[229]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V228*/ curfptr[227]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V232*/ curfptr[231])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V232*/ curfptr[231]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V230*/ curfptr[229]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V232*/ curfptr[231]); BASILYS_LOCATION("warmelt-normal.bysl:95: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224])))); ((basilysobject_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V232*/ curfptr[231]); BASILYS_LOCATION("warmelt-normal.bysl:95: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V225*/ curfptr[224]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])))); ((basilysobject_ptr_t)(/*_.VALDATA___V233*/ curfptr[232]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V234*/ curfptr[233]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V233*/ curfptr[232]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])))); ((basilysobject_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V236*/ curfptr[235]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V235*/ curfptr[234]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])))); ((basilysobject_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V238*/ curfptr[237]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V237*/ curfptr[236]); BASILYS_LOCATION("warmelt-normal.bysl:102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V240*/ curfptr[239]); BASILYS_LOCATION("warmelt-normal.bysl:102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V241*/ curfptr[240])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V241*/ curfptr[240]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-normal.bysl:102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V241*/ curfptr[240]); BASILYS_LOCATION("warmelt-normal.bysl:102: @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-normal.bysl:102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V242*/ curfptr[241])))); ((basilysobject_ptr_t)(/*_.VALDATA___V242*/ curfptr[241]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-normal.bysl:102: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V242*/ curfptr[241]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V242*/ curfptr[241]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-normal.bysl:102: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238])))); ((basilysobject_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V244*/ curfptr[243]); BASILYS_LOCATION("warmelt-normal.bysl:102: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V239*/ curfptr[238]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V245*/ curfptr[244]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])))); ((basilysobject_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V248*/ curfptr[247]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V247*/ curfptr[246]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V250*/ curfptr[249]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V251*/ curfptr[250])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V251*/ curfptr[250]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-normal.bysl:108: @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-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251])))); ((basilysobject_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:108: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V252*/ curfptr[251]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])))); ((basilysobject_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253])))); ((basilysobject_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:108: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V254*/ curfptr[253]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V252*/ curfptr[251]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V256*/ curfptr[255])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V256*/ curfptr[255]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V254*/ curfptr[253]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V256*/ curfptr[255]); BASILYS_LOCATION("warmelt-normal.bysl:108: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248])))); ((basilysobject_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V256*/ curfptr[255]); BASILYS_LOCATION("warmelt-normal.bysl:108: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V249*/ curfptr[248]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])))); ((basilysobject_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V258*/ curfptr[257]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V257*/ curfptr[256]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])))); ((basilysobject_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V260*/ curfptr[259]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V259*/ curfptr[258]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V261*/ curfptr[260]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])))); ((basilysobject_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V264*/ curfptr[263]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])))); ((basilysobject_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V265*/ curfptr[264])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V265*/ curfptr[264]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V265*/ curfptr[264]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])))); ((basilysobject_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V265*/ curfptr[264]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V266*/ curfptr[265])))); ((basilysobject_ptr_t)(/*_.VALDATA___V266*/ curfptr[265]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-normal.bysl:115: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V266*/ curfptr[265]); BASILYS_LOCATION("warmelt-normal.bysl:115: @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-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V268*/ curfptr[267])))); ((basilysobject_ptr_t)(/*_.VALDATA___V268*/ curfptr[267]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-normal.bysl:115: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V268*/ curfptr[267]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V266*/ curfptr[265]); /*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___V268*/ curfptr[267]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V270*/ curfptr[269]); BASILYS_LOCATION("warmelt-normal.bysl:115: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])))); ((basilysobject_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V270*/ curfptr[269]); BASILYS_LOCATION("warmelt-normal.bysl:115: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V263*/ curfptr[262]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V271*/ curfptr[270]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272])))); ((basilysobject_ptr_t)(/*_.VALDATA___V273*/ curfptr[272]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V274*/ curfptr[273]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V273*/ curfptr[272]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])))); ((basilysobject_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V276*/ curfptr[275]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V275*/ curfptr[274]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])))); ((basilysobject_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V278*/ curfptr[277]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])))); ((basilysobject_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V279*/ curfptr[278])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V279*/ curfptr[278]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])))); ((basilysobject_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V279*/ curfptr[278]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279])))); ((basilysobject_ptr_t)(/*_.VALDATA___V280*/ curfptr[279]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279])))); ((basilysobject_ptr_t)(/*_.VALDATA___V280*/ curfptr[279]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:122: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])))); ((basilysobject_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V283*/ curfptr[282]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281])))); ((basilysobject_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:122: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V282*/ curfptr[281]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])))); ((basilysobject_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:122: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V284*/ curfptr[283]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])))); ((basilysobject_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:122: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V286*/ curfptr[285]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V280*/ curfptr[279]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V282*/ curfptr[281]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V288*/ curfptr[287])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V288*/ curfptr[287]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-normal.bysl:122: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])))); ((basilysobject_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V288*/ curfptr[287]); BASILYS_LOCATION("warmelt-normal.bysl:122: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V277*/ curfptr[276]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])))); ((basilysobject_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V290*/ curfptr[289]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V289*/ curfptr[288]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V291*/ curfptr[290]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])))); ((basilysobject_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V294*/ curfptr[293]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V293*/ curfptr[292]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])))); ((basilysobject_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V296*/ curfptr[295]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V295*/ curfptr[294]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V297*/ curfptr[296])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V297*/ curfptr[296])))); ((basilysobject_ptr_t)(/*_.VALDATA___V297*/ curfptr[296]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V298*/ curfptr[297]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V297*/ curfptr[296]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])))); ((basilysobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V300*/ curfptr[299]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])))); ((basilysobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V301*/ curfptr[300])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V301*/ curfptr[300]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V301*/ curfptr[300]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])))); ((basilysobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V301*/ curfptr[300]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V303*/ curfptr[302]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V302*/ curfptr[301])))); ((basilysobject_ptr_t)(/*_.VALDATA___V302*/ curfptr[301]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-normal.bysl:131: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V302*/ curfptr[301]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])))); ((basilysobject_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-normal.bysl:131: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V304*/ curfptr[303]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V306*/ curfptr[305])))); ((basilysobject_ptr_t)(/*_.VALDATA___V306*/ curfptr[305]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-normal.bysl:131: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V306*/ curfptr[305]); BASILYS_LOCATION("warmelt-normal.bysl:131: @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-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])))); ((basilysobject_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-normal.bysl:131: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V308*/ curfptr[307]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V302*/ curfptr[301]); /*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___V304*/ curfptr[303]); /*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___V306*/ curfptr[305]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V310*/ curfptr[309])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V310*/ curfptr[309]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V310*/ curfptr[309]); BASILYS_LOCATION("warmelt-normal.bysl:131: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298])))); ((basilysobject_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V310*/ curfptr[309]); BASILYS_LOCATION("warmelt-normal.bysl:131: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V299*/ curfptr[298]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V311*/ curfptr[310]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])))); ((basilysobject_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V314*/ curfptr[313]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V313*/ curfptr[312]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])))); ((basilysobject_ptr_t)(/*_.VALDATA___V315*/ curfptr[314]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V316*/ curfptr[315]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V315*/ curfptr[314]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])))); ((basilysobject_ptr_t)(/*_.VALDATA___V317*/ curfptr[316]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V318*/ curfptr[317]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V317*/ curfptr[316]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])))); ((basilysobject_ptr_t)(/*_.VALDATA___V319*/ curfptr[318]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V320*/ curfptr[319]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V319*/ curfptr[318]); BASILYS_LOCATION("warmelt-normal.bysl:140: @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-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V323*/ curfptr[322])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V323*/ curfptr[322]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V323*/ curfptr[322]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V323*/ curfptr[322]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])))); ((basilysobject_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V325*/ curfptr[324]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323])))); ((basilysobject_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-normal.bysl:140: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V324*/ curfptr[323]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325])))); ((basilysobject_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-normal.bysl:140: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V326*/ curfptr[325]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V324*/ curfptr[323]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V328*/ curfptr[327])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V328*/ curfptr[327]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V326*/ curfptr[325]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V328*/ curfptr[327]); BASILYS_LOCATION("warmelt-normal.bysl:140: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320])))); ((basilysobject_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V328*/ curfptr[327]); BASILYS_LOCATION("warmelt-normal.bysl:140: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V321*/ curfptr[320]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])))); ((basilysobject_ptr_t)(/*_.VALDATA___V329*/ curfptr[328]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V330*/ curfptr[329]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V329*/ curfptr[328]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])))); ((basilysobject_ptr_t)(/*_.VALDATA___V331*/ curfptr[330]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V332*/ curfptr[331]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V331*/ curfptr[330]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])))); ((basilysobject_ptr_t)(/*_.VALDATA___V333*/ curfptr[332]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V334*/ curfptr[333]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V333*/ curfptr[332]); BASILYS_LOCATION("warmelt-normal.bysl:147: @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-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V337*/ curfptr[336])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V337*/ curfptr[336]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V337*/ curfptr[336]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V337*/ curfptr[336]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337])))); ((basilysobject_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-normal.bysl:147: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V338*/ curfptr[337]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339])))); ((basilysobject_ptr_t)(/*_.VALDATA___V340*/ curfptr[339]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-normal.bysl:147: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V340*/ curfptr[339]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V338*/ curfptr[337]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V342*/ curfptr[341])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V342*/ curfptr[341]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V340*/ curfptr[339]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V342*/ curfptr[341]); BASILYS_LOCATION("warmelt-normal.bysl:147: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V342*/ curfptr[341]); BASILYS_LOCATION("warmelt-normal.bysl:147: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V335*/ curfptr[334]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])))); ((basilysobject_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V344*/ curfptr[343]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V343*/ curfptr[342]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344])))); ((basilysobject_ptr_t)(/*_.VALDATA___V345*/ curfptr[344]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V346*/ curfptr[345]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V345*/ curfptr[344]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])))); ((basilysobject_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V348*/ curfptr[347]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V347*/ curfptr[346]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])))); ((basilysobject_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V350*/ curfptr[349]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])))); ((basilysobject_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V351*/ curfptr[350])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V351*/ curfptr[350]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V351*/ curfptr[350]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])))); ((basilysobject_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V351*/ curfptr[350]); BASILYS_LOCATION("warmelt-normal.bysl:154: @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-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351])))); ((basilysobject_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-normal.bysl:154: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V352*/ curfptr[351]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V354*/ curfptr[353])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V354*/ curfptr[353])))); ((basilysobject_ptr_t)(/*_.VALDATA___V354*/ curfptr[353]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V355*/ curfptr[354]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V354*/ curfptr[353])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V354*/ curfptr[353])))); ((basilysobject_ptr_t)(/*_.VALDATA___V354*/ curfptr[353]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-normal.bysl:154: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V354*/ curfptr[353]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V352*/ curfptr[351]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V356*/ curfptr[355])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V356*/ curfptr[355]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V354*/ curfptr[353]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-normal.bysl:154: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])))); ((basilysobject_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-normal.bysl:154: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V349*/ curfptr[348]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])))); ((basilysobject_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V358*/ curfptr[357]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V357*/ curfptr[356]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])))); ((basilysobject_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V360*/ curfptr[359]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V359*/ curfptr[358]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V361*/ curfptr[360])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V361*/ curfptr[360])))); ((basilysobject_ptr_t)(/*_.VALDATA___V361*/ curfptr[360]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V362*/ curfptr[361]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V361*/ curfptr[360]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V364*/ curfptr[363]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V365*/ curfptr[364])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V365*/ curfptr[364]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V365*/ curfptr[364]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V365*/ curfptr[364]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])))); ((basilysobject_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V367*/ curfptr[366]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])))); ((basilysobject_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V363*/ curfptr[362]); BASILYS_LOCATION("warmelt-normal.bysl:160: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V366*/ curfptr[365]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])))); ((basilysobject_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367])))); ((basilysobject_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V363*/ curfptr[362]); BASILYS_LOCATION("warmelt-normal.bysl:160: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V368*/ curfptr[367]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V370*/ curfptr[369])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V370*/ curfptr[369]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V368*/ curfptr[367]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V370*/ curfptr[369]); BASILYS_LOCATION("warmelt-normal.bysl:160: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362])))); ((basilysobject_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V370*/ curfptr[369]); BASILYS_LOCATION("warmelt-normal.bysl:160: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V363*/ curfptr[362]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])))); ((basilysobject_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V372*/ curfptr[371]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V371*/ curfptr[370]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])))); ((basilysobject_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V374*/ curfptr[373]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V373*/ curfptr[372]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])))); ((basilysobject_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V376*/ curfptr[375]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V375*/ curfptr[374]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V379*/ curfptr[378])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V379*/ curfptr[378]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])))); ((basilysobject_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379])))); ((basilysobject_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-normal.bysl:167: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V380*/ curfptr[379]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381])))); ((basilysobject_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-normal.bysl:167: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V382*/ curfptr[381]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383])))); ((basilysobject_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-normal.bysl:167: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V384*/ curfptr[383]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V380*/ curfptr[379]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V382*/ curfptr[381]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V386*/ curfptr[385])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V386*/ curfptr[385]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V384*/ curfptr[383]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-normal.bysl:167: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376])))); ((basilysobject_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-normal.bysl:167: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V377*/ curfptr[376]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])))); ((basilysobject_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V388*/ curfptr[387]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V387*/ curfptr[386]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V389*/ curfptr[388]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])))); ((basilysobject_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V392*/ curfptr[391]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V391*/ curfptr[390]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])))); ((basilysobject_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V394*/ curfptr[393]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V393*/ curfptr[392]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])))); ((basilysobject_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V396*/ curfptr[395]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])))); ((basilysobject_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V397*/ curfptr[396])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V397*/ curfptr[396]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])))); ((basilysobject_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V399*/ curfptr[398]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397])))); ((basilysobject_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V395*/ curfptr[394]); BASILYS_LOCATION("warmelt-normal.bysl:175: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V398*/ curfptr[397]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399])))); ((basilysobject_ptr_t)(/*_.VALDATA___V400*/ curfptr[399]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V401*/ curfptr[400]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399])))); ((basilysobject_ptr_t)(/*_.VALDATA___V400*/ curfptr[399]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V395*/ curfptr[394]); BASILYS_LOCATION("warmelt-normal.bysl:175: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V400*/ curfptr[399]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V398*/ curfptr[397]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V402*/ curfptr[401])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V402*/ curfptr[401]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V400*/ curfptr[399]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V402*/ curfptr[401]); BASILYS_LOCATION("warmelt-normal.bysl:175: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394])))); ((basilysobject_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V402*/ curfptr[401]); BASILYS_LOCATION("warmelt-normal.bysl:175: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V395*/ curfptr[394]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])))); ((basilysobject_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V404*/ curfptr[403]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V403*/ curfptr[402]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V405*/ curfptr[404])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V405*/ curfptr[404])))); ((basilysobject_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V406*/ curfptr[405]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V405*/ curfptr[404]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])))); ((basilysobject_ptr_t)(/*_.VALDATA___V407*/ curfptr[406]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V408*/ curfptr[407]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V407*/ curfptr[406]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])))); ((basilysobject_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V410*/ curfptr[409]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])))); ((basilysobject_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V411*/ curfptr[410]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V411*/ curfptr[410])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V411*/ curfptr[410]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V411*/ curfptr[410]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V411*/ curfptr[410])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V411*/ curfptr[410]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V411*/ curfptr[410]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])))); ((basilysobject_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V411*/ curfptr[410]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V413*/ curfptr[412]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411])))); ((basilysobject_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:182: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V412*/ curfptr[411]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413])))); ((basilysobject_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413])))); ((basilysobject_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:182: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V414*/ curfptr[413]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V412*/ curfptr[411]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V416*/ curfptr[415])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V416*/ curfptr[415]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V414*/ curfptr[413]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V416*/ curfptr[415]); BASILYS_LOCATION("warmelt-normal.bysl:182: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408])))); ((basilysobject_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V416*/ curfptr[415]); BASILYS_LOCATION("warmelt-normal.bysl:182: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V409*/ curfptr[408]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])))); ((basilysobject_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V418*/ curfptr[417]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V417*/ curfptr[416]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])))); ((basilysobject_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V420*/ curfptr[419]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V419*/ curfptr[418]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])))); ((basilysobject_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V422*/ curfptr[421]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V421*/ curfptr[420]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])))); ((basilysobject_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V424*/ curfptr[423]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])))); ((basilysobject_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V425*/ curfptr[424])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V425*/ curfptr[424]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V425*/ curfptr[424]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])))); ((basilysobject_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V425*/ curfptr[424]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])))); ((basilysobject_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V427*/ curfptr[426]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])))); ((basilysobject_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V423*/ curfptr[422]); BASILYS_LOCATION("warmelt-normal.bysl:189: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V426*/ curfptr[425]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])))); ((basilysobject_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V429*/ curfptr[428]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])))); ((basilysobject_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V423*/ curfptr[422]); BASILYS_LOCATION("warmelt-normal.bysl:189: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V428*/ curfptr[427]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V431*/ curfptr[430]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429])))); ((basilysobject_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V423*/ curfptr[422]); BASILYS_LOCATION("warmelt-normal.bysl:189: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V430*/ curfptr[429]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V432*/ curfptr[431])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V432*/ curfptr[431]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V430*/ curfptr[429]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V432*/ curfptr[431]); BASILYS_LOCATION("warmelt-normal.bysl:189: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422])))); ((basilysobject_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V432*/ curfptr[431]); BASILYS_LOCATION("warmelt-normal.bysl:189: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V423*/ curfptr[422]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])))); ((basilysobject_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V434*/ curfptr[433]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V433*/ curfptr[432]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])))); ((basilysobject_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V436*/ curfptr[435]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V435*/ curfptr[434]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V437*/ curfptr[436])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V437*/ curfptr[436])))); ((basilysobject_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V438*/ curfptr[437]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V437*/ curfptr[436]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])))); ((basilysobject_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V440*/ curfptr[439]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V439*/ curfptr[438]); BASILYS_LOCATION("warmelt-normal.bysl:197: @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-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V443*/ curfptr[442])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V443*/ curfptr[442]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V443*/ curfptr[442]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V443*/ curfptr[442]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V441*/ curfptr[440]); BASILYS_LOCATION("warmelt-normal.bysl:197: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V444*/ curfptr[443]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V446*/ curfptr[445])))); ((basilysobject_ptr_t)(/*_.VALDATA___V446*/ curfptr[445]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V441*/ curfptr[440]); BASILYS_LOCATION("warmelt-normal.bysl:197: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V446*/ curfptr[445]); BASILYS_LOCATION("warmelt-normal.bysl:197: @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-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])))); ((basilysobject_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V441*/ curfptr[440]); BASILYS_LOCATION("warmelt-normal.bysl:197: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V448*/ curfptr[447]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V444*/ curfptr[443]); /*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___V446*/ curfptr[445]); /*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___V448*/ curfptr[447]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V450*/ curfptr[449]); BASILYS_LOCATION("warmelt-normal.bysl:197: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V450*/ curfptr[449]); BASILYS_LOCATION("warmelt-normal.bysl:197: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V441*/ curfptr[440]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V451*/ curfptr[450]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V453*/ curfptr[452]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V455*/ curfptr[454]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456])))); ((basilysobject_ptr_t)(/*_.VALDATA___V457*/ curfptr[456]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V458*/ curfptr[457]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V457*/ curfptr[456]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])))); ((basilysobject_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V460*/ curfptr[459]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])))); ((basilysobject_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V461*/ curfptr[460])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V461*/ curfptr[460]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V461*/ curfptr[460]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])))); ((basilysobject_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V461*/ curfptr[460]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])))); ((basilysobject_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V462*/ curfptr[461]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463])))); ((basilysobject_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V464*/ curfptr[463]); BASILYS_LOCATION("warmelt-normal.bysl:206: @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-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])))); ((basilysobject_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])))); ((basilysobject_ptr_t)(/*_.VALDATA___V468*/ curfptr[467]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V469*/ curfptr[468]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467])))); ((basilysobject_ptr_t)(/*_.VALDATA___V468*/ curfptr[467]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V468*/ curfptr[467]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V471*/ curfptr[470]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469])))); ((basilysobject_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V470*/ curfptr[469]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])))); ((basilysobject_ptr_t)(/*_.VALDATA___V472*/ curfptr[471]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V473*/ curfptr[472]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471])))); ((basilysobject_ptr_t)(/*_.VALDATA___V472*/ curfptr[471]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V472*/ curfptr[471]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])))); ((basilysobject_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V475*/ curfptr[474]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])))); ((basilysobject_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V474*/ curfptr[473]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V464*/ curfptr[463]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V468*/ curfptr[467]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V470*/ curfptr[469]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V472*/ curfptr[471]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V476*/ curfptr[475])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V476*/ curfptr[475]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V476*/ curfptr[475]); BASILYS_LOCATION("warmelt-normal.bysl:206: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458])))); ((basilysobject_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V476*/ curfptr[475]); BASILYS_LOCATION("warmelt-normal.bysl:206: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V459*/ curfptr[458]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V477*/ curfptr[476])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V477*/ curfptr[476])))); ((basilysobject_ptr_t)(/*_.VALDATA___V477*/ curfptr[476]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V478*/ curfptr[477]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V477*/ curfptr[476]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])))); ((basilysobject_ptr_t)(/*_.VALDATA___V479*/ curfptr[478]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V480*/ curfptr[479]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V479*/ curfptr[478]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])))); ((basilysobject_ptr_t)(/*_.VALDATA___V481*/ curfptr[480]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V482*/ curfptr[481]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V481*/ curfptr[480]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])))); ((basilysobject_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V484*/ curfptr[483]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V483*/ curfptr[482]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])))); ((basilysobject_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V486*/ curfptr[485]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V485*/ curfptr[484]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V487*/ curfptr[486]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V489*/ curfptr[488]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V491*/ curfptr[490]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])))); ((basilysobject_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V494*/ curfptr[493]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])))); ((basilysobject_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V495*/ curfptr[494]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V495*/ curfptr[494])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V495*/ curfptr[494]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V495*/ curfptr[494]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V495*/ curfptr[494])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V495*/ curfptr[494]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V495*/ curfptr[494]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])))); ((basilysobject_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V495*/ curfptr[494]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495])))); ((basilysobject_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:219: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V496*/ curfptr[495]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V498*/ curfptr[497]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V498*/ curfptr[497])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V498*/ curfptr[497]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V498*/ curfptr[497]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V498*/ curfptr[497])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V498*/ curfptr[497]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-normal.bysl:219: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492])))); ((basilysobject_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-normal.bysl:219: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V493*/ curfptr[492]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498])))); ((basilysobject_ptr_t)(/*_.VALDATA___V499*/ curfptr[498]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V500*/ curfptr[499]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V499*/ curfptr[498]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])))); ((basilysobject_ptr_t)(/*_.VALDATA___V501*/ curfptr[500]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V502*/ curfptr[501]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V501*/ curfptr[500]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])))); ((basilysobject_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V504*/ curfptr[503]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])))); ((basilysobject_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V493*/ curfptr[492]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V505*/ curfptr[504])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V505*/ curfptr[504]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])))); ((basilysobject_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V505*/ curfptr[504]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505])))); ((basilysobject_ptr_t)(/*_.VALDATA___V506*/ curfptr[505]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V507*/ curfptr[506]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505])))); ((basilysobject_ptr_t)(/*_.VALDATA___V506*/ curfptr[505]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V503*/ curfptr[502]); BASILYS_LOCATION("warmelt-normal.bysl:227: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V506*/ curfptr[505]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V508*/ curfptr[507])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V508*/ curfptr[507]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V506*/ curfptr[505]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V508*/ curfptr[507]); BASILYS_LOCATION("warmelt-normal.bysl:227: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])))); ((basilysobject_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V508*/ curfptr[507]); BASILYS_LOCATION("warmelt-normal.bysl:227: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V503*/ curfptr[502]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])))); ((basilysobject_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V510*/ curfptr[509]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V509*/ curfptr[508]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])))); ((basilysobject_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V512*/ curfptr[511]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V511*/ curfptr[510]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])))); ((basilysobject_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V514*/ curfptr[513]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])))); ((basilysobject_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V493*/ curfptr[492]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V515*/ curfptr[514])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V515*/ curfptr[514]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V515*/ curfptr[514]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])))); ((basilysobject_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V515*/ curfptr[514]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515])))); ((basilysobject_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V516*/ curfptr[515]); BASILYS_LOCATION("warmelt-normal.bysl:233: @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-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517])))); ((basilysobject_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V518*/ curfptr[517]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])))); ((basilysobject_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V521*/ curfptr[520]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519])))); ((basilysobject_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V520*/ curfptr[519]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521])))); ((basilysobject_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V522*/ curfptr[521]); BASILYS_LOCATION("warmelt-normal.bysl:233: @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-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523])))); ((basilysobject_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V524*/ curfptr[523]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])))); ((basilysobject_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V527*/ curfptr[526]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525])))); ((basilysobject_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V526*/ curfptr[525]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])))); ((basilysobject_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V529*/ curfptr[528]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527])))); ((basilysobject_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V528*/ curfptr[527]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V496*/ curfptr[495]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V516*/ curfptr[515]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V518*/ curfptr[517]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V520*/ curfptr[519]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V522*/ curfptr[521]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V524*/ curfptr[523]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V526*/ curfptr[525]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V530*/ curfptr[529])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V530*/ curfptr[529]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V528*/ curfptr[527]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V530*/ curfptr[529]); BASILYS_LOCATION("warmelt-normal.bysl:233: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])))); ((basilysobject_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V530*/ curfptr[529]); BASILYS_LOCATION("warmelt-normal.bysl:233: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V513*/ curfptr[512]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])))); ((basilysobject_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V532*/ curfptr[531]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V531*/ curfptr[530]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])))); ((basilysobject_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V534*/ curfptr[533]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V533*/ curfptr[532]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])))); ((basilysobject_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V536*/ curfptr[535]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V535*/ curfptr[534]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])))); ((basilysobject_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V538*/ curfptr[537]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V537*/ curfptr[536]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])))); ((basilysobject_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V540*/ curfptr[539]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V539*/ curfptr[538]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])))); ((basilysobject_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V542*/ curfptr[541]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V541*/ curfptr[540]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V543*/ curfptr[542])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V543*/ curfptr[542])))); ((basilysobject_ptr_t)(/*_.VALDATA___V543*/ curfptr[542]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V544*/ curfptr[543]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V543*/ curfptr[542]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])))); ((basilysobject_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V546*/ curfptr[545]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V545*/ curfptr[544]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])))); ((basilysobject_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V548*/ curfptr[547]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])))); ((basilysobject_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V549*/ curfptr[548])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V549*/ curfptr[548]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V549*/ curfptr[548]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])))); ((basilysobject_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V549*/ curfptr[548]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V551*/ curfptr[550]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549])))); ((basilysobject_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-normal.bysl:247: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V550*/ curfptr[549]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V552*/ curfptr[551])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V552*/ curfptr[551]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V550*/ curfptr[549]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-normal.bysl:247: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546])))); ((basilysobject_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V552*/ curfptr[551]); BASILYS_LOCATION("warmelt-normal.bysl:247: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V547*/ curfptr[546]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])))); ((basilysobject_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V554*/ curfptr[553]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V553*/ curfptr[552]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554])))); ((basilysobject_ptr_t)(/*_.VALDATA___V555*/ curfptr[554]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V556*/ curfptr[555]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V555*/ curfptr[554]); BASILYS_LOCATION("warmelt-normal.bysl:254: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])))); ((basilysobject_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V558*/ curfptr[557]); BASILYS_LOCATION("warmelt-normal.bysl:254: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])))); ((basilysobject_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V559*/ curfptr[558])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V559*/ curfptr[558]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V559*/ curfptr[558]); BASILYS_LOCATION("warmelt-normal.bysl:254: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])))); ((basilysobject_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V559*/ curfptr[558]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V560*/ curfptr[559]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V560*/ curfptr[559])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V560*/ curfptr[559]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-normal.bysl:254: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556])))); ((basilysobject_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V560*/ curfptr[559]); BASILYS_LOCATION("warmelt-normal.bysl:254: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V557*/ curfptr[556]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])))); ((basilysobject_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V562*/ curfptr[561]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V561*/ curfptr[560]); BASILYS_LOCATION("warmelt-normal.bysl:264: @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-normal.bysl:264: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V143*/ curfptr[142]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V565*/ curfptr[564]); BASILYS_LOCATION("warmelt-normal.bysl:264: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V565*/ curfptr[564]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V566*/ curfptr[565]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V566*/ curfptr[565])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V566*/ curfptr[565]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V566*/ curfptr[565]); BASILYS_LOCATION("warmelt-normal.bysl:264: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])))); ((basilysobject_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V566*/ curfptr[565]); BASILYS_LOCATION("warmelt-normal.bysl:264: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V563*/ curfptr[562]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])))); ((basilysobject_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V568*/ curfptr[567]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V567*/ curfptr[566]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])))); ((basilysobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V570*/ curfptr[569]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])))); ((basilysobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V571*/ curfptr[570])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V571*/ curfptr[570]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V571*/ curfptr[570]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])))); ((basilysobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V571*/ curfptr[570]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])))); ((basilysobject_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V573*/ curfptr[572]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571])))); ((basilysobject_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:271: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V572*/ curfptr[571]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])))); ((basilysobject_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V575*/ curfptr[574]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573])))); ((basilysobject_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:271: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V574*/ curfptr[573]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])))); ((basilysobject_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V577*/ curfptr[576]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575])))); ((basilysobject_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:271: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V576*/ curfptr[575]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V579*/ curfptr[578]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577])))); ((basilysobject_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:271: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V580*/ curfptr[579])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V580*/ curfptr[579]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V580*/ curfptr[579]); BASILYS_LOCATION("warmelt-normal.bysl:271: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568])))); ((basilysobject_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V580*/ curfptr[579]); BASILYS_LOCATION("warmelt-normal.bysl:271: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V569*/ curfptr[568]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])))); ((basilysobject_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V582*/ curfptr[581]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V581*/ curfptr[580]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])))); ((basilysobject_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V584*/ curfptr[583]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V583*/ curfptr[582]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V585*/ curfptr[584])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V585*/ curfptr[584])))); ((basilysobject_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V586*/ curfptr[585]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V585*/ curfptr[584]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])))); ((basilysobject_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V588*/ curfptr[587]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V587*/ curfptr[586]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])))); ((basilysobject_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V590*/ curfptr[589]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V589*/ curfptr[588]); BASILYS_LOCATION("warmelt-normal.bysl:283: @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-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*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___V563*/ curfptr[562]); /*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___V569*/ curfptr[568]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V593*/ curfptr[592]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593])))); ((basilysobject_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:283: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V594*/ curfptr[593]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595])))); ((basilysobject_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:283: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V596*/ curfptr[595]); BASILYS_LOCATION("warmelt-normal.bysl:283: @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-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597])))); ((basilysobject_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:283: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V598*/ curfptr[597]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])))); ((basilysobject_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V601*/ curfptr[600]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599])))); ((basilysobject_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:283: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V600*/ curfptr[599]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V602*/ curfptr[601])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V602*/ curfptr[601]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V602*/ curfptr[601]); BASILYS_LOCATION("warmelt-normal.bysl:283: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V602*/ curfptr[601]); BASILYS_LOCATION("warmelt-normal.bysl:283: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V591*/ curfptr[590]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V603*/ curfptr[602]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V605*/ curfptr[604]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])))); ((basilysobject_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V608*/ curfptr[607]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V607*/ curfptr[606]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])))); ((basilysobject_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V610*/ curfptr[609]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V609*/ curfptr[608]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])))); ((basilysobject_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V612*/ curfptr[611]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V611*/ curfptr[610]); BASILYS_LOCATION("warmelt-normal.bysl:292: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V614*/ curfptr[613]); BASILYS_LOCATION("warmelt-normal.bysl:292: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V615*/ curfptr[614])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V615*/ curfptr[614]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V615*/ curfptr[614]); BASILYS_LOCATION("warmelt-normal.bysl:292: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V615*/ curfptr[614]); BASILYS_LOCATION("warmelt-normal.bysl:292: @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-normal.bysl:292: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615])))); ((basilysobject_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:292: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V616*/ curfptr[615]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V572*/ curfptr[571]); /*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___V574*/ curfptr[573]); /*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___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V618*/ curfptr[617])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V618*/ curfptr[617]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V616*/ curfptr[615]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V618*/ curfptr[617]); BASILYS_LOCATION("warmelt-normal.bysl:292: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612])))); ((basilysobject_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V618*/ curfptr[617]); BASILYS_LOCATION("warmelt-normal.bysl:292: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V613*/ curfptr[612]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V619*/ curfptr[618]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V621*/ curfptr[620]); BASILYS_LOCATION("warmelt-normal.bysl:298: @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-normal.bysl:298: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*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___V563*/ curfptr[562]); /*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___V569*/ curfptr[568]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V625*/ curfptr[624]); BASILYS_LOCATION("warmelt-normal.bysl:298: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V625*/ curfptr[624]); BASILYS_LOCATION("warmelt-normal.bysl:298: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:298: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625])))); ((basilysobject_ptr_t)(/*_.VALDATA___V626*/ curfptr[625]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V623*/ curfptr[622]); BASILYS_LOCATION("warmelt-normal.bysl:298: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V626*/ curfptr[625]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V628*/ curfptr[627])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V628*/ curfptr[627]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V626*/ curfptr[625]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V628*/ curfptr[627]); BASILYS_LOCATION("warmelt-normal.bysl:298: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622])))); ((basilysobject_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V628*/ curfptr[627]); BASILYS_LOCATION("warmelt-normal.bysl:298: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V623*/ curfptr[622]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])))); ((basilysobject_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V630*/ curfptr[629]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V629*/ curfptr[628]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])))); ((basilysobject_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V632*/ curfptr[631]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V631*/ curfptr[630]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])))); ((basilysobject_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V634*/ curfptr[633]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])))); ((basilysobject_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V591*/ curfptr[590]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V635*/ curfptr[634])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V635*/ curfptr[634]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V635*/ curfptr[634]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])))); ((basilysobject_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V635*/ curfptr[634]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635])))); ((basilysobject_ptr_t)(/*_.VALDATA___V636*/ curfptr[635]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V637*/ curfptr[636]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635])))); ((basilysobject_ptr_t)(/*_.VALDATA___V636*/ curfptr[635]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V633*/ curfptr[632]); BASILYS_LOCATION("warmelt-normal.bysl:304: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V636*/ curfptr[635]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (9>=0 && 9< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V638*/ curfptr[637])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V638*/ curfptr[637]))->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V638*/ curfptr[637]); BASILYS_LOCATION("warmelt-normal.bysl:304: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632])))); ((basilysobject_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V638*/ curfptr[637]); BASILYS_LOCATION("warmelt-normal.bysl:304: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V633*/ curfptr[632]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V639*/ curfptr[638]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V641*/ curfptr[640]); BASILYS_LOCATION("warmelt-normal.bysl:310: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])))); ((basilysobject_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V644*/ curfptr[643]); BASILYS_LOCATION("warmelt-normal.bysl:310: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])))); ((basilysobject_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V633*/ curfptr[632]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V645*/ curfptr[644])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V645*/ curfptr[644]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V645*/ curfptr[644]); BASILYS_LOCATION("warmelt-normal.bysl:310: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])))); ((basilysobject_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V645*/ curfptr[644]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V594*/ curfptr[593]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V596*/ curfptr[595]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (7>=0 && 7< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V598*/ curfptr[597]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (8>=0 && 8< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V600*/ curfptr[599]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (9>=0 && 9< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V646*/ curfptr[645])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V646*/ curfptr[645]))->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V636*/ curfptr[635]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V646*/ curfptr[645]); BASILYS_LOCATION("warmelt-normal.bysl:310: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642])))); ((basilysobject_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V646*/ curfptr[645]); BASILYS_LOCATION("warmelt-normal.bysl:310: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V643*/ curfptr[642]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])))); ((basilysobject_ptr_t)(/*_.VALDATA___V647*/ curfptr[646]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V648*/ curfptr[647]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V647*/ curfptr[646]); BASILYS_LOCATION("warmelt-normal.bysl:316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])))); ((basilysobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V650*/ curfptr[649]); BASILYS_LOCATION("warmelt-normal.bysl:316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])))); ((basilysobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V651*/ curfptr[650])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V651*/ curfptr[650]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V651*/ curfptr[650]); BASILYS_LOCATION("warmelt-normal.bysl:316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])))); ((basilysobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V651*/ curfptr[650]); BASILYS_LOCATION("warmelt-normal.bysl:316: @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-normal.bysl:316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651])))); ((basilysobject_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V649*/ curfptr[648]); BASILYS_LOCATION("warmelt-normal.bysl:316: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V652*/ curfptr[651]); /*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)(/*_.VALDATA___V146*/ curfptr[145]); /*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)(/*_.VALDATA___V572*/ curfptr[571]); /*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___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V654*/ curfptr[653])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V654*/ curfptr[653]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V652*/ curfptr[651]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V654*/ curfptr[653]); BASILYS_LOCATION("warmelt-normal.bysl:316: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648])))); ((basilysobject_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V654*/ curfptr[653]); BASILYS_LOCATION("warmelt-normal.bysl:316: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V649*/ curfptr[648]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V655*/ curfptr[654]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V657*/ curfptr[656]); BASILYS_LOCATION("warmelt-normal.bysl:322: @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-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V569*/ curfptr[568]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V661*/ curfptr[660])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V661*/ curfptr[660]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V661*/ curfptr[660]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V661*/ curfptr[660]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])))); ((basilysobject_ptr_t)(/*_.VALDATA___V662*/ curfptr[661]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V663*/ curfptr[662]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661])))); ((basilysobject_ptr_t)(/*_.VALDATA___V662*/ curfptr[661]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-normal.bysl:322: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V662*/ curfptr[661]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663])))); ((basilysobject_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-normal.bysl:322: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V664*/ curfptr[663]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V572*/ curfptr[571]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V574*/ curfptr[573]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V576*/ curfptr[575]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V578*/ curfptr[577]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (5>=0 && 5< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V662*/ curfptr[661]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (6>=0 && 6< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V666*/ curfptr[665])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V666*/ curfptr[665]))->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V664*/ curfptr[663]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V666*/ curfptr[665]); BASILYS_LOCATION("warmelt-normal.bysl:322: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658])))); ((basilysobject_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V666*/ curfptr[665]); BASILYS_LOCATION("warmelt-normal.bysl:322: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V659*/ curfptr[658]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])))); ((basilysobject_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V668*/ curfptr[667]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V667*/ curfptr[666]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])))); ((basilysobject_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V670*/ curfptr[669]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V669*/ curfptr[668]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])))); ((basilysobject_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V672*/ curfptr[671]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V671*/ curfptr[670]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])))); ((basilysobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V674*/ curfptr[673]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])))); ((basilysobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V675*/ curfptr[674])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V675*/ curfptr[674]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V675*/ curfptr[674]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])))); ((basilysobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V675*/ curfptr[674]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])))); ((basilysobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V677*/ curfptr[676]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675])))); ((basilysobject_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V673*/ curfptr[672]); BASILYS_LOCATION("warmelt-normal.bysl:330: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V676*/ curfptr[675]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V679*/ curfptr[678]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677])))); ((basilysobject_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V673*/ curfptr[672]); BASILYS_LOCATION("warmelt-normal.bysl:330: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V678*/ curfptr[677]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V676*/ curfptr[675]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V680*/ curfptr[679])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V680*/ curfptr[679]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V678*/ curfptr[677]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V680*/ curfptr[679]); BASILYS_LOCATION("warmelt-normal.bysl:330: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672])))); ((basilysobject_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V680*/ curfptr[679]); BASILYS_LOCATION("warmelt-normal.bysl:330: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V673*/ curfptr[672]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V681*/ curfptr[680])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V681*/ curfptr[680])))); ((basilysobject_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V682*/ curfptr[681]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V681*/ curfptr[680]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])))); ((basilysobject_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V684*/ curfptr[683]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V683*/ curfptr[682]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])))); ((basilysobject_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V686*/ curfptr[685]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V685*/ curfptr[684]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V688*/ curfptr[687]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V689*/ curfptr[688])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V689*/ curfptr[688]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V689*/ curfptr[688]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V689*/ curfptr[688]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])))); ((basilysobject_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V691*/ curfptr[690]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689])))); ((basilysobject_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-normal.bysl:337: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V690*/ curfptr[689]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])))); ((basilysobject_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V693*/ curfptr[692]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691])))); ((basilysobject_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-normal.bysl:337: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V692*/ curfptr[691]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V695*/ curfptr[694]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693])))); ((basilysobject_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-normal.bysl:337: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V694*/ curfptr[693]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V696*/ curfptr[695])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V696*/ curfptr[695]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V696*/ curfptr[695]); BASILYS_LOCATION("warmelt-normal.bysl:337: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686])))); ((basilysobject_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V696*/ curfptr[695]); BASILYS_LOCATION("warmelt-normal.bysl:337: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V687*/ curfptr[686]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])))); ((basilysobject_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V698*/ curfptr[697]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V697*/ curfptr[696]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V699*/ curfptr[698])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V699*/ curfptr[698])))); ((basilysobject_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V700*/ curfptr[699]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V699*/ curfptr[698]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])))); ((basilysobject_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V702*/ curfptr[701]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V701*/ curfptr[700]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])))); ((basilysobject_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V704*/ curfptr[703]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V703*/ curfptr[702]); BASILYS_LOCATION("warmelt-normal.bysl:345: @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-normal.bysl:345: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V687*/ curfptr[686]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V707*/ curfptr[706])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V707*/ curfptr[706]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V707*/ curfptr[706]); BASILYS_LOCATION("warmelt-normal.bysl:345: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V707*/ curfptr[706]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V708*/ curfptr[707])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V708*/ curfptr[707]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V708*/ curfptr[707]); BASILYS_LOCATION("warmelt-normal.bysl:345: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704])))); ((basilysobject_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V708*/ curfptr[707]); BASILYS_LOCATION("warmelt-normal.bysl:345: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V705*/ curfptr[704]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V709*/ curfptr[708]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])))); ((basilysobject_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V712*/ curfptr[711]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])))); ((basilysobject_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V687*/ curfptr[686]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V713*/ curfptr[712])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V713*/ curfptr[712]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V713*/ curfptr[712]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])))); ((basilysobject_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V713*/ curfptr[712]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713])))); ((basilysobject_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V711*/ curfptr[710]); BASILYS_LOCATION("warmelt-normal.bysl:351: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V714*/ curfptr[713]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V716*/ curfptr[715])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V716*/ curfptr[715]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V716*/ curfptr[715]); BASILYS_LOCATION("warmelt-normal.bysl:351: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710])))); ((basilysobject_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V716*/ curfptr[715]); BASILYS_LOCATION("warmelt-normal.bysl:351: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V711*/ curfptr[710]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])))); ((basilysobject_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V718*/ curfptr[717]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V717*/ curfptr[716]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])))); ((basilysobject_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V720*/ curfptr[719]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V719*/ curfptr[718]); BASILYS_LOCATION("warmelt-normal.bysl:357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])))); ((basilysobject_ptr_t)(/*_.VALDATA___V721*/ curfptr[720]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V722*/ curfptr[721]); BASILYS_LOCATION("warmelt-normal.bysl:357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])))); ((basilysobject_ptr_t)(/*_.VALDATA___V721*/ curfptr[720]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V711*/ curfptr[710]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*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___V153*/ curfptr[152]); /*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___V687*/ curfptr[686]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V723*/ curfptr[722])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V723*/ curfptr[722]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V723*/ curfptr[722]); BASILYS_LOCATION("warmelt-normal.bysl:357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])))); ((basilysobject_ptr_t)(/*_.VALDATA___V721*/ curfptr[720]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V723*/ curfptr[722]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V690*/ curfptr[689]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V692*/ curfptr[691]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V694*/ curfptr[693]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V724*/ curfptr[723])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V724*/ curfptr[723]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V714*/ curfptr[713]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V724*/ curfptr[723]); BASILYS_LOCATION("warmelt-normal.bysl:357: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720])))); ((basilysobject_ptr_t)(/*_.VALDATA___V721*/ curfptr[720]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V724*/ curfptr[723]); BASILYS_LOCATION("warmelt-normal.bysl:357: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V721*/ curfptr[720]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])))); ((basilysobject_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V726*/ curfptr[725]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V725*/ curfptr[724]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V728*/ curfptr[727]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V729*/ curfptr[728])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V729*/ curfptr[728]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V729*/ curfptr[728]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V729*/ curfptr[728]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])))); ((basilysobject_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V731*/ curfptr[730]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729])))); ((basilysobject_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-normal.bysl:363: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V730*/ curfptr[729]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])))); ((basilysobject_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V733*/ curfptr[732]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731])))); ((basilysobject_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-normal.bysl:363: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V732*/ curfptr[731]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V735*/ curfptr[734]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733])))); ((basilysobject_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); BASILYS_LOCATION("warmelt-normal.bysl:363: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V734*/ curfptr[733]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V736*/ curfptr[735])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V736*/ curfptr[735]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V736*/ curfptr[735]); BASILYS_LOCATION("warmelt-normal.bysl:363: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726])))); ((basilysobject_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V736*/ curfptr[735]); BASILYS_LOCATION("warmelt-normal.bysl:363: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V727*/ curfptr[726]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])))); ((basilysobject_ptr_t)(/*_.VALDATA___V737*/ curfptr[736]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V738*/ curfptr[737]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V737*/ curfptr[736]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V739*/ curfptr[738])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V739*/ curfptr[738])))); ((basilysobject_ptr_t)(/*_.VALDATA___V739*/ curfptr[738]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V740*/ curfptr[739]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V739*/ curfptr[738]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])))); ((basilysobject_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V742*/ curfptr[741]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V741*/ curfptr[740]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])))); ((basilysobject_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V744*/ curfptr[743]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V743*/ curfptr[742]); BASILYS_LOCATION("warmelt-normal.bysl:371: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V746*/ curfptr[745]); BASILYS_LOCATION("warmelt-normal.bysl:371: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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___V143*/ curfptr[142]); /*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___V153*/ curfptr[152]); /*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___V727*/ curfptr[726]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V747*/ curfptr[746]); BASILYS_LOCATION("warmelt-normal.bysl:371: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V747*/ curfptr[746]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V748*/ curfptr[747])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V748*/ curfptr[747]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V748*/ curfptr[747]); BASILYS_LOCATION("warmelt-normal.bysl:371: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744])))); ((basilysobject_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V748*/ curfptr[747]); BASILYS_LOCATION("warmelt-normal.bysl:371: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V745*/ curfptr[744]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])))); ((basilysobject_ptr_t)(/*_.VALDATA___V749*/ curfptr[748]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V750*/ curfptr[749]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V749*/ curfptr[748]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])))); ((basilysobject_ptr_t)(/*_.VALDATA___V751*/ curfptr[750]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V752*/ curfptr[751]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])))); ((basilysobject_ptr_t)(/*_.VALDATA___V751*/ curfptr[750]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V753*/ curfptr[752])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V753*/ curfptr[752]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V753*/ curfptr[752]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])))); ((basilysobject_ptr_t)(/*_.VALDATA___V751*/ curfptr[750]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V753*/ curfptr[752]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])))); ((basilysobject_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V755*/ curfptr[754]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753])))); ((basilysobject_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V751*/ curfptr[750]); BASILYS_LOCATION("warmelt-normal.bysl:378: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V754*/ curfptr[753]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (4>=0 && 4< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V756*/ curfptr[755])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V756*/ curfptr[755]))->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V754*/ curfptr[753]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V756*/ curfptr[755]); BASILYS_LOCATION("warmelt-normal.bysl:378: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750])))); ((basilysobject_ptr_t)(/*_.VALDATA___V751*/ curfptr[750]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V756*/ curfptr[755]); BASILYS_LOCATION("warmelt-normal.bysl:378: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V751*/ curfptr[750]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])))); ((basilysobject_ptr_t)(/*_.VALDATA___V757*/ curfptr[756]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V758*/ curfptr[757]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V757*/ curfptr[756]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])))); ((basilysobject_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V760*/ curfptr[759]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V759*/ curfptr[758]); BASILYS_LOCATION("warmelt-normal.bysl:385: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V762*/ curfptr[761]); BASILYS_LOCATION("warmelt-normal.bysl:385: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V763*/ curfptr[762])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V763*/ curfptr[762]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V763*/ curfptr[762]); BASILYS_LOCATION("warmelt-normal.bysl:385: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V763*/ curfptr[762]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V764*/ curfptr[763])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V764*/ curfptr[763]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-normal.bysl:385: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760])))); ((basilysobject_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V764*/ curfptr[763]); BASILYS_LOCATION("warmelt-normal.bysl:385: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V761*/ curfptr[760]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])))); ((basilysobject_ptr_t)(/*_.VALDATA___V765*/ curfptr[764]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V766*/ curfptr[765]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V765*/ curfptr[764]); BASILYS_LOCATION("warmelt-normal.bysl:391: @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-normal.bysl:391: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V727*/ curfptr[726]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V153*/ curfptr[152]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V769*/ curfptr[768])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V769*/ curfptr[768]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V727*/ curfptr[726]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V769*/ curfptr[768]); BASILYS_LOCATION("warmelt-normal.bysl:391: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V769*/ curfptr[768]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V730*/ curfptr[729]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V732*/ curfptr[731]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (3>=0 && 3< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V770*/ curfptr[769])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V770*/ curfptr[769]))->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V734*/ curfptr[733]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V770*/ curfptr[769]); BASILYS_LOCATION("warmelt-normal.bysl:391: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766])))); ((basilysobject_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V770*/ curfptr[769]); BASILYS_LOCATION("warmelt-normal.bysl:391: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V767*/ curfptr[766]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V771*/ curfptr[770])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V771*/ curfptr[770])))); ((basilysobject_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V772*/ curfptr[771]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V771*/ curfptr[770]); BASILYS_LOCATION("warmelt-normal.bysl:397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])))); ((basilysobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V774*/ curfptr[773]); BASILYS_LOCATION("warmelt-normal.bysl:397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])))); ((basilysobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V563*/ curfptr[562]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V775*/ curfptr[774])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V775*/ curfptr[774]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V775*/ curfptr[774]); BASILYS_LOCATION("warmelt-normal.bysl:397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])))); ((basilysobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V775*/ curfptr[774]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V776*/ curfptr[775])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V776*/ curfptr[775]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V776*/ curfptr[775]); BASILYS_LOCATION("warmelt-normal.bysl:397: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772])))); ((basilysobject_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V776*/ curfptr[775]); BASILYS_LOCATION("warmelt-normal.bysl:397: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V773*/ curfptr[772]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])))); ((basilysobject_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V778*/ curfptr[777]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V777*/ curfptr[776]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])))); ((basilysobject_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V780*/ curfptr[779]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])))); ((basilysobject_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V781*/ curfptr[780])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V781*/ curfptr[780]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V781*/ curfptr[780]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])))); ((basilysobject_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V781*/ curfptr[780]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])))); ((basilysobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V783*/ curfptr[782]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781])))); ((basilysobject_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V779*/ curfptr[778]); BASILYS_LOCATION("warmelt-normal.bysl:405: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V782*/ curfptr[781]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V785*/ curfptr[784]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783])))); ((basilysobject_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V779*/ curfptr[778]); BASILYS_LOCATION("warmelt-normal.bysl:405: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V784*/ curfptr[783]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V782*/ curfptr[781]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V786*/ curfptr[785])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V786*/ curfptr[785]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V784*/ curfptr[783]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V786*/ curfptr[785]); BASILYS_LOCATION("warmelt-normal.bysl:405: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778])))); ((basilysobject_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V786*/ curfptr[785]); BASILYS_LOCATION("warmelt-normal.bysl:405: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V779*/ curfptr[778]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V787*/ curfptr[786]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V789*/ curfptr[788]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V791*/ curfptr[790]); BASILYS_LOCATION("warmelt-normal.bysl:414: @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-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V795*/ curfptr[794])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V795*/ curfptr[794]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V795*/ curfptr[794]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V795*/ curfptr[794]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])))); ((basilysobject_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V797*/ curfptr[796]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795])))); ((basilysobject_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V793*/ curfptr[792]); BASILYS_LOCATION("warmelt-normal.bysl:414: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V796*/ curfptr[795]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797])))); ((basilysobject_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V793*/ curfptr[792]); BASILYS_LOCATION("warmelt-normal.bysl:414: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V798*/ curfptr[797]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V796*/ curfptr[795]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V800*/ curfptr[799])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V800*/ curfptr[799]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V798*/ curfptr[797]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V800*/ curfptr[799]); BASILYS_LOCATION("warmelt-normal.bysl:414: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792])))); ((basilysobject_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V800*/ curfptr[799]); BASILYS_LOCATION("warmelt-normal.bysl:414: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V793*/ curfptr[792]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V801*/ curfptr[800])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V801*/ curfptr[800])))); ((basilysobject_ptr_t)(/*_.VALDATA___V801*/ curfptr[800]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V802*/ curfptr[801]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V801*/ curfptr[800]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])))); ((basilysobject_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V804*/ curfptr[803]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V803*/ curfptr[802]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])))); ((basilysobject_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V806*/ curfptr[805]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V805*/ curfptr[804]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V808*/ curfptr[807]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V809*/ curfptr[808])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V809*/ curfptr[808]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V809*/ curfptr[808]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V809*/ curfptr[808]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809])))); ((basilysobject_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V807*/ curfptr[806]); BASILYS_LOCATION("warmelt-normal.bysl:421: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V810*/ curfptr[809]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811])))); ((basilysobject_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V807*/ curfptr[806]); BASILYS_LOCATION("warmelt-normal.bysl:421: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V812*/ curfptr[811]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V810*/ curfptr[809]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V814*/ curfptr[813])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V814*/ curfptr[813]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V812*/ curfptr[811]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-normal.bysl:421: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806])))); ((basilysobject_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V814*/ curfptr[813]); BASILYS_LOCATION("warmelt-normal.bysl:421: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V807*/ curfptr[806]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])))); ((basilysobject_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V816*/ curfptr[815]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V815*/ curfptr[814]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V817*/ curfptr[816]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V819*/ curfptr[818]); BASILYS_LOCATION("warmelt-normal.bysl:428: @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-normal.bysl:428: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALDATA___V159*/ curfptr[158]); /*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)(/*_.CLASS_ROOT__V12*/ curfptr[11]); /*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)(/*_.VALDATA___V143*/ curfptr[142]); /*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___V159*/ curfptr[158]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V823*/ curfptr[822]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (5>=0 && 5< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[5] = (basilys_ptr_t)( /*_.VALTUP___V823*/ curfptr[822]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823])))); ((basilysobject_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V821*/ curfptr[820]); BASILYS_LOCATION("warmelt-normal.bysl:428: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V824*/ curfptr[823]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825])))); ((basilysobject_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALDATA___V821*/ curfptr[820]); BASILYS_LOCATION("warmelt-normal.bysl:428: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V826*/ curfptr[825]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V146*/ curfptr[145]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (1>=0 && 1< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V824*/ curfptr[823]); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (2>=0 && 2< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V828*/ curfptr[827])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V828*/ curfptr[827]))->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V826*/ curfptr[825]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V828*/ curfptr[827]); BASILYS_LOCATION("warmelt-normal.bysl:428: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (6>=0 && 6< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820])))); ((basilysobject_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]))->obj_vartab[6] = (basilys_ptr_t)( /*_.VALTUP___V828*/ curfptr[827]); BASILYS_LOCATION("warmelt-normal.bysl:428: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V821*/ curfptr[820]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])))); ((basilysobject_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V830*/ curfptr[829]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V829*/ curfptr[828]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])))); ((basilysobject_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V832*/ curfptr[831]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V831*/ curfptr[830]); BASILYS_LOCATION("warmelt-normal.bysl:501: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V833*/ curfptr[832])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_703__ADD_NCTX_DATA#0", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V833*/ curfptr[832])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:501: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V833*/ curfptr[832])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V569*/ curfptr[568]); ((basilysroutine_ptr_t)/*_.VALROUT___V833*/ curfptr[832])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:501: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V833*/ curfptr[832])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_703__ADD_NCTX_DATA#2", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V833*/ curfptr[832])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:501: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V833*/ curfptr[832]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V833*/ curfptr[832])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V834*/ curfptr[833])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V833*/ curfptr[832]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V834*/ curfptr[833]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V835*/ curfptr[834]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V837*/ curfptr[836]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V839*/ curfptr[838]); BASILYS_LOCATION("warmelt-normal.bysl:523: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])))); ((basilysobject_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V842*/ curfptr[841]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V843*/ curfptr[842]); BASILYS_LOCATION("warmelt-normal.bysl:523: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])))); ((basilysobject_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V843*/ curfptr[842]); BASILYS_LOCATION("warmelt-normal.bysl:523: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])))); ((basilysobject_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V845*/ curfptr[844])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V845*/ curfptr[844]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V844*/ curfptr[843]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V845*/ curfptr[844]); BASILYS_LOCATION("warmelt-normal.bysl:523: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V841*/ curfptr[840])))); ((basilysobject_ptr_t)(/*_.VALDATA___V841*/ curfptr[840]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V845*/ curfptr[844]); BASILYS_LOCATION("warmelt-normal.bysl:523: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V841*/ curfptr[840]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:524: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V850*/ curfptr[849]); BASILYS_LOCATION("warmelt-normal.bysl:524: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])))); ((basilysobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V850*/ curfptr[849]); BASILYS_LOCATION("warmelt-normal.bysl:524: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])))); ((basilysobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V852*/ curfptr[851]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V852*/ curfptr[851])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V852*/ curfptr[851]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V851*/ curfptr[850]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V852*/ curfptr[851]); BASILYS_LOCATION("warmelt-normal.bysl:524: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V848*/ curfptr[847])))); ((basilysobject_ptr_t)(/*_.VALDATA___V848*/ curfptr[847]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V852*/ curfptr[851]); BASILYS_LOCATION("warmelt-normal.bysl:524: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V848*/ curfptr[847]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])))); ((basilysobject_ptr_t)(/*_.VALDATA___V853*/ curfptr[852]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V854*/ curfptr[853]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V853*/ curfptr[852]); BASILYS_LOCATION("warmelt-normal.bysl:525: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])))); ((basilysobject_ptr_t)(/*_.VALDATA___V855*/ curfptr[854]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V856*/ curfptr[855]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V857*/ curfptr[856]); BASILYS_LOCATION("warmelt-normal.bysl:525: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])))); ((basilysobject_ptr_t)(/*_.VALDATA___V855*/ curfptr[854]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V857*/ curfptr[856]); BASILYS_LOCATION("warmelt-normal.bysl:525: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])))); ((basilysobject_ptr_t)(/*_.VALDATA___V855*/ curfptr[854]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V859*/ curfptr[858]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V859*/ curfptr[858])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V859*/ curfptr[858]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V858*/ curfptr[857]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V859*/ curfptr[858]); BASILYS_LOCATION("warmelt-normal.bysl:525: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V855*/ curfptr[854])))); ((basilysobject_ptr_t)(/*_.VALDATA___V855*/ curfptr[854]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V859*/ curfptr[858]); BASILYS_LOCATION("warmelt-normal.bysl:525: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V855*/ curfptr[854]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V860*/ curfptr[859]); BASILYS_LOCATION("warmelt-normal.bysl:526: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-normal.bysl:526: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])))); ((basilysobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V864*/ curfptr[863]); BASILYS_LOCATION("warmelt-normal.bysl:526: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])))); ((basilysobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V866*/ curfptr[865]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V866*/ curfptr[865])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V866*/ curfptr[865]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V865*/ curfptr[864]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V866*/ curfptr[865]); BASILYS_LOCATION("warmelt-normal.bysl:526: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V862*/ curfptr[861])))); ((basilysobject_ptr_t)(/*_.VALDATA___V862*/ curfptr[861]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V866*/ curfptr[865]); BASILYS_LOCATION("warmelt-normal.bysl:526: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V862*/ curfptr[861]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V867*/ curfptr[866])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V867*/ curfptr[866])))); ((basilysobject_ptr_t)(/*_.VALDATA___V867*/ curfptr[866]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V868*/ curfptr[867]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V867*/ curfptr[866]); BASILYS_LOCATION("warmelt-normal.bysl:527: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])))); ((basilysobject_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V870*/ curfptr[869]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V871*/ curfptr[870]); BASILYS_LOCATION("warmelt-normal.bysl:527: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])))); ((basilysobject_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V871*/ curfptr[870]); BASILYS_LOCATION("warmelt-normal.bysl:527: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])))); ((basilysobject_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V873*/ curfptr[872]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V873*/ curfptr[872])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V873*/ curfptr[872]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V872*/ curfptr[871]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V873*/ curfptr[872]); BASILYS_LOCATION("warmelt-normal.bysl:527: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V869*/ curfptr[868])))); ((basilysobject_ptr_t)(/*_.VALDATA___V869*/ curfptr[868]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V873*/ curfptr[872]); BASILYS_LOCATION("warmelt-normal.bysl:527: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V869*/ curfptr[868]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:528: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V878*/ curfptr[877]); BASILYS_LOCATION("warmelt-normal.bysl:528: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])))); ((basilysobject_ptr_t)(/*_.VALDATA___V876*/ curfptr[875]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V878*/ curfptr[877]); BASILYS_LOCATION("warmelt-normal.bysl:528: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])))); ((basilysobject_ptr_t)(/*_.VALDATA___V876*/ curfptr[875]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V880*/ curfptr[879]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V880*/ curfptr[879])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V880*/ curfptr[879]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V879*/ curfptr[878]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V880*/ curfptr[879]); BASILYS_LOCATION("warmelt-normal.bysl:528: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V876*/ curfptr[875])))); ((basilysobject_ptr_t)(/*_.VALDATA___V876*/ curfptr[875]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V880*/ curfptr[879]); BASILYS_LOCATION("warmelt-normal.bysl:528: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V876*/ curfptr[875]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])))); ((basilysobject_ptr_t)(/*_.VALDATA___V881*/ curfptr[880]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V882*/ curfptr[881]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V881*/ curfptr[880]); BASILYS_LOCATION("warmelt-normal.bysl:529: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])))); ((basilysobject_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V884*/ curfptr[883]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V885*/ curfptr[884]); BASILYS_LOCATION("warmelt-normal.bysl:529: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])))); ((basilysobject_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V885*/ curfptr[884]); BASILYS_LOCATION("warmelt-normal.bysl:529: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])))); ((basilysobject_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V887*/ curfptr[886])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V887*/ curfptr[886]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V886*/ curfptr[885]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V887*/ curfptr[886]); BASILYS_LOCATION("warmelt-normal.bysl:529: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V883*/ curfptr[882])))); ((basilysobject_ptr_t)(/*_.VALDATA___V883*/ curfptr[882]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V887*/ curfptr[886]); BASILYS_LOCATION("warmelt-normal.bysl:529: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V883*/ curfptr[882]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])))); ((basilysobject_ptr_t)(/*_.VALDATA___V888*/ curfptr[887]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V889*/ curfptr[888]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V888*/ curfptr[887]); BASILYS_LOCATION("warmelt-normal.bysl:530: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V892*/ curfptr[891]); BASILYS_LOCATION("warmelt-normal.bysl:530: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])))); ((basilysobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V892*/ curfptr[891]); BASILYS_LOCATION("warmelt-normal.bysl:530: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])))); ((basilysobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V894*/ curfptr[893]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V894*/ curfptr[893])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V894*/ curfptr[893]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V893*/ curfptr[892]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V894*/ curfptr[893]); BASILYS_LOCATION("warmelt-normal.bysl:530: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V890*/ curfptr[889])))); ((basilysobject_ptr_t)(/*_.VALDATA___V890*/ curfptr[889]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V894*/ curfptr[893]); BASILYS_LOCATION("warmelt-normal.bysl:530: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V890*/ curfptr[889]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])))); ((basilysobject_ptr_t)(/*_.VALDATA___V895*/ curfptr[894]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V896*/ curfptr[895]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V895*/ curfptr[894]); BASILYS_LOCATION("warmelt-normal.bysl:531: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])))); ((basilysobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V898*/ curfptr[897]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V899*/ curfptr[898]); BASILYS_LOCATION("warmelt-normal.bysl:531: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])))); ((basilysobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V899*/ curfptr[898]); BASILYS_LOCATION("warmelt-normal.bysl:531: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])))); ((basilysobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V901*/ curfptr[900]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V901*/ curfptr[900])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V901*/ curfptr[900]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V900*/ curfptr[899]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V901*/ curfptr[900]); BASILYS_LOCATION("warmelt-normal.bysl:531: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V897*/ curfptr[896])))); ((basilysobject_ptr_t)(/*_.VALDATA___V897*/ curfptr[896]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V901*/ curfptr[900]); BASILYS_LOCATION("warmelt-normal.bysl:531: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V897*/ curfptr[896]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])))); ((basilysobject_ptr_t)(/*_.VALDATA___V902*/ curfptr[901]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V903*/ curfptr[902]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V902*/ curfptr[901]); BASILYS_LOCATION("warmelt-normal.bysl:532: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V906*/ curfptr[905]); BASILYS_LOCATION("warmelt-normal.bysl:532: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])))); ((basilysobject_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V906*/ curfptr[905]); BASILYS_LOCATION("warmelt-normal.bysl:532: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])))); ((basilysobject_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V908*/ curfptr[907]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V908*/ curfptr[907])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V908*/ curfptr[907]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V907*/ curfptr[906]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V908*/ curfptr[907]); BASILYS_LOCATION("warmelt-normal.bysl:532: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V904*/ curfptr[903])))); ((basilysobject_ptr_t)(/*_.VALDATA___V904*/ curfptr[903]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V908*/ curfptr[907]); BASILYS_LOCATION("warmelt-normal.bysl:532: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V904*/ curfptr[903]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])))); ((basilysobject_ptr_t)(/*_.VALDATA___V909*/ curfptr[908]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V910*/ curfptr[909]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V909*/ curfptr[908]); BASILYS_LOCATION("warmelt-normal.bysl:533: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-normal.bysl:533: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])))); ((basilysobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V913*/ curfptr[912]); BASILYS_LOCATION("warmelt-normal.bysl:533: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])))); ((basilysobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V915*/ curfptr[914]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V915*/ curfptr[914])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V915*/ curfptr[914]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V914*/ curfptr[913]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-normal.bysl:533: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V911*/ curfptr[910])))); ((basilysobject_ptr_t)(/*_.VALDATA___V911*/ curfptr[910]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V915*/ curfptr[914]); BASILYS_LOCATION("warmelt-normal.bysl:533: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V911*/ curfptr[910]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])))); ((basilysobject_ptr_t)(/*_.VALDATA___V916*/ curfptr[915]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V917*/ curfptr[916]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V916*/ curfptr[915]); BASILYS_LOCATION("warmelt-normal.bysl:534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V919*/ curfptr[918]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V920*/ curfptr[919]); BASILYS_LOCATION("warmelt-normal.bysl:534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V920*/ curfptr[919]); BASILYS_LOCATION("warmelt-normal.bysl:534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V922*/ curfptr[921]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V922*/ curfptr[921])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V922*/ curfptr[921]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V921*/ curfptr[920]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V922*/ curfptr[921]); BASILYS_LOCATION("warmelt-normal.bysl:534: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V918*/ curfptr[917])))); ((basilysobject_ptr_t)(/*_.VALDATA___V918*/ curfptr[917]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V922*/ curfptr[921]); BASILYS_LOCATION("warmelt-normal.bysl:534: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V918*/ curfptr[917]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])))); ((basilysobject_ptr_t)(/*_.VALDATA___V923*/ curfptr[922]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V924*/ curfptr[923]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V923*/ curfptr[922]); BASILYS_LOCATION("warmelt-normal.bysl:535: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V926*/ curfptr[925]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V927*/ curfptr[926]); BASILYS_LOCATION("warmelt-normal.bysl:535: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V927*/ curfptr[926]); BASILYS_LOCATION("warmelt-normal.bysl:535: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V929*/ curfptr[928])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V929*/ curfptr[928]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V928*/ curfptr[927]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V929*/ curfptr[928]); BASILYS_LOCATION("warmelt-normal.bysl:535: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V925*/ curfptr[924])))); ((basilysobject_ptr_t)(/*_.VALDATA___V925*/ curfptr[924]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V929*/ curfptr[928]); BASILYS_LOCATION("warmelt-normal.bysl:535: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V925*/ curfptr[924]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:536: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V934*/ curfptr[933]); BASILYS_LOCATION("warmelt-normal.bysl:536: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])))); ((basilysobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V934*/ curfptr[933]); BASILYS_LOCATION("warmelt-normal.bysl:536: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])))); ((basilysobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V936*/ curfptr[935]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V936*/ curfptr[935])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V936*/ curfptr[935]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V935*/ curfptr[934]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-normal.bysl:536: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V932*/ curfptr[931])))); ((basilysobject_ptr_t)(/*_.VALDATA___V932*/ curfptr[931]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V936*/ curfptr[935]); BASILYS_LOCATION("warmelt-normal.bysl:536: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V932*/ curfptr[931]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])))); ((basilysobject_ptr_t)(/*_.VALDATA___V937*/ curfptr[936]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V938*/ curfptr[937]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V937*/ curfptr[936]); BASILYS_LOCATION("warmelt-normal.bysl:537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])))); ((basilysobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V940*/ curfptr[939]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V941*/ curfptr[940]); BASILYS_LOCATION("warmelt-normal.bysl:537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])))); ((basilysobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V941*/ curfptr[940]); BASILYS_LOCATION("warmelt-normal.bysl:537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])))); ((basilysobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V943*/ curfptr[942])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V943*/ curfptr[942]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V942*/ curfptr[941]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V943*/ curfptr[942]); BASILYS_LOCATION("warmelt-normal.bysl:537: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V939*/ curfptr[938])))); ((basilysobject_ptr_t)(/*_.VALDATA___V939*/ curfptr[938]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V943*/ curfptr[942]); BASILYS_LOCATION("warmelt-normal.bysl:537: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V939*/ curfptr[938]); /*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)( /*_.VALSTR___V945*/ curfptr[944]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V944*/ curfptr[943]); BASILYS_LOCATION("warmelt-normal.bysl:538: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])))); ((basilysobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V947*/ curfptr[946]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V948*/ curfptr[947]); BASILYS_LOCATION("warmelt-normal.bysl:538: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])))); ((basilysobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V948*/ curfptr[947]); BASILYS_LOCATION("warmelt-normal.bysl:538: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])))); ((basilysobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V950*/ curfptr[949]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V950*/ curfptr[949])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V950*/ curfptr[949]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V949*/ curfptr[948]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V950*/ curfptr[949]); BASILYS_LOCATION("warmelt-normal.bysl:538: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V946*/ curfptr[945])))); ((basilysobject_ptr_t)(/*_.VALDATA___V946*/ curfptr[945]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V950*/ curfptr[949]); BASILYS_LOCATION("warmelt-normal.bysl:538: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V946*/ curfptr[945]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])))); ((basilysobject_ptr_t)(/*_.VALDATA___V951*/ curfptr[950]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V952*/ curfptr[951]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V951*/ curfptr[950]); BASILYS_LOCATION("warmelt-normal.bysl:539: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V955*/ curfptr[954]); BASILYS_LOCATION("warmelt-normal.bysl:539: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])))); ((basilysobject_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V955*/ curfptr[954]); BASILYS_LOCATION("warmelt-normal.bysl:539: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])))); ((basilysobject_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V957*/ curfptr[956]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V957*/ curfptr[956])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V957*/ curfptr[956]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V956*/ curfptr[955]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V957*/ curfptr[956]); BASILYS_LOCATION("warmelt-normal.bysl:539: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V953*/ curfptr[952])))); ((basilysobject_ptr_t)(/*_.VALDATA___V953*/ curfptr[952]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V957*/ curfptr[956]); BASILYS_LOCATION("warmelt-normal.bysl:539: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V953*/ curfptr[952]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])))); ((basilysobject_ptr_t)(/*_.VALDATA___V958*/ curfptr[957]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V959*/ curfptr[958]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V958*/ curfptr[957]); BASILYS_LOCATION("warmelt-normal.bysl:540: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])))); ((basilysobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V961*/ curfptr[960]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V962*/ curfptr[961]); BASILYS_LOCATION("warmelt-normal.bysl:540: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])))); ((basilysobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V962*/ curfptr[961]); BASILYS_LOCATION("warmelt-normal.bysl:540: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])))); ((basilysobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V964*/ curfptr[963]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V964*/ curfptr[963])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V964*/ curfptr[963]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V963*/ curfptr[962]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V964*/ curfptr[963]); BASILYS_LOCATION("warmelt-normal.bysl:540: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V960*/ curfptr[959])))); ((basilysobject_ptr_t)(/*_.VALDATA___V960*/ curfptr[959]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V964*/ curfptr[963]); BASILYS_LOCATION("warmelt-normal.bysl:540: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V960*/ curfptr[959]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V965*/ curfptr[964])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V965*/ curfptr[964])))); ((basilysobject_ptr_t)(/*_.VALDATA___V965*/ curfptr[964]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V966*/ curfptr[965]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V965*/ curfptr[964]); BASILYS_LOCATION("warmelt-normal.bysl:541: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])))); ((basilysobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V968*/ curfptr[967]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V969*/ curfptr[968]); BASILYS_LOCATION("warmelt-normal.bysl:541: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])))); ((basilysobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V969*/ curfptr[968]); BASILYS_LOCATION("warmelt-normal.bysl:541: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])))); ((basilysobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V971*/ curfptr[970]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V971*/ curfptr[970])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V971*/ curfptr[970]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V970*/ curfptr[969]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V971*/ curfptr[970]); BASILYS_LOCATION("warmelt-normal.bysl:541: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V967*/ curfptr[966])))); ((basilysobject_ptr_t)(/*_.VALDATA___V967*/ curfptr[966]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V971*/ curfptr[970]); BASILYS_LOCATION("warmelt-normal.bysl:541: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V967*/ curfptr[966]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])))); ((basilysobject_ptr_t)(/*_.VALDATA___V972*/ curfptr[971]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V973*/ curfptr[972]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V972*/ curfptr[971]); BASILYS_LOCATION("warmelt-normal.bysl:542: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])))); ((basilysobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V975*/ curfptr[974]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V976*/ curfptr[975]); BASILYS_LOCATION("warmelt-normal.bysl:542: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])))); ((basilysobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V976*/ curfptr[975]); BASILYS_LOCATION("warmelt-normal.bysl:542: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])))); ((basilysobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V978*/ curfptr[977])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V978*/ curfptr[977]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V977*/ curfptr[976]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V978*/ curfptr[977]); BASILYS_LOCATION("warmelt-normal.bysl:542: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V974*/ curfptr[973])))); ((basilysobject_ptr_t)(/*_.VALDATA___V974*/ curfptr[973]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V978*/ curfptr[977]); BASILYS_LOCATION("warmelt-normal.bysl:542: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V974*/ curfptr[973]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:543: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V983*/ curfptr[982]); BASILYS_LOCATION("warmelt-normal.bysl:543: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])))); ((basilysobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V983*/ curfptr[982]); BASILYS_LOCATION("warmelt-normal.bysl:543: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])))); ((basilysobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V985*/ curfptr[984]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V985*/ curfptr[984])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V985*/ curfptr[984]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V984*/ curfptr[983]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V985*/ curfptr[984]); BASILYS_LOCATION("warmelt-normal.bysl:543: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V981*/ curfptr[980])))); ((basilysobject_ptr_t)(/*_.VALDATA___V981*/ curfptr[980]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V985*/ curfptr[984]); BASILYS_LOCATION("warmelt-normal.bysl:543: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V981*/ curfptr[980]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])))); ((basilysobject_ptr_t)(/*_.VALDATA___V986*/ curfptr[985]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V987*/ curfptr[986]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V986*/ curfptr[985]); BASILYS_LOCATION("warmelt-normal.bysl:544: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])))); ((basilysobject_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V989*/ curfptr[988]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V990*/ curfptr[989]); BASILYS_LOCATION("warmelt-normal.bysl:544: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])))); ((basilysobject_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V990*/ curfptr[989]); BASILYS_LOCATION("warmelt-normal.bysl:544: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])))); ((basilysobject_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V992*/ curfptr[991]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V992*/ curfptr[991])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V992*/ curfptr[991]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V991*/ curfptr[990]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V992*/ curfptr[991]); BASILYS_LOCATION("warmelt-normal.bysl:544: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V988*/ curfptr[987])))); ((basilysobject_ptr_t)(/*_.VALDATA___V988*/ curfptr[987]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V992*/ curfptr[991]); BASILYS_LOCATION("warmelt-normal.bysl:544: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V988*/ curfptr[987]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:545: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V997*/ curfptr[996]); BASILYS_LOCATION("warmelt-normal.bysl:545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])))); ((basilysobject_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V997*/ curfptr[996]); BASILYS_LOCATION("warmelt-normal.bysl:545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])))); ((basilysobject_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V999*/ curfptr[998]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V999*/ curfptr[998])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V999*/ curfptr[998]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V998*/ curfptr[997]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V999*/ curfptr[998]); BASILYS_LOCATION("warmelt-normal.bysl:545: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V995*/ curfptr[994])))); ((basilysobject_ptr_t)(/*_.VALDATA___V995*/ curfptr[994]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V999*/ curfptr[998]); BASILYS_LOCATION("warmelt-normal.bysl:545: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V995*/ curfptr[994]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1001*/ curfptr[1000]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1000*/ curfptr[999]); BASILYS_LOCATION("warmelt-normal.bysl:546: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1003*/ curfptr[1002]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1004*/ curfptr[1003]); BASILYS_LOCATION("warmelt-normal.bysl:546: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1004*/ curfptr[1003]); BASILYS_LOCATION("warmelt-normal.bysl:546: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1006*/ curfptr[1005]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1005*/ curfptr[1004]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1006*/ curfptr[1005]); BASILYS_LOCATION("warmelt-normal.bysl:546: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1002*/ curfptr[1001]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1006*/ curfptr[1005]); BASILYS_LOCATION("warmelt-normal.bysl:546: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1002*/ curfptr[1001]); /*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-normal.bysl:547: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1010*/ curfptr[1009]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1011*/ curfptr[1010]); BASILYS_LOCATION("warmelt-normal.bysl:547: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1011*/ curfptr[1010]); BASILYS_LOCATION("warmelt-normal.bysl:547: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1013*/ curfptr[1012]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1012*/ curfptr[1011]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1013*/ curfptr[1012]); BASILYS_LOCATION("warmelt-normal.bysl:547: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1009*/ curfptr[1008]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1013*/ curfptr[1012]); BASILYS_LOCATION("warmelt-normal.bysl:547: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1009*/ curfptr[1008]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1015*/ curfptr[1014]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1014*/ curfptr[1013]); BASILYS_LOCATION("warmelt-normal.bysl:548: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1017*/ curfptr[1016]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1018*/ curfptr[1017]); BASILYS_LOCATION("warmelt-normal.bysl:548: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1018*/ curfptr[1017]); BASILYS_LOCATION("warmelt-normal.bysl:548: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1020*/ curfptr[1019]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1020*/ curfptr[1019])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1020*/ curfptr[1019]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1019*/ curfptr[1018]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1020*/ curfptr[1019]); BASILYS_LOCATION("warmelt-normal.bysl:548: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1016*/ curfptr[1015]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1020*/ curfptr[1019]); BASILYS_LOCATION("warmelt-normal.bysl:548: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1016*/ curfptr[1015]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1022*/ curfptr[1021]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1021*/ curfptr[1020]); BASILYS_LOCATION("warmelt-normal.bysl:549: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1024*/ curfptr[1023]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1025*/ curfptr[1024]); BASILYS_LOCATION("warmelt-normal.bysl:549: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1025*/ curfptr[1024]); BASILYS_LOCATION("warmelt-normal.bysl:549: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1027*/ curfptr[1026]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1027*/ curfptr[1026])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1027*/ curfptr[1026]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1026*/ curfptr[1025]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1027*/ curfptr[1026]); BASILYS_LOCATION("warmelt-normal.bysl:549: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1023*/ curfptr[1022]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1027*/ curfptr[1026]); BASILYS_LOCATION("warmelt-normal.bysl:549: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1023*/ curfptr[1022]); /*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-normal.bysl:550: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1031*/ curfptr[1030]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1032*/ curfptr[1031]); BASILYS_LOCATION("warmelt-normal.bysl:550: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1032*/ curfptr[1031]); BASILYS_LOCATION("warmelt-normal.bysl:550: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1034*/ curfptr[1033]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1034*/ curfptr[1033])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1034*/ curfptr[1033]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1033*/ curfptr[1032]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1034*/ curfptr[1033]); BASILYS_LOCATION("warmelt-normal.bysl:550: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1030*/ curfptr[1029]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1034*/ curfptr[1033]); BASILYS_LOCATION("warmelt-normal.bysl:550: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1030*/ curfptr[1029]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1035*/ curfptr[1034])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1035*/ curfptr[1034])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1035*/ curfptr[1034]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1036*/ curfptr[1035]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1035*/ curfptr[1034]); BASILYS_LOCATION("warmelt-normal.bysl:551: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1038*/ curfptr[1037]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1039*/ curfptr[1038]); BASILYS_LOCATION("warmelt-normal.bysl:551: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1039*/ curfptr[1038]); BASILYS_LOCATION("warmelt-normal.bysl:551: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1041*/ curfptr[1040]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1041*/ curfptr[1040])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1041*/ curfptr[1040]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1040*/ curfptr[1039]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1041*/ curfptr[1040]); BASILYS_LOCATION("warmelt-normal.bysl:551: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1037*/ curfptr[1036]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1041*/ curfptr[1040]); BASILYS_LOCATION("warmelt-normal.bysl:551: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1037*/ curfptr[1036]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1043*/ curfptr[1042]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1042*/ curfptr[1041]); BASILYS_LOCATION("warmelt-normal.bysl:552: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1046*/ curfptr[1045]); BASILYS_LOCATION("warmelt-normal.bysl:552: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1046*/ curfptr[1045]); BASILYS_LOCATION("warmelt-normal.bysl:552: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1048*/ curfptr[1047]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1048*/ curfptr[1047])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1048*/ curfptr[1047]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1047*/ curfptr[1046]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1048*/ curfptr[1047]); BASILYS_LOCATION("warmelt-normal.bysl:552: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1044*/ curfptr[1043]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1048*/ curfptr[1047]); BASILYS_LOCATION("warmelt-normal.bysl:552: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1044*/ curfptr[1043]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1050*/ curfptr[1049]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1049*/ curfptr[1048]); BASILYS_LOCATION("warmelt-normal.bysl:553: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1052*/ curfptr[1051]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1053*/ curfptr[1052]); BASILYS_LOCATION("warmelt-normal.bysl:553: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1053*/ curfptr[1052]); BASILYS_LOCATION("warmelt-normal.bysl:553: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1055*/ curfptr[1054]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1054*/ curfptr[1053]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1055*/ curfptr[1054]); BASILYS_LOCATION("warmelt-normal.bysl:553: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1051*/ curfptr[1050]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1055*/ curfptr[1054]); BASILYS_LOCATION("warmelt-normal.bysl:553: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1051*/ curfptr[1050]); /*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-normal.bysl:554: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1059*/ curfptr[1058]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1060*/ curfptr[1059]); BASILYS_LOCATION("warmelt-normal.bysl:554: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1060*/ curfptr[1059]); BASILYS_LOCATION("warmelt-normal.bysl:554: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1062*/ curfptr[1061]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1061*/ curfptr[1060]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1062*/ curfptr[1061]); BASILYS_LOCATION("warmelt-normal.bysl:554: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1058*/ curfptr[1057]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1062*/ curfptr[1061]); BASILYS_LOCATION("warmelt-normal.bysl:554: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1058*/ curfptr[1057]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:555: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1067*/ curfptr[1066]); BASILYS_LOCATION("warmelt-normal.bysl:555: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1067*/ curfptr[1066]); BASILYS_LOCATION("warmelt-normal.bysl:555: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1069*/ curfptr[1068]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1069*/ curfptr[1068])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1069*/ curfptr[1068]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1068*/ curfptr[1067]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1069*/ curfptr[1068]); BASILYS_LOCATION("warmelt-normal.bysl:555: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1065*/ curfptr[1064]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1069*/ curfptr[1068]); BASILYS_LOCATION("warmelt-normal.bysl:555: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1065*/ curfptr[1064]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1070*/ curfptr[1069])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1070*/ curfptr[1069])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1070*/ curfptr[1069]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1071*/ curfptr[1070]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1070*/ curfptr[1069]); BASILYS_LOCATION("warmelt-normal.bysl:556: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1073*/ curfptr[1072]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1074*/ curfptr[1073]); BASILYS_LOCATION("warmelt-normal.bysl:556: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1074*/ curfptr[1073]); BASILYS_LOCATION("warmelt-normal.bysl:556: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1076*/ curfptr[1075]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1076*/ curfptr[1075])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1076*/ curfptr[1075]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1075*/ curfptr[1074]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1076*/ curfptr[1075]); BASILYS_LOCATION("warmelt-normal.bysl:556: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1072*/ curfptr[1071]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1076*/ curfptr[1075]); BASILYS_LOCATION("warmelt-normal.bysl:556: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1072*/ curfptr[1071]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1078*/ curfptr[1077]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1077*/ curfptr[1076]); BASILYS_LOCATION("warmelt-normal.bysl:557: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1080*/ curfptr[1079]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1081*/ curfptr[1080]); BASILYS_LOCATION("warmelt-normal.bysl:557: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1081*/ curfptr[1080]); BASILYS_LOCATION("warmelt-normal.bysl:557: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1083*/ curfptr[1082]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1082*/ curfptr[1081]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1083*/ curfptr[1082]); BASILYS_LOCATION("warmelt-normal.bysl:557: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1079*/ curfptr[1078]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1083*/ curfptr[1082]); BASILYS_LOCATION("warmelt-normal.bysl:557: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1079*/ curfptr[1078]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1085*/ curfptr[1084]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1084*/ curfptr[1083]); BASILYS_LOCATION("warmelt-normal.bysl:558: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1087*/ curfptr[1086]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1088*/ curfptr[1087]); BASILYS_LOCATION("warmelt-normal.bysl:558: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1088*/ curfptr[1087]); BASILYS_LOCATION("warmelt-normal.bysl:558: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1090*/ curfptr[1089]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1090*/ curfptr[1089])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1090*/ curfptr[1089]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1089*/ curfptr[1088]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1090*/ curfptr[1089]); BASILYS_LOCATION("warmelt-normal.bysl:558: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1086*/ curfptr[1085]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1090*/ curfptr[1089]); BASILYS_LOCATION("warmelt-normal.bysl:558: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1086*/ curfptr[1085]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:559: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1095*/ curfptr[1094]); BASILYS_LOCATION("warmelt-normal.bysl:559: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1095*/ curfptr[1094]); BASILYS_LOCATION("warmelt-normal.bysl:559: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1097*/ curfptr[1096]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1097*/ curfptr[1096])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1097*/ curfptr[1096]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1096*/ curfptr[1095]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1097*/ curfptr[1096]); BASILYS_LOCATION("warmelt-normal.bysl:559: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1093*/ curfptr[1092]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1097*/ curfptr[1096]); BASILYS_LOCATION("warmelt-normal.bysl:559: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1093*/ curfptr[1092]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1099*/ curfptr[1098]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1098*/ curfptr[1097]); BASILYS_LOCATION("warmelt-normal.bysl:560: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1101*/ curfptr[1100]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1102*/ curfptr[1101]); BASILYS_LOCATION("warmelt-normal.bysl:560: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1102*/ curfptr[1101]); BASILYS_LOCATION("warmelt-normal.bysl:560: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1104*/ curfptr[1103]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1104*/ curfptr[1103])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1104*/ curfptr[1103]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1103*/ curfptr[1102]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1104*/ curfptr[1103]); BASILYS_LOCATION("warmelt-normal.bysl:560: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1100*/ curfptr[1099]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1104*/ curfptr[1103]); BASILYS_LOCATION("warmelt-normal.bysl:560: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1100*/ curfptr[1099]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1106*/ curfptr[1105]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1105*/ curfptr[1104]); BASILYS_LOCATION("warmelt-normal.bysl:561: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1109*/ curfptr[1108]); BASILYS_LOCATION("warmelt-normal.bysl:561: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1109*/ curfptr[1108]); BASILYS_LOCATION("warmelt-normal.bysl:561: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1111*/ curfptr[1110]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1111*/ curfptr[1110])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1111*/ curfptr[1110]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1110*/ curfptr[1109]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1111*/ curfptr[1110]); BASILYS_LOCATION("warmelt-normal.bysl:561: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1107*/ curfptr[1106]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1111*/ curfptr[1110]); BASILYS_LOCATION("warmelt-normal.bysl:561: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1107*/ curfptr[1106]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:562: @putslot"); /*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:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1116*/ curfptr[1115]); BASILYS_LOCATION("warmelt-normal.bysl:562: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1116*/ curfptr[1115]); BASILYS_LOCATION("warmelt-normal.bysl:562: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1118*/ curfptr[1117]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1118*/ curfptr[1117])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1118*/ curfptr[1117]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1117*/ curfptr[1116]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1118*/ curfptr[1117]); BASILYS_LOCATION("warmelt-normal.bysl:562: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1114*/ curfptr[1113]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1118*/ curfptr[1117]); BASILYS_LOCATION("warmelt-normal.bysl:562: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1114*/ curfptr[1113]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1119*/ curfptr[1118])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1119*/ curfptr[1118])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1119*/ curfptr[1118]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1120*/ curfptr[1119]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1119*/ curfptr[1118]); BASILYS_LOCATION("warmelt-normal.bysl:563: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1122*/ curfptr[1121]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1123*/ curfptr[1122]); BASILYS_LOCATION("warmelt-normal.bysl:563: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1123*/ curfptr[1122]); BASILYS_LOCATION("warmelt-normal.bysl:563: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1125*/ curfptr[1124]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1125*/ curfptr[1124])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1125*/ curfptr[1124]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1124*/ curfptr[1123]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1125*/ curfptr[1124]); BASILYS_LOCATION("warmelt-normal.bysl:563: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1121*/ curfptr[1120]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1125*/ curfptr[1124]); BASILYS_LOCATION("warmelt-normal.bysl:563: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1121*/ curfptr[1120]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1126*/ curfptr[1125])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1126*/ curfptr[1125])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1126*/ curfptr[1125]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1127*/ curfptr[1126]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1126*/ curfptr[1125]); BASILYS_LOCATION("warmelt-normal.bysl:564: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1129*/ curfptr[1128]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1130*/ curfptr[1129]); BASILYS_LOCATION("warmelt-normal.bysl:564: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (2>=0 && 2< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[2] = (basilys_ptr_t)( /*_.VALTUP___V1130*/ curfptr[1129]); BASILYS_LOCATION("warmelt-normal.bysl:564: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (3>=0 && 3< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[3] = (basilys_ptr_t)( ((void*)(BASILYSG(CTYPE_VALUE)))); /*putupl*/ basilys_assertmsg("putupl checktup", basilys_magic_discr((basilys_ptr_t)(/*_.VALTUP___V1132*/ curfptr[1131]))== OBMAG_MULTIPLE); basilys_assertmsg("putupl checkoff", (0>=0 && 0< basilys_multiple_length((basilys_ptr_t)(/*_.VALTUP___V1132*/ curfptr[1131])))); ((basilysmultiple_ptr_t)(/*_.VALTUP___V1132*/ curfptr[1131]))->tabval[0] = (basilys_ptr_t)(/*_.VALSTR___V1131*/ curfptr[1130]); /*touch:INITUP_*/ basilysgc_touch(/*_.VALTUP___V1132*/ curfptr[1131]); BASILYS_LOCATION("warmelt-normal.bysl:564: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (4>=0 && 4< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1128*/ curfptr[1127]))->obj_vartab[4] = (basilys_ptr_t)( /*_.VALTUP___V1132*/ curfptr[1131]); BASILYS_LOCATION("warmelt-normal.bysl:564: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1128*/ curfptr[1127]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1135*/ curfptr[1134]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1134*/ curfptr[1133]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#0", NULL != (/*_.VALDATA___V1134*/ curfptr[1133])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1137*/ curfptr[1136]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1136*/ curfptr[1135]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#1", NULL != (/*_.VALDATA___V1136*/ curfptr[1135])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#2", NULL != (/*_.VALDATA___V133*/ curfptr[132])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1139*/ curfptr[1138]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1138*/ curfptr[1137]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#3", NULL != (/*_.VALDATA___V1138*/ curfptr[1137])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1141*/ curfptr[1140]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1140*/ curfptr[1139]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#4", NULL != (/*_.VALDATA___V1140*/ curfptr[1139])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1143*/ curfptr[1142]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1142*/ curfptr[1141]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#5", NULL != (/*_.VALDATA___V1142*/ curfptr[1141])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1145*/ curfptr[1144]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1144*/ curfptr[1143]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#6", NULL != (/*_.VALDATA___V1144*/ curfptr[1143])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143]); /*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-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#7", NULL != (/*_.VALDATA___V1146*/ curfptr[1145])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1149*/ curfptr[1148]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1148*/ curfptr[1147]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#8", NULL != (/*_.VALDATA___V1148*/ curfptr[1147])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1151*/ curfptr[1150]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1150*/ curfptr[1149]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#9", NULL != (/*_.VALDATA___V1150*/ curfptr[1149])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1153*/ curfptr[1152]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1152*/ curfptr[1151]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#10", NULL != (/*_.VALDATA___V1152*/ curfptr[1151])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1155*/ curfptr[1154]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1154*/ curfptr[1153]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#11", NULL != (/*_.VALDATA___V1154*/ curfptr[1153])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#12", NULL != (/*_.VALDATA___V141*/ curfptr[140])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1157*/ curfptr[1156]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1156*/ curfptr[1155]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#13", NULL != (/*_.VALDATA___V1156*/ curfptr[1155])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1159*/ curfptr[1158]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1158*/ curfptr[1157]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#14", NULL != (/*_.VALDATA___V1158*/ curfptr[1157])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#15", NULL != (/*_.VALDATA___V131*/ curfptr[130])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1161*/ curfptr[1160]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1160*/ curfptr[1159]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#16", NULL != (/*_.VALDATA___V1160*/ curfptr[1159])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1163*/ curfptr[1162]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1162*/ curfptr[1161]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#17", NULL != (/*_.VALDATA___V1162*/ curfptr[1161])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1165*/ curfptr[1164]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1164*/ curfptr[1163]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#18", NULL != (/*_.VALDATA___V1164*/ curfptr[1163])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1167*/ curfptr[1166]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1166*/ curfptr[1165]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#19", NULL != (/*_.VALDATA___V1166*/ curfptr[1165])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1169*/ curfptr[1168]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1168*/ curfptr[1167]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#20", NULL != (/*_.VALDATA___V1168*/ curfptr[1167])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1171*/ curfptr[1170]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1170*/ curfptr[1169]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#21", NULL != (/*_.VALDATA___V1170*/ curfptr[1169])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[21] = (basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1173*/ curfptr[1172]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1172*/ curfptr[1171]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#22", NULL != (/*_.VALDATA___V1172*/ curfptr[1171])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1174*/ curfptr[1173])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1174*/ curfptr[1173])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1174*/ curfptr[1173]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1175*/ curfptr[1174]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1174*/ curfptr[1173]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#23", NULL != (/*_.VALDATA___V1174*/ curfptr[1173])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V1174*/ curfptr[1173]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1177*/ curfptr[1176]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1176*/ curfptr[1175]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#24", NULL != (/*_.VALDATA___V1176*/ curfptr[1175])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#25", NULL != (/*_.VALDATA___V837*/ curfptr[836])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1179*/ curfptr[1178]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1178*/ curfptr[1177]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#26", NULL != (/*_.VALDATA___V1178*/ curfptr[1177])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[26] = (basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1181*/ curfptr[1180]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1180*/ curfptr[1179]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#27", NULL != (/*_.VALDATA___V1180*/ curfptr[1179])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[27] = (basilys_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1183*/ curfptr[1182]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1182*/ curfptr[1181]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#28", NULL != (/*_.VALDATA___V1182*/ curfptr[1181])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[28] = (basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1185*/ curfptr[1184]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1184*/ curfptr[1183]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#29", NULL != (/*_.VALDATA___V1184*/ curfptr[1183])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1187*/ curfptr[1186]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1186*/ curfptr[1185]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#30", NULL != (/*_.VALDATA___V1186*/ curfptr[1185])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[30] = (basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1189*/ curfptr[1188]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1188*/ curfptr[1187]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#31", NULL != (/*_.VALDATA___V1188*/ curfptr[1187])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[31] = (basilys_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1191*/ curfptr[1190]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1190*/ curfptr[1189]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#32", NULL != (/*_.VALDATA___V1190*/ curfptr[1189])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[32] = (basilys_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1193*/ curfptr[1192]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1192*/ curfptr[1191]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#33", NULL != (/*_.VALDATA___V1192*/ curfptr[1191])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[33] = (basilys_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1195*/ curfptr[1194]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1194*/ curfptr[1193]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#34", NULL != (/*_.VALDATA___V1194*/ curfptr[1193])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[34] = (basilys_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1197*/ curfptr[1196]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1196*/ curfptr[1195]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#35", NULL != (/*_.VALDATA___V1196*/ curfptr[1195])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[35] = (basilys_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1199*/ curfptr[1198]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1198*/ curfptr[1197]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#36", NULL != (/*_.VALDATA___V1198*/ curfptr[1197])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[36] = (basilys_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1201*/ curfptr[1200]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1200*/ curfptr[1199]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#37", NULL != (/*_.VALDATA___V1200*/ curfptr[1199])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[37] = (basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199]); /*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-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#38", NULL != (/*_.VALDATA___V1202*/ curfptr[1201])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[38] = (basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1205*/ curfptr[1204]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1204*/ curfptr[1203]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#39", NULL != (/*_.VALDATA___V1204*/ curfptr[1203])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[39] = (basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1207*/ curfptr[1206]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1206*/ curfptr[1205]); BASILYS_LOCATION("warmelt-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#40", NULL != (/*_.VALDATA___V1206*/ curfptr[1205])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[40] = (basilys_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205]); /*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-normal.bysl:567: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1003__FILL_INITIAL_PREDEFMAP#41", NULL != (/*_.VALDATA___V1208*/ curfptr[1207])); ((basilysroutine_ptr_t)/*_.VALROUT___V1133*/ curfptr[1132])->tabval[41] = (basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-normal.bysl:567: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1133*/ curfptr[1132]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1210*/ curfptr[1209])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1133*/ curfptr[1132])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1210*/ curfptr[1209])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1133*/ curfptr[1132]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1210*/ curfptr[1209]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#0", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#1", NULL != (/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#2", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1210*/ curfptr[1209]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1210*/ curfptr[1209]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V503*/ curfptr[502]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#5", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#6", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#7", NULL != (/*_.DISCR_MAPSTRINGS__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V761*/ curfptr[760]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V773*/ curfptr[772]); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]); BASILYS_LOCATION("warmelt-normal.bysl:616: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1081__CREATE_NORMCONTEXT#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1211*/ curfptr[1210])->tabval[10] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:616: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1211*/ curfptr[1210]); /*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___V1211*/ curfptr[1210])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1212*/ curfptr[1211])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1211*/ curfptr[1210]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1216*/ curfptr[1215]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1215*/ curfptr[1214]); BASILYS_LOCATION("warmelt-normal.bysl:674: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1218*/ curfptr[1217]); BASILYS_LOCATION("warmelt-normal.bysl:674: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:679: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1089__NORMEXP_IDENTICAL#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1219*/ curfptr[1218])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:679: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1089__NORMEXP_IDENTICAL#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1219*/ curfptr[1218])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:679: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1089__NORMEXP_IDENTICAL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1219*/ curfptr[1218])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:679: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1219*/ curfptr[1218]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1220*/ curfptr[1219])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1219*/ curfptr[1218])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1220*/ curfptr[1219])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1219*/ curfptr[1218]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1220*/ curfptr[1219]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1222*/ curfptr[1221]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1221*/ curfptr[1220]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1224*/ curfptr[1223]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1223*/ curfptr[1222]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1226*/ curfptr[1225]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1225*/ curfptr[1224]); BASILYS_LOCATION("warmelt-normal.bysl:691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1227*/ curfptr[1226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1097__NORMEXP_NULL#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1227*/ curfptr[1226])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1227*/ curfptr[1226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1097__NORMEXP_NULL#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1227*/ curfptr[1226])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1227*/ curfptr[1226])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V557*/ curfptr[556]); ((basilysroutine_ptr_t)/*_.VALROUT___V1227*/ curfptr[1226])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]); BASILYS_LOCATION("warmelt-normal.bysl:691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1227*/ curfptr[1226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1097__NORMEXP_NULL#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1227*/ curfptr[1226])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:691: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1227*/ curfptr[1226]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1228*/ curfptr[1227])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1227*/ curfptr[1226])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1228*/ curfptr[1227])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1227*/ curfptr[1226]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1228*/ curfptr[1227]); BASILYS_LOCATION("warmelt-normal.bysl:701: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1099__NORMEXP_SRC_CATCHALL#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:701: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1099__NORMEXP_SRC_CATCHALL#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:701: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1099__NORMEXP_SRC_CATCHALL#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1229*/ curfptr[1228])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:701: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1229*/ curfptr[1228]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1230*/ curfptr[1229])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1229*/ curfptr[1228])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1230*/ curfptr[1229])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1229*/ curfptr[1228]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1230*/ curfptr[1229]); /*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]); /*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-normal.bysl:717: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1236*/ curfptr[1235]); BASILYS_LOCATION("warmelt-normal.bysl:717: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1235*/ curfptr[1234]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1238*/ curfptr[1237]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1237*/ curfptr[1236]); BASILYS_LOCATION("warmelt-normal.bysl:727: @putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1239*/ curfptr[1238]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1240*/ curfptr[1239]); BASILYS_LOCATION("warmelt-normal.bysl:727: @touch"); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1239*/ curfptr[1238]); BASILYS_LOCATION("warmelt-normal.bysl:731: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1111__GECTYP_ANYRECV#0", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1241*/ curfptr[1240])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:731: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1241*/ curfptr[1240]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1242*/ curfptr[1241])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1241*/ curfptr[1240])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1242*/ curfptr[1241])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1241*/ curfptr[1240]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1242*/ curfptr[1241]); BASILYS_LOCATION("warmelt-normal.bysl:734: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1113__GECTYP_ROOT#0", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1243*/ curfptr[1242])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:734: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1243*/ curfptr[1242]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1244*/ curfptr[1243])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1243*/ curfptr[1242])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1244*/ curfptr[1243])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1243*/ curfptr[1242]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1244*/ curfptr[1243]); BASILYS_LOCATION("warmelt-normal.bysl:738: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1115__GECTYP_INTEGER#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:738: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1115__GECTYP_INTEGER#1", NULL != (/*_.CTYPE_LONG__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V1245*/ curfptr[1244])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_LONG__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-normal.bysl:738: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1245*/ curfptr[1244]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1246*/ curfptr[1245])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1245*/ curfptr[1244])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1246*/ curfptr[1245])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1245*/ curfptr[1244]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1246*/ curfptr[1245]); BASILYS_LOCATION("warmelt-normal.bysl:744: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1117__GECTYP_STRING#0", NULL != (/*_.CTYPE_CSTRING__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V1247*/ curfptr[1246])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_CSTRING__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-normal.bysl:744: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1247*/ curfptr[1246]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1248*/ curfptr[1247])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1247*/ curfptr[1246])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1248*/ curfptr[1247])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1247*/ curfptr[1246]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1248*/ curfptr[1247]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#3", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#4", NULL != (/*_.MULTIPLE_MAP__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[4] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V159*/ curfptr[158]); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#7", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[7] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#8", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:757: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:757: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V159*/ curfptr[158]); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]); BASILYS_LOCATION("warmelt-normal.bysl:757: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1123__LAMBDA_#2", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:757: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1123__LAMBDA_#3", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:768: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1126__LAMBDA_#0", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1251*/ curfptr[1250])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:768: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1251*/ curfptr[1250]); BASILYS_LOCATION("warmelt-normal.bysl:757: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1123__LAMBDA_#4", NULL != (/*_.VALROUT___V1251*/ curfptr[1250])); ((basilysroutine_ptr_t)/*_.VALROUT___V1250*/ curfptr[1249])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1251*/ curfptr[1250]); BASILYS_LOCATION("warmelt-normal.bysl:757: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1250*/ curfptr[1249]); BASILYS_LOCATION("warmelt-normal.bysl:749: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1119__NORMALIZE_TUPLE#9", NULL != (/*_.VALROUT___V1250*/ curfptr[1249])); ((basilysroutine_ptr_t)/*_.VALROUT___V1249*/ curfptr[1248])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1250*/ curfptr[1249]); BASILYS_LOCATION("warmelt-normal.bysl:749: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1249*/ curfptr[1248]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1249*/ curfptr[1248])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1252*/ curfptr[1251])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1249*/ curfptr[1248]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1252*/ curfptr[1251]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1254*/ curfptr[1253]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1253*/ curfptr[1252]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1255*/ curfptr[1254])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1255*/ curfptr[1254])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1255*/ curfptr[1254]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1256*/ curfptr[1255]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1255*/ curfptr[1254]); /*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-normal.bysl:786: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1129__WRAP_NORMAL_LETSEQ#0", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[0] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:786: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1129__WRAP_NORMAL_LETSEQ#1", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:786: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1129__WRAP_NORMAL_LETSEQ#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:791: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1260*/ curfptr[1259])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1131__LAMBDA_#0", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1260*/ curfptr[1259])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:791: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1260*/ curfptr[1259])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1131__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1260*/ curfptr[1259])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:791: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1260*/ curfptr[1259]); BASILYS_LOCATION("warmelt-normal.bysl:786: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1129__WRAP_NORMAL_LETSEQ#3", NULL != (/*_.VALROUT___V1260*/ curfptr[1259])); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1260*/ curfptr[1259]); BASILYS_LOCATION("warmelt-normal.bysl:786: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V249*/ curfptr[248]); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:786: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1129__WRAP_NORMAL_LETSEQ#5", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1259*/ curfptr[1258])->tabval[5] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:786: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1259*/ curfptr[1258]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1261*/ curfptr[1260])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1259*/ curfptr[1258])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1261*/ curfptr[1260])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1259*/ curfptr[1258]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1261*/ curfptr[1260]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1263*/ curfptr[1262]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1262*/ curfptr[1261]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1265*/ curfptr[1264]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1264*/ curfptr[1263]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#0", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[0] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#1", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:811: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1138__LAMBDA_#0", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:811: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1138__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1267*/ curfptr[1266])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:811: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1267*/ curfptr[1266]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#3", NULL != (/*_.VALROUT___V1267*/ curfptr[1266])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1267*/ curfptr[1266]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V249*/ curfptr[248]); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#5", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[5] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:807: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1136__WRAP_NORMAL_LET1#6", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1266*/ curfptr[1265])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:807: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1266*/ curfptr[1265]); /*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___V1266*/ curfptr[1265])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1268*/ curfptr[1267])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1266*/ curfptr[1265]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:833: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1139__CHECK_CTYPE_NARGS#0", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:833: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:833: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1139__CHECK_CTYPE_NARGS#2", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:836: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:836: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1143__LAMBDA_#1", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1270*/ curfptr[1269])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:836: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1270*/ curfptr[1269]); BASILYS_LOCATION("warmelt-normal.bysl:833: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1139__CHECK_CTYPE_NARGS#3", NULL != (/*_.VALROUT___V1270*/ curfptr[1269])); ((basilysroutine_ptr_t)/*_.VALROUT___V1269*/ curfptr[1268])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1270*/ curfptr[1269]); BASILYS_LOCATION("warmelt-normal.bysl:833: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1269*/ curfptr[1268]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1271*/ curfptr[1270])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1269*/ curfptr[1268])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1271*/ curfptr[1270])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1269*/ curfptr[1268]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1271*/ curfptr[1270]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1273*/ curfptr[1272]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1272*/ curfptr[1271]); /*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]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1279*/ curfptr[1278]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1278*/ curfptr[1277]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1283*/ curfptr[1282]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1282*/ curfptr[1281]); /*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-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#0", NULL != (/*_.FIND_ENCLOSING_ENV__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[0] = (basilys_ptr_t)(/*_.FIND_ENCLOSING_ENV__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#2", NULL != (/*_.CLASS_VALUE_BINDING__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V673*/ curfptr[672]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V673*/ curfptr[672]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:2699: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1360__NORMAL_PREDEF#0", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2699: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1360__NORMAL_PREDEF#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2699: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ curfptr[546]); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-normal.bysl:2699: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1360__NORMAL_PREDEF#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1290*/ curfptr[1289])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2699: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1290*/ curfptr[1289]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1290*/ curfptr[1289])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1289*/ curfptr[1288])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1290*/ curfptr[1289]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#5", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#6", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V633*/ curfptr[632]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#8", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1362__NORMAL_SYMBOL_DATA#9", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[9] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1288*/ curfptr[1287])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2718: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1288*/ curfptr[1287]); /*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___V1288*/ curfptr[1287])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1287*/ curfptr[1286])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1288*/ curfptr[1287]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V721*/ curfptr[720]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V721*/ curfptr[720]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#7", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#8", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[8] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#10", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#11", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[11] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:915: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1291*/ curfptr[1290])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1291*/ curfptr[1290])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:915: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1291*/ curfptr[1290])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1162__LAMBDA_#1", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1291*/ curfptr[1290])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:915: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1291*/ curfptr[1290])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1162__LAMBDA_#2", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1291*/ curfptr[1290])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:915: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1291*/ curfptr[1290])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1162__LAMBDA_#3", NULL != (/*_.VALROUT___V1292*/ curfptr[1291])); ((basilysroutine_ptr_t)/*_.VALROUT___V1291*/ curfptr[1290])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1292*/ curfptr[1291]); BASILYS_LOCATION("warmelt-normal.bysl:915: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1291*/ curfptr[1290]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#12", NULL != (/*_.VALROUT___V1291*/ curfptr[1290])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1291*/ curfptr[1290]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#13", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#14", NULL != (/*_.CLASS_LET_BINDING__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_LET_BINDING__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#15", NULL != (/*_.CLASS_FIXED_BINDING__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_FIXED_BINDING__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#17", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#18", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[18] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:968: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:968: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1168__LAMBDA_#1", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:968: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1168__LAMBDA_#2", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:968: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1168__LAMBDA_#3", NULL != (/*_.VALROUT___V1294*/ curfptr[1293])); ((basilysroutine_ptr_t)/*_.VALROUT___V1293*/ curfptr[1292])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1294*/ curfptr[1293]); BASILYS_LOCATION("warmelt-normal.bysl:968: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1293*/ curfptr[1292]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#19", NULL != (/*_.VALROUT___V1293*/ curfptr[1292])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1293*/ curfptr[1292]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V711*/ curfptr[710]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V711*/ curfptr[710]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[21] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#22", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[22] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#23", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[23] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:993: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:993: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1170__LAMBDA_#1", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:993: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1170__LAMBDA_#2", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:993: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1170__LAMBDA_#3", NULL != (/*_.VALROUT___V1296*/ curfptr[1295])); ((basilysroutine_ptr_t)/*_.VALROUT___V1295*/ curfptr[1294])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V1296*/ curfptr[1295]); BASILYS_LOCATION("warmelt-normal.bysl:993: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1295*/ curfptr[1294]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#24", NULL != (/*_.VALROUT___V1295*/ curfptr[1294])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[24] = (basilys_ptr_t)(/*_.VALROUT___V1295*/ curfptr[1294]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#26", NULL != (/*_.CLASS_FUNCTION_BINDING__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[26] = (basilys_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V659*/ curfptr[658]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[27] = (basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#28", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[28] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#30", NULL != (/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[30] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#31", NULL != (/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[31] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#32", NULL != (/*_.CLASS_SELECTOR_BINDING__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[32] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#33", NULL != (/*_.CLASS_INSTANCE_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[33] = (basilys_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#34", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[34] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[35] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#36", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[36] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#37", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[37] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#2", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#3", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[3] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1184__LAMBDA_#4", NULL != (/*_.VALROUT___V1298*/ curfptr[1297])); ((basilysroutine_ptr_t)/*_.VALROUT___V1297*/ curfptr[1296])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1298*/ curfptr[1297]); BASILYS_LOCATION("warmelt-normal.bysl:1118: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1297*/ curfptr[1296]); BASILYS_LOCATION("warmelt-normal.bysl:864: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1156__NORMEXP_SYMBOL#38", NULL != (/*_.VALROUT___V1297*/ curfptr[1296])); ((basilysroutine_ptr_t)/*_.VALROUT___V1286*/ curfptr[1285])->tabval[38] = (basilys_ptr_t)(/*_.VALROUT___V1297*/ curfptr[1296]); BASILYS_LOCATION("warmelt-normal.bysl:864: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1286*/ curfptr[1285]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1299*/ curfptr[1298])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1286*/ curfptr[1285])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1299*/ curfptr[1298])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1286*/ curfptr[1285]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1299*/ curfptr[1298]); /*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]); /*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]); /*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]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1308*/ curfptr[1307]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1310*/ curfptr[1309])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1310*/ curfptr[1309])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1310*/ curfptr[1309]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1311*/ curfptr[1310]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1310*/ curfptr[1309]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1313*/ curfptr[1312]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1312*/ curfptr[1311]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1315*/ curfptr[1314]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1314*/ curfptr[1313]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1317*/ curfptr[1316]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1316*/ curfptr[1315]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1318*/ curfptr[1317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1318*/ curfptr[1317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1318*/ curfptr[1317]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1319*/ curfptr[1318]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1318*/ curfptr[1317]); BASILYS_LOCATION("warmelt-normal.bysl:1134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1320*/ curfptr[1319])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V687*/ curfptr[686]); ((basilysroutine_ptr_t)/*_.VALROUT___V1320*/ curfptr[1319])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-normal.bysl:1134: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1320*/ curfptr[1319]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1321*/ curfptr[1320])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1320*/ curfptr[1319])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1321*/ curfptr[1320])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1320*/ curfptr[1319]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1321*/ curfptr[1320]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#1", NULL != (/*_.CLASS_SRC_PRIMITIVE__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC_PRIMITIVE__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#2", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#3", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#4", NULL != (/*_.CLASS_PRIMITIVE__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#7", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#8", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#9", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#10", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#11", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[11] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1174: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1192__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:1174: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1192__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1323*/ curfptr[1322])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1174: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1323*/ curfptr[1322]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#12", NULL != (/*_.VALROUT___V1323*/ curfptr[1322])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1323*/ curfptr[1322]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#13", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#14", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[14] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#15", NULL != (/*_.CLASS_NAMED__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_NAMED__V51*/ curfptr[50]); BASILYS_LOCATION("warmelt-normal.bysl:1185: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1324*/ curfptr[1323])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1193__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1324*/ curfptr[1323])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:1185: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1324*/ curfptr[1323])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1193__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1324*/ curfptr[1323])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1185: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1324*/ curfptr[1323])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1193__LAMBDA_#2", NULL != (/*_.CLASS_NAMED__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V1324*/ curfptr[1323])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NAMED__V51*/ curfptr[50]); BASILYS_LOCATION("warmelt-normal.bysl:1185: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1324*/ curfptr[1323]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#16", NULL != (/*_.VALROUT___V1324*/ curfptr[1323])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[16] = (basilys_ptr_t)(/*_.VALROUT___V1324*/ curfptr[1323]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#17", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[17] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#18", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V225*/ curfptr[224]); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1188__NORMEXP_PRIMITIVE#21", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1322*/ curfptr[1321])->tabval[21] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1142: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1322*/ curfptr[1321]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1325*/ curfptr[1324])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1322*/ curfptr[1321])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1325*/ curfptr[1324])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1322*/ curfptr[1321]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1325*/ curfptr[1324]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:1242: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1330*/ curfptr[1329])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1196__LAMBDA_#0", NULL != (/*_.CLASS_PRIMITIVE__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1330*/ curfptr[1329])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-normal.bysl:1242: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1330*/ curfptr[1329]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#0", NULL != (/*_.CLASS_SRC_APPLY__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_APPLY__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#3", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#4", NULL != (/*_.VALDATA___V1332*/ curfptr[1331])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1271*/ curfptr[1270]); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1271*/ curfptr[1270]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#8", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[8] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#9", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[9] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#10", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#11", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[11] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V165*/ curfptr[164]); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1197__NORMEXP_APPLY#14", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1331*/ curfptr[1330])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1253: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1331*/ curfptr[1330]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1334*/ curfptr[1333])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1331*/ curfptr[1330])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1334*/ curfptr[1333])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1331*/ curfptr[1330]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1334*/ curfptr[1333]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1336*/ curfptr[1335]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1335*/ curfptr[1334]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1338*/ curfptr[1337]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1337*/ curfptr[1336]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#0", NULL != (/*_.CLASS_SRC_MSEND__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_MSEND__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1299*/ curfptr[1298]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1299*/ curfptr[1298]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#7", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#8", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[8] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#10", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[10] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1271*/ curfptr[1270]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1271*/ curfptr[1270]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#12", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[12] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V193*/ curfptr[192]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#14", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1205__NORMEXP_MSEND#16", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1339*/ curfptr[1338])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1299: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1339*/ curfptr[1338]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1340*/ curfptr[1339])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1339*/ curfptr[1338])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1340*/ curfptr[1339])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1339*/ curfptr[1338]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1340*/ curfptr[1339]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1341*/ curfptr[1340])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1341*/ curfptr[1340])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1341*/ curfptr[1340]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1342*/ curfptr[1341]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1341*/ curfptr[1340]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#1", NULL != (/*_.CLASS_SRC_RETURN__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC_RETURN__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#2", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#3", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#4", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[4] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1345*/ curfptr[1344]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1344*/ curfptr[1343]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#5", NULL != (/*_.VALDATA___V1344*/ curfptr[1343])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#6", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#7", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#9", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V263*/ curfptr[262]); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#12", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#14", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[14] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1209__NORMEXP_RETURN#15", NULL != (/*_.VALROUT___V1346*/ curfptr[1345])); ((basilysroutine_ptr_t)/*_.VALROUT___V1343*/ curfptr[1342])->tabval[15] = (basilys_ptr_t)(/*_.VALROUT___V1346*/ curfptr[1345]); BASILYS_LOCATION("warmelt-normal.bysl:1361: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1343*/ curfptr[1342]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1347*/ curfptr[1346])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1343*/ curfptr[1342])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1347*/ curfptr[1346])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1343*/ curfptr[1342]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1347*/ curfptr[1346]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1348*/ curfptr[1347])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1348*/ curfptr[1347])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1348*/ curfptr[1347]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1349*/ curfptr[1348]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1348*/ curfptr[1347]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#0", NULL != (/*_.CLASS_SRC_IF__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_IF__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#4", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#6", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[6] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#7", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[7] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#8", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1459: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1351*/ curfptr[1350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1222__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1351*/ curfptr[1350])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1459: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1351*/ curfptr[1350]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#9", NULL != (/*_.VALROUT___V1351*/ curfptr[1350])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1351*/ curfptr[1350]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#11", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[11] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*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-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#12", NULL != (/*_.VALDATA___V1352*/ curfptr[1351])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1268*/ curfptr[1267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#15", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V277*/ curfptr[276]); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1216__NORMEXP_IF#17", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1350*/ curfptr[1349])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1432: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1350*/ curfptr[1349]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1354*/ curfptr[1353])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1350*/ curfptr[1349])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1354*/ curfptr[1353])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1350*/ curfptr[1349]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1354*/ curfptr[1353]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1356*/ curfptr[1355]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1355*/ curfptr[1354]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1358*/ curfptr[1357]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1357*/ curfptr[1356]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1360*/ curfptr[1359]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1359*/ curfptr[1358]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#0", NULL != (/*_.CLASS_SRC_IFELSE__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_IFELSE__V61*/ curfptr[60]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#4", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#6", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[6] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#7", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[7] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#8", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1526: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1232__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1363*/ curfptr[1362])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1526: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1363*/ curfptr[1362]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#9", NULL != (/*_.VALROUT___V1363*/ curfptr[1362])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1363*/ curfptr[1362]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#11", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[11] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1539: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1364*/ curfptr[1363])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1233__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1364*/ curfptr[1363])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1539: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1364*/ curfptr[1363]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#12", NULL != (/*_.VALROUT___V1364*/ curfptr[1363])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1364*/ curfptr[1363]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#13", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#14", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[14] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*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]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#15", NULL != (/*_.VALDATA___V1365*/ curfptr[1364])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1268*/ curfptr[1267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#18", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V277*/ curfptr[276]); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1228__NORMEXP_IFELSE#20", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1362*/ curfptr[1361])->tabval[20] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1498: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1362*/ curfptr[1361]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1367*/ curfptr[1366])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1362*/ curfptr[1361])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1367*/ curfptr[1366])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1362*/ curfptr[1361]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1367*/ curfptr[1366]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1369*/ curfptr[1368]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1368*/ curfptr[1367]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#0", NULL != (/*_.CLASS_SRC_CPPIF__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_CPPIF__V62*/ curfptr[61]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#4", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#6", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[6] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#7", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[7] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#8", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1618: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1371*/ curfptr[1370])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1240__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1371*/ curfptr[1370])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1618: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1371*/ curfptr[1370]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#9", NULL != (/*_.VALROUT___V1371*/ curfptr[1370])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1371*/ curfptr[1370]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#11", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#12", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1631: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1372*/ curfptr[1371])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1241__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1372*/ curfptr[1371])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1631: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1372*/ curfptr[1371]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#13", NULL != (/*_.VALROUT___V1372*/ curfptr[1371])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V1372*/ curfptr[1371]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#14", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[14] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1374*/ curfptr[1373]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1373*/ curfptr[1372]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#15", NULL != (/*_.VALDATA___V1373*/ curfptr[1372])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1268*/ curfptr[1267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#18", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V299*/ curfptr[298]); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V299*/ curfptr[298]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1236__NORMEXP_CPPIF#20", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1370*/ curfptr[1369])->tabval[20] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1598: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1370*/ curfptr[1369]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1375*/ curfptr[1374])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1370*/ curfptr[1369])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1375*/ curfptr[1374])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1370*/ curfptr[1369]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1375*/ curfptr[1374]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1377*/ curfptr[1376]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1376*/ curfptr[1375]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#0", NULL != (/*_.CLASS_SRC_OR__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_OR__V63*/ curfptr[62]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#4", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#5", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#6", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#7", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#8", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[8] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#9", NULL != (/*_.MULTIPLE_BACKWARD_EVERY__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_BACKWARD_EVERY__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[10] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#12", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[12] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#13", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[13] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#15", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V277*/ curfptr[276]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1268*/ curfptr[1267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#18", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[18] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#19", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[19] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#21", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[21] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#22", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[22] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#2", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#3", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[3] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1698: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1251__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1380*/ curfptr[1379])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1698: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1380*/ curfptr[1379]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#4", NULL != (/*_.VALROUT___V1380*/ curfptr[1379])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1380*/ curfptr[1379]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V277*/ curfptr[276]); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1268*/ curfptr[1267]); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1268*/ curfptr[1267]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#9", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[9] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1381*/ curfptr[1380])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1381*/ curfptr[1380])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1381*/ curfptr[1380]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1382*/ curfptr[1381]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1381*/ curfptr[1380]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#10", NULL != (/*_.VALDATA___V1381*/ curfptr[1380])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1381*/ curfptr[1380]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#11", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#13", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1250__LAMBDA_#14", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1379*/ curfptr[1378])->tabval[14] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1691: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1379*/ curfptr[1378]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1244__NORMEXP_OR#23", NULL != (/*_.VALROUT___V1379*/ curfptr[1378])); ((basilysroutine_ptr_t)/*_.VALROUT___V1378*/ curfptr[1377])->tabval[23] = (basilys_ptr_t)(/*_.VALROUT___V1379*/ curfptr[1378]); BASILYS_LOCATION("warmelt-normal.bysl:1673: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1378*/ curfptr[1377]); /*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___V1378*/ curfptr[1377])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1383*/ curfptr[1382])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1378*/ curfptr[1377]); /*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]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1387*/ curfptr[1386]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1386*/ curfptr[1385]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#0", NULL != (/*_.CLASS_SRC_PROGN__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_PROGN__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#4", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V557*/ curfptr[556]); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#7", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#8", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#9", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[9] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1390*/ curfptr[1389]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1389*/ curfptr[1388]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#10", NULL != (/*_.VALDATA___V1389*/ curfptr[1388])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1254__NORMEXP_PROGN#12", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V321*/ curfptr[320]); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1388*/ curfptr[1387])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1756: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1388*/ curfptr[1387]); /*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___V1388*/ curfptr[1387])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1391*/ curfptr[1390])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1388*/ curfptr[1387]); /*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-normal.bysl:1812: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1394*/ curfptr[1393])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1812: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1394*/ curfptr[1393]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#0", NULL != (/*_.CLASS_SRC_LET__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_LET__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#4", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[4] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#5", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#6", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[6] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#7", NULL != (/*_.CLASS_SRC_LETBINDING__V67*/ curfptr[66])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SRC_LETBINDING__V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#9", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#11", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[11] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#12", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[12] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#13", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[13] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#0", NULL != (/*_.CLASS_SRC_LETBINDING__V67*/ curfptr[66])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_LETBINDING__V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#2", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#4", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#5", NULL != (/*_.VALROUT___V1397*/ curfptr[1396])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V1397*/ curfptr[1396]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#6", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1265__LAMBDA_#7", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1396*/ curfptr[1395])->tabval[7] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1830: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1396*/ curfptr[1395]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#14", NULL != (/*_.VALROUT___V1396*/ curfptr[1395])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1396*/ curfptr[1395]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#16", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[16] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#17", NULL != (/*_.LIST_EVERY__V30*/ curfptr[29])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[17] = (basilys_ptr_t)(/*_.LIST_EVERY__V30*/ curfptr[29]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#18", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1888: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1269__LAMBDA_#0", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1398*/ curfptr[1397])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1888: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1398*/ curfptr[1397]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#19", NULL != (/*_.VALROUT___V1398*/ curfptr[1397])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1398*/ curfptr[1397]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#20", NULL != (/*_.VALROUT___V1399*/ curfptr[1398])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[20] = (basilys_ptr_t)(/*_.VALROUT___V1399*/ curfptr[1398]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#21", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[21] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#23", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[23] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1401*/ curfptr[1400]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1400*/ curfptr[1399]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#24", NULL != (/*_.VALDATA___V1400*/ curfptr[1399])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V249*/ curfptr[248]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#26", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[26] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#27", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[27] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1261__NORMEXP_LET#28", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[28] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1395*/ curfptr[1394])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1817: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1395*/ curfptr[1394]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1402*/ curfptr[1401])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1395*/ curfptr[1394])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1402*/ curfptr[1401])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1395*/ curfptr[1394]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1402*/ curfptr[1401]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1404*/ curfptr[1403]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1403*/ curfptr[1402]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1406*/ curfptr[1405]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1405*/ curfptr[1404]); BASILYS_LOCATION("warmelt-normal.bysl:1926: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1407*/ curfptr[1406])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1273__LAMBDA_#0", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1407*/ curfptr[1406])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1926: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1407*/ curfptr[1406])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1407*/ curfptr[1406])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:1926: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1407*/ curfptr[1406]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#0", NULL != (/*_.CLASS_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#4", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#6", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#7", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[7] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#8", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1274__NORMEXP_UNSAFE_GET_FIELD#9", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[9] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ curfptr[334]); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1408*/ curfptr[1407])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1935: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1408*/ curfptr[1407]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1409*/ curfptr[1408])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1408*/ curfptr[1407])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1409*/ curfptr[1408])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1408*/ curfptr[1407]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1409*/ curfptr[1408]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1410*/ curfptr[1409])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1410*/ curfptr[1409])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1410*/ curfptr[1409]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1411*/ curfptr[1410]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1410*/ curfptr[1409]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#0", NULL != (/*_.CLASS_SRC_UNSAFE_PUT_FIELDS__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_UNSAFE_PUT_FIELDS__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#4", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#5", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#6", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[6] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1413*/ curfptr[1412])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1413*/ curfptr[1412])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1413*/ curfptr[1412]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1414*/ curfptr[1413]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1413*/ curfptr[1412]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#7", NULL != (/*_.VALDATA___V1413*/ curfptr[1412])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1413*/ curfptr[1412]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#8", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#9", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[9] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#12", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[12] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#13", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[13] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#14", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#15", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[16] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#17", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[17] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V409*/ curfptr[408]); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1284__LAMBDA_#0", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1415*/ curfptr[1414])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1284__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1415*/ curfptr[1414])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1415*/ curfptr[1414])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1284__LAMBDA_#3", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1415*/ curfptr[1414])->tabval[3] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V409*/ curfptr[408]); ((basilysroutine_ptr_t)/*_.VALROUT___V1415*/ curfptr[1414])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:2004: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1415*/ curfptr[1414]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1278__NORMEXP_UNSAFE_PUT_FIELDS#19", NULL != (/*_.VALROUT___V1415*/ curfptr[1414])); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1415*/ curfptr[1414]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V349*/ curfptr[348]); ((basilysroutine_ptr_t)/*_.VALROUT___V1412*/ curfptr[1411])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-normal.bysl:1974: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1412*/ curfptr[1411]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1416*/ curfptr[1415])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1412*/ curfptr[1411])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1416*/ curfptr[1415])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1412*/ curfptr[1411]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1416*/ curfptr[1415]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1418*/ curfptr[1417]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1417*/ curfptr[1416]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1420*/ curfptr[1419]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1419*/ curfptr[1418]); BASILYS_LOCATION("warmelt-normal.bysl:2030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1421*/ curfptr[1420])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1287__LAMBDA_#0", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1421*/ curfptr[1420])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:2030: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1421*/ curfptr[1420]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#0", NULL != (/*_.CLASS_SRC_SETQ__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_SETQ__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1299*/ curfptr[1298]); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1299*/ curfptr[1298]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#7", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#9", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#10", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[10] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1423*/ curfptr[1422])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1423*/ curfptr[1422])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1423*/ curfptr[1422]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1424*/ curfptr[1423]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1423*/ curfptr[1422]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#11", NULL != (/*_.VALDATA___V1423*/ curfptr[1422])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1423*/ curfptr[1422]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1288__NORMEXP_SETQ#12", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V363*/ curfptr[362]); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1422*/ curfptr[1421])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2033: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1422*/ curfptr[1421]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1425*/ curfptr[1424])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1422*/ curfptr[1421])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1425*/ curfptr[1424])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1422*/ curfptr[1421]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1425*/ curfptr[1424]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1427*/ curfptr[1426]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1426*/ curfptr[1425]); BASILYS_LOCATION("warmelt-normal.bysl:2085: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1428*/ curfptr[1427])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1428*/ curfptr[1427])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:2085: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1428*/ curfptr[1427]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#0", NULL != (/*_.CLASS_SRC_MAKE_INSTANCE__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_MAKE_INSTANCE__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#4", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#5", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#7", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#9", NULL != (/*_.MULTIPLE_MAP__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#10", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#12", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[12] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V409*/ curfptr[408]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:2113: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1430*/ curfptr[1429])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1299__LAMBDA_#0", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1430*/ curfptr[1429])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:2113: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1430*/ curfptr[1429])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1430*/ curfptr[1429])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2113: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1430*/ curfptr[1429])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1299__LAMBDA_#2", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1430*/ curfptr[1429])->tabval[2] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:2113: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1430*/ curfptr[1429])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V409*/ curfptr[408]); ((basilysroutine_ptr_t)/*_.VALROUT___V1430*/ curfptr[1429])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V409*/ curfptr[408]); BASILYS_LOCATION("warmelt-normal.bysl:2113: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1430*/ curfptr[1429]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#14", NULL != (/*_.VALROUT___V1430*/ curfptr[1429])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1430*/ curfptr[1429]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V423*/ curfptr[422]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V423*/ curfptr[422]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#16", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[16] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1431*/ curfptr[1430])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1431*/ curfptr[1430])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1431*/ curfptr[1430]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1432*/ curfptr[1431]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1431*/ curfptr[1430]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#17", NULL != (/*_.VALDATA___V1431*/ curfptr[1430])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V1431*/ curfptr[1430]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#18", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1295__NORMEXP_MAKE_INSTANCE#19", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[19] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1429*/ curfptr[1428])->tabval[20] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2092: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1429*/ curfptr[1428]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1433*/ curfptr[1432])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1429*/ curfptr[1428])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1433*/ curfptr[1432])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1429*/ curfptr[1428]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1433*/ curfptr[1432]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1434*/ curfptr[1433])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1434*/ curfptr[1433])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1434*/ curfptr[1433]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1435*/ curfptr[1434]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1434*/ curfptr[1433]); BASILYS_LOCATION("warmelt-normal.bysl:2156: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1436*/ curfptr[1435])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1302__LAMBDA_#0", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1436*/ curfptr[1435])->tabval[0] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:2156: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1436*/ curfptr[1435]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#0", NULL != (/*_.CLASS_SRC_FOREVER__V74*/ curfptr[73])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_FOREVER__V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#4", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[4] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#5", NULL != (/*_.CLASS_LABEL_BINDING__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#6", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#7", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[7] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#8", NULL != (/*_.CLASS_CLONEDSYMBOL__V76*/ curfptr[75])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V76*/ curfptr[75]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#10", NULL != (/*_.LABIND_CLONSY__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[10] = (basilys_ptr_t)(/*_.LABIND_CLONSY__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#11", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1261*/ curfptr[1260]); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V1261*/ curfptr[1260]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1439*/ curfptr[1438]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1438*/ curfptr[1437]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#13", NULL != (/*_.VALDATA___V1438*/ curfptr[1437])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V377*/ curfptr[376]); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#15", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#16", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[16] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1303__NORMEXP_FOREVER#18", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1437*/ curfptr[1436])->tabval[18] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2161: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1437*/ curfptr[1436]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1440*/ curfptr[1439])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1437*/ curfptr[1436])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1440*/ curfptr[1439])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1437*/ curfptr[1436]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1440*/ curfptr[1439]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1442*/ curfptr[1441]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1441*/ curfptr[1440]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1443*/ curfptr[1442])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1443*/ curfptr[1442])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1443*/ curfptr[1442]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1444*/ curfptr[1443]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1443*/ curfptr[1442]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1445*/ curfptr[1444])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1445*/ curfptr[1444])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1445*/ curfptr[1444]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1446*/ curfptr[1445]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1445*/ curfptr[1444]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1447*/ curfptr[1446])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1447*/ curfptr[1446])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1447*/ curfptr[1446]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1448*/ curfptr[1447]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1447*/ curfptr[1446]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#0", NULL != (/*_.CLASS_SRC_EXIT__V78*/ curfptr[77])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_EXIT__V78*/ curfptr[77]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#4", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[4] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#5", NULL != (/*_.CLASS_LABEL_BINDING__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_LABEL_BINDING__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#6", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[6] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#8", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V395*/ curfptr[394]); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V395*/ curfptr[394]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#10", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[10] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1450*/ curfptr[1449])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1450*/ curfptr[1449])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1450*/ curfptr[1449]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1451*/ curfptr[1450]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1450*/ curfptr[1449]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#11", NULL != (/*_.VALDATA___V1450*/ curfptr[1449])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1450*/ curfptr[1449]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#12", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1315__NORMEXP_EXIT#13", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[13] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1449*/ curfptr[1448])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2225: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1449*/ curfptr[1448]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1452*/ curfptr[1451])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1449*/ curfptr[1448])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1452*/ curfptr[1451])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1449*/ curfptr[1448]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1452*/ curfptr[1451]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1453*/ curfptr[1452])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1453*/ curfptr[1452])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1453*/ curfptr[1452]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1454*/ curfptr[1453]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1453*/ curfptr[1452]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1321__NORMEXP_COMPILEWARNING#0", NULL != (/*_.CLASS_SRC_COMPILEWARNING__V79*/ curfptr[78])); ((basilysroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_COMPILEWARNING__V79*/ curfptr[78]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1321__NORMEXP_COMPILEWARNING#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1321__NORMEXP_COMPILEWARNING#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1321__NORMEXP_COMPILEWARNING#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1455*/ curfptr[1454])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2268: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1455*/ curfptr[1454]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1456*/ curfptr[1455])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1455*/ curfptr[1454])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1456*/ curfptr[1455])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1455*/ curfptr[1454]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1456*/ curfptr[1455]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1458*/ curfptr[1457]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1457*/ curfptr[1456]); BASILYS_LOCATION("warmelt-normal.bysl:2288: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1459*/ curfptr[1458])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1459*/ curfptr[1458])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:2288: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1459*/ curfptr[1458]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V263*/ curfptr[262]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V687*/ curfptr[686]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#3", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[3] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V569*/ curfptr[568]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V249*/ curfptr[248]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#6", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[6] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#7", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#8", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[8] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2334: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1461*/ curfptr[1460])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1328__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1461*/ curfptr[1460])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2334: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1461*/ curfptr[1460]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#9", NULL != (/*_.VALROUT___V1461*/ curfptr[1460])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V1461*/ curfptr[1460]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1462*/ curfptr[1461])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1462*/ curfptr[1461])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1460*/ curfptr[1459]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1462*/ curfptr[1461]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1462*/ curfptr[1461]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V1462*/ curfptr[1461]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#13", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[13] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1463*/ curfptr[1462])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1463*/ curfptr[1462])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1463*/ curfptr[1462]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1464*/ curfptr[1463]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1463*/ curfptr[1462]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#14", NULL != (/*_.VALDATA___V1463*/ curfptr[1462])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V1463*/ curfptr[1462]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#16", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1460*/ curfptr[1459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1326__REPLACE_LAST_BY_RETURN#17", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1460*/ curfptr[1459])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2292: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1460*/ curfptr[1459]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#0", NULL != (/*_.CLASS_SRC_DEFUN__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFUN__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#4", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[4] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#5", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[5] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#6", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ curfptr[648]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#10", NULL != (/*_.DISCR_ROUTINE__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_ROUTINE__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V659*/ curfptr[658]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V659*/ curfptr[658]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#12", NULL != (/*_.DISCR_CLOSURE__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_CLOSURE__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#13", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#15", NULL != (/*_.CLASS_FUNCTION_BINDING__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_FUNCTION_BINDING__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#16", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[16] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#17", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#18", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[18] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2430: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1466*/ curfptr[1465])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1337__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1466*/ curfptr[1465])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2430: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1466*/ curfptr[1465])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1337__LAMBDA_#1", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1466*/ curfptr[1465])->tabval[1] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2430: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1466*/ curfptr[1465]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#19", NULL != (/*_.VALROUT___V1466*/ curfptr[1465])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1466*/ curfptr[1465]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[20] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#21", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[21] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2442: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1467*/ curfptr[1466])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1338__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1467*/ curfptr[1466])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2442: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1467*/ curfptr[1466]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#22", NULL != (/*_.VALROUT___V1467*/ curfptr[1466])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[22] = (basilys_ptr_t)(/*_.VALROUT___V1467*/ curfptr[1466]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1462*/ curfptr[1461]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[23] = (basilys_ptr_t)(/*_.VALCLO___V1462*/ curfptr[1461]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1261*/ curfptr[1260]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[24] = (basilys_ptr_t)(/*_.VALCLO___V1261*/ curfptr[1260]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#25", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[25] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#26", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[26] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#27", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[27] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[28] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2455: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1468*/ curfptr[1467])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1339__LAMBDA_#0", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1468*/ curfptr[1467])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:2455: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1468*/ curfptr[1467])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1468*/ curfptr[1467])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2455: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1468*/ curfptr[1467]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1331__NORMEXP_DEFUN#29", NULL != (/*_.VALROUT___V1468*/ curfptr[1467])); ((basilysroutine_ptr_t)/*_.VALROUT___V1465*/ curfptr[1464])->tabval[29] = (basilys_ptr_t)(/*_.VALROUT___V1468*/ curfptr[1467]); BASILYS_LOCATION("warmelt-normal.bysl:2383: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1465*/ curfptr[1464]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1469*/ curfptr[1468])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1465*/ curfptr[1464])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1469*/ curfptr[1468])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1465*/ curfptr[1464]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1469*/ curfptr[1468]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1471*/ curfptr[1470]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1470*/ curfptr[1469]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1472*/ curfptr[1471])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1472*/ curfptr[1471])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1472*/ curfptr[1471]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1473*/ curfptr[1472]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1472*/ curfptr[1471]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#0", NULL != (/*_.CLASS_SRC_LAMBDA__V84*/ curfptr[83])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_LAMBDA__V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#4", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[4] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1476*/ curfptr[1475]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1475*/ curfptr[1474]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#5", NULL != (/*_.VALDATA___V1475*/ curfptr[1474])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#7", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#8", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[8] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#9", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V649*/ curfptr[648]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V649*/ curfptr[648]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#13", NULL != (/*_.DISCR_ROUTINE__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_ROUTINE__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#15", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#16", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[16] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#17", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#18", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[18] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2519: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1477*/ curfptr[1476])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1346__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1477*/ curfptr[1476])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2519: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1477*/ curfptr[1476])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1346__LAMBDA_#1", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1477*/ curfptr[1476])->tabval[1] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2519: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1477*/ curfptr[1476]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#19", NULL != (/*_.VALROUT___V1477*/ curfptr[1476])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V1477*/ curfptr[1476]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[20] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#21", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[21] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2530: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1478*/ curfptr[1477])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1347__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1478*/ curfptr[1477])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2530: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1478*/ curfptr[1477]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#22", NULL != (/*_.VALROUT___V1478*/ curfptr[1477])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[22] = (basilys_ptr_t)(/*_.VALROUT___V1478*/ curfptr[1477]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1261*/ curfptr[1260]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[23] = (basilys_ptr_t)(/*_.VALCLO___V1261*/ curfptr[1260]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1462*/ curfptr[1461]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[24] = (basilys_ptr_t)(/*_.VALCLO___V1462*/ curfptr[1461]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V745*/ curfptr[744]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#26", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[26] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#27", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[27] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#28", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[28] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[29] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2553: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1479*/ curfptr[1478])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1348__LAMBDA_#0", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1479*/ curfptr[1478])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:2553: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1479*/ curfptr[1478])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1479*/ curfptr[1478])->tabval[1] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2553: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1479*/ curfptr[1478]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#30", NULL != (/*_.VALROUT___V1479*/ curfptr[1478])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[30] = (basilys_ptr_t)(/*_.VALROUT___V1479*/ curfptr[1478]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V441*/ curfptr[440]); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[31] = (basilys_ptr_t)(/*_.VALDATA___V441*/ curfptr[440]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1340__NORMEXP_LAMBDA#32", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1474*/ curfptr[1473])->tabval[32] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2477: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1474*/ curfptr[1473]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1480*/ curfptr[1479])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1474*/ curfptr[1473])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1480*/ curfptr[1479])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1474*/ curfptr[1473]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1480*/ curfptr[1479]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1481*/ curfptr[1480])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1481*/ curfptr[1480])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1481*/ curfptr[1480]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1482*/ curfptr[1481]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1481*/ curfptr[1480]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#0", NULL != (/*_.CLASS_SRC_MULTICALL__V85*/ curfptr[84])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_MULTICALL__V85*/ curfptr[84]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#4", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[4] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#7", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#8", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#9", NULL != (/*_.LIST_ITERATE_TEST__V86*/ curfptr[85])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[9] = (basilys_ptr_t)(/*_.LIST_ITERATE_TEST__V86*/ curfptr[85]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#10", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2612: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1355__LAMBDA_#0", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1484*/ curfptr[1483])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2612: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1484*/ curfptr[1483]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#11", NULL != (/*_.VALROUT___V1484*/ curfptr[1483])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V1484*/ curfptr[1483]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#12", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[12] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#13", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[13] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2623: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1485*/ curfptr[1484])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1356__LAMBDA_#0", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1485*/ curfptr[1484])->tabval[0] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:2623: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1485*/ curfptr[1484]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#14", NULL != (/*_.VALROUT___V1485*/ curfptr[1484])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1485*/ curfptr[1484]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1261*/ curfptr[1260]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[16] = (basilys_ptr_t)(/*_.VALCLO___V1261*/ curfptr[1260]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#17", NULL != (/*_.VALROUT___V1486*/ curfptr[1485])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[17] = (basilys_ptr_t)(/*_.VALROUT___V1486*/ curfptr[1485]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#19", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[19] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#20", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[20] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1488*/ curfptr[1487]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1487*/ curfptr[1486]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#21", NULL != (/*_.VALDATA___V1487*/ curfptr[1486])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[21] = (basilys_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#22", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#23", NULL != (/*_.CLASS_SRC_APPLY__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[23] = (basilys_ptr_t)(/*_.CLASS_SRC_APPLY__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V165*/ curfptr[164]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V179*/ curfptr[178]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[25] = (basilys_ptr_t)(/*_.VALDATA___V179*/ curfptr[178]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1349__NORMEXP_MULTICALL#26", NULL != (/*_.CLASS_SRC_MSEND__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[26] = (basilys_ptr_t)(/*_.CLASS_SRC_MSEND__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V193*/ curfptr[192]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[27] = (basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V211*/ curfptr[210]); ((basilysroutine_ptr_t)/*_.VALROUT___V1483*/ curfptr[1482])->tabval[28] = (basilys_ptr_t)(/*_.VALDATA___V211*/ curfptr[210]); BASILYS_LOCATION("warmelt-normal.bysl:2585: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1483*/ curfptr[1482]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1489*/ curfptr[1488])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1483*/ curfptr[1482])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1489*/ curfptr[1488])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1483*/ curfptr[1482]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1489*/ curfptr[1488]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1490*/ curfptr[1489])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1490*/ curfptr[1489])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1490*/ curfptr[1489]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1491*/ curfptr[1490]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1490*/ curfptr[1489]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1493*/ curfptr[1492]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1492*/ curfptr[1491]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1495*/ curfptr[1494]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1494*/ curfptr[1493]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#0", NULL != (/*_.CLASS_KEYWORD__V88*/ curfptr[87])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V88*/ curfptr[87]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#4", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#5", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V643*/ curfptr[642]); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V643*/ curfptr[642]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#7", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1366__NORMAL_KEYWORD_DATA#8", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[8] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1496*/ curfptr[1495])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2758: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1496*/ curfptr[1495]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1497*/ curfptr[1496])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1496*/ curfptr[1495])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1497*/ curfptr[1496])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1496*/ curfptr[1495]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1497*/ curfptr[1496]); BASILYS_LOCATION("warmelt-normal.bysl:2792: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1498*/ curfptr[1497])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1368__CREATE_DATA_SLOTS#0", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1498*/ curfptr[1497])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:2792: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1498*/ curfptr[1497])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1368__CREATE_DATA_SLOTS#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1498*/ curfptr[1497])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2792: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1498*/ curfptr[1497])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1368__CREATE_DATA_SLOTS#2", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1498*/ curfptr[1497])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2792: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1498*/ curfptr[1497]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1499*/ curfptr[1498])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1498*/ curfptr[1497])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1499*/ curfptr[1498])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1498*/ curfptr[1497]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1499*/ curfptr[1498]); BASILYS_LOCATION("warmelt-normal.bysl:2803: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[0] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:2803: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1370__FILL_DATA_SLOT#1", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1500*/ curfptr[1499])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:2803: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1500*/ curfptr[1499]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1501*/ curfptr[1500])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1500*/ curfptr[1499])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1501*/ curfptr[1500])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1500*/ curfptr[1499]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1501*/ curfptr[1500]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1372__NORMEXP_QUOTE#0", NULL != (/*_.CLASS_SRC_QUOTE__V89*/ curfptr[88])); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_QUOTE__V89*/ curfptr[88]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1372__NORMEXP_QUOTE#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1372__NORMEXP_QUOTE#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1372__NORMEXP_QUOTE#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1372__NORMEXP_QUOTE#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V745*/ curfptr[744]); ((basilysroutine_ptr_t)/*_.VALROUT___V1502*/ curfptr[1501])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-normal.bysl:2813: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1502*/ curfptr[1501]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1503*/ curfptr[1502])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1502*/ curfptr[1501])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1503*/ curfptr[1502])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1502*/ curfptr[1501]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1503*/ curfptr[1502]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1505*/ curfptr[1504]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1504*/ curfptr[1503]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#0", NULL != (/*_.CLASS_SRC_COMMENT__V90*/ curfptr[89])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V239*/ curfptr[238]); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#5", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[5] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1507*/ curfptr[1506])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1507*/ curfptr[1506])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1507*/ curfptr[1506]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1508*/ curfptr[1507]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1507*/ curfptr[1506]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#6", NULL != (/*_.VALDATA___V1507*/ curfptr[1506])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1507*/ curfptr[1506]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#7", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#8", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[8] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1376__NORMEXP_COMMENT#10", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1506*/ curfptr[1505])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:2843: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1506*/ curfptr[1505]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1509*/ curfptr[1508])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1506*/ curfptr[1505])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1509*/ curfptr[1508])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1506*/ curfptr[1505]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1509*/ curfptr[1508]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1511*/ curfptr[1510]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1510*/ curfptr[1509]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1382__NORMEXP_KEYWORD#0", NULL != (/*_.CLASS_KEYWORD__V88*/ curfptr[87])); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_KEYWORD__V88*/ curfptr[87]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1382__NORMEXP_KEYWORD#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1382__NORMEXP_KEYWORD#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1382__NORMEXP_KEYWORD#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1497*/ curfptr[1496]); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1497*/ curfptr[1496]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V493*/ curfptr[492]); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V493*/ curfptr[492]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V745*/ curfptr[744]); ((basilysroutine_ptr_t)/*_.VALROUT___V1512*/ curfptr[1511])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V745*/ curfptr[744]); BASILYS_LOCATION("warmelt-normal.bysl:2877: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1512*/ curfptr[1511]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1513*/ curfptr[1512])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1512*/ curfptr[1511])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1513*/ curfptr[1512])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1512*/ curfptr[1511]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1513*/ curfptr[1512]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#0", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#1", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1499*/ curfptr[1498]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1499*/ curfptr[1498]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#5", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#7", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1501*/ curfptr[1500]); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V1501*/ curfptr[1500]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#10", NULL != (/*_.BINDER__V91*/ curfptr[90])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[10] = (basilys_ptr_t)(/*_.BINDER__V91*/ curfptr[90]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#11", NULL != (/*_.FBIND_TYPE__V92*/ curfptr[91])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[11] = (basilys_ptr_t)(/*_.FBIND_TYPE__V92*/ curfptr[91]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1386__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1499*/ curfptr[1498]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V1499*/ curfptr[1498]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1386__LAMBDA_#4", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1386__LAMBDA_#6", NULL != (/*_.CLASS_CTYPE__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1501*/ curfptr[1500]); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1501*/ curfptr[1500]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1386__LAMBDA_#9", NULL != (/*_.BINDER__V91*/ curfptr[90])); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[9] = (basilys_ptr_t)(/*_.BINDER__V91*/ curfptr[90]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1386__LAMBDA_#10", NULL != (/*_.FBIND_TYPE__V92*/ curfptr[91])); ((basilysroutine_ptr_t)/*_.VALROUT___V1515*/ curfptr[1514])->tabval[10] = (basilys_ptr_t)(/*_.FBIND_TYPE__V92*/ curfptr[91]); BASILYS_LOCATION("warmelt-normal.bysl:2913: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1515*/ curfptr[1514]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1384__FILL_NORMAL_FORMALS#12", NULL != (/*_.VALROUT___V1515*/ curfptr[1514])); ((basilysroutine_ptr_t)/*_.VALROUT___V1514*/ curfptr[1513])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V1515*/ curfptr[1514]); BASILYS_LOCATION("warmelt-normal.bysl:2910: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1514*/ curfptr[1513]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1516*/ curfptr[1515])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1514*/ curfptr[1513])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1516*/ curfptr[1515])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1514*/ curfptr[1513]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1516*/ curfptr[1515]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1517*/ curfptr[1516])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1517*/ curfptr[1516])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1517*/ curfptr[1516]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1518*/ curfptr[1517]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1517*/ curfptr[1516]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1519*/ curfptr[1518])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1519*/ curfptr[1518])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1519*/ curfptr[1518]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1520*/ curfptr[1519]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1519*/ curfptr[1518]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1391__FILL_NORMAL_EXPANSION#0", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1391__FILL_NORMAL_EXPANSION#1", NULL != (/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92])); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1391__FILL_NORMAL_EXPANSION#5", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1391__FILL_NORMAL_EXPANSION#7", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[7] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1393__LAMBDA_#0", NULL != (/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92])); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V93*/ curfptr[92]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1393__LAMBDA_#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1393__LAMBDA_#6", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1522*/ curfptr[1521])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:2942: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1522*/ curfptr[1521]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1391__FILL_NORMAL_EXPANSION#8", NULL != (/*_.VALROUT___V1522*/ curfptr[1521])); ((basilysroutine_ptr_t)/*_.VALROUT___V1521*/ curfptr[1520])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V1522*/ curfptr[1521]); BASILYS_LOCATION("warmelt-normal.bysl:2939: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1521*/ curfptr[1520]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1523*/ curfptr[1522])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1521*/ curfptr[1520])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1523*/ curfptr[1522])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1521*/ curfptr[1520]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1523*/ curfptr[1522]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#0", NULL != (/*_.CLASS_SRC_DEFPRIMITIVE__V94*/ curfptr[93])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFPRIMITIVE__V94*/ curfptr[93]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#3", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[3] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1499*/ curfptr[1498]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1499*/ curfptr[1498]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#5", NULL != (/*_.CLASS_PRIMITIVE__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#6", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V623*/ curfptr[622]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#10", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#12", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[12] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1516*/ curfptr[1515]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V1516*/ curfptr[1515]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1523*/ curfptr[1522]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1523*/ curfptr[1522]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1501*/ curfptr[1500]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[16] = (basilys_ptr_t)(/*_.VALCLO___V1501*/ curfptr[1500]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#17", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[17] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#19", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[19] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#20", NULL != (/*_.PRIM_FORMALS__V95*/ curfptr[94])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[20] = (basilys_ptr_t)(/*_.PRIM_FORMALS__V95*/ curfptr[94]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#21", NULL != (/*_.PRIM_EXPANSION__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[21] = (basilys_ptr_t)(/*_.PRIM_EXPANSION__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#22", NULL != (/*_.PRIM_TYPE__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[22] = (basilys_ptr_t)(/*_.PRIM_TYPE__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1394__NORMEXP_DEFPRIMITIVE#23", NULL != (/*_.CLASS_PRIMITIVE_BINDING__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V1524*/ curfptr[1523])->tabval[23] = (basilys_ptr_t)(/*_.CLASS_PRIMITIVE_BINDING__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-normal.bysl:2964: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1524*/ curfptr[1523]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1525*/ curfptr[1524])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1524*/ curfptr[1523])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1525*/ curfptr[1524])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1524*/ curfptr[1523]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1525*/ curfptr[1524]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1527*/ curfptr[1526]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1526*/ curfptr[1525]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1529*/ curfptr[1528]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1528*/ curfptr[1527]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1530*/ curfptr[1529])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1530*/ curfptr[1529])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1530*/ curfptr[1529]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1531*/ curfptr[1530]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1530*/ curfptr[1529]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1533*/ curfptr[1532]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1532*/ curfptr[1531]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#0", NULL != (/*_.CLASS_SRC_DEFCITERATOR__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFCITERATOR__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#3", NULL != (/*_.CLASS_CITERATOR__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#4", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#5", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#8", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#10", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#12", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[12] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1516*/ curfptr[1515]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[13] = (basilys_ptr_t)(/*_.VALCLO___V1516*/ curfptr[1515]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V623*/ curfptr[622]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[14] = (basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#15", NULL != (/*_.CITER_START_FORMALS__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[15] = (basilys_ptr_t)(/*_.CITER_START_FORMALS__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#16", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#18", NULL != (/*_.CITER_STATE__V101*/ curfptr[100])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[18] = (basilys_ptr_t)(/*_.CITER_STATE__V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#19", NULL != (/*_.CITER_BODY_FORMALS__V102*/ curfptr[101])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[19] = (basilys_ptr_t)(/*_.CITER_BODY_FORMALS__V102*/ curfptr[101]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1523*/ curfptr[1522]); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[20] = (basilys_ptr_t)(/*_.VALCLO___V1523*/ curfptr[1522]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#21", NULL != (/*_.CITER_EXPBEFORE__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[21] = (basilys_ptr_t)(/*_.CITER_EXPBEFORE__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#22", NULL != (/*_.CITER_EXPAFTER__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[22] = (basilys_ptr_t)(/*_.CITER_EXPAFTER__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1404__NORMEXP_DEFCITERATOR#23", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1534*/ curfptr[1533])->tabval[23] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3030: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1534*/ curfptr[1533]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1535*/ curfptr[1534])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1534*/ curfptr[1533])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1535*/ curfptr[1534])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1534*/ curfptr[1533]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1535*/ curfptr[1534]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1537*/ curfptr[1536]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1536*/ curfptr[1535]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1538*/ curfptr[1537])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1538*/ curfptr[1537])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1538*/ curfptr[1537]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1539*/ curfptr[1538]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1538*/ curfptr[1537]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1541*/ curfptr[1540]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1540*/ curfptr[1539]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1543*/ curfptr[1542]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1542*/ curfptr[1541]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1545*/ curfptr[1544]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1544*/ curfptr[1543]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1546*/ curfptr[1545])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1546*/ curfptr[1545])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1546*/ curfptr[1545]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1547*/ curfptr[1546]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1546*/ curfptr[1545]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#1", NULL != (/*_.CLASS_SRC_CITERATION__V105*/ curfptr[104])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC_CITERATION__V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#2", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#3", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#4", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#5", NULL != (/*_.FRESH_ENV__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[5] = (basilys_ptr_t)(/*_.FRESH_ENV__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#6", NULL != (/*_.CLASS_CITERATOR__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1252*/ curfptr[1251]); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1252*/ curfptr[1251]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#8", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#9", NULL != (/*_.MULTIPLE_EVERY_BOTH__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY_BOTH__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#10", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[10] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#11", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#13", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3162: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1549*/ curfptr[1548])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1424__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1549*/ curfptr[1548])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3162: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1549*/ curfptr[1548])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1424__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1549*/ curfptr[1548])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3162: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1549*/ curfptr[1548])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1235*/ curfptr[1234]); ((basilysroutine_ptr_t)/*_.VALROUT___V1549*/ curfptr[1548])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1235*/ curfptr[1234]); BASILYS_LOCATION("warmelt-normal.bysl:3162: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1549*/ curfptr[1548])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1424__LAMBDA_#3", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1549*/ curfptr[1548])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3162: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1549*/ curfptr[1548]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#14", NULL != (/*_.VALROUT___V1549*/ curfptr[1548])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V1549*/ curfptr[1548]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#15", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[15] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#16", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#17", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#19", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[19] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1425__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1550*/ curfptr[1549])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1425__LAMBDA_#1", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1550*/ curfptr[1549])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1425__LAMBDA_#2", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1550*/ curfptr[1549])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1550*/ curfptr[1549])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1425__LAMBDA_#4", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1550*/ curfptr[1549])->tabval[4] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:3199: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1550*/ curfptr[1549]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#20", NULL != (/*_.VALROUT___V1550*/ curfptr[1549])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[20] = (basilys_ptr_t)(/*_.VALROUT___V1550*/ curfptr[1549]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#21", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[21] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#22", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#23", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[23] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#25", NULL != (/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[25] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#26", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[26] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#27", NULL != (/*_.MULTIPLE_MAP__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[27] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#28", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[28] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#29", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[29] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1426__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1551*/ curfptr[1550])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1426__LAMBDA_#1", NULL != (/*_.MULTIPLE_MAP__V29*/ curfptr[28])); ((basilysroutine_ptr_t)/*_.VALROUT___V1551*/ curfptr[1550])->tabval[1] = (basilys_ptr_t)(/*_.MULTIPLE_MAP__V29*/ curfptr[28]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1426__LAMBDA_#2", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1551*/ curfptr[1550])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1426__LAMBDA_#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1551*/ curfptr[1550])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3261: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1552*/ curfptr[1551])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1427__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1552*/ curfptr[1551])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3261: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1552*/ curfptr[1551])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1427__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1552*/ curfptr[1551])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3261: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1552*/ curfptr[1551]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1426__LAMBDA_#4", NULL != (/*_.VALROUT___V1552*/ curfptr[1551])); ((basilysroutine_ptr_t)/*_.VALROUT___V1551*/ curfptr[1550])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V1552*/ curfptr[1551]); BASILYS_LOCATION("warmelt-normal.bysl:3257: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1551*/ curfptr[1550]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#30", NULL != (/*_.VALROUT___V1551*/ curfptr[1550])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[30] = (basilys_ptr_t)(/*_.VALROUT___V1551*/ curfptr[1550]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#31", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[31] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3277: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1553*/ curfptr[1552])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1428__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1553*/ curfptr[1552])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3277: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1553*/ curfptr[1552]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#32", NULL != (/*_.VALROUT___V1553*/ curfptr[1552])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[32] = (basilys_ptr_t)(/*_.VALROUT___V1553*/ curfptr[1552]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#33", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[33] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#34", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[34] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3286: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1554*/ curfptr[1553])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1429__LAMBDA_#0", NULL != (/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V1554*/ curfptr[1553])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-normal.bysl:3286: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1554*/ curfptr[1553]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1418__NORMEXP_CITERATION#35", NULL != (/*_.VALROUT___V1554*/ curfptr[1553])); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[35] = (basilys_ptr_t)(/*_.VALROUT___V1554*/ curfptr[1553]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V459*/ curfptr[458]); ((basilysroutine_ptr_t)/*_.VALROUT___V1548*/ curfptr[1547])->tabval[36] = (basilys_ptr_t)(/*_.VALDATA___V459*/ curfptr[458]); BASILYS_LOCATION("warmelt-normal.bysl:3134: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1548*/ curfptr[1547]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1555*/ curfptr[1554])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1548*/ curfptr[1547])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1555*/ curfptr[1554])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1548*/ curfptr[1547]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1555*/ curfptr[1554]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1557*/ curfptr[1556]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1556*/ curfptr[1555]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1558*/ curfptr[1557])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1558*/ curfptr[1557])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1558*/ curfptr[1557]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1559*/ curfptr[1558]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1558*/ curfptr[1557]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#0", NULL != (/*_.CLASS_SRC_DEFCLASS__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFCLASS__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#3", NULL != (/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#7", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#8", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#10", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#11", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1562*/ curfptr[1561]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1561*/ curfptr[1560]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#12", NULL != (/*_.VALDATA___V1561*/ curfptr[1560])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V623*/ curfptr[622]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V623*/ curfptr[622]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#14", NULL != (/*_.DISCR_SEQCLASS__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_SEQCLASS__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#15", NULL != (/*_.DISCR_SEQFIELD__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_SEQFIELD__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#16", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1501*/ curfptr[1500]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[19] = (basilys_ptr_t)(/*_.VALCLO___V1501*/ curfptr[1500]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#20", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[20] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#21", NULL != (/*_.CLASS_ANCESTORS__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_ANCESTORS__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#22", NULL != (/*_.CLASS_FIELDS__V111*/ curfptr[110])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_FIELDS__V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V793*/ curfptr[792]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V793*/ curfptr[792]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V779*/ curfptr[778]); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V779*/ curfptr[778]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#25", NULL != (/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[25] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#26", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[26] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#27", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[27] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#28", NULL != (/*_.FLD_OWNCLASS__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[28] = (basilys_ptr_t)(/*_.FLD_OWNCLASS__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1430__NORMEXP_DEFCLASS#29", NULL != (/*_.DISC_SUPER__V113*/ curfptr[112])); ((basilysroutine_ptr_t)/*_.VALROUT___V1560*/ curfptr[1559])->tabval[29] = (basilys_ptr_t)(/*_.DISC_SUPER__V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-normal.bysl:3339: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1560*/ curfptr[1559]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1563*/ curfptr[1562])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1560*/ curfptr[1559])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1563*/ curfptr[1562])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1560*/ curfptr[1559]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1563*/ curfptr[1562]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1565*/ curfptr[1564]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1564*/ curfptr[1563]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1566*/ curfptr[1565])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1566*/ curfptr[1565])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1566*/ curfptr[1565]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1567*/ curfptr[1566]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1566*/ curfptr[1565]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1568*/ curfptr[1567])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1568*/ curfptr[1567])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1568*/ curfptr[1567]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1569*/ curfptr[1568]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1568*/ curfptr[1567]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1571*/ curfptr[1570]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1570*/ curfptr[1569]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1573*/ curfptr[1572]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1572*/ curfptr[1571]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#0", NULL != (/*_.CLASS_SRC_DEFINSTANCE__V114*/ curfptr[113])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFINSTANCE__V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#4", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#5", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#6", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#7", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[7] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#9", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#11", NULL != (/*_.CLASS_INSTANCE_BINDING__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_INSTANCE_BINDING__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#13", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#14", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#16", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[17] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#18", NULL != (/*_.PUT_ENV__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[18] = (basilys_ptr_t)(/*_.PUT_ENV__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#19", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[19] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#20", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[20] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#21", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#22", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[23] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#24", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[24] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1448__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1575*/ curfptr[1574])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1448__LAMBDA_#1", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1575*/ curfptr[1574])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1448__LAMBDA_#2", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1575*/ curfptr[1574])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1575*/ curfptr[1574])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1448__LAMBDA_#4", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1575*/ curfptr[1574])->tabval[4] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3550: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1575*/ curfptr[1574]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#25", NULL != (/*_.VALROUT___V1575*/ curfptr[1574])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[25] = (basilys_ptr_t)(/*_.VALROUT___V1575*/ curfptr[1574]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1444__NORMEXP_DEFINSTANCE#26", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1574*/ curfptr[1573])->tabval[26] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:3494: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1574*/ curfptr[1573]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1576*/ curfptr[1575])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1574*/ curfptr[1573])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1576*/ curfptr[1575])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1574*/ curfptr[1573]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1576*/ curfptr[1575]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1578*/ curfptr[1577]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1577*/ curfptr[1576]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#0", NULL != (/*_.CLASS_SRC_DEFSELECTOR__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_DEFSELECTOR__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#4", NULL != (/*_.CLASS_ANY_BINDING__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_ANY_BINDING__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#5", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#6", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[6] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#7", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[7] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#9", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#11", NULL != (/*_.CLASS_SELECTOR_BINDING__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_SELECTOR_BINDING__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#13", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#14", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[14] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V613*/ curfptr[612]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V613*/ curfptr[612]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1289*/ curfptr[1288]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[16] = (basilys_ptr_t)(/*_.VALCLO___V1289*/ curfptr[1288]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#17", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[17] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V591*/ curfptr[590]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[18] = (basilys_ptr_t)(/*_.VALDATA___V591*/ curfptr[590]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#19", NULL != (/*_.DISCR_INTEGER__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[19] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V834*/ curfptr[833]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[20] = (basilys_ptr_t)(/*_.VALCLO___V834*/ curfptr[833]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#21", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[21] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#22", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[22] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#23", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[23] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[24] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#25", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[25] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3644: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1580*/ curfptr[1579])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1453__LAMBDA_#0", NULL != (/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V1580*/ curfptr[1579])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_FIELDASSIGN__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-normal.bysl:3644: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1580*/ curfptr[1579])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1453__LAMBDA_#1", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1580*/ curfptr[1579])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3644: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1580*/ curfptr[1579])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1580*/ curfptr[1579])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3644: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1580*/ curfptr[1579])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1453__LAMBDA_#3", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1580*/ curfptr[1579])->tabval[3] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3644: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1580*/ curfptr[1579]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#26", NULL != (/*_.VALROUT___V1580*/ curfptr[1579])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[26] = (basilys_ptr_t)(/*_.VALROUT___V1580*/ curfptr[1579]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#27", NULL != (/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[27] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1449__NORMEXP_DEFSELECTOR#28", NULL != (/*_.NAMED_NAME__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V1579*/ curfptr[1578])->tabval[28] = (basilys_ptr_t)(/*_.NAMED_NAME__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-normal.bysl:3586: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1579*/ curfptr[1578]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1581*/ curfptr[1580])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1579*/ curfptr[1578])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1581*/ curfptr[1580])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1579*/ curfptr[1578]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1581*/ curfptr[1580]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1583*/ curfptr[1582]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1582*/ curfptr[1581]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#2", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[2] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1585*/ curfptr[1584])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1585*/ curfptr[1584])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1585*/ curfptr[1584]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1586*/ curfptr[1585]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1585*/ curfptr[1584]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#3", NULL != (/*_.VALDATA___V1585*/ curfptr[1584])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[3] = (basilys_ptr_t)(/*_.VALDATA___V1585*/ curfptr[1584]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ curfptr[546]); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#5", NULL != (/*_.VALDATA___V1208*/ curfptr[1207])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#6", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#7", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[7] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ curfptr[334]); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1454__NORMAL_VALUE_EXPORTER#9", NULL != (/*_.SYSDATA_VALUE_EXPORTER__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[9] = (basilys_ptr_t)(/*_.SYSDATA_VALUE_EXPORTER__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1584*/ curfptr[1583])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3692: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1584*/ curfptr[1583]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1587*/ curfptr[1586])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1584*/ curfptr[1583])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1587*/ curfptr[1586])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1584*/ curfptr[1583]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1587*/ curfptr[1586]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1588*/ curfptr[1587])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1588*/ curfptr[1587])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1588*/ curfptr[1587]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1589*/ curfptr[1588]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1588*/ curfptr[1587]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#3", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#4", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#5", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[5] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1592*/ curfptr[1591]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1591*/ curfptr[1590]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#6", NULL != (/*_.VALDATA___V1591*/ curfptr[1590])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#8", NULL != (/*_.DISCR_STRBUF__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#9", NULL != (/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#10", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#12", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[12] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#13", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#14", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[14] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V165*/ curfptr[164]); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1460__NORMAL_EXPORTED_VALUE#16", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1590*/ curfptr[1589])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3727: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1590*/ curfptr[1589]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1590*/ curfptr[1589])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1593*/ curfptr[1592])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1590*/ curfptr[1589]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1593*/ curfptr[1592]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1595*/ curfptr[1594]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1594*/ curfptr[1593]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1596*/ curfptr[1595])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1596*/ curfptr[1595])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1596*/ curfptr[1595]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1597*/ curfptr[1596]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1596*/ curfptr[1595]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#0", NULL != (/*_.CLASS_SRC_EXPORT_VALUES__V119*/ curfptr[118])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_VALUES__V119*/ curfptr[118]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#4", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1587*/ curfptr[1586]); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1587*/ curfptr[1586]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V557*/ curfptr[556]); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#7", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[7] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#8", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#9", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[9] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#11", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[11] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[12] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1472__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1599*/ curfptr[1598])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1472__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1599*/ curfptr[1598])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1599*/ curfptr[1598])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1472__LAMBDA_#3", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1599*/ curfptr[1598])->tabval[3] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1599*/ curfptr[1598])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3803: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1599*/ curfptr[1598]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1468__NORMEXP_EXPORT_VALUES#13", NULL != (/*_.VALROUT___V1599*/ curfptr[1598])); ((basilysroutine_ptr_t)/*_.VALROUT___V1598*/ curfptr[1597])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V1599*/ curfptr[1598]); BASILYS_LOCATION("warmelt-normal.bysl:3781: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1598*/ curfptr[1597]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1600*/ curfptr[1599])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1598*/ curfptr[1597])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1600*/ curfptr[1599])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1598*/ curfptr[1597]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1600*/ curfptr[1599]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1602*/ curfptr[1601]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1601*/ curfptr[1600]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#0", NULL != (/*_.CLASS_SRC_EXPORT_CLASS__V120*/ curfptr[119])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_CLASS__V120*/ curfptr[119]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#4", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1587*/ curfptr[1586]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1587*/ curfptr[1586]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V557*/ curfptr[556]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#7", NULL != (/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#8", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[8] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#9", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#10", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[10] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#12", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[12] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V633*/ curfptr[632]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[13] = (basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#14", NULL != (/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V569*/ curfptr[568]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[16] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#17", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#18", NULL != (/*_.MOCX_EXPCLASSDICT__V121*/ curfptr[120])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[18] = (basilys_ptr_t)(/*_.MOCX_EXPCLASSDICT__V121*/ curfptr[120]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#19", NULL != (/*_.MOCX_EXPFIELDICT__V122*/ curfptr[121])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[19] = (basilys_ptr_t)(/*_.MOCX_EXPFIELDICT__V122*/ curfptr[121]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#20", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[20] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#21", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#22", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[22] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#23", NULL != (/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[23] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[24] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#25", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[25] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#1", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[1] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V633*/ curfptr[632]); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V633*/ curfptr[632]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#5", NULL != (/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_CLASS_BINDING__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V569*/ curfptr[568]); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V569*/ curfptr[568]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#8", NULL != (/*_.CLASS_CLASS__V9*/ curfptr[8])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#9", NULL != (/*_.MOCX_EXPCLASSDICT__V121*/ curfptr[120])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[9] = (basilys_ptr_t)(/*_.MOCX_EXPCLASSDICT__V121*/ curfptr[120]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#10", NULL != (/*_.MOCX_EXPFIELDICT__V122*/ curfptr[121])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[10] = (basilys_ptr_t)(/*_.MOCX_EXPFIELDICT__V122*/ curfptr[121]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#11", NULL != (/*_.MULTIPLE_EVERY__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[11] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#12", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#13", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[13] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#14", NULL != (/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[15] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#16", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[16] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1482__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V1605*/ curfptr[1604])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1482__LAMBDA_#1", NULL != (/*_.FIND_ENV__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V1605*/ curfptr[1604])->tabval[1] = (basilys_ptr_t)(/*_.FIND_ENV__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1482__LAMBDA_#2", NULL != (/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V1605*/ curfptr[1604])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD_BINDING__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1593*/ curfptr[1592]); ((basilysroutine_ptr_t)/*_.VALROUT___V1605*/ curfptr[1604])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V1593*/ curfptr[1592]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1482__LAMBDA_#4", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1605*/ curfptr[1604])->tabval[4] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3882: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1605*/ curfptr[1604]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1477__LAMBDA_#17", NULL != (/*_.VALROUT___V1605*/ curfptr[1604])); ((basilysroutine_ptr_t)/*_.VALROUT___V1604*/ curfptr[1603])->tabval[17] = (basilys_ptr_t)(/*_.VALROUT___V1605*/ curfptr[1604]); BASILYS_LOCATION("warmelt-normal.bysl:3845: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1604*/ curfptr[1603]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1473__NORMEXP_EXPORT_CLASS#26", NULL != (/*_.VALROUT___V1604*/ curfptr[1603])); ((basilysroutine_ptr_t)/*_.VALROUT___V1603*/ curfptr[1602])->tabval[26] = (basilys_ptr_t)(/*_.VALROUT___V1604*/ curfptr[1603]); BASILYS_LOCATION("warmelt-normal.bysl:3828: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1603*/ curfptr[1602]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1606*/ curfptr[1605])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1603*/ curfptr[1602])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1606*/ curfptr[1605])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1603*/ curfptr[1602]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1606*/ curfptr[1605]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1608*/ curfptr[1607]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1607*/ curfptr[1606]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1610*/ curfptr[1609]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1609*/ curfptr[1608]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1612*/ curfptr[1611]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1611*/ curfptr[1610]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#0", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#1", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#2", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#3", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[3] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1614*/ curfptr[1613])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1614*/ curfptr[1613])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1614*/ curfptr[1613]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1615*/ curfptr[1614]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1614*/ curfptr[1613]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#4", NULL != (/*_.VALDATA___V1614*/ curfptr[1613])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V1614*/ curfptr[1613]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ curfptr[546]); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#6", NULL != (/*_.VALDATA___V1208*/ curfptr[1207])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#7", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#8", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[8] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V335*/ curfptr[334]); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[9] = (basilys_ptr_t)(/*_.VALDATA___V335*/ curfptr[334]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1483__NORMAL_MACRO_EXPORTER#10", NULL != (/*_.SYSDATA_MACRO_EXPORTER__V123*/ curfptr[122])); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[10] = (basilys_ptr_t)(/*_.SYSDATA_MACRO_EXPORTER__V123*/ curfptr[122]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1613*/ curfptr[1612])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3910: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1613*/ curfptr[1612]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1616*/ curfptr[1615])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1613*/ curfptr[1612])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1616*/ curfptr[1615])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1613*/ curfptr[1612]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1616*/ curfptr[1615]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1618*/ curfptr[1617]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1617*/ curfptr[1616]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#0", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#1", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V143*/ curfptr[142]); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[2] = (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#3", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#4", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#5", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[5] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1621*/ curfptr[1620]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1620*/ curfptr[1619]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#6", NULL != (/*_.VALDATA___V1620*/ curfptr[1619])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1287*/ curfptr[1286]); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[7] = (basilys_ptr_t)(/*_.VALCLO___V1287*/ curfptr[1286]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#8", NULL != (/*_.DISCR_STRBUF__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#9", NULL != (/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#10", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#12", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[12] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#13", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#14", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[14] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V165*/ curfptr[164]); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V165*/ curfptr[164]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1489__NORMAL_EXPORTED_MACRO#16", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[16] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1619*/ curfptr[1618])->tabval[17] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:3940: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1619*/ curfptr[1618]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1622*/ curfptr[1621])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1619*/ curfptr[1618])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1622*/ curfptr[1621])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1619*/ curfptr[1618]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1622*/ curfptr[1621]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#0", NULL != (/*_.CLASS_SRC_EXPORT_MACRO__V124*/ curfptr[123])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_MACRO__V124*/ curfptr[123]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#4", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1616*/ curfptr[1615]); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V1616*/ curfptr[1615]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V557*/ curfptr[556]); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V557*/ curfptr[556]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#7", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1493__NORMEXP_EXPORT_MACRO#9", NULL != (/*_.LIST_APPEND2LIST__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[9] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V1622*/ curfptr[1621]); ((basilysroutine_ptr_t)/*_.VALROUT___V1623*/ curfptr[1622])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V1622*/ curfptr[1621]); BASILYS_LOCATION("warmelt-normal.bysl:3990: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1623*/ curfptr[1622]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1624*/ curfptr[1623])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1623*/ curfptr[1622])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1624*/ curfptr[1623])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1623*/ curfptr[1622]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1624*/ curfptr[1623]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1626*/ curfptr[1625]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1625*/ curfptr[1624]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1497__NORMEXP_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V751*/ curfptr[750]); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V751*/ curfptr[750]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V761*/ curfptr[760]); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V761*/ curfptr[760]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1627*/ curfptr[1626])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:4021: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1627*/ curfptr[1626]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1628*/ curfptr[1627])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1627*/ curfptr[1626])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1628*/ curfptr[1627])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1627*/ curfptr[1626]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1628*/ curfptr[1627]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT#0", NULL != (/*_.CLASS_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124])); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1499__NORMEXP_PARENT_MODULE_ENVIRONMENT#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V767*/ curfptr[766]); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[4] = (basilys_ptr_t)(/*_.VALDATA___V767*/ curfptr[766]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V773*/ curfptr[772]); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V773*/ curfptr[772]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V513*/ curfptr[512]); ((basilysroutine_ptr_t)/*_.VALROUT___V1629*/ curfptr[1628])->tabval[6] = (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]); BASILYS_LOCATION("warmelt-normal.bysl:4053: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1629*/ curfptr[1628]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1630*/ curfptr[1629])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1629*/ curfptr[1628])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1630*/ curfptr[1629])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1629*/ curfptr[1628]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1630*/ curfptr[1629]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1631*/ curfptr[1630])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1631*/ curfptr[1630])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1631*/ curfptr[1630]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1632*/ curfptr[1631]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1631*/ curfptr[1630]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#0", NULL != (/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V126*/ curfptr[125])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V126*/ curfptr[125]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#4", NULL != (/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V821*/ curfptr[820]); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[5] = (basilys_ptr_t)(/*_.VALDATA___V821*/ curfptr[820]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#6", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[6] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1634*/ curfptr[1633])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1634*/ curfptr[1633])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1634*/ curfptr[1633]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1635*/ curfptr[1634]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1634*/ curfptr[1633]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#7", NULL != (/*_.VALDATA___V1634*/ curfptr[1633])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[7] = (basilys_ptr_t)(/*_.VALDATA___V1634*/ curfptr[1633]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#8", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#9", NULL != (/*_.CTYPE_VOID__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[9] = (basilys_ptr_t)(/*_.CTYPE_VOID__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[10] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#11", NULL != (/*_.DISCR_STRBUF__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[11] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#12", NULL != (/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[12] = (basilys_ptr_t)(/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#13", NULL != (/*_.DISCR_STRING__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[13] = (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#14", NULL != (/*_.CLASS_SRC_OR__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_SRC_OR__V63*/ curfptr[62]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#15", NULL != (/*_.DISCR_MULTIPLE__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[15] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#16", NULL != (/*_.CLASS_SRC_APPLY__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[16] = (basilys_ptr_t)(/*_.CLASS_SRC_APPLY__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#17", NULL != (/*_.CLASS_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#18", NULL != (/*_.CLASS_SRC_FETCH_PREDEFINED__V127*/ curfptr[126])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_SRC_FETCH_PREDEFINED__V127*/ curfptr[126]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#19", NULL != (/*_.VALDATA___V1208*/ curfptr[1207])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[19] = (basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#20", NULL != (/*_.SYSDATA_CONT_FRESH_ENV__V128*/ curfptr[127])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[20] = (basilys_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V128*/ curfptr[127]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1503__NORMEXP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER#21", NULL != (/*_.CLASS_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124])); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[21] = (basilys_ptr_t)(/*_.CLASS_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1633*/ curfptr[1632])->tabval[22] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:4079: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1633*/ curfptr[1632]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1636*/ curfptr[1635])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1633*/ curfptr[1632])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1636*/ curfptr[1635])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1633*/ curfptr[1632]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1636*/ curfptr[1635]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1638*/ curfptr[1637]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1637*/ curfptr[1636]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1639*/ curfptr[1638])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1639*/ curfptr[1638])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1639*/ curfptr[1638]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1640*/ curfptr[1639]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1639*/ curfptr[1638]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1642*/ curfptr[1641]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1641*/ curfptr[1640]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#0", NULL != (/*_.CLASS_SRC_FETCH_PREDEFINED__V127*/ curfptr[126])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_FETCH_PREDEFINED__V127*/ curfptr[126]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#5", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#6", NULL != (/*_.MAPOBJECT_EVERY__V129*/ curfptr[128])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[6] = (basilys_ptr_t)(/*_.MAPOBJECT_EVERY__V129*/ curfptr[128]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1513__NORMEXP_FETCH_PREDEFINED#7", NULL != (/*_.VALROUT___V1644*/ curfptr[1643])); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1644*/ curfptr[1643]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V547*/ curfptr[546]); ((basilysroutine_ptr_t)/*_.VALROUT___V1643*/ curfptr[1642])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-normal.bysl:4164: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1643*/ curfptr[1642]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1645*/ curfptr[1644])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1643*/ curfptr[1642])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1645*/ curfptr[1644])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1643*/ curfptr[1642]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1645*/ curfptr[1644]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1647*/ curfptr[1646]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1646*/ curfptr[1645]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#0", NULL != (/*_.CLASS_SRC_STORE_PREDEFINED__V130*/ curfptr[129])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SRC_STORE_PREDEFINED__V130*/ curfptr[129]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#1", NULL != (/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#2", NULL != (/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#3", NULL != (/*_.DEBUG_MSG_FUN__V10*/ curfptr[9])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#4", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#5", NULL != (/*_.DISCR_BOX__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_BOX__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#6", NULL != (/*_.MAPOBJECT_EVERY__V129*/ curfptr[128])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[6] = (basilys_ptr_t)(/*_.MAPOBJECT_EVERY__V129*/ curfptr[128]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#7", NULL != (/*_.VALROUT___V1649*/ curfptr[1648])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V1649*/ curfptr[1648]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V1217*/ curfptr[1216]); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[8] = (basilys_ptr_t)(/*_.VALDATA___V1217*/ curfptr[1216]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#9", NULL != (/*_.DISCR_LIST__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[9] = (basilys_ptr_t)(/*_.DISCR_LIST__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#10", NULL != (/*_.CLONE_SYMBOL__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[10] = (basilys_ptr_t)(/*_.CLONE_SYMBOL__V52*/ curfptr[51]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1651*/ curfptr[1650]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1650*/ curfptr[1649]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#11", NULL != (/*_.VALDATA___V1650*/ curfptr[1649])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[11] = (basilys_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V807*/ curfptr[806]); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[12] = (basilys_ptr_t)(/*_.VALDATA___V807*/ curfptr[806]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#13", NULL != (/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[13] = (basilys_ptr_t)(/*_.CLASS_NORMLET_BINDING__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_1518__NORMEXP_STORE_PREDEFINED#14", NULL != (/*_.CTYPE_VALUE__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[14] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALDATA___V705*/ curfptr[704]); ((basilysroutine_ptr_t)/*_.VALROUT___V1648*/ curfptr[1647])->tabval[15] = (basilys_ptr_t)(/*_.VALDATA___V705*/ curfptr[704]); BASILYS_LOCATION("warmelt-normal.bysl:4210: @touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V1648*/ curfptr[1647]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V1652*/ curfptr[1651])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V1648*/ curfptr[1647])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V1652*/ curfptr[1651])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V1648*/ curfptr[1647]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V1652*/ curfptr[1651]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652])))); ((basilysobject_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V1654*/ curfptr[1653]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V1653*/ curfptr[1652]); /**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___V1655*/ curfptr[1654] = /*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__V1656*/ curfptr[1655] = slot; }; ; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_cstring = "warmelt-normal-3.c"; /*_.FUN___V1657*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V1656*/ curfptr[1655]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OR___V1655*/ curfptr[1654] = /*_.FUN___V1657*/ curfptr[1656];; /*epilog*/ /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V1656*/ curfptr[1655] = 0 ; /*clear*/ /*_.FUN___V1657*/ curfptr[1656] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-normal.bysl: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___V1655*/ curfptr[1654] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:32: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:32: @block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]));; BASILYS_LOCATION("warmelt-normal.bysl:32: @cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:32: @cond.then"); /*_.IFELSE___V1659*/ curfptr[1656] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:32: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:32: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check class_symbol"),( "warmelt-normal.bysl"),(32), __FUNCTION__); /*clear*/ /*_.IFELSE___V1659*/ curfptr[1656] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V1658*/ curfptr[1655] = /*_.IFELSE___V1659*/ curfptr[1656];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:32: @clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:32: @clear"); /*clear*/ /*_.IFELSE___V1659*/ curfptr[1656] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:32: @cppif.else"); /*_.IFCPP___V1658*/ curfptr[1655] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1658*/ curfptr[1655] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:33: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:33: @block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:33: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:33: @apply.arg"); argtab[0].bp_cstring = "start of warmelt-normal class_symbol"; BASILYS_LOCATION("warmelt-normal.bysl:33: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:33: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:33: @apply.arg"); argtab[3].bp_long = 33; /*_.DEBUG_MSG_FUN__V1661*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V1660*/ curfptr[1654] = /*_.DEBUG_MSG_FUN__V1661*/ curfptr[1656];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:33: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:33: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V1661*/ curfptr[1656] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:33: @cppif.else"); /*_.IFCPP___V1660*/ curfptr[1654] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1660*/ curfptr[1654] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:34: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:34: @block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:34: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:34: @apply.arg"); argtab[0].bp_cstring = "at start of warmelt-normal Install_Initial_Macro"; BASILYS_LOCATION("warmelt-normal.bysl:34: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:34: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:34: @apply.arg"); argtab[3].bp_long = 34; /*_.DEBUG_MSG_FUN__V1663*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.INSTALL_INITIAL_MACRO__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V1662*/ curfptr[1655] = /*_.DEBUG_MSG_FUN__V1663*/ curfptr[1656];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:34: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:34: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V1663*/ curfptr[1656] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:34: @cppif.else"); /*_.IFCPP___V1662*/ curfptr[1655] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1662*/ curfptr[1655] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:438: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1664*/ curfptr[1654] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V143*/ curfptr[142]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V146*/ curfptr[145]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NREP_LOC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V493*/ curfptr[492]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_ANYPROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V496*/ curfptr[495]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NPROC_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V165*/ curfptr[164]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_APPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V163*/ curfptr[162]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V168*/ curfptr[167]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NAPP_FUN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V170*/ curfptr[169]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NAPP_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V225*/ curfptr[224]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CHUNK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V228*/ curfptr[227]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCHUNK_EXPANSION*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V230*/ curfptr[229]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCHUNK_PRIMITIVE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V459*/ curfptr[458]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CITERATION*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V462*/ curfptr[461]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_CITERATOR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V477*/ curfptr[476]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V464*/ curfptr[463]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_LOCBINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V466*/ curfptr[465]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_CHUNKBEFORE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V468*/ curfptr[467]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V470*/ curfptr[469]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_STATOCC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V472*/ curfptr[471]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_BODBINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V474*/ curfptr[473]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCITER_CHUNKAFTER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V711*/ curfptr[710]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CLOSEDOCC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V714*/ curfptr[713]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCLOC_PROCS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V239*/ curfptr[238]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V242*/ curfptr[241]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCOMM_STRING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V745*/ curfptr[744]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CONSTANT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V721*/ curfptr[720]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CONSTOCC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V299*/ curfptr[298]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_CPPIF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V297*/ curfptr[296]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V302*/ curfptr[301]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIFP_COND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V304*/ curfptr[303]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIFP_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V306*/ curfptr[305]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIFP_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V308*/ curfptr[307]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIFP_CTYP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V569*/ curfptr[568]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V572*/ curfptr[571]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDATA_NAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V574*/ curfptr[573]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDATA_DISCRX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V576*/ curfptr[575]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDATA_RANK*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V585*/ curfptr[584]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V578*/ curfptr[577]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDATA_LOCBIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V659*/ curfptr[658]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATACLOSURE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V662*/ curfptr[661]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDCLO_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V664*/ curfptr[663]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDCLO_CLOSV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V591*/ curfptr[590]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATAINSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V594*/ curfptr[593]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NINST_OBJNUM*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V596*/ curfptr[595]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NINST_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V598*/ curfptr[597]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NINST_HASH*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V600*/ curfptr[599]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NINST_SLOTS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V643*/ curfptr[642]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATAKEYWORD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V649*/ curfptr[648]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATAROUTINE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V652*/ curfptr[651]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDROU_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V613*/ curfptr[612]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATASTRING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V616*/ curfptr[615]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSTR_STRING*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V633*/ curfptr[632]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATASYMBOL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V636*/ curfptr[635]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NDSY_NAMESTR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V623*/ curfptr[622]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_DATATUPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V626*/ curfptr[625]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NTUP_COMP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V629*/ curfptr[628]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V395*/ curfptr[394]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_EXIT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V398*/ curfptr[397]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NEXIT_BIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V400*/ curfptr[399]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NEXIT_VAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V405*/ curfptr[404]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V159*/ curfptr[158]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V779*/ curfptr[778]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_FIELDACC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V782*/ curfptr[781]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NACCF_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V784*/ curfptr[783]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NACCF_FLD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V409*/ curfptr[408]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_FIELDASSIGN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V412*/ curfptr[411]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NFLA_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V414*/ curfptr[413]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NFLA_VAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V377*/ curfptr[376]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_FOREVER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V380*/ curfptr[379]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NFOREVER_BIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V382*/ curfptr[381]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NFOREVER_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V384*/ curfptr[383]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NFOREVER_RESULT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V277*/ curfptr[276]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_IF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V280*/ curfptr[279]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIF_TEST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V282*/ curfptr[281]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIF_THEN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V284*/ curfptr[283]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIF_ELSE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V286*/ curfptr[285]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIF_CTYP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V503*/ curfptr[502]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_INITPROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V506*/ curfptr[505]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NINIT_TOPL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V441*/ curfptr[440]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_LAMBDA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V444*/ curfptr[443]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NLAMBDA_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V446*/ curfptr[445]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NLAMBDA_CONSTROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V448*/ curfptr[447]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NLAMBDA_CLOSEDV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V249*/ curfptr[248]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_LET*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V252*/ curfptr[251]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NLET_BINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V254*/ curfptr[253]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NLET_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V705*/ curfptr[704]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_LOCSYMOCC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V423*/ curfptr[422]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MAKE_INSTANCE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V426*/ curfptr[425]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMINS_CLASS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V428*/ curfptr[427]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMINS_CLADATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V430*/ curfptr[429]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMINS_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V437*/ curfptr[436]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V193*/ curfptr[192]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V196*/ curfptr[195]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSEND_SEL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V198*/ curfptr[197]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSEND_RECV*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V200*/ curfptr[199]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSEND_ARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V793*/ curfptr[792]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MULTACC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V796*/ curfptr[795]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NACCM_MUL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V801*/ curfptr[800]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V798*/ curfptr[797]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NACCM_IX*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V179*/ curfptr[178]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MULTIAPPLY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V182*/ curfptr[181]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMULAPP_BINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V184*/ curfptr[183]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMULAPP_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V211*/ curfptr[210]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_MULTIMSEND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V214*/ curfptr[213]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMULSEND_BINDINGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V216*/ curfptr[215]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NMULSEND_BODY*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V221*/ curfptr[220]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V557*/ curfptr[556]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_NIL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V547*/ curfptr[546]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V550*/ curfptr[549]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V321*/ curfptr[320]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_PROGN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V324*/ curfptr[323]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NPROGN_SEQ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V326*/ curfptr[325]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NPROGN_LAST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V751*/ curfptr[750]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V754*/ curfptr[753]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NQCMEC_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V767*/ curfptr[766]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V727*/ curfptr[726]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASICONSTANT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V730*/ curfptr[729]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCONST_SVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V732*/ curfptr[731]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCONST_PROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V739*/ curfptr[738]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V734*/ curfptr[733]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCONST_DATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V563*/ curfptr[562]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASIDATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V761*/ curfptr[760]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V773*/ curfptr[772]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V771*/ curfptr[770]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V263*/ curfptr[262]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_RETURN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V266*/ curfptr[265]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRET_MAIN*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V268*/ curfptr[267]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRET_REST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V513*/ curfptr[512]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_ROUTPROC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V516*/ curfptr[515]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_NAME*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V518*/ curfptr[517]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_ARGB*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V520*/ curfptr[519]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_CLOSEDB*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V522*/ curfptr[521]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_CONST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V524*/ curfptr[523]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_DATAROUT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V526*/ curfptr[525]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_DATACLOS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V528*/ curfptr[527]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NRPRO_THUNKLIST*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V543*/ curfptr[542]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V363*/ curfptr[362]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_SETQ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V361*/ curfptr[360]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V366*/ curfptr[365]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSTQ_VAR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V368*/ curfptr[367]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSTQ_EXP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V153*/ curfptr[152]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_SIMPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V673*/ curfptr[672]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_IMPORTEDVAL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V676*/ curfptr[675]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIMPORT_SYMB*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V681*/ curfptr[680]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V678*/ curfptr[677]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NIMPORT_SYDATA*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V807*/ curfptr[806]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_STORE_PREDEFINED*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V810*/ curfptr[809]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSTPD_PREDEF*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V812*/ curfptr[811]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NSTPD_VALUE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V687*/ curfptr[686]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_SYMOCC*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V690*/ curfptr[689]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NOCC_SYMB*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V692*/ curfptr[691]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NOCC_CTYP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V699*/ curfptr[698]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V694*/ curfptr[693]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NOCC_BIND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V335*/ curfptr[334]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_UNSAFE_GET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V338*/ curfptr[337]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NUGET_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V340*/ curfptr[339]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NUGET_FIELD*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V349*/ curfptr[348]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_UNSAFE_PUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V352*/ curfptr[351]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NUPUT_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V354*/ curfptr[353]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NUPUT_FIELDS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V821*/ curfptr[820]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V824*/ curfptr[823]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NUCMEB_EXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V826*/ curfptr[825]; BASILYS_LOCATION("warmelt-normal.bysl:438: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NCUMEB_COMMENT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1664*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1664*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:686: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:686: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:686: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1220*/ curfptr[1219]; /*_.INSTALL_METHOD__V1665*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_ANYRECV__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1665*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:689: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:689: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:689: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1220*/ curfptr[1219]; /*_.INSTALL_METHOD__V1666*/ curfptr[1655] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1666*/ curfptr[1655] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:698: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:698: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:698: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1228*/ curfptr[1227]; /*_.INSTALL_METHOD__V1667*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_NULLRECV__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1667*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:711: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:711: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:711: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1230*/ curfptr[1229]; /*_.INSTALL_METHOD__V1668*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC__V25*/ curfptr[24]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1668*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:732: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:732: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:732: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1242*/ curfptr[1241]; /*_.INSTALL_METHOD__V1669*/ curfptr[1655] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_ANYRECV__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1669*/ curfptr[1655] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:735: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:735: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:735: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1244*/ curfptr[1243]; /*_.INSTALL_METHOD__V1670*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_ROOT__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1670*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:741: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:741: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:741: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1246*/ curfptr[1245]; /*_.INSTALL_METHOD__V1671*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_INTEGER__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1671*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:746: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:746: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:746: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1248*/ curfptr[1247]; /*_.INSTALL_METHOD__V1672*/ curfptr[1655] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.DISCR_STRING__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1672*/ curfptr[1655] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:844: @getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V1673*/ curfptr[1654] = slot; }; ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1212*/ curfptr[1211]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CREATE_NORMCONTEXT*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NORMAL_EXP*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : GET_CTYPE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1252*/ curfptr[1251]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : NORMALIZE_TUPLE*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1261*/ curfptr[1260]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : WRAP_NORMAL_LETSEQ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1268*/ curfptr[1267]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : WRAP_NORMAL_LET1*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1271*/ curfptr[1270]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : CHECK_CTYPE_NARGS*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1239*/ curfptr[1238]; BASILYS_LOCATION("warmelt-normal.bysl:844: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_OBJ*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V1673*/ curfptr[1654]), (basilys_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V1673*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1132: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1132: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1132: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1299*/ curfptr[1298]; /*_.INSTALL_METHOD__V1674*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1674*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1138: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1138: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:1138: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1321*/ curfptr[1320]; /*_.INSTALL_METHOD__V1675*/ curfptr[1655] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V687*/ curfptr[686]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1675*/ curfptr[1655] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1240: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1240: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1240: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1325*/ curfptr[1324]; /*_.INSTALL_METHOD__V1676*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_PRIMITIVE__V49*/ curfptr[48]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1676*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1242: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1242: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1678*/ curfptr[1655] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1330*/ curfptr[1329]), (0)); ; /*_.LAMBDA___V1677*/ curfptr[1656] = /*_.LAMBDA___V1678*/ curfptr[1655];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1241: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1241: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:1241: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1677*/ curfptr[1656]; /*_.INSTALL_METHOD__V1679*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V225*/ curfptr[224]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1677*/ curfptr[1656] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1679*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1295: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1295: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1295: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1334*/ curfptr[1333]; /*_.INSTALL_METHOD__V1680*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_APPLY__V53*/ curfptr[52]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1680*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1357: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1357: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1357: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1340*/ curfptr[1339]; /*_.INSTALL_METHOD__V1681*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_MSEND__V55*/ curfptr[54]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1681*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1428: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1428: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1428: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1347*/ curfptr[1346]; /*_.INSTALL_METHOD__V1682*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_RETURN__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1682*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1491: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1491: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1491: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1354*/ curfptr[1353]; /*_.INSTALL_METHOD__V1683*/ curfptr[1654] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_IF__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1683*/ curfptr[1654] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1493: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1493: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1685*/ curfptr[1654] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1361*/ curfptr[1360]), (0)); ; /*_.LAMBDA___V1684*/ curfptr[1656] = /*_.LAMBDA___V1685*/ curfptr[1654];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1492: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1492: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:1492: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1684*/ curfptr[1656]; /*_.INSTALL_METHOD__V1686*/ curfptr[1685] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1684*/ curfptr[1656] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1686*/ curfptr[1685] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1594: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1594: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1594: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1367*/ curfptr[1366]; /*_.INSTALL_METHOD__V1687*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_IFELSE__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1687*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1668: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1668: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1668: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1375*/ curfptr[1374]; /*_.INSTALL_METHOD__V1688*/ curfptr[1685] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_CPPIF__V62*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1688*/ curfptr[1685] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1752: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1752: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1752: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1383*/ curfptr[1382]; /*_.INSTALL_METHOD__V1689*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_OR__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1689*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1810: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1810: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1810: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1391*/ curfptr[1390]; /*_.INSTALL_METHOD__V1690*/ curfptr[1685] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_PROGN__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1690*/ curfptr[1685] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1812: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1812: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1692*/ curfptr[1685] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1394*/ curfptr[1393]), (0)); ; /*_.LAMBDA___V1691*/ curfptr[1656] = /*_.LAMBDA___V1692*/ curfptr[1685];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1811: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1811: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:1811: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1691*/ curfptr[1656]; /*_.INSTALL_METHOD__V1693*/ curfptr[1692] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V321*/ curfptr[320]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1691*/ curfptr[1656] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1693*/ curfptr[1692] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1924: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1924: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1924: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1402*/ curfptr[1401]; /*_.INSTALL_METHOD__V1694*/ curfptr[1656] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_LET__V66*/ curfptr[65]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1694*/ curfptr[1656] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1926: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1926: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1696*/ curfptr[1656] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1407*/ curfptr[1406]), (0)); ; /*_.LAMBDA___V1695*/ curfptr[1692] = /*_.LAMBDA___V1696*/ curfptr[1656];;} ; BASILYS_LOCATION("warmelt-normal.bysl:1925: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1925: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:1925: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1695*/ curfptr[1692]; /*_.INSTALL_METHOD__V1697*/ curfptr[1696] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V249*/ curfptr[248]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1695*/ curfptr[1692] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1697*/ curfptr[1696] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:1970: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:1970: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:1970: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1409*/ curfptr[1408]; /*_.INSTALL_METHOD__V1698*/ curfptr[1692] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_UNSAFE_GET_FIELD__V68*/ curfptr[67]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1698*/ curfptr[1692] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2029: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2029: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2029: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1416*/ curfptr[1415]; /*_.INSTALL_METHOD__V1699*/ curfptr[1696] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_UNSAFE_PUT_FIELDS__V70*/ curfptr[69]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1699*/ curfptr[1696] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2030: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2030: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1701*/ curfptr[1696] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1421*/ curfptr[1420]), (0)); ; /*_.LAMBDA___V1700*/ curfptr[1692] = /*_.LAMBDA___V1701*/ curfptr[1696];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2030: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2030: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:2030: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1700*/ curfptr[1692]; /*_.INSTALL_METHOD__V1702*/ curfptr[1701] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1700*/ curfptr[1692] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1702*/ curfptr[1701] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2083: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2083: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2083: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1425*/ curfptr[1424]; /*_.INSTALL_METHOD__V1703*/ curfptr[1692] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_SETQ__V72*/ curfptr[71]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1703*/ curfptr[1692] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2085: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2085: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1705*/ curfptr[1692] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1428*/ curfptr[1427]), (0)); ; /*_.LAMBDA___V1704*/ curfptr[1701] = /*_.LAMBDA___V1705*/ curfptr[1692];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2084: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2084: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:2084: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1704*/ curfptr[1701]; /*_.INSTALL_METHOD__V1706*/ curfptr[1705] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.VALDATA___V363*/ curfptr[362]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1704*/ curfptr[1701] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1706*/ curfptr[1705] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2154: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2154: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2154: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1433*/ curfptr[1432]; /*_.INSTALL_METHOD__V1707*/ curfptr[1701] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_MAKE_INSTANCE__V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1707*/ curfptr[1701] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2156: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2156: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1709*/ curfptr[1701] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1436*/ curfptr[1435]), (0)); ; /*_.LAMBDA___V1708*/ curfptr[1705] = /*_.LAMBDA___V1709*/ curfptr[1701];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2155: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2155: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:2155: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1708*/ curfptr[1705]; /*_.INSTALL_METHOD__V1710*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_MAKE_INSTANCE__V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1708*/ curfptr[1705] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1710*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2218: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2218: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2218: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1440*/ curfptr[1439]; /*_.INSTALL_METHOD__V1711*/ curfptr[1705] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_FOREVER__V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1711*/ curfptr[1705] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2264: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2264: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2264: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1452*/ curfptr[1451]; /*_.INSTALL_METHOD__V1712*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_EXIT__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1712*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2286: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2286: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2286: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1456*/ curfptr[1455]; /*_.INSTALL_METHOD__V1713*/ curfptr[1705] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_COMPILEWARNING__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1713*/ curfptr[1705] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2288: @block"); /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2288: @newclosure"); /*newclosure*/ /*_.LAMBDA___V1715*/ curfptr[1705] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)(/*_.VALROUT___V1459*/ curfptr[1458]), (0)); ; /*_.LAMBDA___V1714*/ curfptr[1709] = /*_.LAMBDA___V1715*/ curfptr[1705];;} ; BASILYS_LOCATION("warmelt-normal.bysl:2287: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2287: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1235*/ curfptr[1234]; BASILYS_LOCATION("warmelt-normal.bysl:2287: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V1714*/ curfptr[1709]; /*_.INSTALL_METHOD__V1716*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_COMPILEWARNING__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.LAMBDA___V1714*/ curfptr[1709] = 0 ; /*clear*/ /*_.INSTALL_METHOD__V1716*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2471: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2471: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2471: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1469*/ curfptr[1468]; /*_.INSTALL_METHOD__V1717*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFUN__V80*/ curfptr[79]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1717*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2582: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2582: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2582: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1480*/ curfptr[1479]; /*_.INSTALL_METHOD__V1718*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_LAMBDA__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1718*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2693: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2693: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2693: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1489*/ curfptr[1488]; /*_.INSTALL_METHOD__V1719*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_MULTICALL__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1719*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2840: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2840: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2840: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1503*/ curfptr[1502]; /*_.INSTALL_METHOD__V1720*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_QUOTE__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1720*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2874: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2874: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2874: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1509*/ curfptr[1508]; /*_.INSTALL_METHOD__V1721*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1721*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:2905: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:2905: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:2905: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1513*/ curfptr[1512]; /*_.INSTALL_METHOD__V1722*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_KEYWORD__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1722*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3025: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3025: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3025: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1525*/ curfptr[1524]; /*_.INSTALL_METHOD__V1723*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFPRIMITIVE__V94*/ curfptr[93]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1723*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3128: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3128: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3128: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1535*/ curfptr[1534]; /*_.INSTALL_METHOD__V1724*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFCITERATOR__V98*/ curfptr[97]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1724*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3329: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3329: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3329: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1555*/ curfptr[1554]; /*_.INSTALL_METHOD__V1725*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_CITERATION__V105*/ curfptr[104]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1725*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3487: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3487: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3487: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1563*/ curfptr[1562]; /*_.INSTALL_METHOD__V1726*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFCLASS__V107*/ curfptr[106]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1726*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3581: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3581: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3581: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1576*/ curfptr[1575]; /*_.INSTALL_METHOD__V1727*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFINSTANCE__V114*/ curfptr[113]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1727*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3674: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3674: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3674: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1581*/ curfptr[1580]; /*_.INSTALL_METHOD__V1728*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_DEFSELECTOR__V115*/ curfptr[114]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1728*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3824: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3824: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3824: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1600*/ curfptr[1599]; /*_.INSTALL_METHOD__V1729*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_VALUES__V119*/ curfptr[118]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1729*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:3905: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:3905: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:3905: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1606*/ curfptr[1605]; /*_.INSTALL_METHOD__V1730*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_CLASS__V120*/ curfptr[119]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1730*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4017: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4017: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4017: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1624*/ curfptr[1623]; /*_.INSTALL_METHOD__V1731*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_EXPORT_MACRO__V124*/ curfptr[123]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1731*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4049: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4049: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4049: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1628*/ curfptr[1627]; /*_.INSTALL_METHOD__V1732*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V118*/ curfptr[117]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1732*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4075: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4075: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4075: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1630*/ curfptr[1629]; /*_.INSTALL_METHOD__V1733*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_PARENT_MODULE_ENVIRONMENT__V125*/ curfptr[124]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1733*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4159: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4159: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4159: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1636*/ curfptr[1635]; /*_.INSTALL_METHOD__V1734*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V126*/ curfptr[125]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1734*/ curfptr[1715] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4204: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4204: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4204: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1645*/ curfptr[1644]; /*_.INSTALL_METHOD__V1735*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_FETCH_PREDEFINED__V127*/ curfptr[126]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1735*/ curfptr[1709] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-normal.bysl:4268: @apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4268: @apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALDATA___V1217*/ curfptr[1216]; BASILYS_LOCATION("warmelt-normal.bysl:4268: @apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V1652*/ curfptr[1651]; /*_.INSTALL_METHOD__V1736*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V21*/ curfptr[20]), (basilys_ptr_t)(/*_.CLASS_SRC_STORE_PREDEFINED__V130*/ curfptr[129]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V1736*/ curfptr[1715] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4270: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4270: @block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (basilys_ptr_t)(/*_.CLASS_CLASS__V9*/ curfptr[8]));; BASILYS_LOCATION("warmelt-normal.bysl:4270: @cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-normal.bysl:4270: @cond.then"); /*_.IFELSE___V1738*/ curfptr[1715] = (/*nil*/NULL);; } else { BASILYS_LOCATION("warmelt-normal.bysl:4270: @cond.else"); BASILYS_LOCATION("warmelt-normal.bysl:4270: @block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check class_symbol"),( "warmelt-normal.bysl"),(4270), __FUNCTION__); /*clear*/ /*_.IFELSE___V1738*/ curfptr[1715] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V1737*/ curfptr[1709] = /*_.IFELSE___V1738*/ curfptr[1715];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4270: @clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4270: @clear"); /*clear*/ /*_.IFELSE___V1738*/ curfptr[1715] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4270: @cppif.else"); /*_.IFCPP___V1737*/ curfptr[1709] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1737*/ curfptr[1709] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4271: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4271: @block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4271: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4271: @apply.arg"); argtab[0].bp_cstring = "end of warmelt-normal our Class_Symbol"; BASILYS_LOCATION("warmelt-normal.bysl:4271: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4271: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4271: @apply.arg"); argtab[3].bp_long = 4271; /*_.DEBUG_MSG_FUN__V1740*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V1739*/ curfptr[1715] = /*_.DEBUG_MSG_FUN__V1740*/ curfptr[1709];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4271: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4271: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V1740*/ curfptr[1709] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4271: @cppif.else"); /*_.IFCPP___V1739*/ curfptr[1715] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1739*/ curfptr[1715] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4272: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4272: @block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4272: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4272: @apply.arg"); argtab[0].bp_cstring = "end of warmelt-normal predefined Class_Symbol"; BASILYS_LOCATION("warmelt-normal.bysl:4272: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4272: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4272: @apply.arg"); argtab[3].bp_long = 4272; /*_.DEBUG_MSG_FUN__V1742*/ curfptr[1715] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]), (basilys_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V1741*/ curfptr[1709] = /*_.DEBUG_MSG_FUN__V1742*/ curfptr[1715];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4272: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4272: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V1742*/ curfptr[1715] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4272: @cppif.else"); /*_.IFCPP___V1741*/ curfptr[1709] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1741*/ curfptr[1709] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-normal.bysl:4273: @cppif.then"); BASILYS_LOCATION("warmelt-normal.bysl:4273: @block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-normal.bysl:4273: @apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-normal.bysl:4273: @apply.arg"); argtab[0].bp_cstring = "at end of warmelt-normal Install_Initial_Macro"; BASILYS_LOCATION("warmelt-normal.bysl:4273: @apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-normal.bysl:4273: @apply.arg"); argtab[2].bp_cstring = "warmelt-normal.bysl"; BASILYS_LOCATION("warmelt-normal.bysl:4273: @apply.arg"); argtab[3].bp_long = 4273; /*_.DEBUG_MSG_FUN__V1744*/ curfptr[1709] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V10*/ curfptr[9]), (basilys_ptr_t)(/*_.INSTALL_INITIAL_MACRO__V11*/ curfptr[10]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V1743*/ curfptr[1715] = /*_.DEBUG_MSG_FUN__V1744*/ curfptr[1709];; /*epilog*/ BASILYS_LOCATION("warmelt-normal.bysl:4273: @clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-normal.bysl:4273: @clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V1744*/ curfptr[1709] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-normal.bysl:4273: @cppif.else"); /*_.IFCPP___V1743*/ curfptr[1715] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V1743*/ curfptr[1715] = 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_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V131*/ curfptr[130])); /*internsym:CLASS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])); /*internsym:DEBUG_MSG_FUN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])); /*internsym:INSTALL_INITIAL_MACRO*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V137*/ curfptr[136])); /*internsym:CLASS_NREP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])); /*internsym:CLASS_ROOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V141*/ curfptr[140])); /*internsym:NREP_LOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V149*/ curfptr[148])); /*internsym:CLASS_NREP_SIMPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])); /*internsym:CLASS_NREP_EXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V157*/ curfptr[156])); /*internsym:CLASS_NREP_APPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V163*/ curfptr[162])); /*internsym:NAPP_FUN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V173*/ curfptr[172])); /*internsym:NAPP_ARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174])); /*internsym:CLASS_NREP_MULTIAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V177*/ curfptr[176])); /*internsym:NMULAPP_BINDINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186])); /*internsym:NMULAPP_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V189*/ curfptr[188])); /*internsym:CLASS_NREP_MSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])); /*internsym:NSEND_SEL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V203*/ curfptr[202])); /*internsym:NSEND_RECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])); /*internsym:NSEND_ARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V207*/ curfptr[206])); /*internsym:CLASS_NREP_MULTIMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])); /*internsym:NMULSEND_BINDINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V219*/ curfptr[218])); /*internsym:NMULSEND_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V221*/ curfptr[220])); /*internsym:CLASS_NREP_CHUNK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V223*/ curfptr[222])); /*internsym:NCHUNK_EXPANSION*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])); /*internsym:NCHUNK_PRIMITIVE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V235*/ curfptr[234])); /*internsym:CLASS_NREP_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V237*/ curfptr[236])); /*internsym:NCOMM_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])); /*internsym:CLASS_NREP_LET*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])); /*internsym:NLET_BINDINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V257*/ curfptr[256])); /*internsym:NLET_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V259*/ curfptr[258])); /*internsym:CLASS_NREP_RETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V261*/ curfptr[260])); /*internsym:NRET_MAIN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V271*/ curfptr[270])); /*internsym:NRET_REST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272])); /*internsym:CLASS_NREP_IF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V275*/ curfptr[274])); /*internsym:NIF_TEST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V289*/ curfptr[288])); /*internsym:NIF_THEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V291*/ curfptr[290])); /*internsym:NIF_ELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V293*/ curfptr[292])); /*internsym:NIF_CTYP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V295*/ curfptr[294])); /*internsym:CLASS_NREP_CPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V297*/ curfptr[296])); /*internsym:NIFP_COND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V311*/ curfptr[310])); /*internsym:NIFP_THEN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V313*/ curfptr[312])); /*internsym:NIFP_ELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V315*/ curfptr[314])); /*internsym:NIFP_CTYP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V317*/ curfptr[316])); /*internsym:CLASS_NREP_PROGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V319*/ curfptr[318])); /*internsym:NPROGN_SEQ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])); /*internsym:NPROGN_LAST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V331*/ curfptr[330])); /*internsym:CLASS_NREP_UNSAFE_GET_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])); /*internsym:NUGET_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])); /*internsym:NUGET_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344])); /*internsym:CLASS_NREP_UNSAFE_PUT_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V347*/ curfptr[346])); /*internsym:NUPUT_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V357*/ curfptr[356])); /*internsym:NUPUT_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V359*/ curfptr[358])); /*internsym:CLASS_NREP_SETQ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V361*/ curfptr[360])); /*internsym:NSTQ_VAR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V371*/ curfptr[370])); /*internsym:NSTQ_EXP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])); /*internsym:CLASS_NREP_FOREVER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V375*/ curfptr[374])); /*internsym:NFOREVER_BIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V387*/ curfptr[386])); /*internsym:NFOREVER_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V389*/ curfptr[388])); /*internsym:NFOREVER_RESULT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V391*/ curfptr[390])); /*internsym:CLASS_NREP_EXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])); /*internsym:NEXIT_BIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V403*/ curfptr[402])); /*internsym:NEXIT_VAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V405*/ curfptr[404])); /*internsym:CLASS_NREP_FIELDASSIGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])); /*internsym:NFLA_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V417*/ curfptr[416])); /*internsym:NFLA_VAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V419*/ curfptr[418])); /*internsym:CLASS_NREP_MAKE_INSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V421*/ curfptr[420])); /*internsym:NMINS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V433*/ curfptr[432])); /*internsym:NMINS_CLADATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V435*/ curfptr[434])); /*internsym:NMINS_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V437*/ curfptr[436])); /*internsym:CLASS_NREP_LAMBDA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V439*/ curfptr[438])); /*internsym:NLAMBDA_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V451*/ curfptr[450])); /*internsym:NLAMBDA_CONSTROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V453*/ curfptr[452])); /*internsym:NLAMBDA_CLOSEDV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V455*/ curfptr[454])); /*internsym:CLASS_NREP_CITERATION*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456])); /*internsym:NCITER_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V477*/ curfptr[476])); /*internsym:NCITER_LOCBINDINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V479*/ curfptr[478])); /*internsym:NCITER_CHUNKBEFORE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V481*/ curfptr[480])); /*internsym:NCITER_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V483*/ curfptr[482])); /*internsym:NCITER_STATOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V485*/ curfptr[484])); /*internsym:NCITER_BODBINDINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V487*/ curfptr[486])); /*internsym:NCITER_CHUNKAFTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V489*/ curfptr[488])); /*internsym:CLASS_NREP_ANYPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V491*/ curfptr[490])); /*internsym:NPROC_BODY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498])); /*internsym:CLASS_NREP_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])); /*internsym:NINIT_TOPL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])); /*internsym:CLASS_NREP_ROUTPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])); /*internsym:NRPRO_NAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V531*/ curfptr[530])); /*internsym:NRPRO_ARGB*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])); /*internsym:NRPRO_CLOSEDB*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V535*/ curfptr[534])); /*internsym:NRPRO_CONST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V537*/ curfptr[536])); /*internsym:NRPRO_DATAROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V539*/ curfptr[538])); /*internsym:NRPRO_DATACLOS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V541*/ curfptr[540])); /*internsym:NRPRO_THUNKLIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V543*/ curfptr[542])); /*internsym:CLASS_NREP_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V545*/ curfptr[544])); /*internsym:NRPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])); /*internsym:CLASS_NREP_NIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554])); /*internsym:CLASS_NREP_QUASIDATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])); /*internsym:CLASS_NREP_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V567*/ curfptr[566])); /*internsym:NDATA_NAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V581*/ curfptr[580])); /*internsym:NDATA_DISCRX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V583*/ curfptr[582])); /*internsym:NDATA_RANK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V585*/ curfptr[584])); /*internsym:NDATA_LOCBIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V587*/ curfptr[586])); /*internsym:CLASS_NREP_DATAINSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V589*/ curfptr[588])); /*internsym:NINST_OBJNUM*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V603*/ curfptr[602])); /*internsym:NINST_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V605*/ curfptr[604])); /*internsym:NINST_HASH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V607*/ curfptr[606])); /*internsym:NINST_SLOTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V609*/ curfptr[608])); /*internsym:CLASS_NREP_DATASTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V611*/ curfptr[610])); /*internsym:NSTR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V619*/ curfptr[618])); /*internsym:CLASS_NREP_DATATUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V621*/ curfptr[620])); /*internsym:NTUP_COMP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V629*/ curfptr[628])); /*internsym:CLASS_NREP_DATASYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V631*/ curfptr[630])); /*internsym:NDSY_NAMESTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V639*/ curfptr[638])); /*internsym:CLASS_NREP_DATAKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V641*/ curfptr[640])); /*internsym:CLASS_NREP_DATAROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V647*/ curfptr[646])); /*internsym:NDROU_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V655*/ curfptr[654])); /*internsym:CLASS_NREP_DATACLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V657*/ curfptr[656])); /*internsym:NDCLO_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V667*/ curfptr[666])); /*internsym:NDCLO_CLOSV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V669*/ curfptr[668])); /*internsym:CLASS_NREP_IMPORTEDVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V671*/ curfptr[670])); /*internsym:NIMPORT_SYMB*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V681*/ curfptr[680])); /*internsym:NIMPORT_SYDATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V683*/ curfptr[682])); /*internsym:CLASS_NREP_SYMOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V685*/ curfptr[684])); /*internsym:NOCC_SYMB*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V697*/ curfptr[696])); /*internsym:NOCC_CTYP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V699*/ curfptr[698])); /*internsym:NOCC_BIND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V701*/ curfptr[700])); /*internsym:CLASS_NREP_LOCSYMOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V703*/ curfptr[702])); /*internsym:CLASS_NREP_CLOSEDOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V709*/ curfptr[708])); /*internsym:NCLOC_PROCS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V717*/ curfptr[716])); /*internsym:CLASS_NREP_CONSTOCC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V719*/ curfptr[718])); /*internsym:CLASS_NREP_QUASICONSTANT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V725*/ curfptr[724])); /*internsym:NCONST_SVAL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V737*/ curfptr[736])); /*internsym:NCONST_PROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V739*/ curfptr[738])); /*internsym:NCONST_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V741*/ curfptr[740])); /*internsym:CLASS_NREP_CONSTANT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V743*/ curfptr[742])); /*internsym:CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V749*/ curfptr[748])); /*internsym:NQCMEC_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V757*/ curfptr[756])); /*internsym:CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V759*/ curfptr[758])); /*internsym:CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V765*/ curfptr[764])); /*internsym:CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V771*/ curfptr[770])); /*internsym:CLASS_NREP_FIELDACC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V777*/ curfptr[776])); /*internsym:NACCF_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V787*/ curfptr[786])); /*internsym:NACCF_FLD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V789*/ curfptr[788])); /*internsym:CLASS_NREP_MULTACC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V791*/ curfptr[790])); /*internsym:NACCM_MUL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V801*/ curfptr[800])); /*internsym:NACCM_IX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V803*/ curfptr[802])); /*internsym:CLASS_NREP_STORE_PREDEFINED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V805*/ curfptr[804])); /*internsym:NSTPD_PREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V815*/ curfptr[814])); /*internsym:NSTPD_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V817*/ curfptr[816])); /*internsym:CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V819*/ curfptr[818])); /*internsym:NUCMEB_EXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V829*/ curfptr[828])); /*internsym:NCUMEB_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V831*/ curfptr[830])); /*internsym:CLASS_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V835*/ curfptr[834])); /*internsym:DISCR_INTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V837*/ curfptr[836])); /*internsym:GLOBAL_ATOM_TRUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V839*/ curfptr[838])); /*internsym:GLOBAL_CLASS_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V846*/ curfptr[845])); /*internsym:GLOBAL_CLASS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V853*/ curfptr[852])); /*internsym:GLOBAL_CLASS_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V860*/ curfptr[859])); /*internsym:GLOBAL_CLASS_DISCR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V867*/ curfptr[866])); /*internsym:GLOBAL_CLASS_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V874*/ curfptr[873])); /*internsym:GLOBAL_CLASS_FORMAL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V881*/ curfptr[880])); /*internsym:GLOBAL_CLASS_KEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V888*/ curfptr[887])); /*internsym:GLOBAL_CLASS_LOCATED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V895*/ curfptr[894])); /*internsym:GLOBAL_CLASS_NAMED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V902*/ curfptr[901])); /*internsym:GLOBAL_CLASS_PRIMITIVE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V909*/ curfptr[908])); /*internsym:GLOBAL_CLASS_PROPED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V916*/ curfptr[915])); /*internsym:GLOBAL_CLASS_ROOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V923*/ curfptr[922])); /*internsym:GLOBAL_CLASS_SELECTOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V930*/ curfptr[929])); /*internsym:GLOBAL_CLASS_SEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V937*/ curfptr[936])); /*internsym:GLOBAL_CLASS_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V944*/ curfptr[943])); /*internsym:GLOBAL_CLASS_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V951*/ curfptr[950])); /*internsym:GLOBAL_CTYPE_CSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V958*/ curfptr[957])); /*internsym:GLOBAL_CTYPE_LONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V965*/ curfptr[964])); /*internsym:GLOBAL_CTYPE_TREE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V972*/ curfptr[971])); /*internsym:GLOBAL_CTYPE_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V979*/ curfptr[978])); /*internsym:GLOBAL_CTYPE_VOID*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V986*/ curfptr[985])); /*internsym:GLOBAL_DISCR_BOX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V993*/ curfptr[992])); /*internsym:GLOBAL_DISCR_CHARINTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1000*/ curfptr[999])); /*internsym:GLOBAL_DISCR_CLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1007*/ curfptr[1006])); /*internsym:GLOBAL_DISCR_INTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1014*/ curfptr[1013])); /*internsym:GLOBAL_DISCR_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1021*/ curfptr[1020])); /*internsym:GLOBAL_DISCR_MAPOBJECTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1028*/ curfptr[1027])); /*internsym:GLOBAL_DISCR_MAPSTRINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1035*/ curfptr[1034])); /*internsym:GLOBAL_DISCR_METHODMAP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1042*/ curfptr[1041])); /*internsym:GLOBAL_DISCR_MIXEDINT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1049*/ curfptr[1048])); /*internsym:GLOBAL_DISCR_MIXEDLOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1056*/ curfptr[1055])); /*internsym:GLOBAL_DISCR_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1063*/ curfptr[1062])); /*internsym:GLOBAL_DISCR_NAMESTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1070*/ curfptr[1069])); /*internsym:GLOBAL_DISCR_NULLRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1077*/ curfptr[1076])); /*internsym:GLOBAL_DISCR_PAIR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1084*/ curfptr[1083])); /*internsym:GLOBAL_DISCR_ROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1091*/ curfptr[1090])); /*internsym:GLOBAL_DISCR_SEQCLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1098*/ curfptr[1097])); /*internsym:GLOBAL_DISCR_SEQFIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1105*/ curfptr[1104])); /*internsym:GLOBAL_DISCR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1112*/ curfptr[1111])); /*internsym:GLOBAL_DISCR_VERBATIMSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1119*/ curfptr[1118])); /*internsym:GLOBAL_INITIAL_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1126*/ curfptr[1125])); /*internsym:ATOM_TRUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1134*/ curfptr[1133])); /*internsym:CLASS_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1136*/ curfptr[1135])); /*internsym:CLASS_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1138*/ curfptr[1137])); /*internsym:CLASS_DISCR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1140*/ curfptr[1139])); /*internsym:CLASS_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1142*/ curfptr[1141])); /*internsym:CLASS_FORMAL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1144*/ curfptr[1143])); /*internsym:CLASS_KEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1146*/ curfptr[1145])); /*internsym:CLASS_LOCATED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1148*/ curfptr[1147])); /*internsym:CLASS_NAMED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1150*/ curfptr[1149])); /*internsym:CLASS_PRIMITIVE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1152*/ curfptr[1151])); /*internsym:CLASS_PROPED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1154*/ curfptr[1153])); /*internsym:CLASS_SELECTOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1156*/ curfptr[1155])); /*internsym:CLASS_SEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1158*/ curfptr[1157])); /*internsym:CLASS_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1160*/ curfptr[1159])); /*internsym:CTYPE_CSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1162*/ curfptr[1161])); /*internsym:CTYPE_LONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1164*/ curfptr[1163])); /*internsym:CTYPE_TREE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1166*/ curfptr[1165])); /*internsym:CTYPE_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1168*/ curfptr[1167])); /*internsym:CTYPE_VOID*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1170*/ curfptr[1169])); /*internsym:DISCR_BOX*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1172*/ curfptr[1171])); /*internsym:DISCR_CHARINTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1174*/ curfptr[1173])); /*internsym:DISCR_CLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1176*/ curfptr[1175])); /*internsym:DISCR_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1178*/ curfptr[1177])); /*internsym:DISCR_MAPOBJECTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1180*/ curfptr[1179])); /*internsym:DISCR_MAPSTRINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1182*/ curfptr[1181])); /*internsym:DISCR_METHODMAP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1184*/ curfptr[1183])); /*internsym:DISCR_MIXEDINT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1186*/ curfptr[1185])); /*internsym:DISCR_MIXEDLOC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1188*/ curfptr[1187])); /*internsym:DISCR_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1190*/ curfptr[1189])); /*internsym:DISCR_NAMESTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1192*/ curfptr[1191])); /*internsym:DISCR_NULLRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1194*/ curfptr[1193])); /*internsym:DISCR_PAIR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1196*/ curfptr[1195])); /*internsym:DISCR_ROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1198*/ curfptr[1197])); /*internsym:DISCR_SEQCLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1200*/ curfptr[1199])); /*internsym:DISCR_SEQFIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1202*/ curfptr[1201])); /*internsym:DISCR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1204*/ curfptr[1203])); /*internsym:DISCR_VERBATIMSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1206*/ curfptr[1205])); /*internsym:INITIAL_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1208*/ curfptr[1207])); /*internsym:CLASS_MODULCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1213*/ curfptr[1212])); /*internsym:NORMAL_EXP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1215*/ curfptr[1214])); /*internsym:CLASS_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1221*/ curfptr[1220])); /*internsym:INSTALL_METHOD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1223*/ curfptr[1222])); /*internsym:DISCR_ANYRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1225*/ curfptr[1224])); /*internsym:CLASS_SRC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1231*/ curfptr[1230])); /*internsym:GET_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1233*/ curfptr[1232])); /*internsym:COMPILE_OBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1237*/ curfptr[1236])); /*internsym:MULTIPLE_MAP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1253*/ curfptr[1252])); /*internsym:LIST_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1255*/ curfptr[1254])); /*internsym:CLASS_ANY_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1257*/ curfptr[1256])); /*internsym:CLASS_NORMLET_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1262*/ curfptr[1261])); /*internsym:LIST_TO_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1264*/ curfptr[1263])); /*internsym:MULTIPLE_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1272*/ curfptr[1271])); /*internsym:CLASS_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1274*/ curfptr[1273])); /*internsym:CREATE_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1276*/ curfptr[1275])); /*internsym:NORMALIZE_TUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1278*/ curfptr[1277])); /*internsym:WRAP_NORMAL_LETSEQ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1280*/ curfptr[1279])); /*internsym:WRAP_NORMAL_LET1*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1282*/ curfptr[1281])); /*internsym:CHECK_CTYPE_NARGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1284*/ curfptr[1283])); /*internsym:FIND_ENCLOSING_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1300*/ curfptr[1299])); /*internsym:CLASS_VALUE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1302*/ curfptr[1301])); /*internsym:CLASS_LET_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1304*/ curfptr[1303])); /*internsym:CLASS_FIXED_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1306*/ curfptr[1305])); /*internsym:CLASS_FUNCTION_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1308*/ curfptr[1307])); /*internsym:CLASS_PRIMITIVE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1310*/ curfptr[1309])); /*internsym:CLASS_CLASS_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1312*/ curfptr[1311])); /*internsym:CLASS_FIELD_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1314*/ curfptr[1313])); /*internsym:CLASS_SELECTOR_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1316*/ curfptr[1315])); /*internsym:CLASS_INSTANCE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1318*/ curfptr[1317])); /*internsym:CLASS_SRC_PRIMITIVE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1326*/ curfptr[1325])); /*internsym:CLONE_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1328*/ curfptr[1327])); /*internsym:CLASS_SRC_APPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1335*/ curfptr[1334])); /*internsym:_FUN_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1332*/ curfptr[1331])); /*internsym:LIST_APPEND2LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1337*/ curfptr[1336])); /*internsym:CLASS_SRC_MSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1341*/ curfptr[1340])); /*internsym:CLASS_SRC_RETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1348*/ curfptr[1347])); /*internsym:RETURN_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1344*/ curfptr[1343])); /*internsym:CLASS_SRC_IF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1355*/ curfptr[1354])); /*internsym:FRESH_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1357*/ curfptr[1356])); /*internsym:PUT_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1359*/ curfptr[1358])); /*internsym:_IF_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1352*/ curfptr[1351])); /*internsym:CLASS_SRC_IFELSE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1368*/ curfptr[1367])); /*internsym:_IFELSE_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1365*/ curfptr[1364])); /*internsym:CLASS_SRC_CPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1376*/ curfptr[1375])); /*internsym:IFCPP_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1373*/ curfptr[1372])); /*internsym:CLASS_SRC_OR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1384*/ curfptr[1383])); /*internsym:MULTIPLE_BACKWARD_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1386*/ curfptr[1385])); /*internsym:OR_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1381*/ curfptr[1380])); /*internsym:CLASS_SRC_PROGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1392*/ curfptr[1391])); /*internsym:PROGN_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1389*/ curfptr[1388])); /*internsym:CLASS_SRC_LET*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1403*/ curfptr[1402])); /*internsym:CLASS_SRC_LETBINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1405*/ curfptr[1404])); /*internsym:LET_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1400*/ curfptr[1399])); /*internsym:CLASS_SRC_UNSAFE_GET_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1410*/ curfptr[1409])); /*internsym:CLASS_SRC_UNSAFE_PUT_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1417*/ curfptr[1416])); /*internsym:UNSAFPUT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1413*/ curfptr[1412])); /*internsym:CLASS_SRC_FIELDASSIGN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1419*/ curfptr[1418])); /*internsym:CLASS_SRC_SETQ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1426*/ curfptr[1425])); /*internsym:SETQ_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1423*/ curfptr[1422])); /*internsym:CLASS_SRC_MAKE_INSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1434*/ curfptr[1433])); /*internsym:INST_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1431*/ curfptr[1430])); /*internsym:CLASS_SRC_FOREVER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1441*/ curfptr[1440])); /*internsym:CLASS_LABEL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1443*/ curfptr[1442])); /*internsym:CLASS_CLONEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1445*/ curfptr[1444])); /*internsym:LABIND_CLONSY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1447*/ curfptr[1446])); /*internsym:FOREVER_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1438*/ curfptr[1437])); /*internsym:CLASS_SRC_EXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1453*/ curfptr[1452])); /*internsym:EXIT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1450*/ curfptr[1449])); /*internsym:CLASS_SRC_COMPILEWARNING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1457*/ curfptr[1456])); /*internsym:_RETVAL_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1463*/ curfptr[1462])); /*internsym:CLASS_SRC_DEFUN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1470*/ curfptr[1469])); /*internsym:FIND_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1472*/ curfptr[1471])); /*internsym:CLASS_SRC_LAMBDA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1481*/ curfptr[1480])); /*internsym:LAMBDA_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1475*/ curfptr[1474])); /*internsym:CLASS_SRC_MULTICALL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1490*/ curfptr[1489])); /*internsym:LIST_ITERATE_TEST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1492*/ curfptr[1491])); /*internsym:MULTI_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1487*/ curfptr[1486])); /*internsym:NAMED_NAME*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1494*/ curfptr[1493])); /*internsym:CLASS_SRC_QUOTE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1504*/ curfptr[1503])); /*internsym:CLASS_SRC_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1510*/ curfptr[1509])); /*internsym:COMMENT_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1507*/ curfptr[1506])); /*internsym:BINDER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1517*/ curfptr[1516])); /*internsym:FBIND_TYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1519*/ curfptr[1518])); /*internsym:CLASS_SRC_DEFPRIMITIVE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1526*/ curfptr[1525])); /*internsym:PRIM_FORMALS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1528*/ curfptr[1527])); /*internsym:PRIM_EXPANSION*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1530*/ curfptr[1529])); /*internsym:PRIM_TYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1532*/ curfptr[1531])); /*internsym:CLASS_SRC_DEFCITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1536*/ curfptr[1535])); /*internsym:CITER_START_FORMALS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1538*/ curfptr[1537])); /*internsym:CITER_STATE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1540*/ curfptr[1539])); /*internsym:CITER_BODY_FORMALS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1542*/ curfptr[1541])); /*internsym:CITER_EXPBEFORE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1544*/ curfptr[1543])); /*internsym:CITER_EXPAFTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1546*/ curfptr[1545])); /*internsym:CLASS_SRC_CITERATION*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1556*/ curfptr[1555])); /*internsym:MULTIPLE_EVERY_BOTH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1558*/ curfptr[1557])); /*internsym:CLASS_SRC_DEFCLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1564*/ curfptr[1563])); /*internsym:OBMAG_OBJECT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1561*/ curfptr[1560])); /*internsym:CLASS_ANCESTORS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1566*/ curfptr[1565])); /*internsym:CLASS_FIELDS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1568*/ curfptr[1567])); /*internsym:FLD_OWNCLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1570*/ curfptr[1569])); /*internsym:DISC_SUPER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1572*/ curfptr[1571])); /*internsym:CLASS_SRC_DEFINSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1577*/ curfptr[1576])); /*internsym:CLASS_SRC_DEFSELECTOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1582*/ curfptr[1581])); /*internsym:_VALUEXPORTER_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1585*/ curfptr[1584])); /*internsym:SYSDATA_VALUE_EXPORTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1588*/ curfptr[1587])); /*internsym:_EXPORTED_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1591*/ curfptr[1590])); /*internsym:DISCR_STRBUF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1594*/ curfptr[1593])); /*internsym:CLASS_SRC_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1596*/ curfptr[1595])); /*internsym:CLASS_SRC_EXPORT_VALUES*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1601*/ curfptr[1600])); /*internsym:CLASS_SRC_EXPORT_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1607*/ curfptr[1606])); /*internsym:MOCX_EXPCLASSDICT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1609*/ curfptr[1608])); /*internsym:MOCX_EXPFIELDICT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1611*/ curfptr[1610])); /*internsym:_MACROXPORTER_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1614*/ curfptr[1613])); /*internsym:SYSDATA_MACRO_EXPORTER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1617*/ curfptr[1616])); /*internsym:_EXPORTEDM_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1620*/ curfptr[1619])); /*internsym:CLASS_SRC_EXPORT_MACRO*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1625*/ curfptr[1624])); /*internsym:CLASS_SRC_PARENT_MODULE_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1631*/ curfptr[1630])); /*internsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1637*/ curfptr[1636])); /*internsym:UPDATCURMODENVBOX_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1634*/ curfptr[1633])); /*internsym:CLASS_SRC_FETCH_PREDEFINED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1639*/ curfptr[1638])); /*internsym:SYSDATA_CONT_FRESH_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1641*/ curfptr[1640])); /*internsym:MAPOBJECT_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1646*/ curfptr[1645])); /*internsym:CLASS_SRC_STORE_PREDEFINED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1653*/ curfptr[1652])); /*internsym:_STOREPREDEF_*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V1650*/ curfptr[1649])); /**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; return /*_.RETINIT___V1*/ curfptr[0]; #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /* end start_module_basilys */ /* exported field offsets */ const int fieldoff__NACCF_FLD = 2; const int fieldoff__NACCF_OBJ = 1; const int fieldoff__NACCM_IX = 2; const int fieldoff__NACCM_MUL = 1; const int fieldoff__NAPP_ARGS = 2; const int fieldoff__NAPP_FUN = 1; const int fieldoff__NCHUNK_EXPANSION = 1; const int fieldoff__NCHUNK_PRIMITIVE = 2; const int fieldoff__NCITER_BODBINDINGS = 6; const int fieldoff__NCITER_BODY = 4; const int fieldoff__NCITER_CHUNKAFTER = 7; const int fieldoff__NCITER_CHUNKBEFORE = 3; const int fieldoff__NCITER_CITERATOR = 1; const int fieldoff__NCITER_LOCBINDINGS = 2; const int fieldoff__NCITER_STATOCC = 5; const int fieldoff__NCLOC_PROCS = 4; const int fieldoff__NCOMM_STRING = 1; const int fieldoff__NCONST_DATA = 3; const int fieldoff__NCONST_PROC = 2; const int fieldoff__NCONST_SVAL = 1; const int fieldoff__NCUMEB_COMMENT = 2; const int fieldoff__NDATA_DISCRX = 2; const int fieldoff__NDATA_LOCBIND = 4; const int fieldoff__NDATA_NAME = 1; const int fieldoff__NDATA_RANK = 3; const int fieldoff__NDCLO_CLOSV = 6; const int fieldoff__NDCLO_PROC = 5; const int fieldoff__NDROU_PROC = 5; const int fieldoff__NDSY_NAMESTR = 9; const int fieldoff__NEXIT_BIND = 1; const int fieldoff__NEXIT_VAL = 2; const int fieldoff__NFLA_FIELD = 1; const int fieldoff__NFLA_VAL = 2; const int fieldoff__NFOREVER_BIND = 1; const int fieldoff__NFOREVER_BODY = 2; const int fieldoff__NFOREVER_RESULT = 3; const int fieldoff__NIFP_COND = 1; const int fieldoff__NIFP_CTYP = 4; const int fieldoff__NIFP_ELSE = 3; const int fieldoff__NIFP_THEN = 2; const int fieldoff__NIF_CTYP = 4; const int fieldoff__NIF_ELSE = 3; const int fieldoff__NIF_TEST = 1; const int fieldoff__NIF_THEN = 2; const int fieldoff__NIMPORT_SYDATA = 2; const int fieldoff__NIMPORT_SYMB = 1; const int fieldoff__NINIT_TOPL = 2; const int fieldoff__NINST_HASH = 7; const int fieldoff__NINST_OBJNUM = 5; const int fieldoff__NINST_PREDEF = 6; const int fieldoff__NINST_SLOTS = 8; const int fieldoff__NLAMBDA_CLOSEDV = 3; const int fieldoff__NLAMBDA_CONSTROUT = 2; const int fieldoff__NLAMBDA_PROC = 1; const int fieldoff__NLET_BINDINGS = 1; const int fieldoff__NLET_BODY = 2; const int fieldoff__NMINS_CLADATA = 2; const int fieldoff__NMINS_CLASS = 1; const int fieldoff__NMINS_FIELDS = 3; const int fieldoff__NMULAPP_BINDINGS = 3; const int fieldoff__NMULAPP_BODY = 4; const int fieldoff__NMULSEND_BINDINGS = 4; const int fieldoff__NMULSEND_BODY = 5; const int fieldoff__NOCC_BIND = 3; const int fieldoff__NOCC_CTYP = 2; const int fieldoff__NOCC_SYMB = 1; const int fieldoff__NPROC_BODY = 1; const int fieldoff__NPROGN_LAST = 2; const int fieldoff__NPROGN_SEQ = 1; const int fieldoff__NQCMEC_COMMENT = 4; const int fieldoff__NREP_LOC = 0; const int fieldoff__NRET_MAIN = 1; const int fieldoff__NRET_REST = 2; const int fieldoff__NRPREDEF = 1; const int fieldoff__NRPRO_ARGB = 3; const int fieldoff__NRPRO_CLOSEDB = 4; const int fieldoff__NRPRO_CONST = 5; const int fieldoff__NRPRO_DATACLOS = 7; const int fieldoff__NRPRO_DATAROUT = 6; const int fieldoff__NRPRO_NAME = 2; const int fieldoff__NRPRO_THUNKLIST = 8; const int fieldoff__NSEND_ARGS = 3; const int fieldoff__NSEND_RECV = 2; const int fieldoff__NSEND_SEL = 1; const int fieldoff__NSTPD_PREDEF = 1; const int fieldoff__NSTPD_VALUE = 2; const int fieldoff__NSTQ_EXP = 2; const int fieldoff__NSTQ_VAR = 1; const int fieldoff__NSTR_STRING = 5; const int fieldoff__NTUP_COMP = 5; const int fieldoff__NUCMEB_EXPR = 1; const int fieldoff__NUGET_FIELD = 2; const int fieldoff__NUGET_OBJ = 1; const int fieldoff__NUPUT_FIELDS = 2; const int fieldoff__NUPUT_OBJ = 1; /* exported class lengths */ const int classlen__CLASS_NREP = 1; const int classlen__CLASS_NREP_ANYPROC = 2; const int classlen__CLASS_NREP_APPLY = 3; const int classlen__CLASS_NREP_CHUNK = 3; const int classlen__CLASS_NREP_CITERATION = 8; const int classlen__CLASS_NREP_CLOSEDOCC = 5; const int classlen__CLASS_NREP_COMMENT = 2; const int classlen__CLASS_NREP_CONSTANT = 4; const int classlen__CLASS_NREP_CONSTOCC = 5; const int classlen__CLASS_NREP_CPPIF = 5; const int classlen__CLASS_NREP_DATA = 5; const int classlen__CLASS_NREP_DATACLOSURE = 7; const int classlen__CLASS_NREP_DATAINSTANCE = 9; const int classlen__CLASS_NREP_DATAKEYWORD = 10; const int classlen__CLASS_NREP_DATAROUTINE = 6; const int classlen__CLASS_NREP_DATASTRING = 6; const int classlen__CLASS_NREP_DATASYMBOL = 10; const int classlen__CLASS_NREP_DATATUPLE = 6; const int classlen__CLASS_NREP_EXIT = 3; const int classlen__CLASS_NREP_EXPR = 1; const int classlen__CLASS_NREP_FIELDACC = 3; const int classlen__CLASS_NREP_FIELDASSIGN = 3; const int classlen__CLASS_NREP_FOREVER = 4; const int classlen__CLASS_NREP_IF = 5; const int classlen__CLASS_NREP_IMPORTEDVAL = 3; const int classlen__CLASS_NREP_INITPROC = 3; const int classlen__CLASS_NREP_LAMBDA = 4; const int classlen__CLASS_NREP_LET = 3; const int classlen__CLASS_NREP_LOCSYMOCC = 4; const int classlen__CLASS_NREP_MAKE_INSTANCE = 4; const int classlen__CLASS_NREP_MSEND = 4; const int classlen__CLASS_NREP_MULTACC = 3; const int classlen__CLASS_NREP_MULTIAPPLY = 5; const int classlen__CLASS_NREP_MULTIMSEND = 6; const int classlen__CLASS_NREP_NIL = 1; const int classlen__CLASS_NREP_PREDEF = 2; const int classlen__CLASS_NREP_PROGN = 3; const int classlen__CLASS_NREP_QUASICONSTANT = 4; const int classlen__CLASS_NREP_QUASICONST_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 5; const int classlen__CLASS_NREP_QUASICONST_PARENT_MODULE_ENVIRONMENT = 4; const int classlen__CLASS_NREP_QUASIDATA = 1; const int classlen__CLASS_NREP_QUASIDATA_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 1; const int classlen__CLASS_NREP_QUASIDATA_PARENT_MODULE_ENVIRONMENT = 1; const int classlen__CLASS_NREP_RETURN = 3; const int classlen__CLASS_NREP_ROUTPROC = 9; const int classlen__CLASS_NREP_SETQ = 3; const int classlen__CLASS_NREP_SIMPLE = 1; const int classlen__CLASS_NREP_STORE_PREDEFINED = 3; const int classlen__CLASS_NREP_SYMOCC = 4; const int classlen__CLASS_NREP_UNSAFE_GET_FIELD = 3; const int classlen__CLASS_NREP_UNSAFE_PUT_FIELDS = 3; const int classlen__CLASS_NREP_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER = 3; /**** end of warmelt-normal-3.c ****/