/* GCC BASILYS GENERATED FILE warmelt-outobj-3.c - DO NOT EDIT */ /* generated on Thu Nov 20 11:50:34 2008 */ #include "run-basilys.h" /**** warmelt-outobj-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_OUTDECLINIT_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_2_OUTPUCOD_OBJINIELEM(basilysclosure_ptr_t 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_OUTCINITFILL_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_4_OUTCINITPREDEF_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_5_OUTPUT_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_6_OUTPUCOD_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_7_OUTPUCOD_NIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_8_OUTDECLINIT_OBJINITOBJECT(basilysclosure_ptr_t 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_OUTCINITFILL_OBJINITOBJECT(basilysclosure_ptr_t 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_OUTCINITPREDEF_OBJINITOBJECT(basilysclosure_ptr_t 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_OUTDECLINIT_OBJINITMULTIPLE(basilysclosure_ptr_t 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_OUTCINITFILL_OBJINITMULTIPLE(basilysclosure_ptr_t 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_OUTDECLINIT_OBJINITCLOSURE(basilysclosure_ptr_t 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_OUTCINITFILL_OBJINITCLOSURE(basilysclosure_ptr_t 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_OUTDECLINIT_OBJINITROUTINE(basilysclosure_ptr_t 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_OUTCINITFILL_OBJINITROUTINE(basilysclosure_ptr_t 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_OUTDECLINIT_OBJINITSTRING(basilysclosure_ptr_t 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_OUTCINITFILL_OBJINITSTRING(basilysclosure_ptr_t 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_OUTPUCOD_ANYDISCR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_20_OUTPUCOD_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_21_OUTPUCOD_CATCHALL_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_22_OUTPUT_RAW_LOCATION(basilysclosure_ptr_t 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_OUTPUT_LOCATION(basilysclosure_ptr_t 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_OUTPUT_CURFRAME_DECLSTRUCT(basilysclosure_ptr_t 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_OUTPUCOD_MARKER(basilysclosure_ptr_t 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_OUTPUT_CURFRAME_DECLSTRUCT_INIT(basilysclosure_ptr_t 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_OUTPUCOD_PROCROUTINE(basilysclosure_ptr_t 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_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_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_OUTPUT_CURFRAME_CDAT_STRUCT(basilysclosure_ptr_t 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_OUTPUT_CURFRAME_CDAT_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_35_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_36_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_37_OUTPUCOD_INITIALROUTINE(basilysclosure_ptr_t 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_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_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_OUTPUCOD_GETARG(basilysclosure_ptr_t 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_OUTPUCOD_OBJLOCV(basilysclosure_ptr_t 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_OUTPUCOD_OBJCLOCCV(basilysclosure_ptr_t 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_OUTPUCOD_OBJCONSTV(basilysclosure_ptr_t 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_OUTPUT_CODE_INSTRUCTIONS_LIST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_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_OUTPUCOD_OBJBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_48_OUTPUCOD_OBJCITERBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_49_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_50_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_51_OUTPUCOD_OBJCOMMENTINSTR(basilysclosure_ptr_t 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_OUTPUCOD_OBJCOMMENTEDBLOCK(basilysclosure_ptr_t 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_ADD2SBUF_CLONSYM(basilysclosure_ptr_t 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_OUTPUCOD_OBJLOOP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_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_OUTPUCOD_OBJEXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_58_OUTPUCOD_OBJCOMPUTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_60_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_OUTPUCOD_OBJCOND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_63_OUTPUCOD_OBJCPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_64_OUTPUCOD_OBJINTERNSYMBOL(basilysclosure_ptr_t 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_OUTPUCOD_OBJINTERNKEYWORD(basilysclosure_ptr_t 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_OUTPUCOD_OBJGETNAMEDSYMBOL(basilysclosure_ptr_t 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_OUTPUCOD_OBJGETNAMEDKEYWORD(basilysclosure_ptr_t 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_OUTPUCOD_OBJAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_71_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_72_OUTPUCOD_OBJMSEND(basilysclosure_ptr_t 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_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_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_OUTPUCOD_OBJMULTIAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_79_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_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_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_OUTPUCOD_OBJMULTIMSEND(basilysclosure_ptr_t 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_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_86_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_87_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_88_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_89_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_90_OUTPUCOD_OBJCLEAR(basilysclosure_ptr_t 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_OUTPUCOD_OBJRAWALLOCOBJ(basilysclosure_ptr_t 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_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_93_OUTPUCOD_OBJNEWCLOSURE(basilysclosure_ptr_t 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_OUTPUCOD_OBJTOUCH(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTUPLE(basilysclosure_ptr_t 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_OUTPUCOD_OBJGETSLOT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_98_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_99_OUTPUCOD_OBJPUTSLOT(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTCLOSUROUT(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTCLOSEDV(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTROUTCONST(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(basilysclosure_ptr_t 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_OUTPUCOD_OBJPUTXTRARESULT(basilysclosure_ptr_t 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_OUTPUCOD_OBJEXPV(basilysclosure_ptr_t 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_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_108_OUTPUCOD_OBJLOCATEDEXPV(basilysclosure_ptr_t 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_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_110_OUTPUCOD_VERBATIMSTRING(basilysclosure_ptr_t 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_OUTPUCOD_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_112_OUTPUCOD_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_113_OUTPUCOD_FINALRETURN(basilysclosure_ptr_t 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_SORTED_NAMED_DICT_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_115_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_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_OUTPUT_EXPORTED_OFFSETS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_118_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_119_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_120_COMPILE_LIST_SEXPR(basilysclosure_ptr_t 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_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_122_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_123_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_124_INSTALL_INITIAL_COMMAND(basilysclosure_ptr_t 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_INITIAL_COMMAND_INSTALL(basilysclosure_ptr_t 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_READSEQ_COMMAND(basilysclosure_ptr_t 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_COMPILEFILE_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_128_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_129_COMPILEINIT_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_130_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_131_SHOWMDATA_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_132_SHOWVAR_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); static basilys_ptr_t rout_133_HELP_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_); void* start_module_basilys(void*); void mark_module_basilys(void*); void* initial_frame_basilys; /**** warmelt-outobj-3.c implementations ****/ static basilys_ptr_t rout_1_OUTDECLINIT_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_1_OUTDECLINIT_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 7 void* varptr[7]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_ROOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:36:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:36:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:36:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:37:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:37:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:37:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:37:/ apply.arg"); argtab[0].bp_cstring = "outdeclinit_root recv"; BASILYS_LOCATION("warmelt-outobj.bysl:37:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:37:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:37:/ apply.arg"); argtab[3].bp_long = 37; /*_.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-outobj.bysl:37:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:37:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:37:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:38:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:38:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:38:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:38:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:38:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:38:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outdeclinit_root unimplemented catchall"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(38)?(38):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:38:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:38:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:36:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.bysl:36:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:36:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:36:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_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_1_OUTDECLINIT_ROOT*/ static basilys_ptr_t rout_2_OUTPUCOD_OBJINIELEM(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJINIELEM_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJINIELEM", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ getarg"); /*_.OBIELEM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:44:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:44:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBIELEM__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITELEM*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:44:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:44:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:44:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:44:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obelem"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(44)?(44):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:44:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:44:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:44:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:45:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:45:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBIELEM__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:46:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBIELEM__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V9*/ curfptr[8] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:47:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:47:/ block"); /*block*/{ /*_#IS_STRING__L3*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.CNAM__V9*/ curfptr[8])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:47:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:47:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:47:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:47:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cnam"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(47)?(47):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:47:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:47:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:47:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:48:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:48:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:48:/ cond"); /*cond*/ if (/*_.OLOCVAR__V8*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:48:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:48:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:48:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olocvar"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(48)?(48):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:48:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:48:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:49:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:49:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:49:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:49:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V7*/ curfptr[5] = /*_.OUTPUT_C_CODE__V14*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:45:/ clear"); /*clear*/ /*_.OLOCVAR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:45:/ clear"); /*clear*/ /*_.CNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:45:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:45:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:45:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:43:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:43:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:43:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:43:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJINIELEM", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_2_OUTPUCOD_OBJINIELEM*/ static basilys_ptr_t rout_3_OUTCINITFILL_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_3_OUTCINITFILL_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 8 void* varptr[8]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_ROOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:55:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:55:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:55:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:55:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_root recv"; BASILYS_LOCATION("warmelt-outobj.bysl:55:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:55:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:55:/ apply.arg"); argtab[3].bp_long = 55; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 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___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:55:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:55:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:55:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:56:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:56:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:56:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:56:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:56:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:56:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_root unimplemented catchall"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(56)?(56):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:56:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:56:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:54:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:54:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:54:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:54:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_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_3_OUTCINITFILL_ROOT*/ static basilys_ptr_t rout_4_OUTCINITPREDEF_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_4_OUTCINITPREDEF_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 7 void* varptr[7]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITPREDEF_ROOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:63:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:63:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:63:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:63:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_root recv"; BASILYS_LOCATION("warmelt-outobj.bysl:63:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:63:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:63:/ apply.arg"); argtab[3].bp_long = 63; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 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___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:63:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:63:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:63:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:64:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:64:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:62:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:62:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:62:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:62:/ clear"); /*clear*/ /*_.RETURN___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITPREDEF_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_4_OUTCINITPREDEF_ROOT*/ static basilys_ptr_t rout_5_OUTPUT_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_5_OUTPUT_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 11 void* varptr[11]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_PREDEF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:69:/ getarg"); /*_.OBPR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:69:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:69:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:69:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBPR__V2*/ curfptr[1])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:71:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:71:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:71:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "basilys_globpredef(")); /*_#GET_INT__L3*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.OBPR__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ")")); BASILYS_LOCATION("warmelt-outobj.bysl:71:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:71:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:71:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:71:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBPR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:76:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:76:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:76:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "((void*)(BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.bysl:78:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBPR__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ")))")); BASILYS_LOCATION("warmelt-outobj.bysl:76:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:76:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:76:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:76:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:82:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:82:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:82:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:82:/ apply.arg"); argtab[0].bp_cstring = "bad obpredef"; BASILYS_LOCATION("warmelt-outobj.bysl:82:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.bysl:82:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:82:/ apply.arg"); argtab[3].bp_long = 82; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)((/*!OBPREDEF*/ curfrout->tabval[2])), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:82:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:82:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:82:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:83:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:83:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:83:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:83:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:83:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:83:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "invalid obpredef"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(83)?(83):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:83:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:83:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:81:/ block"); /*block*/{ /*_.PROGN___V11*/ curfptr[9] = /*_.IFCPP___V9*/ curfptr[7];;} ; /*_.IFELSE___V5*/ curfptr[4] = /*_.PROGN___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:76:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:76:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:76:/ clear"); /*clear*/ /*_.PROGN___V11*/ curfptr[9] = 0 ;} ; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:71:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:71:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:69:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFELSE___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.bysl:69:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:69:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:69:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_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_5_OUTPUT_PREDEF*/ static basilys_ptr_t rout_6_OUTPUCOD_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_6_OUTPUCOD_PREDEF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 9 void* varptr[9]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_PREDEF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ getarg"); /*_.OBPRED__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:89:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:89:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBPRED__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPREDEF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:89:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:89:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:89:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:89:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obpredef"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(89)?(89):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:89:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:89:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:89:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:90:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:90:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBPRED__V2*/ curfptr[1]), 1, "OBPREDEF");/*_.OBPR__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:91:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:91:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:91:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_PREDEF__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_PREDEF*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBPR__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V7*/ curfptr[5] = /*_.OUTPUT_PREDEF__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:90:/ clear"); /*clear*/ /*_.OBPR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:90:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V9*/ curfptr[8] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:88:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:88:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:88:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:88:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_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_6_OUTPUCOD_PREDEF*/ static basilys_ptr_t rout_7_OUTPUCOD_NIL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_7_OUTPUCOD_NIL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_NIL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ getarg"); /*_.OBNIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:96:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:96:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBNIL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:96:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:96:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:96:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:96:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obnil"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(96)?(96):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:96:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:96:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:96:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*nil*/NULL)")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:95:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_NIL", 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_7_OUTPUCOD_NIL*/ static basilys_ptr_t rout_8_OUTDECLINIT_OBJINITOBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTDECLINIT_OBJINITOBJECT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_OBJINITOBJECT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:101:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:101:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:101:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " struct BASILYS_OBJECT_STRUCT(")); /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:105:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:101:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:101:/ clear"); /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_OBJINITOBJECT", 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_8_OUTDECLINIT_OBJINITOBJECT*/ static basilys_ptr_t rout_9_OUTCINITFILL_OBJINITOBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITFILL_OBJINITOBJECT_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<41; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 41; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_OBJINITOBJECT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:111:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:111:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:111:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:112:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:112:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:112:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:112:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:112:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:112:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitobject check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(112)?(112):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:112:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:112:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:112:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:113:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:113:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:113:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:113:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitobject recv"; BASILYS_LOCATION("warmelt-outobj.bysl:113:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:113:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:113:/ apply.arg"); argtab[3].bp_long = 113; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:113:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:113:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:113:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:114:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODATA__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:115:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.ODISCR__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:116:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.ONAME__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:117:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:118:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "OIO_PREDEF");/*_.OIOPREDEF__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:120:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:120:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODATA__V8*/ curfptr[6]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:120:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:120:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:120:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:120:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check odata"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(120)?(120):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:120:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:120:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:120:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:121:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V8*/ curfptr[6]), 0, "NREP_LOC");/*_.ODLOC__V15*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:122:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V8*/ curfptr[6]), 7, "NINST_HASH");/*_.ODHASH__V16*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:123:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V8*/ curfptr[6]), 8, "NINST_SLOTS");/*_.ODSLOTS__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:124:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V8*/ curfptr[6]), 5, "NINST_OBJNUM");/*_.ODOBNUM__V18*/ curfptr[17] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:126:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:126:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:126:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.bysl:126:/ apply.arg"); argtab[2].bp_cstring = "iniobj"; /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ODLOC__V15*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniobj ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:131:/ cond"); /*cond*/ if (/*_.OIOPREDEF__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:131:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:131:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "if (")); BASILYS_LOCATION("warmelt-outobj.bysl:134:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:134:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:134:/ apply.arg"); argtab[1].bp_long = 1; /*_.OUTPUT_PREDEF__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OIOPREDEF__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " != (basilys_ptr_t)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "basilys_assertmsg(\"check.predef length ")); BASILYS_LOCATION("warmelt-outobj.bysl:140:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:140:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:140:/ apply.arg"); argtab[1].bp_long = 2; /*_.OUTPUT_PREDEF__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OIOPREDEF__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "\", basilys_object_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:142:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:142:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:142:/ apply.arg"); argtab[1].bp_long = 2; /*_.OUTPUT_PREDEF__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OIOPREDEF__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ")) >= ")); /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = (basilys_multiple_length((basilys_ptr_t)(/*_.ODSLOTS__V17*/ curfptr[16])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L4*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*_.THE_NULL__V23*/ curfptr[22] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:149:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:149:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V23*/ curfptr[22]; BASILYS_LOCATION("warmelt-outobj.bysl:149:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:149:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = ")); BASILYS_LOCATION("warmelt-outobj.bysl:151:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:151:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:151:/ apply.arg"); argtab[1].bp_long = 1; /*_.OUTPUT_PREDEF__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_PREDEF*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OIOPREDEF__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:132:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.THE_NULL__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_PREDEF__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:131:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:131:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!")); /*_.THE_NULL__V26*/ curfptr[19] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:158:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:158:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V26*/ curfptr[19]; BASILYS_LOCATION("warmelt-outobj.bysl:158:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:158:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V27*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); /*_.THE_NULL__V28*/ curfptr[21] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:160:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:160:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V28*/ curfptr[21]; BASILYS_LOCATION("warmelt-outobj.bysl:160:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:160:/ ojbmsend.arg"); argtab[2].bp_long = 2; /*_.OUTPUT_C_CODE__V29*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:155:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.THE_NULL__V26*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.THE_NULL__V28*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:131:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V29*/ curfptr[22] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " basilys_assertmsg(\"iniobj checkdiscr ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "\", NULL != (void*)")); /*_.THE_NULL__V30*/ curfptr[23] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:170:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:170:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V30*/ curfptr[23]; BASILYS_LOCATION("warmelt-outobj.bysl:170:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:170:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V31*/ curfptr[24] = basilysgc_send((basilys_ptr_t)(/*_.ODISCR__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".obj_class = (basilysobject_ptr_t)(")); /*_.THE_NULL__V32*/ curfptr[19] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:176:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:176:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V32*/ curfptr[19]; BASILYS_LOCATION("warmelt-outobj.bysl:176:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:176:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V33*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.ODISCR__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:179:/ cond"); /*cond*/ if (/*_.ODOBNUM__V18*/ curfptr[17]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:179:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:179:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".obj_num = ")); /*_#IS_INTEGERBOX__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:184:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:184:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:184:/ block"); /*block*/{ /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17])));; /*block*/{ basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L6*/ curfnum[5])); /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:184:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:184:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:184:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[5] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-outobj.bysl:186:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:186:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:186:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:187:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17]), 1, "NAMED_NAME");/*_.NAMED_NAME__V36*/ curfptr[35] = slot; }; ; /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V36*/ curfptr[35]))); /*clear*/ /*_.IFELSE___V35*/ curfptr[22] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:186:/ clear"); /*clear*/ /*_.NAMED_NAME__V36*/ curfptr[35] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:186:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:186:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:189:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:189:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:189:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:189:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitobject unexpected odobnum"; BASILYS_LOCATION("warmelt-outobj.bysl:189:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.bysl:189:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:189:/ apply.arg"); argtab[3].bp_long = 189; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ODOBNUM__V18*/ curfptr[17]), (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-outobj.bysl:189:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:189:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:189:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[35] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:190:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:190:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:190:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:190:/ cond.then"); /*_.IFELSE___V40*/ curfptr[39] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:190:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:190:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitobject unexpected odobnum"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(190)?(190):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V39*/ curfptr[37] = /*_.IFELSE___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:190:/ clear"); /*clear*/ /*_.IFELSE___V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:190:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:188:/ block"); /*block*/{ /*_.PROGN___V41*/ curfptr[39] = /*_.IFCPP___V39*/ curfptr[37];;} ; /*_.IFELSE___V35*/ curfptr[22] = /*_.PROGN___V41*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:186:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:186:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:186:/ clear"); /*clear*/ /*_.PROGN___V41*/ curfptr[39] = 0 ;} ; } ; /*_.IFELSE___V34*/ curfptr[21] = /*_.IFELSE___V35*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:184:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:184:/ clear"); /*clear*/ /*_.IFELSE___V35*/ curfptr[22] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:180:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:179:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:179:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[21] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".obj_hash = ")); /*_#GET_INT__L9*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.ODHASH__V16*/ curfptr[15])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L9*/ curfnum[7])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".obj_len = ")); /*_#MULTIPLE_LENGTH__L10*/ curfnum[5] = (basilys_multiple_length((basilys_ptr_t)(/*_.ODSLOTS__V17*/ curfptr[16])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#MULTIPLE_LENGTH__L10*/ curfnum[5])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "basilys_object_set_serial((basilysobject_ptr_t) (&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.ODLOC__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.ODHASH__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.ODSLOTS__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.ODOBNUM__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.THE_NULL__V30*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V31*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.THE_NULL__V32*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V33*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:121:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L10*/ curfnum[5] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.ODATA__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.ODISCR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.ONAME__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.OLOCVAR__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.OIOPREDEF__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:114:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:111:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:111:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_OBJINITOBJECT", 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_9_OUTCINITFILL_OBJINITOBJECT*/ static basilys_ptr_t rout_10_OUTCINITPREDEF_OBJINITOBJECT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITPREDEF_OBJINITOBJECT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 42 void* varptr[42]; #define CURFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<42; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 42; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITPREDEF_OBJINITOBJECT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:231:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:231:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:231:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:232:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:232:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:232:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:232:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:232:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:232:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(232)?(232):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:232:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:232:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:232:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:233:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:233:/ block"); /*block*/{ /*_#IS_STRBUF__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) == OBMAG_STRBUF);; BASILYS_LOCATION("warmelt-outobj.bysl:233:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:233:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:233:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:233:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject check sbuf"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(233)?(233):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:233:/ clear"); /*clear*/ /*_#IS_STRBUF__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:233:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:233:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:234:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:234:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:234:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:234:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject recv"; BASILYS_LOCATION("warmelt-outobj.bysl:234:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:234:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:234:/ apply.arg"); argtab[3].bp_long = 234; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:234:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:234:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:234:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:235:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.ODATA__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:236:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.ODISCR__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:237:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.ONAME__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:238:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:239:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "OIO_PREDEF");/*_.OIOPREDEF__V15*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:241:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:241:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODATA__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATAINSTANCE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:241:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:241:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:241:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:241:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check odata"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(241)?(241):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:241:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:241:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:241:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:242:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:242:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:242:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:242:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject oiopredef"; BASILYS_LOCATION("warmelt-outobj.bysl:242:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:242:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:242:/ apply.arg"); argtab[3].bp_long = 242; /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:242:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:242:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:242:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#NULL__L6*/ curfnum[0] = ((/*_.OIOPREDEF__V15*/ curfptr[14]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:243:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:243:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:243:/ block"); /*block*/{ /*_.THE_NULL__V21*/ curfptr[20] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:243:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V21*/ curfptr[20];; BASILYS_LOCATION("warmelt-outobj.bysl:243:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V20*/ curfptr[18] = /*_.RETURN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:243:/ clear"); /*clear*/ /*_.THE_NULL__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:243:/ clear"); /*clear*/ /*_.RETURN___V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:243:/ cond.else"); /*_.IF___V20*/ curfptr[18] = NULL;; } ; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_NREP_NIL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:244:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:244:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:244:/ block"); /*block*/{ /*_.THE_NULL__V24*/ curfptr[21] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:244:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V24*/ curfptr[21];; BASILYS_LOCATION("warmelt-outobj.bysl:244:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IF___V23*/ curfptr[20] = /*_.RETURN___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:244:/ clear"); /*clear*/ /*_.THE_NULL__V24*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:244:/ clear"); /*clear*/ /*_.RETURN___V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:244:/ cond.else"); /*_.IF___V23*/ curfptr[20] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:245:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:245:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.ODLOC__V27*/ curfptr[24] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:247:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:247:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:247:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.bysl:247:/ apply.arg"); argtab[2].bp_cstring = "inipredef"; /*_.OUTPUT_LOCATION__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ODLOC__V27*/ curfptr[24]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inipredef ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*_#IS_A__L8*/ curfnum[7] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_SYMBOL*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:254:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:254:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:254:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.bysl:256:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V30*/ curfptr[29] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V30*/ curfptr[29]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ")) BASILYSG(")); BASILYS_LOCATION("warmelt-outobj.bysl:258:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V31*/ curfptr[30] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V31*/ curfptr[30]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") = (basilys_ptr_t)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "else {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "BASILYSGIX(predefinited,")); BASILYS_LOCATION("warmelt-outobj.bysl:266:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[31] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[31]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") = 1;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "fnotice(stderr, \"BASILYS: predefined %s already defined <%s:%d>\\n\", \"")); BASILYS_LOCATION("warmelt-outobj.bysl:270:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V33*/ curfptr[32] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V33*/ curfptr[32]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "\", __FILE__, __LINE__);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:254:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_.NAMED_NAME__V33*/ curfptr[32] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:254:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:254:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:276:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:276:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:276:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "if (!basilys_globarr[")); /*_#GET_INT__L10*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L10*/ curfnum[9])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "]) basilys_globarr[")); /*_#GET_INT__L11*/ curfnum[10] = (basilys_get_int((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L11*/ curfnum[10])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "] = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "else {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "predefinited[")); /*_#GET_INT__L12*/ curfnum[11] = (basilys_get_int((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L12*/ curfnum[11])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "] = 1;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "fnotice(\"BASILYS: predefined #%d already defined <%s:%d>\\n\", ")); /*_#GET_INT__L13*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L13*/ curfnum[12])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ", __FILE__, __LINE__);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "};")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:276:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_#GET_INT__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:276:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:276:/ block"); /*block*/{ /*_#NULL__L14*/ curfnum[9] = ((/*_.OIOPREDEF__V15*/ curfptr[14]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:298:/ cond"); /*cond*/ if (/*_#NULL__L14*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:298:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:298:/ block"); /*block*/{ /*_.THE_NULL__V36*/ curfptr[31] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:299:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.THE_NULL__V36*/ curfptr[31];; BASILYS_LOCATION("warmelt-outobj.bysl:299:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.IFELSE___V35*/ curfptr[30] = /*_.RETURN___V37*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:298:/ clear"); /*clear*/ /*_.THE_NULL__V36*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:298:/ clear"); /*clear*/ /*_.RETURN___V37*/ curfptr[32] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:298:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:298:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:301:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:301:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:301:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:301:/ apply.arg"); argtab[0].bp_cstring = "outcinitpredef_objinitobject unexpected oiopredef"; BASILYS_LOCATION("warmelt-outobj.bysl:301:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L15*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.bysl:301:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:301:/ apply.arg"); argtab[3].bp_long = 301; /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OIOPREDEF__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V38*/ curfptr[31] = /*_.DEBUG_MSG_FUN__V39*/ curfptr[32];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:301:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L15*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:301:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V39*/ curfptr[32] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:301:/ cppif.else"); /*_.IFCPP___V38*/ curfptr[31] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:302:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:302:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:302:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:302:/ cond.then"); /*_.IFELSE___V41*/ curfptr[40] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:302:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:302:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitpredef_objinitobject unexpected oiopredef"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(302)?(302):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V40*/ curfptr[32] = /*_.IFELSE___V41*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:302:/ clear"); /*clear*/ /*_.IFELSE___V41*/ curfptr[40] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:302:/ cppif.else"); /*_.IFCPP___V40*/ curfptr[32] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:300:/ block"); /*block*/{ /*_.PROGN___V42*/ curfptr[40] = /*_.IFCPP___V40*/ curfptr[32];;} ; /*_.IFELSE___V35*/ curfptr[30] = /*_.PROGN___V42*/ curfptr[40];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:298:/ clear"); /*clear*/ /*_.IFCPP___V38*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:298:/ clear"); /*clear*/ /*_.IFCPP___V40*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:298:/ clear"); /*clear*/ /*_.PROGN___V42*/ curfptr[40] = 0 ;} ; } ; /*_.IFELSE___V34*/ curfptr[29] = /*_.IFELSE___V35*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_#NULL__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:276:/ clear"); /*clear*/ /*_.IFELSE___V35*/ curfptr[30] = 0 ;} ; } ; /*_.IFELSE___V29*/ curfptr[28] = /*_.IFELSE___V34*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:254:/ clear"); /*clear*/ /*_.IFELSE___V34*/ curfptr[29] = 0 ;} ; } ; /*_.LET___V26*/ curfptr[21] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:245:/ clear"); /*clear*/ /*_.ODLOC__V27*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:245:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:245:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:245:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*_.LET___V10*/ curfptr[8] = /*_.LET___V26*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.ODATA__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.ODISCR__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.ONAME__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.OLOCVAR__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.OIOPREDEF__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.IF___V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.IF___V23*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:235:/ clear"); /*clear*/ /*_.LET___V26*/ curfptr[21] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:231:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V10*/ curfptr[8];; BASILYS_LOCATION("warmelt-outobj.bysl:231:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:231:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:231:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:231:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:231:/ clear"); /*clear*/ /*_.LET___V10*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITPREDEF_OBJINITOBJECT", 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_OUTCINITPREDEF_OBJINITOBJECT*/ static basilys_ptr_t rout_11_OUTDECLINIT_OBJINITMULTIPLE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTDECLINIT_OBJINITMULTIPLE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_OBJINITMULTIPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:311:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:311:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:311:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " struct BASILYS_MULTIPLE_STRUCT(")); /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:315:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:311:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:311:/ clear"); /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_OBJINITMULTIPLE", 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_11_OUTDECLINIT_OBJINITMULTIPLE*/ static basilys_ptr_t rout_12_OUTCINITFILL_OBJINITMULTIPLE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITFILL_OBJINITMULTIPLE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_OBJINITMULTIPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:321:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:321:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:321:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:322:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:322:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITMULTIPLE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:322:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:322:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:322:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:322:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitmultiple check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(322)?(322):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:322:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:322:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:322:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:323:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:323:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:323:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:323:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitmultiple recv"; BASILYS_LOCATION("warmelt-outobj.bysl:323:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:323:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:323:/ apply.arg"); argtab[3].bp_long = 323; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:323:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:323:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:323:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:324:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:325:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inimult ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:331:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:331:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:331:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:333:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:333:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.bysl:333:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:333:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:332:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:331:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:331:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:342:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V12*/ curfptr[9] = slot; }; ; /*_.THE_NULL__V13*/ curfptr[10] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:342:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:342:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:342:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:342:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OIE_DISCR__V12*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:324:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:321:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:321:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_OBJINITMULTIPLE", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_12_OUTCINITFILL_OBJINITMULTIPLE*/ static basilys_ptr_t rout_13_OUTDECLINIT_OBJINITCLOSURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTDECLINIT_OBJINITCLOSURE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_OBJINITCLOSURE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:353:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:353:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:353:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " struct BASILYS_CLOSURE_STRUCT(")); /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:357:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.OIE_CNAME__V4*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:353:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:353:/ clear"); /*clear*/ /*_.OIE_CNAME__V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_OBJINITCLOSURE", 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_OUTDECLINIT_OBJINITCLOSURE*/ static basilys_ptr_t rout_14_OUTCINITFILL_OBJINITCLOSURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITFILL_OBJINITCLOSURE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_OBJINITCLOSURE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:362:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:362:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:362:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:363:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:363:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITCLOSURE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:363:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:363:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:363:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:363:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitclosure check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(363)?(363):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:363:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:363:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:363:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:364:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:364:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:364:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:364:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitclosure recv"; BASILYS_LOCATION("warmelt-outobj.bysl:364:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:364:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:364:/ apply.arg"); argtab[3].bp_long = 364; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:364:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:364:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:364:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:365:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:366:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*iniclos ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:372:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:372:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:372:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:375:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:375:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.bysl:375:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:375:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:373:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:372:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:372:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:384:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V12*/ curfptr[9] = slot; }; ; /*_.THE_NULL__V13*/ curfptr[10] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:384:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:384:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:384:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:384:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OIE_DISCR__V12*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:365:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:362:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:362:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_OBJINITCLOSURE", 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_14_OUTCINITFILL_OBJINITCLOSURE*/ static basilys_ptr_t rout_15_OUTDECLINIT_OBJINITROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTDECLINIT_OBJINITROUTINE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_OBJINITROUTINE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:397:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:397:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:397:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " struct BASILYS_ROUTINE_STRUCT(")); /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:401:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.OIE_CNAME__V4*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_CNAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:397:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:397:/ clear"); /*clear*/ /*_.OIE_CNAME__V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_OBJINITROUTINE", 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_15_OUTDECLINIT_OBJINITROUTINE*/ static basilys_ptr_t rout_16_OUTCINITFILL_OBJINITROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITFILL_OBJINITROUTINE_st { unsigned nbvar; #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 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 34; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_OBJINITROUTINE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:407:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:407:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:407:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:408:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:408:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:408:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:408:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:408:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:408:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitroutine check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(408)?(408):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:408:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:408:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:408:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:409:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:409:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:409:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:409:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine recv"; BASILYS_LOCATION("warmelt-outobj.bysl:409:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:409:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:409:/ apply.arg"); argtab[3].bp_long = 409; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:409:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:409:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:409:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:410:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:411:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 5, "OIR_PROCROUTINE");/*_.IPRO__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:412:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:413:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.NDATR__V11*/ curfptr[10] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inirout ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:419:/ cond"); /*cond*/ if (/*_.OLOCVAR__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:419:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:419:/ block"); /*block*/{ /*_.THE_NULL__V12*/ curfptr[11] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:422:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:422:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V12*/ curfptr[11]; BASILYS_LOCATION("warmelt-outobj.bysl:422:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:422:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:420:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:419:/ clear"); /*clear*/ /*_.THE_NULL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:419:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:431:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V14*/ curfptr[11] = slot; }; ; /*_.THE_NULL__V15*/ curfptr[12] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:431:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:431:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V15*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:431:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:431:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OIE_DISCR__V14*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " strncpy(cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".routdescr, \"")); /*_#IS_A__L3*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATAROUTINE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:437:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:437:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:437:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:438:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:438:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), 1, "NDATA_NAME");/*_.DNAM__V17*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:439:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), 5, "NDROU_PROC");/*_.DPRO__V18*/ curfptr[17] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:441:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:441:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:441:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:441:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine ndatr"; BASILYS_LOCATION("warmelt-outobj.bysl:441:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:441:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:441:/ apply.arg"); argtab[3].bp_long = 441; /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.NDATR__V11*/ curfptr[10]), (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-outobj.bysl:441:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:441:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:441:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[18] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:442:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:442:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:442:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:442:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine dpro"; BASILYS_LOCATION("warmelt-outobj.bysl:442:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:442:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:442:/ apply.arg"); argtab[3].bp_long = 442; /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.DPRO__V18*/ curfptr[17]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[19] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:442:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:442:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:442:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[19] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L6*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.DNAM__V17*/ curfptr[16]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:443:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:443:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:443:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:444:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DNAM__V17*/ curfptr[16]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[21] = slot; }; ; basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[21]))); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:443:/ clear"); /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[21] = 0 ;} ; } /*noelse*/ ; /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.DPRO__V18*/ curfptr[17]), (basilys_ptr_t)((/*!CLASS_NREP_ROUTPROC*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:445:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:445:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:445:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:446:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:446:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DPRO__V18*/ curfptr[17]), 0, "NREP_LOC");/*_.DLOC__V24*/ curfptr[21] = slot; }; ; /*_.MIXINT_VAL__V25*/ curfptr[24] = (basilys_val_mixint((basilys_ptr_t)(/*_.DLOC__V24*/ curfptr[21])));; BASILYS_LOCATION("warmelt-outobj.bysl:447:/ cond"); /*cond*/ if (/*_.MIXINT_VAL__V25*/ curfptr[24]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:447:/ cond.then"); /*_.LOCFIL__V26*/ curfptr[25] = /*_.MIXINT_VAL__V25*/ curfptr[24];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:447:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:447:/ block"); /*block*/{ /*_.MIXLOC_VAL__V27*/ curfptr[26] = (basilys_val_mixloc((basilys_ptr_t)(/*_.DLOC__V24*/ curfptr[21])));; /*_.LOCFIL__V26*/ curfptr[25] = /*_.MIXLOC_VAL__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:447:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V27*/ curfptr[26] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " @")); basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.LOCFIL__V26*/ curfptr[25]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.DLOC__V24*/ curfptr[21])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L8*/ curfnum[7])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:446:/ clear"); /*clear*/ /*_.DLOC__V24*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:446:/ clear"); /*clear*/ /*_.MIXINT_VAL__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:446:/ clear"); /*clear*/ /*_.LOCFIL__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:446:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_.DNAM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_.DPRO__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:438:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:437:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:437:/ block"); /*block*/{ basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "\", BASILYS_ROUTDESCR_LEN - 1);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".nbval = ")); /*_#GET_INT__L9*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L9*/ curfnum[7])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:465:/ cond"); /*cond*/ if (/*_.IPRO__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:465:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:465:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:467:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:467:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:467:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:467:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine ipro"; BASILYS_LOCATION("warmelt-outobj.bysl:467:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:467:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:467:/ apply.arg"); argtab[3].bp_long = 467; /*_.DEBUG_MSG_FUN__V29*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:467:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:467:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[21] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:467:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:468:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:468:/ block"); /*block*/{ /*_#IS_A__L11*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:468:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:468:/ cond.then"); /*_.IFELSE___V31*/ curfptr[25] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:468:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:468:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ipro"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(468)?(468):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V31*/ curfptr[25] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V30*/ curfptr[24] = /*_.IFELSE___V31*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:468:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:468:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[25] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:468:/ cppif.else"); /*_.IFCPP___V30*/ curfptr[24] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*(basilysroutfun_t **) (cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".routaddr) = ")); BASILYS_LOCATION("warmelt-outobj.bysl:472:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.IPRO__V9*/ curfptr[8]), 1, "NAMED_NAME");/*_.NAMED_NAME__V32*/ curfptr[16] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V32*/ curfptr[16]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:466:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:465:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:465:/ clear"); /*clear*/ /*_.IFCPP___V30*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:465:/ clear"); /*clear*/ /*_.NAMED_NAME__V32*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:465:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:465:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:477:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:477:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:477:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:477:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitroutine (noipro) recv"; BASILYS_LOCATION("warmelt-outobj.bysl:477:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:477:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:477:/ apply.arg"); argtab[3].bp_long = 477; /*_.DEBUG_MSG_FUN__V34*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V33*/ curfptr[17] = /*_.DEBUG_MSG_FUN__V34*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:477:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:477:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V34*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:477:/ cppif.else"); /*_.IFCPP___V33*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "#warning no procedure in objinitroutine ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:476:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:465:/ clear"); /*clear*/ /*_.IFCPP___V33*/ curfptr[17] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.IPRO__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.OLOCVAR__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.NDATR__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.OIE_DISCR__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.THE_NULL__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:410:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:407:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:407:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_OBJINITROUTINE", 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_16_OUTCINITFILL_OBJINITROUTINE*/ static basilys_ptr_t rout_17_OUTDECLINIT_OBJINITSTRING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTDECLINIT_OBJINITSTRING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTDECLINIT_OBJINITSTRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:486:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:486:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:486:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " struct BASILYS_STRING_STRUCT(")); /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (/*_#GET_INT__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:490:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V4*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V4*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:486:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:486:/ clear"); /*clear*/ /*_.NAMED_NAME__V4*/ curfptr[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTDECLINIT_OBJINITSTRING", 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_17_OUTDECLINIT_OBJINITSTRING*/ static basilys_ptr_t rout_18_OUTCINITFILL_OBJINITSTRING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTCINITFILL_OBJINITSTRING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 15 void* varptr[15]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<15; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 15; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTCINITFILL_OBJINITSTRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:496:/ getarg"); /*_.RECV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:496:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.SBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:496:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:497:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:497:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINITSTRING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:497:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:497:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:497:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:497:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outcinitfill_objinitstring check recv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(497)?(497):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:497:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:497:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:497:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:498:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:498:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:498:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:498:/ apply.arg"); argtab[0].bp_cstring = "outcinitfill_objinitstring recv"; BASILYS_LOCATION("warmelt-outobj.bysl:498:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:498:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:498:/ apply.arg"); argtab[3].bp_long = 498; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:498:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:498:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:498:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:499:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 1, "OIE_CNAME");/*_.CNAM__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:500:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 4, "OIE_LOCVAR");/*_.OLOCVAR__V9*/ curfptr[8] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "/*inistring ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:506:/ cond"); /*cond*/ if (/*_.OLOCVAR__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:506:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:506:/ block"); /*block*/{ /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:508:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:508:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; BASILYS_LOCATION("warmelt-outobj.bysl:508:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:508:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.OLOCVAR__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " = (void*)&cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:507:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:506:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:506:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".discr = (basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:517:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 3, "OIE_DISCR");/*_.OIE_DISCR__V12*/ curfptr[9] = slot; }; ; /*_.THE_NULL__V13*/ curfptr[10] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:517:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:517:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V13*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:517:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.SBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:517:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OIE_DISCR__V12*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( " strcpy(cdat->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( ".val, \"")); BASILYS_LOCATION("warmelt-outobj.bysl:523:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.RECV__V2*/ curfptr[1]), 2, "OIE_DATA");/*_.OIE_DATA__V15*/ curfptr[14] = slot; }; ; basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.OIE_DATA__V15*/ curfptr[14]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), ( "\");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.SBUF__V3*/ curfptr[2]), (1), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.OLOCVAR__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.OIE_DISCR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.THE_NULL__V13*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:499:/ clear"); /*clear*/ /*_.OIE_DATA__V15*/ curfptr[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:496:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:496:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTCINITFILL_OBJINITSTRING", 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_18_OUTCINITFILL_OBJINITSTRING*/ static basilys_ptr_t rout_19_OUTPUCOD_ANYDISCR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_19_OUTPUCOD_ANYDISCR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_ANYDISCR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ getarg"); /*_.ANY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ block"); /*block*/{ basilys_puts(stderr,( "* output_c_code unimplemented reciever discriminator ")); BASILYS_LOCATION("warmelt-outobj.bysl:533:/ block"); /*block*/{ /*_.DISCR__V5*/ curfptr[4] = (basilys_discr((basilys_ptr_t)(/*_.ANY__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:533:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V5*/ curfptr[4]), 1, "NAMED_NAME");/*_.NAMED_NAME__V6*/ curfptr[5] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V6*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:533:/ clear"); /*clear*/ /*_.DISCR__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:533:/ clear"); /*clear*/ /*_.NAMED_NAME__V6*/ curfptr[5] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:535:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:535:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:535:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:535:/ cond.then"); /*_.IFELSE___V8*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:535:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:535:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ outpucod_anydiscr not able to output"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(535)?(535):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[4] = /*_.IFELSE___V8*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:535:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:535:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:530:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V7*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.bysl:530:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:530:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_ANYDISCR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_19_OUTPUCOD_ANYDISCR*/ static basilys_ptr_t rout_20_OUTPUCOD_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_20_OUTPUCOD_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 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_NULL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:539:/ getarg"); /*_.NUL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:539:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:539:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:539:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:539:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "NULL")); /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_NULL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_20_OUTPUCOD_NULL*/ static basilys_ptr_t rout_21_OUTPUCOD_CATCHALL_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_21_OUTPUCOD_CATCHALL_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 11 void* varptr[11]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_CATCHALL_ROOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ getarg"); /*_.ANYR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:546:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:546:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:546:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:546:/ apply.arg"); argtab[0].bp_cstring = "outpucod_catchall_root anyr"; BASILYS_LOCATION("warmelt-outobj.bysl:546:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:546:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:546:/ apply.arg"); argtab[3].bp_long = 546; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ANYR__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-outobj.bysl:546:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:546:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:546:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:547:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:547:/ apply.arg"); argtab[0].bp_cstring = "outpucod_catchall_root anyr"; /*_.DISPLAYDEBUGMSG__V7*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DISPLAYDEBUGMSG*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ANYR__V2*/ curfptr[1]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilys_puts(stderr,( "* output_c_code unimplemented reciever class ")); BASILYS_LOCATION("warmelt-outobj.bysl:549:/ block"); /*block*/{ /*_.DISCR__V8*/ curfptr[7] = (basilys_discr((basilys_ptr_t)(/*_.ANYR__V2*/ curfptr[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:549:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.DISCR__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V9*/ curfptr[8] = slot; }; ; basilys_putstr(stderr, (basilys_ptr_t)(/*_.NAMED_NAME__V9*/ curfptr[8])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:549:/ clear"); /*clear*/ /*_.DISCR__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:549:/ clear"); /*clear*/ /*_.NAMED_NAME__V9*/ curfptr[8] = 0 ;} ; basilys_newlineflush(stderr); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:551:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:551:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:551:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:551:/ cond.then"); /*_.IFELSE___V11*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:551:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:551:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "@@ outpucod_catchall_root not able to output"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(551)?(551):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[7] = /*_.IFELSE___V11*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:551:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:551:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:545:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V10*/ curfptr[7];; BASILYS_LOCATION("warmelt-outobj.bysl:545:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:545:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:545:/ clear"); /*clear*/ /*_.DISPLAYDEBUGMSG__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:545:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_CATCHALL_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_21_OUTPUCOD_CATCHALL_ROOT*/ static basilys_ptr_t rout_22_OUTPUT_RAW_LOCATION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_RAW_LOCATION_st { unsigned nbvar; #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 5 long varnum[5]; /*others*/ const char* loc_CTYPE_CSTRING__o0; long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_RAW_LOCATION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:558:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:558:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:558:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:558:/ getarg"); if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CTYPE_CSTRING__o0 = xargtab_[2].bp_cstring; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:558:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:559:/ cond"); /*cond*/ if (/*_.LOC__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:559:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:559:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#ifndef MELTGCC_NOLINENUMBERING")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); /*_#IS_MIXINT__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXINT);; BASILYS_LOCATION("warmelt-outobj.bysl:564:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:564:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:564:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line ")); /*_#GET_INT__L3*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \"")); /*_.MIXINT_VAL__V5*/ curfptr[4] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\"")); BASILYS_LOCATION("warmelt-outobj.bysl:564:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:564:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:564:/ clear"); /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:564:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:564:/ block"); /*block*/{ /*_#IS_MIXLOC__L4*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);; BASILYS_LOCATION("warmelt-outobj.bysl:570:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:570:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:570:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#line ")); /*_#GET_INT__L5*/ curfnum[4] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L5*/ curfnum[4])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " \"")); /*_.MIXLOC_VAL__V7*/ curfptr[6] = (basilys_val_mixloc((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXLOC_VAL__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\"")); BASILYS_LOCATION("warmelt-outobj.bysl:570:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:570:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:570:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V7*/ curfptr[6] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:570:/ cond.else"); /*_.IFELSE___V6*/ curfptr[4] = NULL;; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:564:/ clear"); /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:564:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:577:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:577:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:577:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " /**::")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_ccomment((/*_.IMPLBUF__V3*/ curfptr[2]), /*_?*/ curfram__.loc_CTYPE_CSTRING__o0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "::**/")); BASILYS_LOCATION("warmelt-outobj.bysl:578:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "#endif /*MELTGCC_NOLINENUMBERING*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:560:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:559:/ clear"); /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:559:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; } /*noelse*/ ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_RAW_LOCATION", 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_22_OUTPUT_RAW_LOCATION*/ static basilys_ptr_t rout_23_OUTPUT_LOCATION(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_LOCATION_st { unsigned nbvar; #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 5 long varnum[5]; /*others*/ const char* loc_CTYPE_CSTRING__o0; long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_LOCATION", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ getarg"); /*_.LOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ getarg"); if (xargdescr_[1] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[1].bp_long; /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ getarg"); if (xargdescr_[2] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CTYPE_CSTRING__o0 = xargtab_[2].bp_cstring; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ block"); /*block*/{ /*_#IS_MIXINT__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXINT);; BASILYS_LOCATION("warmelt-outobj.bysl:591:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:591:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:591:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "BASILYS_LOCATION(\"")); /*_.MIXINT_VAL__V5*/ curfptr[4] = (basilys_val_mixint((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXINT_VAL__V5*/ curfptr[4]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L3*/ curfnum[2] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L3*/ curfnum[2])); BASILYS_LOCATION("warmelt-outobj.bysl:596:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:596:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:596:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0)); BASILYS_LOCATION("warmelt-outobj.bysl:596:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.bysl:591:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:591:/ clear"); /*clear*/ /*_.MIXINT_VAL__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:591:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:591:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:591:/ block"); /*block*/{ /*_#IS_MIXLOC__L4*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])) == OBMAG_MIXLOC);; BASILYS_LOCATION("warmelt-outobj.bysl:602:/ cond"); /*cond*/ if (/*_#IS_MIXLOC__L4*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:602:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:602:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "BASILYS_LOCATION(\"")); /*_.MIXLOC_VAL__V7*/ curfptr[6] = (basilys_val_mixloc((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.MIXLOC_VAL__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":")); /*_#GET_INT__L5*/ curfnum[4] = (basilys_get_int((basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#GET_INT__L5*/ curfnum[4])); BASILYS_LOCATION("warmelt-outobj.bysl:607:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:607:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:607:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( ":/ ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0)); BASILYS_LOCATION("warmelt-outobj.bysl:607:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.bysl:602:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:602:/ clear"); /*clear*/ /*_.MIXLOC_VAL__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:602:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:602:/ cond.else"); /*_.IFELSE___V6*/ curfptr[4] = NULL;; } ; /*_.IFELSE___V4*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:591:/ clear"); /*clear*/ /*_#IS_MIXLOC__L4*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:591:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[4] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:614:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:614:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:614:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:614:/ apply.arg"); argtab[2].bp_cstring = /*_?*/ curfram__.loc_CTYPE_CSTRING__o0; /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LOC__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:589:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.bysl:589:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:589:/ clear"); /*clear*/ /*_#IS_MIXINT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:589:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:589:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_LOCATION", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_23_OUTPUT_LOCATION*/ static basilys_ptr_t rout_24_OUTPUT_CURFRAME_DECLSTRUCT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_CURFRAME_DECLSTRUCT_st { unsigned nbvar; #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 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_CURFRAME_DECLSTRUCT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:619:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:619:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DSBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:619:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:620:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:621:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.OBODY__V4*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:622:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V5*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:623:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V6*/ curfptr[5] = slot; }; ; /*_#NBVAL__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.ONBVAL__V5*/ curfptr[4])));; /*_#NBLONG__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.ONBLONG__V6*/ curfptr[5])));; /*_#ISINITIAL__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:627:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V7*/ curfptr[6] = slot; }; ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct ")); /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:632:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:632:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:632:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "frame_")); BASILYS_LOCATION("warmelt-outobj.bysl:635:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V8*/ curfptr[7] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V8*/ curfptr[7]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "_st ")); BASILYS_LOCATION("warmelt-outobj.bysl:633:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:632:/ clear"); /*clear*/ /*_.NAMED_NAME__V8*/ curfptr[7] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "{ unsigned nbvar;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#if ENABLE_CHECKING")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " const char* flocs;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#endif")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:647:/ cond"); /*cond*/ if (/*_#ISINITIAL__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:647:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:647:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct basilysclosure_st *noinitialclos;")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:647:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:647:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct basilysclosure_st *clos;")); /*epilog*/} ; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct excepth_basilys_st *exh;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " struct callframe_basilys_st *prev;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); /*_#I__L5*/ curfnum[4] = ((/*_#NBVAL__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:655:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:655:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:655:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR ")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " void* varptr[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "];")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:656:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:655:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:655:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varptr*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARPTR /*none*/0")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:664:/ block"); /*block*/{} ; /*epilog*/} ; } ; /*_#I__L6*/ curfnum[5] = ((/*_#NBLONG__L2*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:669:/ cond"); /*cond*/ if (/*_#I__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:669:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:669:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM ")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1])); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " long varnum[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (/*_#NBLONG__L2*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "];")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:670:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:669:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:669:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no varnum*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "#define CURFRAM_NBVARNUM /*none*/0")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:678:/ block"); /*block*/{} ; /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:683:/ cond"); /*cond*/ if (/*_.OTHERS__V7*/ curfptr[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:683:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:683:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*others*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:690:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:690:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:690:/ 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)(/*_.DSBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V10*/ curfptr[9] = /*_.LAMBDA___V11*/ curfptr[10];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:688:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:688:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V10*/ curfptr[9]; /*_.LIST_EVERY__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OTHERS__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:684:/ block"); /*block*/{ /*_.PROGN___V13*/ curfptr[12] = /*_.LIST_EVERY__V12*/ curfptr[11];;} ; /*_.IFELSE___V9*/ curfptr[7] = /*_.PROGN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:683:/ clear"); /*clear*/ /*_.LAMBDA___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:683:/ clear"); /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:683:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:683:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:683:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "/*no others*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:703:/ block"); /*block*/{} ; /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( " long _spare_; }")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_.OBODY__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_.ONBVAL__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_.ONBLONG__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:620:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[7] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_CURFRAME_DECLSTRUCT", 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_24_OUTPUT_CURFRAME_DECLSTRUCT*/ 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 9 void* varptr[9]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:690:/ getarg"); /*_.OLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:690:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:691:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:691:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:691:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:691:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:691:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:691:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check other oloc"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(691)?(691):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:691:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:691:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:691:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:692:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:692:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OCTYP__V5*/ curfptr[3] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:693:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.ONAME__V6*/ curfptr[5] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:695:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:695:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCTYP__V5*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:695:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:695:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:695:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:695:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(695)?(695):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:695:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:695:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:695:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:696:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCTYP__V5*/ curfptr[3]), 3, "CTYPE_CNAME");/*_.CTYPE_CNAME__V9*/ curfptr[7] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DSBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_CNAME__V9*/ curfptr[7]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DSBUF*/ curfclos->tabval[0])), ( " ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DSBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V6*/ curfptr[5]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DSBUF*/ curfclos->tabval[0])), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~DSBUF*/ curfclos->tabval[0])), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:692:/ clear"); /*clear*/ /*_.OCTYP__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:692:/ clear"); /*clear*/ /*_.ONAME__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:692:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:692:/ clear"); /*clear*/ /*_.CTYPE_CNAME__V9*/ curfptr[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:690:/ 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_OUTPUCOD_MARKER(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_MARKER_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_MARKER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:714:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:714:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:714:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:715:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:715:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:715:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:715:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:715:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:715:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rou"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(715)?(715):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:715:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:715:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:715:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:716:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:716:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:716:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V7*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:716:/ cond.else"); /*_.OTHERS__V7*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:717:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_ROUTINEOBJ*/ curfrout->tabval[0])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:717:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:717:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.OBROUT_NBVAL__V8*/ curfptr[7] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:717:/ cond.else"); /*_.OBROUT_NBVAL__V8*/ curfptr[7] = NULL;; } ; /*_#NBVAL__L2*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.OBROUT_NBVAL__V8*/ curfptr[7])));; /*_#IS_NOT_A__L3*/ curfnum[2] = !basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:719:/ cond"); /*cond*/ if (/*_#IS_NOT_A__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:719:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:719:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:721:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:721:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:721:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), 8, "CTYPE_MARKER");/*_.CTYPE_MARKER__V9*/ curfptr[8] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:721:/ cond.else"); /*_.CTYPE_MARKER__V9*/ curfptr[8] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_MARKER__V9*/ curfptr[8]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->clos);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0); BASILYS_LOCATION("warmelt-outobj.bysl:720:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:719:/ clear"); /*clear*/ /*_.CTYPE_MARKER__V9*/ curfptr[8] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "for(ix=0; ix<")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (/*_#NBVAL__L2*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "; ix++)")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (4), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "if (framptr_->varptr[ix])")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (5), 0); BASILYS_LOCATION("warmelt-outobj.bysl:730:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:730:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:730:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!CTYPE_VALUE*/ curfrout->tabval[2])), 8, "CTYPE_MARKER");/*_.CTYPE_MARKER__V10*/ curfptr[8] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:730:/ cond.else"); /*_.CTYPE_MARKER__V10*/ curfptr[8] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_MARKER__V10*/ curfptr[8]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " (framptr_->varptr[ix]);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (3), 0); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:735:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V12*/ curfptr[11] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:735:/ 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)(/*_.IMPLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V11*/ curfptr[10] = /*_.LAMBDA___V12*/ curfptr[11];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:733:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:733:/ 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[4])), (basilys_ptr_t)(/*_.OTHERS__V7*/ curfptr[6]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V6*/ curfptr[4] = /*_.LIST_EVERY__V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_.OTHERS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_.OBROUT_NBVAL__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_#NBVAL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_.CTYPE_MARKER__V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_.LAMBDA___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:716:/ clear"); /*clear*/ /*_.LIST_EVERY__V13*/ curfptr[12] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:714:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[4];; BASILYS_LOCATION("warmelt-outobj.bysl:714:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:714:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:714:/ clear"); /*clear*/ /*_.LET___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_MARKER", 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_OUTPUCOD_MARKER*/ 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 13 void* varptr[13]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:735:/ getarg"); /*_.OLOC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:735:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:736:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:736:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:736:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:736:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:736:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:736:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check other oloc"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(736)?(736):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:736:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:736:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:736:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:737:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[1])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:737:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:737:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OCTYP__V6*/ curfptr[5] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:737:/ cond.else"); /*_.OCTYP__V6*/ curfptr[5] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:738:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:738:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:738:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OLOC__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.ONAME__V7*/ curfptr[6] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:738:/ cond.else"); /*_.ONAME__V7*/ curfptr[6] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:739:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:739:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:739:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), 8, "CTYPE_MARKER");/*_.OMARKER__V8*/ curfptr[7] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:739:/ cond.else"); /*_.OMARKER__V8*/ curfptr[7] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:741:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:741:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCTYP__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:741:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:741:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:741:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:741:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(741)?(741):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:741:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:741:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:741:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_STRING__L3*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:743:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:743:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:743:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0); BASILYS_LOCATION("warmelt-outobj.bysl:743:/ block"); /*block*/{} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:743:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:743:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:753:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:753:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:753:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "if (framptr_->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ") ")); BASILYS_LOCATION("warmelt-outobj.bysl:757:/ cond"); /*cond*/ if (/*ifisa*/ basilys_is_instance_of((basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[3])))) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:757:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:757:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMARKER__V8*/ curfptr[7]), 1, "NAMED_NAME");/*_.NAMED_NAME__V13*/ curfptr[12] = slot; }; ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:757:/ cond.else"); /*_.NAMED_NAME__V13*/ curfptr[12] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V13*/ curfptr[12]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " (framptr_->")); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.ONAME__V7*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (3), 0); BASILYS_LOCATION("warmelt-outobj.bysl:753:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:753:/ clear"); /*clear*/ /*_.NAMED_NAME__V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:753:/ cond.else"); /*_.IFELSE___V12*/ curfptr[11] = NULL;; } ; /*_.IFELSE___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:743:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:743:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; } ; /*_.LET___V5*/ curfptr[3] = /*_.IFELSE___V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_.OCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_.ONAME__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_.OMARKER__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:737:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:735:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.bysl:735:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:735:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:735:/ 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_27_LAMBDA_*/ static basilys_ptr_t rout_28_OUTPUT_CURFRAME_DECLSTRUCT_INIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_CURFRAME_DECLSTRUCT_INIT_st { unsigned nbvar; #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 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_CURFRAME_DECLSTRUCT_INIT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:768:/ getarg"); /*_.DECLSTRUCT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:768:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ROU__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:768:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:768:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:770:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:771:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 3, "OBROUT_BODY");/*_.OBODY__V5*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:772:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V6*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:773:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V7*/ curfptr[6] = slot; }; ; /*_#NBVAL__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.ONBVAL__V6*/ curfptr[5])));; /*_#NBLONG__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.ONBLONG__V7*/ curfptr[6])));; /*_#ISINITIAL__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:777:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), 6, "OBROUT_OTHERS");/*_.OTHERS__V8*/ curfptr[7] = slot; }; ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if ENABLE_CHECKING")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " static long call_counter__;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount thiscallcounter__")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define callcount 0L")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:795:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:795:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.DECLSTRUCT__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.DECLSTRUCT__V2*/ curfptr[1]), (basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#NOT__L4*/ curfnum[3] = (!(/*_#ISINITIAL__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-outobj.bysl:796:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:796:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:796:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *framptr_=0,")); /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__;")); /*_#NOT__L5*/ curfnum[4] = (!(/*_#ISINITIAL__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-outobj.bysl:799:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:799:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:799:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "framptr_ = (void*)firstargp_;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (3), 0); BASILYS_LOCATION("warmelt-outobj.bysl:808:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:808:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUCOD_MARKER__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUCOD_MARKER*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ROU__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "return NULL;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (2), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}/*end markggc*/;")); BASILYS_LOCATION("warmelt-outobj.bysl:800:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:799:/ clear"); /*clear*/ /*_.OUTPUCOD_MARKER__V10*/ curfptr[9] = 0 ;} ; } /*noelse*/ ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " memset(&curfram__, 0, sizeof(curfram__));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.nbvar = ")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBVAL__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*_#NOT__L6*/ curfnum[5] = (!(/*_#ISINITIAL__L3*/ curfnum[2]));; BASILYS_LOCATION("warmelt-outobj.bysl:821:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:821:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:821:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.clos = closp_;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:822:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " curfram__.prev = (struct callframe_basilys_st *) basilys_topframe;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_topframe = (struct callframe_basilys_st *) &curfram__;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_.OBODY__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_.ONBVAL__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_.ONBLONG__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#NBVAL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#NBLONG__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#ISINITIAL__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_.OTHERS__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_.DECLSTRUCT__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:770:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_CURFRAME_DECLSTRUCT_INIT", 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_28_OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ static basilys_ptr_t rout_29_OUTPUCOD_PROCROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_PROCROUTINE_st { unsigned nbvar; #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 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<34; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 34; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_PROCROUTINE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ getarg"); /*_.PROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:833:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:833:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_PROCROUTINEOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:833:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:833:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:833:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:833:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prou"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(833)?(833):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:833:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:833:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:833:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:834:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.ONAM__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:835:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.OBODY__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:836:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 4, "OBROUT_NBVAL");/*_.ONBVAL__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:837:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 5, "OBROUT_NBLONG");/*_.ONBLONG__V10*/ curfptr[9] = slot; }; ; /*_#NBVAL__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.ONBVAL__V9*/ curfptr[8])));; /*_#NBLONG__L4*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)(/*_.ONBLONG__V10*/ curfptr[9])));; BASILYS_LOCATION("warmelt-outobj.bysl:840:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 6, "OBROUT_OTHERS");/*_.OTHERS__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:841:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 9, "OPROUT_GETARGS");/*_.OGARGS__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:842:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 7, "OBROUT_RETVAL");/*_.ORETVAL__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:843:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 10, "OPROUT_LOC");/*_.ORLOC__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:844:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PROU__V2*/ curfptr[1]), 11, "OPROUT_FUNAM");/*_.OFUNAM__V15*/ curfptr[14] = slot; }; ; /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14])) == OBMAG_STRING);; /*_#NOT__L6*/ curfnum[5] = (!(/*_#IS_STRING__L5*/ curfnum[4]));; BASILYS_LOCATION("warmelt-outobj.bysl:847:/ cond"); /*cond*/ if (/*_#NOT__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:847:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:847:/ block"); /*block*/{ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[1])), ( "**")));; BASILYS_LOCATION("warmelt-outobj.bysl:848:/ compute"); /*_.OFUNAM__V15*/ curfptr[14] = /*_.SETQ___V18*/ curfptr[17] = /*_.MAKE_STRINGCONST__V17*/ curfptr[16];; /*_.IF___V16*/ curfptr[15] = /*_.SETQ___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:847:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:847:/ clear"); /*clear*/ /*_.SETQ___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:847:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:852:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:852:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:852:/ apply.arg"); argtab[1].bp_long = 0; BASILYS_LOCATION("warmelt-outobj.bysl:852:/ apply.arg"); argtab[2].bp_cstring = "proc"; /*_.OUTPUT_RAW_LOCATION__V19*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ORLOC__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); /*_#IS_MIXINT__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.ORLOC__V14*/ curfptr[13])) == OBMAG_MIXINT);; BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond.then"); /*_#OR___L8*/ curfnum[7] = /*_#IS_MIXINT__L7*/ curfnum[6];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:854:/ block"); /*block*/{ /*_#IS_MIXLOC__L9*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.ORLOC__V14*/ curfptr[13])) == OBMAG_MIXLOC);; /*_#OR___L8*/ curfnum[7] = /*_#IS_MIXLOC__L9*/ curfnum[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:854:/ clear"); /*clear*/ /*_#IS_MIXLOC__L9*/ curfnum[8] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond"); /*cond*/ if (/*_#OR___L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:854:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:855:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:855:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:855:/ apply.arg"); argtab[1].bp_long = 0; BASILYS_LOCATION("warmelt-outobj.bysl:855:/ apply.arg"); argtab[2].bp_cstring = "procdecl"; /*_.OUTPUT_RAW_LOCATION__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ORLOC__V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V20*/ curfptr[17] = /*_.OUTPUT_RAW_LOCATION__V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:854:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:854:/ cond.else"); /*_.IF___V20*/ curfptr[17] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( "static basilys_ptr_t ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( "(basilysclosure_ptr_t closp_,")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( " basilys_ptr_t firstargp_,")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xargdescr_[],")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union basilysparam_un *xargtab_,")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( " const char xresdescr_[],")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( " union basilysparam_un *xrestab_);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static basilys_ptr_t")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(basilysclosure_ptr_t closp_,")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_ptr_t firstargp_,")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xargdescr_[],")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union basilysparam_un *xargtab_,")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (5), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " const char xresdescr_[],")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " union basilysparam_un *xrestab_)")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); BASILYS_LOCATION("warmelt-outobj.bysl:882:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:882:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PROU__V2*/ curfptr[1]; BASILYS_LOCATION("warmelt-outobj.bysl:882:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V22*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ curfrout->tabval[3])), (basilys_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_trace_start(\"")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getargs*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:891:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:891:/ block"); /*block*/{ /*_#IS_MULTIPLE__L10*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OGARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.bysl:891:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:891:/ cond.then"); /*_.IFELSE___V24*/ curfptr[23] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:891:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:891:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogargs"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(891)?(891):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:891:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:891:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:891:/ cppif.else"); /*_.IFCPP___V23*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:894:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:894:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (2)); ; BASILYS_LOCATION("warmelt-outobj.bysl:894:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:894:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[1] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V25*/ curfptr[23] = /*_.LAMBDA___V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:892:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:892:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[23]; /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OGARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto lab_endgetargs;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "lab_endgetargs:;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:910:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:910:/ block"); /*block*/{ /*_#IS_LIST__L11*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBODY__V8*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:910:/ cond"); /*cond*/ if (/*_#IS_LIST__L11*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:910:/ cond.then"); /*_.IFELSE___V29*/ curfptr[28] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:910:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:910:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obody"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(910)?(910):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V28*/ curfptr[27] = /*_.IFELSE___V29*/ curfptr[28];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:910:/ clear"); /*clear*/ /*_#IS_LIST__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:910:/ clear"); /*clear*/ /*_.IFELSE___V29*/ curfptr[28] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:910:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[27] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*body*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:915:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:915:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V31*/ curfptr[30] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (2)); ; BASILYS_LOCATION("warmelt-outobj.bysl:915:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:915:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V31*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V31*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V31*/ curfptr[30])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V30*/ curfptr[28] = /*_.LAMBDA___V31*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:913:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:913:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V30*/ curfptr[28]; /*_.LIST_EVERY__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.OBODY__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout:")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_trace_end(\"")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OFUNAM__V15*/ curfptr[14]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", callcount);")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_topframe = (struct callframe_basilys_st*) curfram__.prev;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:933:/ cond"); /*cond*/ if (/*_.ORETVAL__V13*/ curfptr[12]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:933:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:933:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:934:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:934:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:934:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:934:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V34*/ curfptr[33] = basilysgc_send((basilys_ptr_t)(/*_.ORETVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V33*/ curfptr[32] = /*_.OUTPUT_C_CODE__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:933:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:933:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:933:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL")); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V7*/ curfptr[5]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.ONAM__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OBODY__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.ONBVAL__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.ONBLONG__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#NBVAL__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#NBLONG__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OTHERS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OGARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.ORETVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.ORLOC__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OFUNAM__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#NOT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#IS_MIXINT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_#OR___L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.IF___V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V22*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.IFCPP___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.LAMBDA___V30*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.LIST_EVERY__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:834:/ clear"); /*clear*/ /*_.IFELSE___V33*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:832:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_PROCROUTINE", 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_29_OUTPUCOD_PROCROUTINE*/ static basilys_ptr_t rout_30_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_30_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:894:/ getarg"); /*_.CURGET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:894:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:894:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "/*getarg#")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:900:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:900:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:900:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:900:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURGET__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:894:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:894:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:894:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_30_LAMBDA_*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:915:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:915:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:916:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:916:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:916:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_A__L2*/ curfnum[1]));; /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:916:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:916:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:916:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:916:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:916:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:916:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:918:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:918:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:918:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:918:/ ojbmsend.arg"); argtab[2].bp_long = 0; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:917:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:916:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:915:/ clear"); /*clear*/ /*_#IF___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_31_LAMBDA_*/ static basilys_ptr_t rout_32_OUTPUT_CURFRAME_CDAT_STRUCT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_CURFRAME_CDAT_STRUCT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_CURFRAME_CDAT_STRUCT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:956:/ getarg"); /*_.IDATUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:956:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:956:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "struct cdata_st {")); BASILYS_LOCATION("warmelt-outobj.bysl:961:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:961:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V5*/ curfptr[4] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_2*/ curfrout->tabval[2])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:961:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V5*/ curfptr[4])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V5*/ curfptr[4]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V5*/ curfptr[4])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V4*/ curfptr[3] = /*_.LAMBDA___V5*/ curfptr[4];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:959:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:959:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V4*/ curfptr[3]; /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " long spare_;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "}")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:956:/ clear"); /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:956:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_CURFRAME_CDAT_STRUCT", 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_OUTPUT_CURFRAME_CDAT_STRUCT*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:961:/ getarg"); /*_.CURDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:961:/ 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-outobj.bysl:961:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:964:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:964:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]); /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_DECLINIT*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:961:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_DECLINIT__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:961:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:961:/ clear"); /*clear*/ /*_.OUTPUT_C_DECLINIT__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_33_LAMBDA_*/ static basilys_ptr_t rout_34_OUTPUT_CURFRAME_CDAT_FILL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_34_OUTPUT_CURFRAME_CDAT_FILL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 9 void* varptr[9]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_CURFRAME_CDAT_FILL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:972:/ getarg"); /*_.IDATUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:972:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:972:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = (struct cdata_st*) basilysgc_allocate(sizeof(*cdat),0);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " basilys_prohibit_garbcoll = TRUE;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine predef*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:984:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:984:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V5*/ curfptr[4] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_2*/ curfrout->tabval[2])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:984:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V5*/ curfptr[4])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V5*/ curfptr[4]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V5*/ curfptr[4])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V4*/ curfptr[3] = /*_.LAMBDA___V5*/ curfptr[4];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:982:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:982:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V4*/ curfptr[3]; /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( "/*initial routine fill*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:993:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:993:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V8*/ curfptr[7] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:993:/ 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)(/*_.IMPLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V7*/ curfptr[6] = /*_.LAMBDA___V8*/ curfptr[7];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:991:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:991:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V7*/ curfptr[6]; /*_.MULTIPLE_EVERY__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.IDATUP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " cdat = NULL;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), ( " basilys_prohibit_garbcoll = FALSE;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V3*/ curfptr[2]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:972:/ clear"); /*clear*/ /*_.LAMBDA___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:972:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:972:/ clear"); /*clear*/ /*_.LAMBDA___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:972:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V9*/ curfptr[8] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_CURFRAME_CDAT_FILL", 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_34_OUTPUT_CURFRAME_CDAT_FILL*/ static basilys_ptr_t rout_35_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_35_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:984:/ getarg"); /*_.CURPDAT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:984:/ 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-outobj.bysl:984:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:986:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:986:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]); /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURPDAT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_INITPREDEF*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:984:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITPREDEF__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:984:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:984:/ clear"); /*clear*/ /*_.OUTPUT_C_INITPREDEF__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_35_LAMBDA_*/ static basilys_ptr_t rout_36_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_36_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:993:/ getarg"); /*_.CURFIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:993:/ 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-outobj.bysl:993:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:996:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:996:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[0]); /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURFIL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_INITFILL*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:993:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_INITFILL__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:993:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:993:/ clear"); /*clear*/ /*_.OUTPUT_C_INITFILL__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_36_LAMBDA_*/ static basilys_ptr_t rout_37_OUTPUCOD_INITIALROUTINE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_INITIALROUTINE_st { unsigned nbvar; #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 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<27; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; 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("OUTPUCOD_INITIALROUTINE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ getarg"); /*_.PINI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_INITIALROUTINEOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pini"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1012)?(1012):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1012:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1014:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 9, "OIROUT_DATA");/*_.IDATUP__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1015:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 11, "OIROUT_FILL");/*_.IRFILL__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1016:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 10, "OIROUT_PROLOG");/*_.IPROLOG__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1017:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 7, "OBROUT_RETVAL");/*_.ORETVAL__V10*/ curfptr[9] = slot; }; ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* start_module_basilys(void*);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void mark_module_basilys(void*);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), ( "void* initial_frame_basilys;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DECLBUF__V3*/ curfptr[2]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "typedef ")); BASILYS_LOCATION("warmelt-outobj.bysl:1030:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1030:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " initial_frame_st;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "static void initialize_module_cdata(initial_frame_st *iniframp__, char predefinited[])")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#define curfram__ (*iniframp__)")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1041:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1041:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_STRUCT*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " *cdat = NULL;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1045:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1045:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CURFRAME_CDAT_FILL*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.IDATUP__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef curfram__")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*end initialize_module_cdata*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void* start_module_basilys(void* modargp_) {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "char predefinited[BGLOB__LASTGLOB+8];")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1064:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1064:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V15*/ curfptr[14] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (0)); ; /*_.LAMBDA___V14*/ curfptr[13] = /*_.LAMBDA___V15*/ curfptr[14];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1063:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1063:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PINI__V2*/ curfptr[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1063:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine prologue**/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_basilys = (void*) &curfram__;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (2)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1075:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1075:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16]; /*_.LIST_EVERY__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.IPROLOG__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine cdata initializer**/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(predefinited, 0, sizeof(predefinited));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initialize_module_cdata(&curfram__, predefinited);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**initial routine body**/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1096:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1096:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), 3, "OBROUT_BODY");/*_.IBODY__V21*/ curfptr[20] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[22] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (2)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[22])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[22]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[22])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V22*/ curfptr[21] = /*_.LAMBDA___V23*/ curfptr[22];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1099:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1099:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[21]; /*_.LIST_EVERY__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.IBODY__V21*/ curfptr[20]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V20*/ curfptr[19] = /*_.LIST_EVERY__V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1096:/ clear"); /*clear*/ /*_.IBODY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1096:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1096:/ clear"); /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[23] = 0 ;} ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labend_rout;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "labend_rout: basilys_topframe = (struct callframe_basilys_st *) curfram__.prev;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_basilys = (void*)0;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " return ")); BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ cond"); /*cond*/ if (/*_.ORETVAL__V10*/ curfptr[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1119:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1119:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1119:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1119:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.ORETVAL__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[13])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V25*/ curfptr[20] = /*_.OUTPUT_C_CODE__V26*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1118:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*noretval*/ NULL")); /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ;} ; /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef callcount")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARNUM")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#undef CURFRAM_NBVARPTR")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end start_module_basilys */")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "void mark_module_basilys(void*fp)")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "int ix=0;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "initial_frame_st* framptr_= (initial_frame_st*)fp;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1141:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1141:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUCOD_MARKER*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.PINI__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /* end mark_module_basilys */")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.IDATUP__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.IRFILL__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.IPROLOG__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.ORETVAL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_STRUCT__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_CDAT_FILL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.LAMBDA___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.OUTPUT_CURFRAME_DECLSTRUCT_INIT__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.LIST_EVERY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.LET___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1013:/ clear"); /*clear*/ /*_.OUTPUCOD_MARKER__V27*/ curfptr[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_INITIALROUTINE", 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_OUTPUCOD_INITIALROUTINE*/ static basilys_ptr_t rout_38_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_38_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1064:/ getarg"); /*_.ROU__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1064:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DSBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DSBUF__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1064:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.DSBUF__V3*/ curfptr[2]), ( "initial_frame_st ")); /*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_38_LAMBDA_*/ 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]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ getarg"); /*_.CURPROL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ cond"); /*cond*/ if (/*_.CURPROL__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_A__L2*/ curfnum[1]));; /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1081:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1081:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1081:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1081:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURPROL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1080:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1079:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ clear"); /*clear*/ /*_#IF___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_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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#NOT__L3*/ curfnum[2] = (!(/*_#IS_A__L2*/ curfnum[1]));; /*_#IF___L1*/ curfnum[0] = /*_#NOT__L3*/ curfnum[2];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ clear"); /*clear*/ /*_#NOT__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ cond.else"); /*_#IF___L1*/ curfnum[0] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ cond"); /*cond*/ if (/*_#IF___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1105:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1105:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1105:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1105:/ ojbmsend.arg"); argtab[2].bp_long = 1; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (1), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1104:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1103:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ clear"); /*clear*/ /*_#IF___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_40_LAMBDA_*/ static basilys_ptr_t rout_41_OUTPUCOD_GETARG(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_GETARG_st { unsigned nbvar; #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 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<26; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 26; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_GETARG", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ getarg"); /*_.GARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.GARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJGETARG*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check garg"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1152)?(1152):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1152:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 1, "OBARG_OBLOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1155:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.NLOC__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1156:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.GARG__V2*/ curfptr[1]), 2, "OBARG_BIND");/*_.OBIND__V9*/ curfptr[8] = slot; }; ; /*_#RKBIND__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.OBIND__V9*/ curfptr[8])));; BASILYS_LOCATION("warmelt-outobj.bysl:1158:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), 1, "FBIND_TYPE");/*_.CTYBIND__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBIND__V9*/ curfptr[8]), (basilys_ptr_t)((/*!CLASS_FORMAL_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obind"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1160)?(1160):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1160:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1161:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1161:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1161:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1161:/ apply.arg"); argtab[2].bp_cstring = "getarg"; /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.NLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oloc"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1162)?(1162):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1162:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctybind"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1163)?(1163):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[14] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1163:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L7*/ curfnum[3] = ((/*_#RKBIND__L3*/ curfnum[1]) == (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ block"); /*block*/{ /*_#__L8*/ curfnum[7] = ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ cond.then"); /*_.IFELSE___V19*/ curfptr[18] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctybind first"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1166)?(1166):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V18*/ curfptr[16] = /*_.IFELSE___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ clear"); /*clear*/ /*_.IFELSE___V19*/ curfptr[18] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1166:/ cppif.else"); /*_.IFCPP___V18*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1167:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1167:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1167:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1167:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (basilys_ptr_t) firstargp_;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1165:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ clear"); /*clear*/ /*_.IFCPP___V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[18] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1164:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1173:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 4, "CTYPE_PARCHAR");/*_.PARC__V21*/ curfptr[16] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1174:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 6, "CTYPE_ARGFIELD");/*_.ARGF__V22*/ curfptr[18] = slot; }; ; /*_#IS_STRING__L9*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.PARC__V21*/ curfptr[16])) == OBMAG_STRING);; /*_#NOT__L10*/ curfnum[9] = (!(/*_#IS_STRING__L9*/ curfnum[7]));; BASILYS_LOCATION("warmelt-outobj.bysl:1176:/ cond"); /*cond*/ if (/*_#NOT__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1176:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1176:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1178:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CTYBIND__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V23*/ curfptr[22] = slot; }; ; basilys_error_str((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), ( "impossible argument ctype"), (basilys_ptr_t)(/*_.NAMED_NAME__V23*/ curfptr[22])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1176:/ clear"); /*clear*/ /*_.NAMED_NAME__V23*/ curfptr[22] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xargdescr_[")); /*_#I__L11*/ curfnum[10] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.PARC__V21*/ curfptr[16]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto lab_endgetargs;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*_#__L12*/ curfnum[11] = ((/*_.CTYBIND__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1187:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1187:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1187:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1187:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (xargtab_[")); /*_#I__L13*/ curfnum[12] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr) ? (*(xargtab_[")); /*_#I__L14*/ curfnum[13] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[13])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].bp_aptr)) : NULL;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "gcc_assert(basilys_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:1195:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1195:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1195:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1195:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = basilysgc_send((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) != NULL);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1186:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1200:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1200:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1200:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1200:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = xargtab_[")); /*_#I__L15*/ curfnum[12] = ((/*_#RKBIND__L3*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[12])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ARGF__V22*/ curfptr[18]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); BASILYS_LOCATION("warmelt-outobj.bysl:1199:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1185:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[12] = 0 ;} ; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_.PARC__V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_.ARGF__V22*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1171:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.NLOC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.OBIND__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_#RKBIND__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.CTYBIND__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1154:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_GETARG", 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_41_OUTPUCOD_GETARG*/ static basilys_ptr_t rout_42_OUTPUCOD_OBJLOCV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJLOCV_st { unsigned nbvar; #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 6 long varnum[6]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJLOCV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ getarg"); /*_.LOCV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check locv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1218)?(1218):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1218:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1220:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1221:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.LTYP__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1222:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 1, "OBL_OFF");/*_.LOFF__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1223:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.LOCV__V2*/ curfptr[1]), 3, "OBL_CNAME");/*_.LCNAM__V9*/ curfptr[8] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_.")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfptr[")); /*_#GET_INT__L4*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[3])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]")); BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ block"); /*block*/{ /*_#__L5*/ curfnum[3] = ((/*_.LTYP__V7*/ curfptr[5]) == ((/*!CTYPE_LONG*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ cond"); /*cond*/ if (/*_#__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_#")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfnum[")); /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.LOFF__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "]")); BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1232:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*_?*/ curfram__.")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.LCNAM__V9*/ curfptr[8]))); BASILYS_LOCATION("warmelt-outobj.bysl:1238:/ block"); /*block*/{} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1226:/ clear"); /*clear*/ /*_#__L5*/ curfnum[3] = 0 ;} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1220:/ clear"); /*clear*/ /*_.LTYP__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1220:/ clear"); /*clear*/ /*_.LOFF__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1220:/ clear"); /*clear*/ /*_.LCNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1220:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJLOCV", 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_42_OUTPUCOD_OBJLOCV*/ static basilys_ptr_t rout_43_OUTPUCOD_OBJCLOCCV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCLOCCV_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCLOCCV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ getarg"); /*_.OCCV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCLOCCV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check occv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1248)?(1248):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1248:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1250:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V8*/ curfptr[7] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1252:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCCV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V10*/ curfptr[9] = slot; }; ; /*_#__L3*/ curfnum[1] = ((/*_.OBV_TYPE__V10*/ curfptr[9]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ cond"); /*cond*/ if (/*_#__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valueness of closed occurrence"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1251)?(1251):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ clear"); /*clear*/ /*_.OBV_TYPE__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ clear"); /*clear*/ /*_#__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1251:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*~")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V8*/ curfptr[7]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfclos->tabval[")); /*_#GET_INT__L4*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.OOFF__V7*/ curfptr[5])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L4*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ clear"); /*clear*/ /*_.OOFF__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ clear"); /*clear*/ /*_.ONAM__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1249:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCLOCCV", 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_43_OUTPUCOD_OBJCLOCCV*/ static basilys_ptr_t rout_44_OUTPUCOD_OBJCONSTV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCONSTV_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCONSTV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ getarg"); /*_.OCNSTV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCONSTV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ocnstv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1265)?(1265):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1265:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objconstv ocnstv"; BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ apply.arg"); argtab[3].bp_long = 1266; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1266:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 1, "OBC_OFF");/*_.OOFF__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1268:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 3, "OBC_NAME");/*_.ONAM__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1270:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCNSTV__V2*/ curfptr[1]), 0, "OBV_TYPE");/*_.OBV_TYPE__V12*/ curfptr[11] = slot; }; ; /*_#__L4*/ curfnum[1] = ((/*_.OBV_TYPE__V12*/ curfptr[11]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ cond"); /*cond*/ if (/*_#__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check valueness of const occurrence"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1269)?(1269):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ clear"); /*clear*/ /*_.OBV_TYPE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ clear"); /*clear*/ /*_#__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1269:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(/*!")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ONAM__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ curfrout->tabval[")); /*_#GET_INT__L5*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.OOFF__V9*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "])")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ clear"); /*clear*/ /*_.OOFF__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ clear"); /*clear*/ /*_.ONAM__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1267:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCONSTV", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_44_OUTPUCOD_OBJCONSTV*/ static basilys_ptr_t rout_45_OUTPUT_CODE_INSTRUCTIONS_LIST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_45_OUTPUT_CODE_INSTRUCTIONS_LIST_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 12 void* varptr[12]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<12; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 12; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ getarg"); /*_.LIS__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.BOXEDDEPTH__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = ((/*_.LIS__V2*/ curfptr[1]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.LIS__V2*/ curfptr[1])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lis"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1283)?(1283):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1283:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.BOXEDDEPTH__V5*/ curfptr[4])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ cond.then"); /*_.IFELSE___V9*/ curfptr[8] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check boxeddepth"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1284)?(1284):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V8*/ curfptr[6] = /*_.IFELSE___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ clear"); /*clear*/ /*_.IFELSE___V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1284:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V11*/ curfptr[10] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_3*/ curfrout->tabval[3])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ 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)(/*_.BOXEDDEPTH__V5*/ curfptr[4]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V11*/ curfptr[10])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V11*/ curfptr[10]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V11*/ curfptr[10])->tabval[2] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V10*/ curfptr[8] = /*_.LAMBDA___V11*/ curfptr[10];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1285:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1285:/ 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[0])), (basilys_ptr_t)(/*_.LIS__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LIST_EVERY__V12*/ curfptr[11];; BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ clear"); /*clear*/ /*_.LAMBDA___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ clear"); /*clear*/ /*_.LIST_EVERY__V12*/ curfptr[11] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_CODE_INSTRUCTIONS_LIST", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_45_OUTPUT_CODE_INSTRUCTIONS_LIST*/ 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]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ getarg"); /*_.CUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1288:/ block"); /*block*/{ /*_#DEPTH__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXEDDEPTH*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ cond"); /*cond*/ if (/*_.CUR__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ block"); /*block*/{ /*_#IS_NOT_A__L3*/ curfnum[2] = !basilys_is_instance_of((basilys_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#IF___L2*/ curfnum[1] = /*_#IS_NOT_A__L3*/ curfnum[2];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ clear"); /*clear*/ /*_#IS_NOT_A__L3*/ curfnum[2] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1292:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1292:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.bysl:1292:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1292:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CUR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); BASILYS_LOCATION("warmelt-outobj.bysl:1290:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1289:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1288:/ clear"); /*clear*/ /*_#DEPTH__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1288:/ clear"); /*clear*/ /*_#IF___L2*/ curfnum[1] = 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_46_LAMBDA_*/ static basilys_ptr_t rout_47_OUTPUCOD_OBJBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_47_OUTPUCOD_OBJBLOCK_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJBLOCK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJBLOCK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1300)?(1300):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1300:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ apply.arg"); argtab[3].bp_long = 1301; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1301:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1302:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1302:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1302:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1302:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1302:/ apply.arg"); argtab[2].bp_cstring = "block"; /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1304:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V13*/ curfptr[12] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*block*/{")); /*_#IS_LIST__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1308:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1308:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1308:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1309:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1309:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1309:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1309:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V14*/ curfptr[13] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1308:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V15*/ curfptr[14] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1308:/ cond.else"); /*_.IF___V14*/ curfptr[13] = NULL;; } ; /*_#IS_LIST__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ block"); /*block*/{ /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*epilog*/")); BASILYS_LOCATION("warmelt-outobj.bysl:1314:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1314:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1314:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1314:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1311:/ block"); /*block*/{ /*_.PROGN___V18*/ curfptr[17] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16];;} ; /*_.IF___V16*/ curfptr[14] = /*_.PROGN___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ clear"); /*clear*/ /*_.PROGN___V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1310:/ cond.else"); /*_.IF___V16*/ curfptr[14] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1303:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[14] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock done oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ apply.arg"); argtab[3].bp_long = 1318; /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V19*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V20*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V20*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1318:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V19*/ curfptr[16];; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ clear"); /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[16] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJBLOCK", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_47_OUTPUCOD_OBJBLOCK*/ static basilys_ptr_t rout_48_OUTPUCOD_OBJCITERBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCITERBLOCK_st { unsigned nbvar; #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 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<35; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; 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("OUTPUCOD_OBJCITERBLOCK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ getarg"); /*_.OBCIT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCITERBLOCK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obcit"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1324)?(1324):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1324:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objciterblock obcit"; BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ apply.arg"); argtab[3].bp_long = 1325; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1325:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1327:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1328:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V11*/ curfptr[10] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V12*/ curfptr[11] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:1330:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 4, "OBCITER_BEFORE");/*_.OBEFORE__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1331:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 5, "OBCITER_AFTER");/*_.OAFTER__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1332:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCIT__V2*/ curfptr[1]), 3, "OBCITER_CITER");/*_.CITER__V15*/ curfptr[14] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.CITER__V15*/ curfptr[14]), (basilys_ptr_t)((/*!CLASS_CITERATOR*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ cond.then"); /*_.IFELSE___V17*/ curfptr[16] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check citer"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1334)?(1334):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1334:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1335:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1335:/ apply.arg"); argtab[0].bp_cstring = "citerblock"; /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerblock ")); BASILYS_LOCATION("warmelt-outobj.bysl:1337:/ getslot"); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V19*/ curfptr[18] = slot; }; ; basilysgc_add_strbuf_ccomment((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V19*/ curfptr[18]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/ {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1340:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1340:/ apply.arg"); argtab[0].bp_cstring = "citerbefore"; /*_.OUTPUT_LOCATION__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ 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)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[21])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]); ; /*_.LAMBDA___V21*/ curfptr[20] = /*_.LAMBDA___V22*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1341:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1341:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[20]; /*_.MULTIPLE_EVERY__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OBEFORE__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1347:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1347:/ apply.arg"); argtab[0].bp_cstring = "citerbody"; /*_.OUTPUT_LOCATION__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_LIST__L6*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.BODYL__V10*/ curfptr[9])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1348:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1348:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1348:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1349:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1349:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1349:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1349:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.BODYL__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V25*/ curfptr[24] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1348:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V26*/ curfptr[25] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1348:/ cond.else"); /*_.IF___V25*/ curfptr[24] = NULL;; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1351:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1351:/ apply.arg"); argtab[0].bp_cstring = "citerafter"; /*_.OUTPUT_LOCATION__V27*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11]); ; /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1352:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1352:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27]; /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OAFTER__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1358:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1358:/ apply.arg"); argtab[0].bp_cstring = "citerepil"; /*_.OUTPUT_LOCATION__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_LIST__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.EPIL__V11*/ curfptr[10])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ cond"); /*cond*/ if (/*_#IS_LIST__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ block"); /*block*/{ /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V12*/ curfptr[11])));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L8*/ curfnum[7]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*citerepilog*/")); BASILYS_LOCATION("warmelt-outobj.bysl:1363:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1363:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1363:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1363:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V12*/ curfptr[11]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[8])), (basilys_ptr_t)(/*_.EPIL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1360:/ block"); /*block*/{ /*_.PROGN___V34*/ curfptr[33] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32];;} ; /*_.IF___V32*/ curfptr[31] = /*_.PROGN___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1359:/ cond.else"); /*_.IF___V32*/ curfptr[31] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*endciterblock ")); BASILYS_LOCATION("warmelt-outobj.bysl:1365:/ getslot"); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CITER__V15*/ curfptr[14]), 1, "NAMED_NAME");/*_.NAMED_NAME__V35*/ curfptr[32] = slot; }; ; basilysgc_add_strbuf_ccomment((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V35*/ curfptr[32]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.BODYL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.EPIL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OBEFORE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OAFTER__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.CITER__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.NAMED_NAME__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.IF___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V31*/ curfptr[30] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_#IS_LIST__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.IF___V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1326:/ clear"); /*clear*/ /*_.NAMED_NAME__V35*/ curfptr[32] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCITERBLOCK", 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_48_OUTPUCOD_OBJCITERBLOCK*/ 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]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ getarg"); /*_.OBEF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ 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-outobj.bysl:1343:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1344:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1344:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1344:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1344:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.OBEF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_49_LAMBDA_*/ static basilys_ptr_t rout_50_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_50_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ getarg"); /*_.OAFT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ 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-outobj.bysl:1354:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1355:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1355:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1355:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1355:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.OAFT__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_50_LAMBDA_*/ static basilys_ptr_t rout_51_OUTPUCOD_OBJCOMMENTINSTR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCOMMENTINSTR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 13 void* varptr[13]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<13; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 13; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCOMMENTINSTR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ getarg"); /*_.OBCI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCOMMENTINSTR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obci"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1374)?(1374):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1374:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1376:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCI__V2*/ curfptr[1]), 1, "OBCI_COMMENT");/*_.COMS__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1377:/ block"); /*block*/{ /*_.SBU__V10*/ curfptr[9] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[1])), (char*)0);; basilysgc_add_strbuf_ccomment((struct basilysstrbuf_st *)(/*_.SBU__V10*/ curfptr[9]), basilys_string_str((basilys_ptr_t)(/*_.COMS__V8*/ curfptr[7]))); /*_.STRBUF2STRING__V11*/ curfptr[10] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[2])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBU__V10*/ curfptr[9]))));; /*_.LET___V9*/ curfptr[8] = /*_.STRBUF2STRING__V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1377:/ clear"); /*clear*/ /*_.SBU__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1377:/ clear"); /*clear*/ /*_.STRBUF2STRING__V11*/ curfptr[10] = 0 ;} ; /*_.COMSTR__V12*/ curfptr[9] = /*_.LET___V9*/ curfptr[8];; BASILYS_LOCATION("warmelt-outobj.bysl:1382:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1382:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1382:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1382:/ apply.arg"); argtab[2].bp_cstring = "comment"; /*_.OUTPUT_LOCATION__V13*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/**COMMENT: ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V12*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " **/;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ clear"); /*clear*/ /*_.COMS__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ clear"); /*clear*/ /*_.LET___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ clear"); /*clear*/ /*_.COMSTR__V12*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1375:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCOMMENTINSTR", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_51_OUTPUCOD_OBJCOMMENTINSTR*/ static basilys_ptr_t rout_52_OUTPUCOD_OBJCOMMENTEDBLOCK(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCOMMENTEDBLOCK_st { unsigned nbvar; #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 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<25; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 25; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCOMMENTEDBLOCK", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCOMMENTEDBLOCK*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1393)?(1393):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1393:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objblock oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ apply.arg"); argtab[3].bp_long = 1394; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1394:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1395:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1395:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1395:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1395:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1395:/ apply.arg"); argtab[2].bp_cstring = "block"; /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBI_LOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1397:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V12*/ curfptr[11] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V13*/ curfptr[12] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L4*/ curfnum[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:1399:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OCOMBLO_COMMENT");/*_.COMS__V14*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1400:/ block"); /*block*/{ /*_.SBU__V16*/ curfptr[15] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[4])), (char*)0);; basilysgc_add_strbuf_ccomment((struct basilysstrbuf_st *)(/*_.SBU__V16*/ curfptr[15]), basilys_string_str((basilys_ptr_t)(/*_.COMS__V14*/ curfptr[13]))); /*_.STRBUF2STRING__V17*/ curfptr[16] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), basilys_strbuf_str((basilys_ptr_t)(/*_.SBU__V16*/ curfptr[15]))));; /*_.LET___V15*/ curfptr[14] = /*_.STRBUF2STRING__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1400:/ clear"); /*clear*/ /*_.SBU__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1400:/ clear"); /*clear*/ /*_.STRBUF2STRING__V17*/ curfptr[16] = 0 ;} ; /*_.COMSTR__V18*/ curfptr[15] = /*_.LET___V15*/ curfptr[14];; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.block:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/{")); /*_#IS_LIST__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.BODYL__V11*/ curfptr[10])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1408:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1408:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1408:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1409:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1409:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1409:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1409:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.BODYL__V11*/ curfptr[10]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V19*/ curfptr[16] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1408:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1408:/ cond.else"); /*_.IF___V19*/ curfptr[16] = NULL;; } ; /*_#IS_LIST__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.EPIL__V12*/ curfptr[11])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ block"); /*block*/{ /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12])));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*comp.epilog:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); BASILYS_LOCATION("warmelt-outobj.bysl:1416:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1416:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1416:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1416:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.BOXDEPTHP1__V13*/ curfptr[12]; /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_CODE_INSTRUCTIONS_LIST*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.EPIL__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1411:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21];;} ; /*_.IF___V21*/ curfptr[19] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ clear"); /*clear*/ /*_.OUTPUT_CODE_INSTRUCTIONS_LIST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1410:/ cond.else"); /*_.IF___V21*/ curfptr[19] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*com.end block:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMSTR__V18*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.BODYL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.EPIL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.COMS__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.LET___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.COMSTR__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1396:/ clear"); /*clear*/ /*_.IF___V21*/ curfptr[19] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcommentedblock done oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L8*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ apply.arg"); argtab[3].bp_long = 1423; /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V24*/ curfptr[21] = /*_.DEBUG_MSG_FUN__V25*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V25*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1423:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V24*/ curfptr[21];; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ clear"); /*clear*/ /*_.OBI_LOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[21] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCOMMENTEDBLOCK", 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_OUTPUCOD_OBJCOMMENTEDBLOCK*/ static basilys_ptr_t rout_53_ADD2SBUF_CLONSYM(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_ADD2SBUF_CLONSYM_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("ADD2SBUF_CLONSYM", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ getarg"); /*_.SBUF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.CSY__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.CSY__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ block"); /*block*/{ /*_#IS_STRBUF__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SBUF__V2*/ curfptr[1])) == OBMAG_STRBUF);; BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ cond"); /*cond*/ if (/*_#IS_STRBUF__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check sbuf"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1430)?(1430):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ clear"); /*clear*/ /*_#IS_STRBUF__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1430:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CSY__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_CLONEDSYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check csy"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1431)?(1431):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V6*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1431:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1432:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1432:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.CNAM__V8*/ curfptr[6] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1433:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CSY__V3*/ curfptr[2]), 3, "CSYM_URANK");/*_.CSYM_URANK__V9*/ curfptr[8] = slot; }; ; /*_#RK__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)(/*_.CSYM_URANK__V9*/ curfptr[8])));; basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.SBUF__V2*/ curfptr[1]), basilys_string_str((basilys_ptr_t)(/*_.CNAM__V8*/ curfptr[6]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.SBUF__V2*/ curfptr[1]), ( "_")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.SBUF__V2*/ curfptr[1]), (/*_#RK__L3*/ curfnum[0])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1432:/ clear"); /*clear*/ /*_.CNAM__V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1432:/ clear"); /*clear*/ /*_.CSYM_URANK__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1432:/ clear"); /*clear*/ /*_#RK__L3*/ curfnum[0] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("ADD2SBUF_CLONSYM", 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_53_ADD2SBUF_CLONSYM*/ static basilys_ptr_t rout_54_OUTPUCOD_OBJLOOP(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_54_OUTPUCOD_OBJLOOP_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 33 void* varptr[33]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<33; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 33; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJLOOP", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ getarg"); /*_.OBLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOOP*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oblo"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1441)?(1441):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1441:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objloop oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ apply.arg"); argtab[3].bp_long = 1442; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1442:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 1, "OBLO_BODYL");/*_.BODYL__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1444:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 2, "OBLO_EPIL");/*_.EPIL__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1445:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 3, "OBLOOP_LABEL");/*_.LAB__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1446:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V12*/ curfptr[11] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V13*/ curfptr[12] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.LAB__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_CLONEDSYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lab"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1449)?(1449):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1449:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1450:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1450:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1450:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1450:/ apply.arg"); argtab[2].bp_cstring = "loop"; /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loop*/{ labloop_")); BASILYS_LOCATION("warmelt-outobj.bysl:1452:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1452:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAB__V11*/ curfptr[10]; /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;")); /*_#IS_LIST__L6*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.BODYL__V9*/ curfptr[7])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1456:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1456:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1456:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1456:/ apply.arg"); argtab[2].bp_cstring = "loopbody"; /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_9*/ curfrout->tabval[9])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ 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)(/*_.BOXDEPTHP1__V13*/ curfptr[12]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ 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)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1458:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1458:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; /*_.LIST_EVERY__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.BODYL__V9*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1455:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.LIST_EVERY__V22*/ curfptr[21];;} ; /*_.IF___V18*/ curfptr[17] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ clear"); /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1454:/ cond.else"); /*_.IF___V18*/ curfptr[17] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L8*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[6]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labloop_")); BASILYS_LOCATION("warmelt-outobj.bysl:1469:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1469:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAB__V11*/ curfptr[10]; /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " labexit_")); BASILYS_LOCATION("warmelt-outobj.bysl:1473:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1473:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAB__V11*/ curfptr[10]; /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ":;")); /*_#IS_LIST__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.EPIL__V10*/ curfptr[9])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ cond"); /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1477:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1477:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1477:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1477:/ apply.arg"); argtab[2].bp_cstring = "loopepilog"; /*_.OUTPUT_LOCATION__V27*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*loopepilog*/")); /*_#I__L11*/ curfnum[10] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_12*/ curfrout->tabval[12])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V13*/ curfptr[12]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V28*/ curfptr[27] = /*_.LAMBDA___V29*/ curfptr[28];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1480:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1480:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[27]; /*_.LIST_EVERY__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.EPIL__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1476:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[30] = /*_.LIST_EVERY__V30*/ curfptr[29];;} ; /*_.IF___V26*/ curfptr[21] = /*_.PROGN___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ clear"); /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1475:/ cond.else"); /*_.IF___V26*/ curfptr[21] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.BODYL__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.EPIL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.LAB__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.OLOC__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.IF___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V24*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V25*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_#IS_LIST__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1443:/ clear"); /*clear*/ /*_.IF___V26*/ curfptr[21] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objloop done oblo"; BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[10]; BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ apply.arg"); argtab[3].bp_long = 1491; /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V32*/ curfptr[22] = /*_.DEBUG_MSG_FUN__V33*/ curfptr[27];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V33*/ curfptr[27] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1491:/ cppif.else"); /*_.IFCPP___V32*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V32*/ curfptr[22];; BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ clear"); /*clear*/ /*_.IFCPP___V32*/ curfptr[22] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJLOOP", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_54_OUTPUCOD_OBJLOOP*/ 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 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ getarg"); /*_.CURBODY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1461:/ block"); /*block*/{ /*_#DEPTHP1__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond"); /*cond*/ if (/*_.CURBODY__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[2]));; /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1463:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1463:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1463:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.bysl:1463:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURBODY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1462:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1461:/ clear"); /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1461:/ clear"); /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1461:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_55_LAMBDA_*/ static basilys_ptr_t rout_56_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 4 void* varptr[4]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ getarg"); /*_.CUREPIL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1483:/ block"); /*block*/{ /*_#DEPTHP1__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond"); /*cond*/ if (/*_.CUREPIL__V2*/ curfptr[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[2] = basilys_is_instance_of((basilys_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[0])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[2]));; /*_#IF___L2*/ curfnum[1] = /*_#NOT__L4*/ curfnum[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond.else"); /*_#IF___L2*/ curfnum[1] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond"); /*cond*/ if (/*_#IF___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1485:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1485:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1485:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.bysl:1485:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTHP1__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CUREPIL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V3*/ curfptr[2] = /*_.OUTPUT_C_CODE__V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1484:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[2])), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[2])), (/*_#DEPTHP1__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1483:/ clear"); /*clear*/ /*_#DEPTHP1__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1483:/ clear"); /*clear*/ /*_#IF___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1483:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_56_LAMBDA_*/ static basilys_ptr_t rout_57_OUTPUCOD_OBJEXIT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_57_OUTPUCOD_OBJEXIT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJEXIT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ getarg"); /*_.OBXI__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJEXIT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obxi"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1498)?(1498):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1498:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objexit obxi"; BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ apply.arg"); argtab[3].bp_long = 1499; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1499:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 1, "OBEXIT_LABEL");/*_.OLAB__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1501:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBXI__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.LOC__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OLAB__V9*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_CLONEDSYMBOL*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check olab"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1503)?(1503):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1503:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1504:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1504:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1504:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1504:/ apply.arg"); argtab[2].bp_cstring = "exit"; /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.LOC__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*exit*/{")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " goto labexit_")); BASILYS_LOCATION("warmelt-outobj.bysl:1508:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1508:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OLAB__V9*/ curfptr[7]; /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!ADD2SBUF_CLONSYM*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ clear"); /*clear*/ /*_.OLAB__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ clear"); /*clear*/ /*_.LOC__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1500:/ clear"); /*clear*/ /*_.ADD2SBUF_CLONSYM__V14*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJEXIT", 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_57_OUTPUCOD_OBJEXIT*/ static basilys_ptr_t rout_58_OUTPUCOD_OBJCOMPUTE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCOMPUTE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 29 void* varptr[29]; #define CURFRAM_NBVARNUM 14 long varnum[14]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<29; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 29; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCOMPUTE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ getarg"); /*_.OBCOMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCOMPUTE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check obcomp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1516)?(1516):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1516:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.CDEST__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1518:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1519:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), 2, "OBCPT_EXPR");/*_.CEXP__V9*/ curfptr[8] = slot; }; ; /*_#I__L3*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V10*/ curfptr[9] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcompute obcomp"; BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ apply.arg"); argtab[3].bp_long = 1522; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OBCOMP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1522:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1523:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1523:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1523:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1523:/ apply.arg"); argtab[2].bp_cstring = "compute"; /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOC__V8*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_LIST__L5*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CDEST__V7*/ curfptr[5])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ cond"); /*cond*/ if (/*_#IS_LIST__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]); ; /*_.LAMBDA___V15*/ curfptr[14] = /*_.LAMBDA___V16*/ curfptr[15];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1525:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1525:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V15*/ curfptr[14]; /*_.LIST_EVERY__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CDEST__V7*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V14*/ curfptr[13] = /*_.LIST_EVERY__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ clear"); /*clear*/ /*_.LAMBDA___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ clear"); /*clear*/ /*_.LIST_EVERY__V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1524:/ cond.else"); /*_.IF___V14*/ curfptr[13] = NULL;; } ; /*_#IS_LIST__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ cond"); /*cond*/ if (/*_#IS_LIST__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ block"); /*block*/{ /*_#LIST_LENGTH__L7*/ curfnum[6] = (basilys_list_length((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));; /*_#I__L8*/ curfnum[7] = ((/*_#LIST_LENGTH__L7*/ curfnum[6]) > (2));; BASILYS_LOCATION("warmelt-outobj.bysl:1532:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1532:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1532:/ block"); /*block*/{ /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1532:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]); ; /*_.LAMBDA___V19*/ curfptr[16] = /*_.LAMBDA___V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1534:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1534:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[16]; /*_.LIST_EVERY__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.LIST_EVERY__V21*/ curfptr[20];;} ; /*_.IFELSE___V18*/ curfptr[14] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_#LIST_LENGTH__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ block"); /*block*/{ /*_#IS_MULTIPLE__L10*/ curfnum[8] = (basilys_magic_discr((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ block"); /*block*/{ /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = (basilys_multiple_length((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8])));; /*_#I__L12*/ curfnum[7] = ((/*_#MULTIPLE_LENGTH__L11*/ curfnum[6]) > (2));; BASILYS_LOCATION("warmelt-outobj.bysl:1539:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1539:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1539:/ block"); /*block*/{ /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1539:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_11*/ curfrout->tabval[11])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]); ; /*_.LAMBDA___V24*/ curfptr[20] = /*_.LAMBDA___V25*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1541:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1541:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[20]; /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.MULTIPLE_EVERY__V26*/ curfptr[25];;} ; /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ block"); /*block*/{ /*_#I__L14*/ curfnum[12] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1546:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1546:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1546:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1546:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L14*/ curfnum[12]; /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.CEXP__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[12])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1545:/ block"); /*block*/{ /*_.PROGN___V29*/ curfptr[25] = /*_.OUTPUT_C_CODE__V28*/ curfptr[20];;} ; /*_.IFELSE___V23*/ curfptr[16] = /*_.PROGN___V29*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1538:/ clear"); /*clear*/ /*_.PROGN___V29*/ curfptr[25] = 0 ;} ; } ; /*_.IFELSE___V18*/ curfptr[14] = /*_.IFELSE___V23*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1531:/ clear"); /*clear*/ /*_.IFELSE___V23*/ curfptr[16] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.CDEST__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.CLOC__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.CEXP__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_#IS_LIST__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.IF___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_#IS_LIST__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1517:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[14] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCOMPUTE", 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_58_OUTPUCOD_OBJCOMPUTE*/ static basilys_ptr_t rout_59_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_59_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 4 void* varptr[4]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<4; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 4; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ getarg"); /*_.DESTCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1528:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1528:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1528:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1528:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.DESTCUR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ block"); /*block*/{ /*_.RETVAL___V4*/ curfptr[3] = (/*nil*/NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETVAL___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ clear"); /*clear*/ /*_.RETVAL___V4*/ curfptr[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_59_LAMBDA_*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ getarg"); /*_.EXPCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1537:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1537:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1537:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1537:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_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]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ getarg"); /*_.EXPCUR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1544:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1544:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1544:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1544:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.EXPCUR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_61_LAMBDA_*/ static basilys_ptr_t rout_62_OUTPUCOD_OBJCOND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_62_OUTPUCOD_OBJCOND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 22 void* varptr[22]; #define CURFRAM_NBVARNUM 16 long varnum[16]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCOND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ getarg"); /*_.OCOND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCOND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ocond"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1555)?(1555):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1555:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcond ocond"; BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ apply.arg"); argtab[3].bp_long = 1556; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1556:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1558:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 1, "OBCOND_TEST");/*_.CTEST__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1559:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 2, "OBCOND_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1560:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), 3, "OBCOND_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ block"); /*block*/{ /*_#NOTNULL__L4*/ curfnum[1] = ((/*_.CTEST__V10*/ curfptr[9]) != NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ cond"); /*cond*/ if (/*_#NOTNULL__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ctest"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1562)?(1562):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ clear"); /*clear*/ /*_#NOTNULL__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1562:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1563:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1563:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1563:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1563:/ apply.arg"); argtab[2].bp_cstring = "cond"; /*_.OUTPUT_LOCATION__V15*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*cond*/ if (")); /*_#I__L5*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1565:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1565:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1565:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1565:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L5*/ curfnum[1]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CTEST__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") /*then*/ {")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ cond"); /*cond*/ if (/*_.CTHEN__V11*/ curfptr[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));; /*_#NOT__L8*/ curfnum[7] = (!(/*_#IS_A__L7*/ curfnum[6]));; /*_#IF___L6*/ curfnum[5] = /*_#NOT__L8*/ curfnum[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ clear"); /*clear*/ /*_#NOT__L8*/ curfnum[7] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ cond.else"); /*_#IF___L6*/ curfnum[5] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ cond"); /*cond*/ if (/*_#IF___L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1570:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1570:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1570:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1570:/ apply.arg"); argtab[2].bp_cstring = "cond.then"; /*_.OUTPUT_LOCATION__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L9*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1571:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1571:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1571:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1571:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L9*/ curfnum[6]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1569:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1568:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond"); /*cond*/ if (/*_.CELSE__V12*/ curfptr[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ block"); /*block*/{ /*_#IS_A__L11*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_OBJPUREVALUE*/ curfrout->tabval[4])));; /*_#NOT__L12*/ curfnum[11] = (!(/*_#IS_A__L11*/ curfnum[6]));; /*_#IF___L10*/ curfnum[7] = /*_#NOT__L12*/ curfnum[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_#NOT__L12*/ curfnum[11] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond.else"); /*_#IF___L10*/ curfnum[7] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond"); /*cond*/ if (/*_#IF___L10*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} else {")); BASILYS_LOCATION("warmelt-outobj.bysl:1579:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1579:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1579:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1579:/ apply.arg"); argtab[2].bp_cstring = "cond.else"; /*_.OUTPUT_LOCATION__V19*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L13*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[6]), 0); /*_#I__L14*/ curfnum[11] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1581:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1581:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1581:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1581:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L14*/ curfnum[11]; /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); /*_#I__L15*/ curfnum[14] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); BASILYS_LOCATION("warmelt-outobj.bysl:1577:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1576:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "} /*noelse*/")); /*epilog*/} ; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.CTEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_#IF___L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1557:/ clear"); /*clear*/ /*_#IF___L10*/ curfnum[7] = 0 ;} ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcond end ocond"; BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L16*/ curfnum[6]; BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ apply.arg"); argtab[3].bp_long = 1590; /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OCOND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V21*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V22*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L16*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V22*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1590:/ cppif.else"); /*_.IFCPP___V21*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V21*/ curfptr[16];; BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ clear"); /*clear*/ /*_.IFCPP___V21*/ curfptr[16] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCOND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_62_OUTPUCOD_OBJCOND*/ static basilys_ptr_t rout_63_OUTPUCOD_OBJCPPIF(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_63_OUTPUCOD_OBJCPPIF_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCPPIF", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ getarg"); /*_.OPIF__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCPPIF*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opif"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1597)?(1597):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1597:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objcppif opif"; BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ apply.arg"); argtab[3].bp_long = 1598; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1598:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1600:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 1, "OBIFP_COND");/*_.CCOND__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1601:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 2, "OBIFP_THEN");/*_.CTHEN__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1602:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPIF__V2*/ curfptr[1]), 3, "OBIFP_ELSE");/*_.CELSE__V12*/ curfptr[11] = slot; }; ; /*_#DEPTHP1__L4*/ curfnum[1] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[4] = (basilys_magic_discr((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ccond"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1605)?(1605):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1605:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1606:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1606:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1606:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1606:/ apply.arg"); argtab[2].bp_cstring = "cppif"; /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#if ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1610:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1610:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1610:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1610:/ apply.arg"); argtab[2].bp_cstring = "cppif.then"; /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1611:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1611:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1611:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1611:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.CTHEN__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#else /*")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1617:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1617:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1617:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1617:/ apply.arg"); argtab[2].bp_cstring = "cppif.else"; /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1618:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1618:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1618:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1618:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTHP1__L4*/ curfnum[1]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.CELSE__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#endif /*")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CCOND__V10*/ curfptr[9]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTHP1__L4*/ curfnum[1]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.CCOND__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.CTHEN__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.CELSE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_#DEPTHP1__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1599:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCPPIF", 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_63_OUTPUCOD_OBJCPPIF*/ static basilys_ptr_t rout_64_OUTPUCOD_OBJINTERNSYMBOL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJINTERNSYMBOL_st { unsigned nbvar; #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 5 long varnum[5]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJINTERNSYMBOL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ getarg"); /*_.OISY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINTERNSYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oisy"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1629)?(1629):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1629:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objinternsymbol oisy"; BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ apply.arg"); argtab[3].bp_long = 1630; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OISY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1630:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1632:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OISY__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1633:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1634:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1636)?(1636):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1636:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oidat"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1637)?(1637):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1637:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; }; ; /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ apply.arg"); argtab[1].bp_long = 1; BASILYS_LOCATION("warmelt-outobj.bysl:1639:/ apply.arg"); argtab[2].bp_cstring = "internsymbol"; /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internsym:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) basilysgc_intern_symbol((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:1645:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1645:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1645:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1645:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ clear"); /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1638:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1631:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJINTERNSYMBOL", 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_64_OUTPUCOD_OBJINTERNSYMBOL*/ static basilys_ptr_t rout_65_OUTPUCOD_OBJINTERNKEYWORD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJINTERNKEYWORD_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJINTERNKEYWORD", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ getarg"); /*_.OIKW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINTERNKEYWORD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oikw"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1653)?(1653):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1653:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objinternkeyword oikw"; BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ apply.arg"); argtab[3].bp_long = 1654; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1654:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1656:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIKW__V2*/ curfptr[1]), 1, "OBINTERN_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1657:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OIDAT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1658:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oidat"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1660)?(1660):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1660:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V15*/ curfptr[13] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V17*/ curfptr[16] = slot; }; ; /*_.IFELSE___V16*/ curfptr[15] = /*_.NREP_LOC__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ clear"); /*clear*/ /*_.NREP_LOC__V17*/ curfptr[16] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1662:/ apply.arg"); argtab[2].bp_cstring = "internkeyword"; /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.IFELSE___V16*/ curfptr[15]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*internkeyw:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V15*/ curfptr[13]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(void) basilysgc_intern_keyword((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:1668:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1668:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1668:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1668:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[4])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ clear"); /*clear*/ /*_.NSY__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1661:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ clear"); /*clear*/ /*_.OIDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1655:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJINTERNKEYWORD", 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_65_OUTPUCOD_OBJINTERNKEYWORD*/ static basilys_ptr_t rout_66_OUTPUCOD_OBJGETNAMEDSYMBOL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJGETNAMEDSYMBOL_st { unsigned nbvar; #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 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJGETNAMEDSYMBOL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ getarg"); /*_.OGSY__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJGETNAMEDSYMBOL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogsy"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1676)?(1676):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1676:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetnamedsymbol ogsy"; BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ apply.arg"); argtab[3].bp_long = 1677; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1677:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1679:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSY__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1680:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1681:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1683)?(1683):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1683:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATASYMBOL*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogdat"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1684)?(1684):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1684:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NSY__V17*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; }; ; /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1687:/ apply.arg"); argtab[2].bp_cstring = "getnamedsymbol"; /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedsym:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = basilysgc_named_symbol(\"")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", BASILYS_GET);")); /*_#I__L6*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (sy_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " && NULL == ")); /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1701:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1701:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1701:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1701:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")")); /*_#I__L8*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0); /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1704:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1704:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1704:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1704:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L9*/ curfnum[8]; /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) sy_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NSY__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_.NSY__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1685:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1678:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJGETNAMEDSYMBOL", 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_66_OUTPUCOD_OBJGETNAMEDSYMBOL*/ static basilys_ptr_t rout_67_OUTPUCOD_OBJGETNAMEDKEYWORD(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJGETNAMEDKEYWORD_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJGETNAMEDKEYWORD", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ getarg"); /*_.OGKW__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJGETNAMEDKEYWORD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogkw"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1714)?(1714):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1714:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetnamedkeyword ogkw"; BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ apply.arg"); argtab[3].bp_long = 1715; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1715:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1717:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGKW__V2*/ curfptr[1]), 1, "OBGNAMED_IOBJ");/*_.OIOBJ__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1718:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 2, "OIE_DATA");/*_.OGDAT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1719:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), 4, "OIE_LOCVAR");/*_.OILOCV__V12*/ curfptr[11] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OIOBJ__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_OBJINITOBJECT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oiobj"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1721)?(1721):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1721:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_NREP_DATAKEYWORD*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogdat"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1722)?(1722):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1722:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 9, "NDSY_NAMESTR");/*_.NKW__V17*/ curfptr[15] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ cond"); /*cond*/ if (/*_.CLOC__V9*/ curfptr[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = /*_.CLOC__V9*/ curfptr[7];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGDAT__V11*/ curfptr[10]), 0, "NREP_LOC");/*_.NREP_LOC__V19*/ curfptr[18] = slot; }; ; /*_.IFELSE___V18*/ curfptr[17] = /*_.NREP_LOC__V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ clear"); /*clear*/ /*_.NREP_LOC__V19*/ curfptr[18] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1724:/ apply.arg"); argtab[2].bp_cstring = "getnamedkeyword"; /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.IFELSE___V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*getnamedkeyw:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t kw_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = basilysgc_named_keyword(\"")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", BASILYS_GET);")); /*_#I__L6*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[1]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (kw_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") ")); /*_#I__L7*/ curfnum[6] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1738:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1738:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1738:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1738:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OILOCV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = (void*) kw_")); basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NKW__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "; }")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_.NKW__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V20*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1723:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.OIOBJ__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.OGDAT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.OILOCV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1716:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJGETNAMEDKEYWORD", 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_67_OUTPUCOD_OBJGETNAMEDKEYWORD*/ static basilys_ptr_t rout_68_OUTPUCOD_OBJAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJAPPLY_st { unsigned nbvar; #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 14 long varnum[14]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<30; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; 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("OUTPUCOD_OBJAPPLY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ getarg"); /*_.OAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJAPPLY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oapp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1749)?(1749):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1749:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objapply oapp"; BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ apply.arg"); argtab[3].bp_long = 1750; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1750:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1752:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1753:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1754:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1755:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; }; ; /*_#NBARG__L4*/ curfnum[1] = (basilys_multiple_length((basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));; /*_.PARAMDESCLIST__V13*/ curfptr[12] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_#I__L5*/ curfnum[4] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.BOXDEPTHP1__V14*/ curfptr[13] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:1760:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1760:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1760:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1760:/ apply.arg"); argtab[2].bp_cstring = "apply"; /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*apply*/{")); /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0); /*_#I__L7*/ curfnum[6] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); /*_#I__L8*/ curfnum[7] = ((/*_#NBARG__L4*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L10*/ curfnum[9] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L10*/ curfnum[9]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V18*/ curfptr[17] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[0] = (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[3] = (basilys_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V18*/ curfptr[17])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V18*/ curfptr[17]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V18*/ curfptr[17])->tabval[4] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V17*/ curfptr[16] = /*_.LAMBDA___V18*/ curfptr[17];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1772:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1772:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V17*/ curfptr[16]; /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1764:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.MULTIPLE_EVERY__V19*/ curfptr[18];;} ; /*_.IF___V16*/ curfptr[15] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_.LAMBDA___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1763:/ cond.else"); /*_.IF___V16*/ curfptr[15] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V22*/ curfptr[18] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_17*/ curfrout->tabval[17])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V22*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V22*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V22*/ curfptr[18])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13]); ; /*_.LAMBDA___V21*/ curfptr[16] = /*_.LAMBDA___V22*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1805:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1805:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V21*/ curfptr[16]; /*_.LIST_EVERY__V23*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_apply ((basilysclosure_ptr_t)(")); /*_#I__L11*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:1812:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1812:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1812:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1812:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L11*/ curfnum[7]; /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:1815:/ block"); /*block*/{ /*_.FIRSTARG__V26*/ curfptr[25] = (basilys_multiple_nth((basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));; /*_#I__L12*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:1816:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1816:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1816:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1816:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L12*/ curfnum[8]; /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = basilysgc_send((basilys_ptr_t)(/*_.FIRSTARG__V26*/ curfptr[25]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[18])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V25*/ curfptr[24] = /*_.OUTPUT_C_CODE__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1815:/ clear"); /*clear*/ /*_.FIRSTARG__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1815:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1815:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[26] = 0 ;} ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.bysl:1822:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1822:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[26] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_19*/ curfrout->tabval[19])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1822:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[26])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[26]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[26])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V28*/ curfptr[25] = /*_.LAMBDA___V29*/ curfptr[26];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1820:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1820:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[25]; /*_.LIST_EVERY__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[15])), (basilys_ptr_t)(/*_.PARAMDESCLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L13*/ curfnum[9] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1827:/ cond"); /*cond*/ if (/*_#I__L13*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1827:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1827:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1827:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1827:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0,")); /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union basilysparam_un*)0")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L14*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[8]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.IF___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.LAMBDA___V21*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.LIST_EVERY__V23*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.LET___V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_.LIST_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1751:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJAPPLY", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_68_OUTPUCOD_OBJAPPLY*/ static basilys_ptr_t rout_69_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_69_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 22 void* varptr[22]; #define CURFRAM_NBVARNUM 15 long varnum[15]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curarg"; BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ apply.arg"); argtab[3].bp_long = 1775; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURARG__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-outobj.bysl:1775:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1775:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJINSTR*/ curfrout->tabval[1])));; /*_#NOT__L4*/ curfnum[3] = (!(/*_#IS_A__L3*/ curfnum[1]));; BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ cond"); /*cond*/ if (/*_#NOT__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outputcod_objapply check curarg not objinstr"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1776)?(1776):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[3] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ clear"); /*clear*/ /*_#NOT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1776:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L5*/ curfnum[1] = ((/*_#CURANK__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1778:/ cond"); /*cond*/ if (/*_#I__L5*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1778:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1778:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ block"); /*block*/{ /*_.THE_NULL__V7*/ curfptr[5] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V7*/ curfptr[5]; /*_.CURCTYP__V8*/ curfptr[7] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[2])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curctyp"; BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ apply.arg"); argtab[3].bp_long = 1780; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURCTYP__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V9*/ curfptr[8] = /*_.DEBUG_MSG_FUN__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1780:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCTYP__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1781)?(1781):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1781:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L8*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1782:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1782:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1782:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L8*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1782:/ apply.arg"); argtab[2].bp_cstring = "apply.arg"; /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); /*_#I__L9*/ curfnum[8] = ((/*_#CURANK__L1*/ curfnum[0]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L9*/ curfnum[8])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:1786:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V8*/ curfptr[7]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V14*/ curfptr[13] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V14*/ curfptr[13])); /*_#NULL__L10*/ curfnum[9] = ((/*_.CURARG__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ cond"); /*cond*/ if (/*_#NULL__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ block"); /*block*/{ /*_#IS_A__L11*/ curfnum[10] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ cond"); /*cond*/ if (/*_#IS_A__L11*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ block"); /*block*/{ /*_#__L12*/ curfnum[11] = ((/*_.CURCTYP__V8*/ curfptr[7]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ cond"); /*cond*/ if (/*_#__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L13*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1793:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1793:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:1793:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1793:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L13*/ curfnum[12]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.OUTPUT_C_CODE__V18*/ curfptr[17];;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_#GET_INT__L13*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1796:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V8*/ curfptr[7]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V20*/ curfptr[17] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V20*/ curfptr[17]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L14*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1798:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1798:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:1798:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1798:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L14*/ curfnum[12]; /*_.OUTPUT_C_CODE__V21*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1795:/ block"); /*block*/{ /*_.PROGN___V22*/ curfptr[21] = /*_.OUTPUT_C_CODE__V21*/ curfptr[18];;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V22*/ curfptr[21];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V20*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_#GET_INT__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1791:/ clear"); /*clear*/ /*_.PROGN___V22*/ curfptr[21] = 0 ;} ; } ; /*_.IFELSE___V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ clear"); /*clear*/ /*_#__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1789:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; } ; /*_.IFELSE___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ clear"); /*clear*/ /*_#IS_A__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1787:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*_#GET_INT__L15*/ curfnum[12] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L15*/ curfnum[12]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.THE_NULL__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.CURCTYP__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_#NULL__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1779:/ clear"); /*clear*/ /*_#GET_INT__L15*/ curfnum[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_69_LAMBDA_*/ static basilys_ptr_t rout_70_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_70_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1808:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1808:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1808:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1808:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_70_LAMBDA_*/ static basilys_ptr_t rout_71_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_71_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1822:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1822:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_71_LAMBDA_*/ static basilys_ptr_t rout_72_OUTPUCOD_OBJMSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJMSEND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 29 void* varptr[29]; #define CURFRAM_NBVARNUM 13 long varnum[13]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<29; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 29; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJMSEND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ getarg"); /*_.OMSEND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJMSEND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check omsend"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1843)?(1843):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1843:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmsend omsend"; BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ apply.arg"); argtab[3].bp_long = 1844; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1844:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1846:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1847:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1848:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1849:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSEND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; }; ; /*_#NBARG__L4*/ curfnum[1] = (basilys_multiple_length((basilys_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));; /*_.PARAMDESCLIST__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_#I__L5*/ curfnum[4] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.BOXDEPTHP1__V15*/ curfptr[14] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L5*/ curfnum[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:1854:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1854:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1854:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1854:/ apply.arg"); argtab[2].bp_cstring = "msend"; /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*msend*/{")); /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[5]), 0); /*_#I__L7*/ curfnum[6] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ cond"); /*cond*/ if (/*_#I__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L8*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L8*/ curfnum[7]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V19*/ curfptr[18] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_13*/ curfrout->tabval[13])), (5)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[0] = (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[3] = (basilys_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V19*/ curfptr[18])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V19*/ curfptr[18]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V19*/ curfptr[18])->tabval[4] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V18*/ curfptr[17] = /*_.LAMBDA___V19*/ curfptr[18];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1869:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1869:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V18*/ curfptr[17]; /*_.MULTIPLE_EVERY__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OARGS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1861:/ block"); /*block*/{ /*_.PROGN___V21*/ curfptr[20] = /*_.MULTIPLE_EVERY__V20*/ curfptr[19];;} ; /*_.IF___V17*/ curfptr[16] = /*_.PROGN___V21*/ curfptr[20];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ clear"); /*clear*/ /*_.LAMBDA___V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ clear"); /*clear*/ /*_.PROGN___V21*/ curfptr[20] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1857:/ cond.else"); /*_.IF___V17*/ curfptr[16] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V23*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_16*/ curfrout->tabval[16])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[19])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V23*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V23*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V23*/ curfptr[19])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V15*/ curfptr[14]); ; /*_.LAMBDA___V22*/ curfptr[17] = /*_.LAMBDA___V23*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1901:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1901:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V22*/ curfptr[17]; /*_.LIST_EVERY__V24*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.ODEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilysgc_send((basilys_ptr_t)(")); /*_#I__L10*/ curfnum[7] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1907:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1907:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1907:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1907:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L10*/ curfnum[7]; /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = basilysgc_send((basilys_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); /*_#I__L11*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1909:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1909:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:1909:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1909:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L11*/ curfnum[8]; /*_.OUTPUT_C_CODE__V26*/ curfptr[25] = basilysgc_send((basilys_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[17])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.bysl:1914:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1914:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[27] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_18*/ curfrout->tabval[18])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1914:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[27])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[27]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[27])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V27*/ curfptr[26] = /*_.LAMBDA___V28*/ curfptr[27];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1912:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1912:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[26]; /*_.LIST_EVERY__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[14])), (basilys_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L12*/ curfnum[11] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1918:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1918:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1918:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab,")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1918:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1918:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0,")); /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"\", (union basilysparam_un*)0")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.IF___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.LAMBDA___V22*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.LIST_EVERY__V24*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_.LIST_EVERY__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1845:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJMSEND", 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_72_OUTPUCOD_OBJMSEND*/ static basilys_ptr_t rout_73_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_73_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 20 void* varptr[20]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objapply curarg"; BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ apply.arg"); argtab[3].bp_long = 1872; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURARG__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-outobj.bysl:1872:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1872:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V5*/ curfptr[3]; /*_.CURCTYP__V6*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ apply.arg"); argtab[0].bp_cstring = "outputcod_objmsend curctyp"; BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ apply.arg"); argtab[3].bp_long = 1874; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1874:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1875)?(1875):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1875:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L5*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1876:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1876:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1876:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1876:/ apply.arg"); argtab[2].bp_cstring = "ojbmsend.arg"; /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:1880:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V12*/ curfptr[11] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V12*/ curfptr[11])); /*_#NULL__L6*/ curfnum[5] = ((/*_.CURARG__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ block"); /*block*/{ /*_#IS_A__L7*/ curfnum[6] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJNIL*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = /*nil*/(basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ block"); /*block*/{ /*_#__L8*/ curfnum[7] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L9*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1889:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1889:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:1889:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1889:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L9*/ curfnum[8]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ block"); /*block*/{ /*_.PROGN___V17*/ curfptr[16] = /*_.OUTPUT_C_CODE__V16*/ curfptr[15];;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_.PROGN___V17*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1892:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V18*/ curfptr[15] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V18*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L10*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1894:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1894:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:1894:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1894:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L10*/ curfnum[8]; /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[6])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1891:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.OUTPUT_C_CODE__V19*/ curfptr[16];;} ; /*_.IFELSE___V15*/ curfptr[14] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1887:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } ; /*_.IFELSE___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1884:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1881:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*_#GET_INT__L11*/ curfnum[8] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#GET_INT__L11*/ curfnum[8]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1873:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ 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_73_LAMBDA_*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1904:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1904:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:1904:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1904:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_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 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1914:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1914:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_75_LAMBDA_*/ static basilys_ptr_t rout_76_OUTPUCOD_OBJMULTIAPPLY(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJMULTIAPPLY_st { unsigned nbvar; #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 27 long varnum[27]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<48; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 48; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJMULTIAPPLY", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ getarg"); /*_.OAPP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJMULTIAPPLY*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oapp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1934)?(1934):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1934:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply oapp"; BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ apply.arg"); argtab[3].bp_long = 1935; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1935:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1937:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ALOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1938:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ADEST__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1939:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 2, "OBAPP_CLOS");/*_.OCLOS__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1940:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 3, "OBAPP_ARGS");/*_.OARGS__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:1941:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OAPP__V2*/ curfptr[1]), 4, "OBMULTAPP_XRES");/*_.OXRES__V13*/ curfptr[12] = slot; }; ; /*_#NBARG__L4*/ curfnum[1] = (basilys_multiple_length((basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11])));; /*_#NBXRES__L5*/ curfnum[4] = (basilys_multiple_length((basilys_ptr_t)(/*_.OXRES__V13*/ curfptr[12])));; /*_.PARAMDESCLIST__V14*/ curfptr[13] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_.RESDESCLIST__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.BOXDEPTHP1__V16*/ curfptr[15] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = ((/*_.OARGS__V12*/ curfptr[11]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ cond.then"); /*_.IFELSE___V18*/ curfptr[17] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oargs"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1948)?(1948):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V17*/ curfptr[16] = /*_.IFELSE___V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ clear"); /*clear*/ /*_.IFELSE___V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1948:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ block"); /*block*/{ /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = ((/*_.OXRES__V13*/ curfptr[12]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.OXRES__V13*/ curfptr[12])) == OBMAG_MULTIPLE));; BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oxres"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1949)?(1949):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ clear"); /*clear*/ /*_#IS_MULTIPLE_OR_NULL__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1949:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:1950:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1950:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1950:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:1950:/ apply.arg"); argtab[2].bp_cstring = "multiapply"; /*_.OUTPUT_LOCATION__V21*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multiapply ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "args, ")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "x.res*/ ")); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{")); /*_#I__L9*/ curfnum[6] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[6]), 0); /*_#I__L10*/ curfnum[9] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1958:/ cond"); /*cond*/ if (/*_#I__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1958:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1958:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); /*_#I__L11*/ curfnum[10] = ((/*_#NBARG__L4*/ curfnum[1]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L12*/ curfnum[11] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L12*/ curfnum[11]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1959:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1958:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1958:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[11] = 0 ;} ; } /*noelse*/ ; /*_#I__L13*/ curfnum[10] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1965:/ cond"); /*cond*/ if (/*_#I__L13*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1965:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1965:/ block"); /*block*/{ /*_#I__L14*/ curfnum[11] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L14*/ curfnum[11]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un restab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L15*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1966:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1965:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1965:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } /*noelse*/ ; /*_#I__L16*/ curfnum[11] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[11]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));")); /*_#I__L17*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L17*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V24*/ curfptr[23] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ 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)(/*_.RESDESCLIST__V15*/ curfptr[14]); ; /*_.LAMBDA___V23*/ curfptr[22] = /*_.LAMBDA___V24*/ curfptr[23];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1978:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1978:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V23*/ curfptr[22]; /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1974:/ block"); /*block*/{ /*_.PROGN___V26*/ curfptr[25] = /*_.MULTIPLE_EVERY__V25*/ curfptr[24];;} ; /*_.IF___V22*/ curfptr[21] = /*_.PROGN___V26*/ curfptr[25];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ clear"); /*clear*/ /*_#I__L17*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ clear"); /*clear*/ /*_.LAMBDA___V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V25*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ clear"); /*clear*/ /*_.PROGN___V26*/ curfptr[25] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1973:/ cond.else"); /*_.IF___V22*/ curfptr[21] = NULL;; } ; /*_#I__L18*/ curfnum[14] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ cond"); /*cond*/ if (/*_#I__L18*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L19*/ curfnum[18] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L19*/ curfnum[18]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V28*/ curfptr[24] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5)); ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[0] = (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[3] = (basilys_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]); ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V28*/ curfptr[24])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V28*/ curfptr[24]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V28*/ curfptr[24])->tabval[4] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V27*/ curfptr[22] = /*_.LAMBDA___V28*/ curfptr[24];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:1988:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1988:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V27*/ curfptr[22]; /*_.MULTIPLE_EVERY__V29*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L20*/ curfnum[19] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L20*/ curfnum[19]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:1984:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ clear"); /*clear*/ /*_#I__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ clear"); /*clear*/ /*_.LAMBDA___V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V29*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1983:/ clear"); /*clear*/ /*_#GET_INT__L20*/ curfnum[19] = 0 ;} ; } /*noelse*/ ; /*_#I__L21*/ curfnum[18] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ cond"); /*cond*/ if (/*_#I__L21*/ curfnum[18]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V32*/ curfptr[31] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[0] = (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V32*/ curfptr[31])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V32*/ curfptr[31]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V32*/ curfptr[31])->tabval[3] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V31*/ curfptr[25] = /*_.LAMBDA___V32*/ curfptr[31];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2020:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2020:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V31*/ curfptr[25]; /*_.MULTIPLE_EVERY__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OXRES__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2019:/ block"); /*block*/{ /*_.PROGN___V34*/ curfptr[33] = /*_.MULTIPLE_EVERY__V33*/ curfptr[32];;} ; /*_.IF___V30*/ curfptr[22] = /*_.PROGN___V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ clear"); /*clear*/ /*_.LAMBDA___V31*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ clear"); /*clear*/ /*_.PROGN___V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2018:/ cond.else"); /*_.IF___V30*/ curfptr[22] = NULL;; } ; /*_#GET_INT__L22*/ curfnum[19] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15])));; BASILYS_LOCATION("warmelt-outobj.bysl:2046:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2046:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2046:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L22*/ curfnum[19]; BASILYS_LOCATION("warmelt-outobj.bysl:2046:/ apply.arg"); argtab[2].bp_cstring = "multiapply.appl"; /*_.OUTPUT_LOCATION__V35*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ALOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V37*/ curfptr[33] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V37*/ curfptr[33])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V37*/ curfptr[33]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V37*/ curfptr[33])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V16*/ curfptr[15]); ; /*_.LAMBDA___V36*/ curfptr[32] = /*_.LAMBDA___V37*/ curfptr[33];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2048:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2048:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V36*/ curfptr[32]; /*_.LIST_EVERY__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.ADEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilys_apply ((basilysclosure_ptr_t)(")); /*_#I__L23*/ curfnum[22] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2055:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2055:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2055:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2055:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L23*/ curfnum[22]; /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2058:/ block"); /*block*/{ /*_.FIRSTARG__V41*/ curfptr[40] = (basilys_multiple_nth((basilys_ptr_t)(/*_.OARGS__V12*/ curfptr[11]), (0)));; /*_#I__L24*/ curfnum[23] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2059:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2059:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2059:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2059:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L24*/ curfnum[23]; /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = basilysgc_send((basilys_ptr_t)(/*_.FIRSTARG__V41*/ curfptr[40]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V40*/ curfptr[39] = /*_.OUTPUT_C_CODE__V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2058:/ clear"); /*clear*/ /*_.FIRSTARG__V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2058:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2058:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V42*/ curfptr[41] = 0 ;} ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.bysl:2065:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2065:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V44*/ curfptr[41] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2065:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V44*/ curfptr[41])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V44*/ curfptr[41]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V44*/ curfptr[41])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V43*/ curfptr[40] = /*_.LAMBDA___V44*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2063:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2063:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V43*/ curfptr[40]; /*_.LIST_EVERY__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.PARAMDESCLIST__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L25*/ curfnum[23] = ((/*_#NBARG__L4*/ curfnum[1]) > (1));; BASILYS_LOCATION("warmelt-outobj.bysl:2070:/ cond"); /*cond*/ if (/*_#I__L25*/ curfnum[23]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2070:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2070:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, (")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2070:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2070:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0, (")); /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2076:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2076:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V47*/ curfptr[46] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2076:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V47*/ curfptr[46])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V47*/ curfptr[46]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V47*/ curfptr[46])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V46*/ curfptr[45] = /*_.LAMBDA___V47*/ curfptr[46];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2074:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2074:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V46*/ curfptr[45]; /*_.LIST_EVERY__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.RESDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L26*/ curfnum[25] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2081:/ cond"); /*cond*/ if (/*_#I__L26*/ curfnum[25]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2081:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2081:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2081:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2081:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0")); /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L27*/ curfnum[26] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L27*/ curfnum[26]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.ALOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.ADEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OCLOS__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OARGS__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OXRES__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.RESDESCLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V21*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.IF___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L18*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.IF___V30*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#GET_INT__L22*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V35*/ curfptr[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LAMBDA___V36*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LIST_EVERY__V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V39*/ curfptr[38] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LET___V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LAMBDA___V43*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LIST_EVERY__V45*/ curfptr[44] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L25*/ curfnum[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LAMBDA___V46*/ curfptr[45] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_.LIST_EVERY__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L26*/ curfnum[25] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1936:/ clear"); /*clear*/ /*_#I__L27*/ curfnum[26] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJMULTIAPPLY", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_76_OUTPUCOD_OBJMULTIAPPLY*/ static basilys_ptr_t rout_77_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_77_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V3*/ curfptr[2]; /*_.CURCTYP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:1982:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V4*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V5*/ curfptr[4] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ clear"); /*clear*/ /*_.CURCTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1981:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_77_LAMBDA_*/ static basilys_ptr_t rout_78_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_78_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 19 void* varptr[19]; #define CURFRAM_NBVARNUM 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curarg"; BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ apply.arg"); argtab[3].bp_long = 1991; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURARG__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-outobj.bysl:1991:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1991:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#I__L3*/ curfnum[1] = ((/*_#CURANK__L1*/ curfnum[0]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:1992:/ cond"); /*cond*/ if (/*_#I__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1992:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1992:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V5*/ curfptr[3]; /*_.CURCTYP__V6*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curctyp"; BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ apply.arg"); argtab[3].bp_long = 1994; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1994:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(1995)?(1995):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:1995:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L6*/ curfnum[3] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:1996:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1996:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:1996:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L6*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:1996:/ apply.arg"); argtab[2].bp_cstring = "multiapply.arg"; /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); /*_#I__L7*/ curfnum[6] = ((/*_#CURANK__L1*/ curfnum[0]) - (1));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#I__L7*/ curfnum[6])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:2000:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V12*/ curfptr[11] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V12*/ curfptr[11])); /*_#NULL__L8*/ curfnum[7] = ((/*_.CURARG__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ cond"); /*cond*/ if (/*_#NULL__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ block"); /*block*/{ /*_#__L9*/ curfnum[8] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ cond"); /*cond*/ if (/*_#__L9*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L10*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2006:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2006:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:2006:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2006:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L10*/ curfnum[9]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.OUTPUT_C_CODE__V15*/ curfptr[14];;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_#GET_INT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2009:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V17*/ curfptr[14]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L11*/ curfnum[9] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2011:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2011:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:2011:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2011:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L11*/ curfnum[9]; /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2008:/ block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.OUTPUT_C_CODE__V18*/ curfptr[15];;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_#GET_INT__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2004:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ clear"); /*clear*/ /*_#__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2002:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_#NULL__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1993:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_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 16 void* varptr[16]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V3*/ curfptr[2]; /*_.CURESTYP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultiapply curestyp"; BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ apply.arg"); argtab[3].bp_long = 2024; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2024:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curestyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2025)?(2025):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2025:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L4*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2026:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2026:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2026:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2026:/ apply.arg"); argtab[2].bp_cstring = "multiapply.xres"; /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~ALOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); /*_#NULL__L5*/ curfnum[4] = ((/*_.CURES__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ block"); /*block*/{ /*_#__L6*/ curfnum[5] = ((/*_.CURESTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2035:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2035:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.bysl:2035:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2035:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ block"); /*block*/{ /*_.PROGN___V13*/ curfptr[12] = /*_.OUTPUT_C_CODE__V12*/ curfptr[11];;} ; /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2038:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V14*/ curfptr[11] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V14*/ curfptr[11]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L8*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2040:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2040:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.bysl:2040:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2040:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6]; /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2037:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.OUTPUT_C_CODE__V15*/ curfptr[12];;} ; /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2033:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2031:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2023:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 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_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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2051:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2051:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2051:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2051:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_80_LAMBDA_*/ static basilys_ptr_t rout_81_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_81_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2065:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2065:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_81_LAMBDA_*/ 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 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2076:/ getarg"); /*_.RESD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2076:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.RESD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_82_LAMBDA_*/ static basilys_ptr_t rout_83_OUTPUCOD_OBJMULTIMSEND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJMULTIMSEND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 43 void* varptr[43]; #define CURFRAM_NBVARNUM 24 long varnum[24]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<43; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 43; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJMULTIMSEND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ getarg"); /*_.OMSND__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJMULTIMSEND*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check omsnd"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2097)?(2097):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2097:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend omsnd"; BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ apply.arg"); argtab[3].bp_long = 2098; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2098:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2100:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.ODEST__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2101:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 2, "OBMSND_SEL");/*_.OSEL__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2102:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 3, "OBMSND_RECV");/*_.ORECV__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2103:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 4, "OBMSND_ARGS");/*_.OARGS__V13*/ curfptr[12] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2104:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OMSND__V2*/ curfptr[1]), 5, "OBMULTSND_XRES");/*_.OXRES__V14*/ curfptr[13] = slot; }; ; /*_#NBARG__L4*/ curfnum[1] = (basilys_multiple_length((basilys_ptr_t)(/*_.OARGS__V13*/ curfptr[12])));; /*_#NBXRES__L5*/ curfnum[4] = (basilys_multiple_length((basilys_ptr_t)(/*_.OXRES__V14*/ curfptr[13])));; /*_.PARAMDESCLIST__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_.RESDESCLIST__V16*/ curfptr[15] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_#I__L6*/ curfnum[5] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; /*_.BOXDEPTHP1__V17*/ curfptr[16] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[3])), (/*_#I__L6*/ curfnum[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:2111:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2111:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2111:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2111:/ apply.arg"); argtab[2].bp_cstring = "multimsend"; /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*multimsend*/{")); /*_#I__L7*/ curfnum[6] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L7*/ curfnum[6]), 0); /*_#I__L8*/ curfnum[7] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2114:/ cond"); /*cond*/ if (/*_#I__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2114:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2114:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un argtab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBARG__L4*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L9*/ curfnum[8] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2115:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2114:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; } /*noelse*/ ; /*_#I__L10*/ curfnum[8] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ cond"); /*cond*/ if (/*_#I__L10*/ curfnum[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "union basilysparam_un restab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#NBXRES__L5*/ curfnum[4])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "];")); /*_#I__L11*/ curfnum[10] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L11*/ curfnum[10]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ 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)(/*_.RESDESCLIST__V16*/ curfptr[15]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2128:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2128:/ 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[5])), (basilys_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2122:/ block"); /*block*/{ /*_.PROGN___V23*/ curfptr[22] = /*_.MULTIPLE_EVERY__V22*/ curfptr[21];;} ; /*_.IF___V19*/ curfptr[18] = /*_.PROGN___V23*/ curfptr[22];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ clear"); /*clear*/ /*_#I__L11*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ clear"); /*clear*/ /*_.PROGN___V23*/ curfptr[22] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2121:/ cond.else"); /*_.IF___V19*/ curfptr[18] = NULL;; } ; /*_#I__L12*/ curfnum[10] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2134:/ cond"); /*cond*/ if (/*_#I__L12*/ curfnum[10]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2134:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2134:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&argtab, 0, sizeof(argtab));")); /*_#I__L13*/ curfnum[12] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L13*/ curfnum[12]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2135:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2134:/ clear"); /*clear*/ /*_#I__L13*/ curfnum[12] = 0 ;} ; } /*noelse*/ ; /*_#I__L14*/ curfnum[12] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2138:/ cond"); /*cond*/ if (/*_#I__L14*/ curfnum[12]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2138:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2138:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "memset(&restab, 0, sizeof(restab));")); /*_#I__L15*/ curfnum[14] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L15*/ curfnum[14]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2139:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2138:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ;} ; } /*noelse*/ ; /*_#I__L16*/ curfnum[14] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ cond"); /*cond*/ if (/*_#I__L16*/ curfnum[14]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V25*/ curfptr[21] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_14*/ curfrout->tabval[14])), (5)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[0] = (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[3] = (basilys_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V25*/ curfptr[21])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 4>= 0 && 4< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V25*/ curfptr[21]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V25*/ curfptr[21])->tabval[4] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V24*/ curfptr[19] = /*_.LAMBDA___V25*/ curfptr[21];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2146:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2146:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V24*/ curfptr[19]; /*_.MULTIPLE_EVERY__V26*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OARGS__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#GET_INT__L17*/ curfnum[16] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L17*/ curfnum[16]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2144:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ clear"); /*clear*/ /*_.LAMBDA___V24*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V26*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2143:/ clear"); /*clear*/ /*_#GET_INT__L17*/ curfnum[16] = 0 ;} ; } /*noelse*/ ; /*_#I__L18*/ curfnum[16] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ cond"); /*cond*/ if (/*_#I__L18*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V29*/ curfptr[28] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_21*/ curfrout->tabval[21])), (4)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[0] = (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V29*/ curfptr[28])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V29*/ curfptr[28]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V29*/ curfptr[28])->tabval[3] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; /*_.LAMBDA___V28*/ curfptr[22] = /*_.LAMBDA___V29*/ curfptr[28];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2177:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2177:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V28*/ curfptr[22]; /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.OXRES__V14*/ curfptr[13]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2176:/ block"); /*block*/{ /*_.PROGN___V31*/ curfptr[30] = /*_.MULTIPLE_EVERY__V30*/ curfptr[29];;} ; /*_.IF___V27*/ curfptr[19] = /*_.PROGN___V31*/ curfptr[30];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ clear"); /*clear*/ /*_.LAMBDA___V28*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V30*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ clear"); /*clear*/ /*_.PROGN___V31*/ curfptr[30] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2175:/ cond.else"); /*_.IF___V27*/ curfptr[19] = NULL;; } ; /*_#GET_INT__L19*/ curfnum[18] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16])));; BASILYS_LOCATION("warmelt-outobj.bysl:2204:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2204:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2204:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L19*/ curfnum[18]; BASILYS_LOCATION("warmelt-outobj.bysl:2204:/ apply.arg"); argtab[2].bp_cstring = "multimsend.send"; /*_.OUTPUT_LOCATION__V32*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V34*/ curfptr[30] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_24*/ curfrout->tabval[24])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V34*/ curfptr[30])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V34*/ curfptr[30]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V34*/ curfptr[30])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V17*/ curfptr[16]); ; /*_.LAMBDA___V33*/ curfptr[29] = /*_.LAMBDA___V34*/ curfptr[30];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2206:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2206:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V33*/ curfptr[29]; /*_.LIST_EVERY__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.ODEST__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " basilysgc_send ((basilys_ptr_t)(")); /*_#I__L20*/ curfnum[19] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2213:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2213:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2213:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2213:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L20*/ curfnum[19]; /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = basilysgc_send((basilys_ptr_t)(/*_.ORECV__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ((basilys_ptr_t)(")); /*_#I__L21*/ curfnum[20] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2216:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2216:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2216:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2216:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L21*/ curfnum[20]; /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = basilysgc_send((basilys_ptr_t)(/*_.OSEL__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[25])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")), (")); BASILYS_LOCATION("warmelt-outobj.bysl:2221:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2221:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V39*/ curfptr[38] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_26*/ curfrout->tabval[26])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2221:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V39*/ curfptr[38])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V39*/ curfptr[38]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V39*/ curfptr[38])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V38*/ curfptr[37] = /*_.LAMBDA___V39*/ curfptr[38];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2219:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2219:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V38*/ curfptr[37]; /*_.LIST_EVERY__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.PARAMDESCLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L22*/ curfnum[21] = ((/*_#NBARG__L4*/ curfnum[1]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2226:/ cond"); /*cond*/ if (/*_#I__L22*/ curfnum[21]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2226:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2226:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "argtab, (")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2226:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2226:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0, (")); /*epilog*/} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2232:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2232:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V42*/ curfptr[41] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2232:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V41*/ curfptr[40] = /*_.LAMBDA___V42*/ curfptr[41];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2230:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2230:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V41*/ curfptr[40]; /*_.LIST_EVERY__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[22])), (basilys_ptr_t)(/*_.RESDESCLIST__V16*/ curfptr[15]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"\"), ")); /*_#I__L23*/ curfnum[22] = ((/*_#NBXRES__L5*/ curfnum[4]) > (0));; BASILYS_LOCATION("warmelt-outobj.bysl:2237:/ cond"); /*cond*/ if (/*_#I__L23*/ curfnum[22]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2237:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2237:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "restab")); /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2237:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2237:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "(union basilysparam_un*)0")); /*epilog*/} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); /*_#I__L24*/ curfnum[23] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L24*/ curfnum[23]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "}")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.ODEST__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OSEL__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.ORECV__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OARGS__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OXRES__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#NBARG__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#NBXRES__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.PARAMDESCLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.RESDESCLIST__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.IF___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L12*/ curfnum[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L14*/ curfnum[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.IF___V27*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#GET_INT__L19*/ curfnum[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V32*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LAMBDA___V33*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LIST_EVERY__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L20*/ curfnum[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V36*/ curfptr[35] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L21*/ curfnum[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LAMBDA___V38*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LIST_EVERY__V40*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L22*/ curfnum[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LAMBDA___V41*/ curfptr[40] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_.LIST_EVERY__V43*/ curfptr[42] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L23*/ curfnum[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2099:/ clear"); /*clear*/ /*_#I__L24*/ curfnum[23] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJMULTIMSEND", 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_83_OUTPUCOD_OBJMULTIMSEND*/ 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 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V3*/ curfptr[2]; /*_.CURESTYP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2132:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V5*/ curfptr[4] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~RESDESCLIST*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V5*/ curfptr[4])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2131:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_84_LAMBDA_*/ static basilys_ptr_t rout_85_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_85_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 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curarg"; BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ apply.arg"); argtab[3].bp_long = 2149; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURARG__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-outobj.bysl:2149:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2149:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ block"); /*block*/{ /*_.THE_NULL__V5*/ curfptr[3] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V5*/ curfptr[3]; /*_.CURCTYP__V6*/ curfptr[5] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curctyp"; BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ apply.arg"); argtab[3].bp_long = 2151; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[6] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2151:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curctyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2152)?(2152):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2152:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L5*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2153:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2153:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2153:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L5*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2153:/ apply.arg"); argtab[2].bp_cstring = "multimsend.arg"; /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "argtab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:2157:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 5, "CTYPE_PARSTRING");/*_.CTYPE_PARSTRING__V12*/ curfptr[11] = slot; }; ; basilysgc_append_list((basilys_ptr_t)((/*~PARAMDESCLIST*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.CTYPE_PARSTRING__V12*/ curfptr[11])); /*_#NULL__L6*/ curfnum[5] = ((/*_.CURARG__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ cond"); /*cond*/ if (/*_#NULL__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ block"); /*block*/{ /*_#__L7*/ curfnum[6] = ((/*_.CURCTYP__V6*/ curfptr[5]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ cond"); /*cond*/ if (/*_#__L7*/ curfnum[6]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2163:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2163:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:2163:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2163:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.OUTPUT_C_CODE__V15*/ curfptr[14];;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2166:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURCTYP__V6*/ curfptr[5]), 6, "CTYPE_ARGFIELD");/*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_ARGFIELD__V17*/ curfptr[14]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L9*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2168:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2168:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[4]); BASILYS_LOCATION("warmelt-outobj.bysl:2168:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2168:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L9*/ curfnum[7]; /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2165:/ block"); /*block*/{ /*_.PROGN___V19*/ curfptr[18] = /*_.OUTPUT_C_CODE__V18*/ curfptr[15];;} ; /*_.IFELSE___V14*/ curfptr[13] = /*_.PROGN___V19*/ curfptr[18];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_.CTYPE_ARGFIELD__V17*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_#GET_INT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2161:/ clear"); /*clear*/ /*_.PROGN___V19*/ curfptr[18] = 0 ;} ; } ; /*_.IFELSE___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ clear"); /*clear*/ /*_#__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2159:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.THE_NULL__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.CURCTYP__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.CTYPE_PARSTRING__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_#NULL__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2150:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ 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_85_LAMBDA_*/ static basilys_ptr_t rout_86_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_86_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 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ getarg"); /*_.CURES__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ getarg"); if (xargdescr_[0] != BPAR_LONG) goto lab_endgetargs; /*_#CURANK__L1*/ curfnum[0] = xargtab_[0].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ block"); /*block*/{ /*_.THE_NULL__V3*/ curfptr[2] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V3*/ curfptr[2]; /*_.CURESTYP__V4*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objmultimsend curestyp"; BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ apply.arg"); argtab[3].bp_long = 2181; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2181:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curestyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2182)?(2182):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2182:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L4*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2183:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2183:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2183:/ apply.arg"); argtab[1].bp_long = /*_#GET_INT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2183:/ apply.arg"); argtab[2].bp_cstring = "multimsend.xres"; /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)((/*~OLOC*/ curfclos->tabval[0])), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "restab[")); basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), (/*_#CURANK__L1*/ curfnum[0])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "].")); /*_#NULL__L5*/ curfnum[4] = ((/*_.CURES__V2*/ curfptr[1]) == NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ cond"); /*cond*/ if (/*_#NULL__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ block"); /*block*/{ /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*)NULL")); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ block"); /*block*/{ /*_#__L6*/ curfnum[5] = ((/*_.CURESTYP__V4*/ curfptr[3]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ cond"); /*cond*/ if (/*_#__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( "bp_aptr = (basilys_ptr_t*) &")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2193:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2193:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.bysl:2193:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2193:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ block"); /*block*/{ /*_.PROGN___V13*/ curfptr[12] = /*_.OUTPUT_C_CODE__V12*/ curfptr[11];;} ; /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_.PROGN___V13*/ curfptr[12] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2196:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CURESTYP__V4*/ curfptr[3]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V14*/ curfptr[11] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V14*/ curfptr[11]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*_#GET_INT__L8*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2198:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2198:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[3]); BASILYS_LOCATION("warmelt-outobj.bysl:2198:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2198:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[6]; /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.CURES__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2195:/ block"); /*block*/{ /*_.PROGN___V16*/ curfptr[15] = /*_.OUTPUT_C_CODE__V15*/ curfptr[12];;} ; /*_.IFELSE___V11*/ curfptr[10] = /*_.PROGN___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V14*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2191:/ clear"); /*clear*/ /*_.PROGN___V16*/ curfptr[15] = 0 ;} ; } ; /*_.IFELSE___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ clear"); /*clear*/ /*_#__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2188:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.THE_NULL__V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.CURESTYP__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_#GET_INT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_#NULL__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2180:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 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_86_LAMBDA_*/ static basilys_ptr_t rout_87_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_87_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ getarg"); /*_.CURDEST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2209:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2209:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2209:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2209:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.CURDEST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_87_LAMBDA_*/ static basilys_ptr_t rout_88_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_88_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2221:/ getarg"); /*_.PARD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2221:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.PARD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_88_LAMBDA_*/ static basilys_ptr_t rout_89_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_89_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 2 void* varptr[2]; /*no varnum*/ #define CURFRAM_NBVARNUM /*none*/0 /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<2; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 2; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2232:/ getarg"); /*_.RESD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2232:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.RESD__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[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_89_LAMBDA_*/ static basilys_ptr_t rout_90_OUTPUCOD_OBJCLEAR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJCLEAR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 12 void* varptr[12]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<12; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 12; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJCLEAR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ getarg"); /*_.OCLEAR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJCLEAR*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oclear"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2251)?(2251):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2251:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objclear oclear"; BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ apply.arg"); argtab[3].bp_long = 2252; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2252:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.CLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2254:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCLEAR__V2*/ curfptr[1]), 1, "OCLR_VLOC");/*_.CVL__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2256:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2256:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2256:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2256:/ apply.arg"); argtab[2].bp_cstring = "clear"; /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*clear*/ ")); /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; BASILYS_LOCATION("warmelt-outobj.bysl:2258:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2258:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2258:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2258:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L4*/ curfnum[1]; /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = basilysgc_send((basilys_ptr_t)(/*_.CVL__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " = 0 ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ clear"); /*clear*/ /*_.CLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ clear"); /*clear*/ /*_.CVL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2253:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V12*/ curfptr[11] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJCLEAR", 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_90_OUTPUCOD_OBJCLEAR*/ static basilys_ptr_t rout_91_OUTPUCOD_OBJRAWALLOCOBJ(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJRAWALLOCOBJ_st { unsigned nbvar; #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 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<22; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 22; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJRAWALLOCOBJ", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ getarg"); /*_.ORALOB__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJRAWALLOCOBJ*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oralob"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2266)?(2266):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2266:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objrawallocobj oralob"; BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ apply.arg"); argtab[3].bp_long = 2267; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2267:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2269:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 2, "OBRALLOBJ_CLASS");/*_.ICLASS__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2270:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 4, "OBRALLOBJ_CLASSNAME");/*_.ICLANAME__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2271:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 3, "OBRALLOBJ_LEN");/*_.ILEN__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2272:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ORALOB__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V14*/ curfptr[13] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ block"); /*block*/{ /*_#IS_A__L5*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_OBJVALUE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ cond"); /*cond*/ if (/*_#IS_A__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outpucod_objrawallocobj check iclass"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2275)?(2275):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ clear"); /*clear*/ /*_#IS_A__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2275:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2276:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2276:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2276:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2276:/ apply.arg"); argtab[2].bp_cstring = "rawallocobj"; /*_.OUTPUT_LOCATION__V17*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*rawallocobj*/ { basilys_ptr_t newobj = 0;")); /*_#I__L6*/ curfnum[4] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[4]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_raw_object_create(newobj,(basilys_ptr_t)(")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.bysl:2280:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2280:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2280:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2280:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.ICLASS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.bysl:2282:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2282:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2282:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2282:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.ILEN__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \"")); basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.ICLANAME__V11*/ curfptr[10]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V21*/ curfptr[20] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ 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)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ 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)(/*_.BOXDEPTHP1__V14*/ curfptr[13]); ; /*_.LAMBDA___V20*/ curfptr[19] = /*_.LAMBDA___V21*/ curfptr[20];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2286:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2286:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V20*/ curfptr[19]; /*_.LIST_EVERY__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L9*/ curfnum[8] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[8]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "newobj; };")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.ICLASS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.ICLANAME__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.ILEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.LAMBDA___V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_.LIST_EVERY__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2268:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJRAWALLOCOBJ", 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_91_OUTPUCOD_OBJRAWALLOCOBJ*/ static basilys_ptr_t rout_92_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_92_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2289:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2289:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2289:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2289:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.DST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_92_LAMBDA_*/ static basilys_ptr_t rout_93_OUTPUCOD_OBJNEWCLOSURE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJNEWCLOSURE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJNEWCLOSURE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ getarg"); /*_.OBNCLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJNEWCLOSURE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oralob"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2300)?(2300):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2300:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objnewclosure obnclo"; BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ apply.arg"); argtab[3].bp_long = 2301; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2301:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2303:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 2, "OBNCLO_DISCR");/*_.ODISCR__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2304:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 3, "OBNCLO_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2305:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 4, "OBNCLO_LEN");/*_.OLEN__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2306:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OBNCLO__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V13*/ curfptr[12] = slot; }; ; /*_#I__L4*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V14*/ curfptr[13] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[2])), (/*_#I__L4*/ curfnum[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:2309:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2309:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2309:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2309:/ apply.arg"); argtab[2].bp_cstring = "newclosure"; /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " /*newclosure*/ ")); BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ 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)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ 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)(/*_.BOXDEPTHP1__V14*/ curfptr[13]); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2311:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2311:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.LIST_EVERY__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.DESTLIST__V13*/ curfptr[12]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#I__L5*/ curfnum[4] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L5*/ curfnum[4]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilysgc_new_closure((basilysobject_ptr_t)(")); /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.bysl:2318:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2318:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2318:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2318:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L6*/ curfnum[5]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.ODISCR__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (basilysroutine_ptr_t)(")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.bysl:2320:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2320:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2320:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2320:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L7*/ curfnum[6]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#GET_INT__L8*/ curfnum[7] = (basilys_get_int((basilys_ptr_t)(/*_.BOXDEPTHP1__V14*/ curfptr[13])));; BASILYS_LOCATION("warmelt-outobj.bysl:2322:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2322:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2322:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2322:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L8*/ curfnum[7]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OLEN__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[7])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.ODISCR__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OLEN__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.DESTLIST__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.LIST_EVERY__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_#I__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_#GET_INT__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2302:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJNEWCLOSURE", 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_93_OUTPUCOD_OBJNEWCLOSURE*/ 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 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2314:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2314:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2314:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2314:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.DST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " =")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_OUTPUCOD_OBJTOUCH(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJTOUCH_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJTOUCH", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ getarg"); /*_.OTOUCH__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJTOUCH*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oclear"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2330)?(2330):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2330:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2332:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 1, "OTOUCH_VAL");/*_.TOUCHED__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2333:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OTOUCH__V2*/ curfptr[1]), 2, "OTOUCH_COMMENT");/*_.COMM__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2335:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2335:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2335:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2335:/ apply.arg"); argtab[2].bp_cstring = "touch"; /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.ILOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2336:/ cond"); /*cond*/ if (/*_.COMM__V9*/ curfptr[8]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2336:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2336:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*touch:")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.COMM__V9*/ curfptr[8]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); BASILYS_LOCATION("warmelt-outobj.bysl:2337:/ block"); /*block*/{} ; /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilysgc_touch(")); BASILYS_LOCATION("warmelt-outobj.bysl:2344:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2344:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2344:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2344:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.TOUCHED__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ clear"); /*clear*/ /*_.ILOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ clear"); /*clear*/ /*_.TOUCHED__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ clear"); /*clear*/ /*_.COMM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2331:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V11*/ curfptr[10] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJTOUCH", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_95_OUTPUCOD_OBJTOUCH*/ static basilys_ptr_t rout_96_OUTPUCOD_OBJPUTUPLE(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTUPLE_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTUPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ getarg"); /*_.OPTUP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTUPLE*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check optyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2355)?(2355):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2355:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputuple optup"; BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ apply.arg"); argtab[3].bp_long = 2356; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2356:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2358:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 1, "OPUTU_TUPLED");/*_.OTUP__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2359:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 2, "OPUTU_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2360:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPTUP__V2*/ curfptr[1]), 3, "OPUTU_VALUE");/*_.OVAL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2361:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2361:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2361:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2361:/ apply.arg"); argtab[2].bp_cstring = "putuple"; /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putupl*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putupl checktup\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2365:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2365:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2365:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2365:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))== OBMAG_MULTIPLE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putupl checkoff\", (")); BASILYS_LOCATION("warmelt-outobj.bysl:2369:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2369:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2369:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2369:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && ")); BASILYS_LOCATION("warmelt-outobj.bysl:2371:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2371:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2371:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2371:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_multiple_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2373:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2373:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2373:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2373:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysmultiple_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2377:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2377:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2377:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2377:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.OTUP__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->tabval[")); BASILYS_LOCATION("warmelt-outobj.bysl:2379:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2379:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2379:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2379:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2381:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2381:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2381:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2381:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OTUP__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2357:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTUPLE", 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_OUTPUCOD_OBJPUTUPLE*/ static basilys_ptr_t rout_97_OUTPUCOD_OBJGETSLOT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJGETSLOT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJGETSLOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ getarg"); /*_.OGSL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJGETSLOT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ogsl"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2390)?(2390):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2390:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2392:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 1, "OBDI_DESTLIST");/*_.DESTLIST__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2393:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 2, "OGETSL_OBJ");/*_.OOBJ__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2394:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), 3, "OGETSL_FIELD");/*_.OFIELD__V10*/ curfptr[9] = slot; }; ; /*_#I__L3*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V11*/ curfptr[10] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ cond.then"); /*_.IFELSE___V13*/ curfptr[12] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ofield"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2397)?(2397):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V12*/ curfptr[11] = /*_.IFELSE___V13*/ curfptr[12];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ clear"); /*clear*/ /*_.IFELSE___V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2397:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objgetslot ogsl"; BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ apply.arg"); argtab[3].bp_long = 2398; /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.OGSL__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V14*/ curfptr[12] = /*_.DEBUG_MSG_FUN__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2398:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2399:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2399:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2399:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2399:/ apply.arg"); argtab[2].bp_cstring = "getslot"; /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "{ basilys_ptr_t slot=0;")); /*_#I__L6*/ curfnum[3] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L6*/ curfnum[3]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_object_get_field(slot,(basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2403:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2403:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2403:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2403:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OOBJ__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), ")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.OFIELD__V10*/ curfptr[9])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ", \"")); BASILYS_LOCATION("warmelt-outobj.bysl:2407:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OFIELD__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V18*/ curfptr[17] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V18*/ curfptr[17]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V20*/ curfptr[19] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V20*/ curfptr[19])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V20*/ curfptr[19]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V20*/ curfptr[19])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V11*/ curfptr[10]); ; /*_.LAMBDA___V19*/ curfptr[18] = /*_.LAMBDA___V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2409:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2409:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V19*/ curfptr[18]; /*_.LIST_EVERY__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.DESTLIST__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "slot; };")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.DESTLIST__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.OOBJ__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.OFIELD__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_#I__L6*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.NAMED_NAME__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.LAMBDA___V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2391:/ clear"); /*clear*/ /*_.LIST_EVERY__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJGETSLOT", 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_97_OUTPUCOD_OBJGETSLOT*/ static basilys_ptr_t rout_98_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_98_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 3 void* varptr[3]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ getarg"); /*_.DST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ block"); /*block*/{ /*_#GET_INT__L1*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2412:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2412:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2412:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2412:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.DST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[1])), ( " = ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ clear"); /*clear*/ /*_#GET_INT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_98_LAMBDA_*/ static basilys_ptr_t rout_99_OUTPUCOD_OBJPUTSLOT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTSLOT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 28 void* varptr[28]; #define CURFRAM_NBVARNUM 10 long varnum[10]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<28; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 28; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTSLOT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ getarg"); /*_.OPSLO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTSLOT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opslo"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2421)?(2421):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2421:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputslot opslo"; BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ apply.arg"); argtab[3].bp_long = 2422; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2422:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.ILOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2424:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 1, "OSLOT_ODATA");/*_.ODATA__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2425:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 2, "OSLOT_OFFSET");/*_.OOFF__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2426:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 3, "OSLOT_FIELD");/*_.OFIELD__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2427:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPSLO__V2*/ curfptr[1]), 4, "OSLOT_VALUE");/*_.OVAL__V13*/ curfptr[12] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ block"); /*block*/{ /*_#IS_A__L4*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[2])));; /*_#NOT__L5*/ curfnum[4] = (!(/*_#IS_A__L4*/ curfnum[1]));; BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ cond"); /*cond*/ if (/*_#NOT__L5*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ cond.then"); /*_.IFELSE___V15*/ curfptr[14] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "outpucod_objputslot check oval not nrep"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2429)?(2429):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V14*/ curfptr[13] = /*_.IFELSE___V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ clear"); /*clear*/ /*_#NOT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ clear"); /*clear*/ /*_.IFELSE___V15*/ curfptr[14] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2429:/ cppif.else"); /*_.IFCPP___V14*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2430:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2430:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2430:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2430:/ apply.arg"); argtab[2].bp_cstring = "putslot"; /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.ILOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putslot*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putslot checkobj")); /*_#IS_A__L6*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2434:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2434:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2434:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " ")); BASILYS_LOCATION("warmelt-outobj.bysl:2437:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), 1, "NAMED_NAME");/*_.NAMED_NAME__V17*/ curfptr[16] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V17*/ curfptr[16]))); BASILYS_LOCATION("warmelt-outobj.bysl:2435:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2434:/ clear"); /*clear*/ /*_.NAMED_NAME__V17*/ curfptr[16] = 0 ;} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2439:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2439:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2439:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2439:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_OBJECT);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putslot checkoff\", (")); BASILYS_LOCATION("warmelt-outobj.bysl:2443:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2443:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2443:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2443:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">=0 && ")); BASILYS_LOCATION("warmelt-outobj.bysl:2445:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2445:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2445:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2445:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_object_length((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2447:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2447:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2447:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2447:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))));")); /*_#IS_A__L7*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[6])));; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_putfield_object((")); BASILYS_LOCATION("warmelt-outobj.bysl:2452:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2452:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2452:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2452:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); BASILYS_LOCATION("warmelt-outobj.bysl:2454:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2454:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2454:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2454:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V23*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), (")); /*_#I__L8*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2456:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2456:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2456:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2456:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L8*/ curfnum[7]; /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "), \"")); BASILYS_LOCATION("warmelt-outobj.bysl:2458:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OFIELD__V12*/ curfptr[11]), 1, "NAMED_NAME");/*_.NAMED_NAME__V25*/ curfptr[24] = slot; }; ; basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V25*/ curfptr[24]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\");")); BASILYS_LOCATION("warmelt-outobj.bysl:2450:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_#I__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V24*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.NAMED_NAME__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ block"); /*block*/{ basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysobject_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2465:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2465:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2465:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2465:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = basilysgc_send((basilys_ptr_t)(/*_.ODATA__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "))->obj_vartab[")); BASILYS_LOCATION("warmelt-outobj.bysl:2467:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2467:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2467:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2467:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); /*_#I__L9*/ curfnum[7] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#I__L9*/ curfnum[7]), 0); /*_#I__L10*/ curfnum[9] = ((1) + (/*_#DEPTH__L1*/ curfnum[0]));; BASILYS_LOCATION("warmelt-outobj.bysl:2470:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2470:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2470:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2470:/ ojbmsend.arg"); argtab[2].bp_long = /*_#I__L10*/ curfnum[9]; /*_.OUTPUT_C_CODE__V28*/ curfptr[23] = basilysgc_send((basilys_ptr_t)(/*_.OVAL__V13*/ curfptr[12]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); BASILYS_LOCATION("warmelt-outobj.bysl:2461:/ block"); /*block*/{} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V26*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V27*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_#I__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_#I__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2449:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V28*/ curfptr[23] = 0 ;} ; } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.ILOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.ODATA__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OFIELD__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OVAL__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.IFCPP___V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V16*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2423:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTSLOT", 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_99_OUTPUCOD_OBJPUTSLOT*/ static basilys_ptr_t rout_100_OUTPUCOD_OBJPUTCLOSUROUT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTCLOSUROUT_st { unsigned nbvar; #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 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<16; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 16; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTCLOSUROUT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ getarg"); /*_.OPCLOR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTCLOSUROUT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2481)?(2481):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2481:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosurout opclor"; BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ apply.arg"); argtab[3].bp_long = 2482; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2482:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2484:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 1, "OPCLOR_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2485:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOR__V2*/ curfptr[1]), 2, "OPCLOR_ROUT");/*_.OROUT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2486:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2486:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2486:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2486:/ apply.arg"); argtab[2].bp_cstring = "putclosurout"; /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosurout*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosrout checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2490:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2490:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2490:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2490:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosrout checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2494:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2494:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2494:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2494:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.bysl:2498:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2498:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2498:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2498:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->rout = (basilysroutine_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.bysl:2500:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2500:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2500:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2500:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OROUT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2483:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTCLOSUROUT", 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_OUTPUCOD_OBJPUTCLOSUROUT*/ static basilys_ptr_t rout_101_OUTPUCOD_OBJPUTCLOSEDV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTCLOSEDV_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTCLOSEDV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ getarg"); /*_.OPCLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTCLOSEDV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2509)?(2509):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2509:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosedv"; BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ apply.arg"); argtab[3].bp_long = 2510; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2510:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2512:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2513:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2514:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2515:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2515:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2515:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2515:/ apply.arg"); argtab[2].bp_cstring = "putclosedv"; /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosv*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosv checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2519:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2519:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2519:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2519:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosv checkoff\", ")); BASILYS_LOCATION("warmelt-outobj.bysl:2523:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2523:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2523:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2523:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && ")); BASILYS_LOCATION("warmelt-outobj.bysl:2525:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2525:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2525:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2525:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_closure_size((basilys_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.bysl:2527:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2527:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2527:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2527:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.bysl:2531:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2531:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2531:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2531:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.bysl:2533:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2533:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2533:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2533:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2535:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2535:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2535:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2535:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2511:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTCLOSEDV", 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_101_OUTPUCOD_OBJPUTCLOSEDV*/ static basilys_ptr_t rout_102_OUTPUCOD_OBJPUTCLOSEDNOTNULLV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTCLOSEDNOTNULLV_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 21 void* varptr[21]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<21; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 21; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ getarg"); /*_.OPCLOV__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTCLOSEDNOTNULLV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check opclor"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2544)?(2544):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2544:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ apply.arg"); argtab[0].bp_cstring = "outpucod_objputclosednotnullv"; BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ apply.arg"); argtab[3].bp_long = 2545; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2545:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2547:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 1, "OPCLOV_CLOS");/*_.OCLOS__V10*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2548:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 2, "OPCLOV_OFF");/*_.OOFF__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2549:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPCLOV__V2*/ curfptr[1]), 3, "OPCLOV_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2550:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2550:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2550:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2550:/ apply.arg"); argtab[2].bp_cstring = "putclosednotnullv"; /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[7]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putclosvnotnull*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checkclo\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2554:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2554:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2554:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2554:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_CLOSURE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checknotnullval\", NULL != ")); BASILYS_LOCATION("warmelt-outobj.bysl:2558:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2558:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2558:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2558:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putclosvnotnull checkoff\", ")); BASILYS_LOCATION("warmelt-outobj.bysl:2562:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2562:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2562:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2562:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ">= 0 && ")); BASILYS_LOCATION("warmelt-outobj.bysl:2564:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2564:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2564:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2564:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "< basilys_closure_size((basilys_ptr_t) (")); BASILYS_LOCATION("warmelt-outobj.bysl:2566:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2566:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2566:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2566:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysclosure_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.bysl:2570:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2570:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2570:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2570:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OCLOS__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.bysl:2572:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2572:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2572:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2572:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[10]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2574:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2574:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2574:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2574:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OCLOS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2546:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V21*/ curfptr[20] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTCLOSEDNOTNULLV", 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_102_OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ static basilys_ptr_t rout_103_OUTPUCOD_OBJPUTROUTCONST(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTROUTCONST_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<19; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 19; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTROUTCONST", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ getarg"); /*_.OPRCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONST*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oprconst"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2583)?(2583):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2583:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2585:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; }; ; /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_OBJINITROUTINE*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), 1, "OIE_CNAME");/*_.OIE_CNAME__V10*/ curfptr[9] = slot; }; ; /*_.OROUTNAM__V9*/ curfptr[8] = /*_.OIE_CNAME__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ clear"); /*clear*/ /*_.OIE_CNAME__V10*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2586:/ cond.else"); /*_.OROUTNAM__V9*/ curfptr[8] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2587:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V11*/ curfptr[9] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2588:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V12*/ curfptr[11] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2589:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2589:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2589:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2589:/ apply.arg"); argtab[2].bp_cstring = "putroutconst"; /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconst*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconst checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2593:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2593:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2593:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2593:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_checkmsg(\"putroutconst constnull.")); /*_#IS_STRING__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2597:/ cond"); /*cond*/ if (/*_#IS_STRING__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2597:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2597:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.OROUTNAM__V9*/ curfptr[8]))); /*epilog*/} ; } /*noelse*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "#")); BASILYS_LOCATION("warmelt-outobj.bysl:2599:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2599:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2599:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2599:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\", NULL != (")); BASILYS_LOCATION("warmelt-outobj.bysl:2601:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2601:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2601:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2601:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "));")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysroutine_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.bysl:2605:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2605:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2605:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2605:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.bysl:2607:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2607:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2607:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2607:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V11*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2609:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2609:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2609:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2609:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V12*/ curfptr[11]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[3])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OROUTNAM__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OOFF__V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OCVAL__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_#IS_STRING__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2584:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V19*/ curfptr[18] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTROUTCONST", 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_103_OUTPUCOD_OBJPUTROUTCONST*/ static basilys_ptr_t rout_104_OUTPUCOD_OBJPUTROUTCONSTNOTNULL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTROUTCONSTNOTNULL_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 18 void* varptr[18]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ getarg"); /*_.OPRCONST__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTROUTCONSTNOTNULL*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oprconst"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2618)?(2618):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2618:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2620:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 1, "OPRCONST_ROUT");/*_.OROUT__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2621:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 2, "OPRCONST_OFF");/*_.OOFF__V9*/ curfptr[8] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2622:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPRCONST__V2*/ curfptr[1]), 3, "OPRCONST_CVAL");/*_.OCVAL__V10*/ curfptr[9] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ block"); /*block*/{ /*_#NOTNULL__L3*/ curfnum[1] = ((/*_.OCVAL__V10*/ curfptr[9]) != NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ cond"); /*cond*/ if (/*_#NOTNULL__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check notnull ocval"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2623)?(2623):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ clear"); /*clear*/ /*_#NOTNULL__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2623:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2624:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2624:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2624:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2624:/ apply.arg"); argtab[2].bp_cstring = "putroutconstnotnull"; /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*putroutconstnotnull*/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconstnotnull checkrout\", basilys_magic_discr((basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2628:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2628:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2628:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2628:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")) == OBMAG_ROUTINE);")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_assertmsg(\"putroutconstnotnull notnullconst\", NULL != ")); BASILYS_LOCATION("warmelt-outobj.bysl:2632:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2632:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2632:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2632:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "((basilysroutine_ptr_t)")); BASILYS_LOCATION("warmelt-outobj.bysl:2636:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2636:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2636:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2636:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = basilysgc_send((basilys_ptr_t)(/*_.OROUT__V8*/ curfptr[7]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ")->tabval[")); BASILYS_LOCATION("warmelt-outobj.bysl:2638:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2638:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2638:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2638:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = basilysgc_send((basilys_ptr_t)(/*_.OOFF__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] = (basilys_ptr_t)(")); BASILYS_LOCATION("warmelt-outobj.bysl:2640:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2640:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2640:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2640:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = basilysgc_send((basilys_ptr_t)(/*_.OCVAL__V10*/ curfptr[9]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[2])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OROUT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OOFF__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OCVAL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V17*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2619:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V18*/ curfptr[17] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTROUTCONSTNOTNULL", 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_OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ static basilys_ptr_t rout_105_OUTPUCOD_OBJPUTXTRARESULT(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJPUTXTRARESULT_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 20 void* varptr[20]; #define CURFRAM_NBVARNUM 8 long varnum[8]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<20; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 20; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJPUTXTRARESULT", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ getarg"); /*_.OPUTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJPUTXTRARESULT*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oputx"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2651)?(2651):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2651:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2653:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 1, "OBXRES_RANK");/*_.ORANK__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2654:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OPUTX__V2*/ curfptr[1]), 2, "OBXRES_OBLOC");/*_.OVLOC__V9*/ curfptr[8] = slot; }; ; /*_.THE_NULL__V10*/ curfptr[9] = (NULL);; BASILYS_LOCATION("warmelt-outobj.bysl:2655:/ msend"); /*msend*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2655:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.THE_NULL__V10*/ curfptr[9]; /*_.OCTYP__V11*/ curfptr[10] = basilysgc_send((basilys_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (basilys_ptr_t)((/*!GET_CTYPE*/ curfrout->tabval[1])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2657:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2657:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2657:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2657:/ apply.arg"); argtab[2].bp_cstring = "putxtraresult"; /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OCTYP__V11*/ curfptr[10]), (basilys_ptr_t)((/*!CLASS_CTYPE*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check octyp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2658)?(2658):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[12] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2658:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[12] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L4*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check orank"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2659)?(2659):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2659:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (!xrestab_ || !xresdescr_) goto labend_rout;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xresdescr_[")); /*_#GET_INT__L5*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L5*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "] != ")); BASILYS_LOCATION("warmelt-outobj.bysl:2665:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCTYP__V11*/ curfptr[10]), 4, "CTYPE_PARCHAR");/*_.CTYPE_PARCHAR__V17*/ curfptr[15] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_PARCHAR__V17*/ curfptr[15]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") goto labend_rout;")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "if (xrestab_[")); /*_#GET_INT__L6*/ curfnum[5] = (basilys_get_int((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L6*/ curfnum[5])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:2671:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCTYP__V11*/ curfptr[10]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V18*/ curfptr[17] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V18*/ curfptr[17]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") *(xrestab_[")); /*_#GET_INT__L7*/ curfnum[6] = (basilys_get_int((basilys_ptr_t)(/*_.ORANK__V8*/ curfptr[7])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L7*/ curfnum[6])); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "].")); BASILYS_LOCATION("warmelt-outobj.bysl:2675:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OCTYP__V11*/ curfptr[10]), 7, "CTYPE_RESFIELD");/*_.CTYPE_RESFIELD__V19*/ curfptr[18] = slot; }; ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.CTYPE_RESFIELD__V19*/ curfptr[18]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ") = (")); /*_#__L8*/ curfnum[7] = ((/*_.OCTYP__V11*/ curfptr[10]) == ((/*!CTYPE_VALUE*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2677:/ cond"); /*cond*/ if (/*_#__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2677:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2677:/ block"); /*block*/{ basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "basilys_ptr_t) (")); /*epilog*/} ; } /*noelse*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2678:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2678:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V3*/ curfptr[2]; BASILYS_LOCATION("warmelt-outobj.bysl:2678:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2678:/ ojbmsend.arg"); argtab[2].bp_long = /*_#DEPTH__L1*/ curfnum[0]; /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = basilysgc_send((basilys_ptr_t)(/*_.OVLOC__V9*/ curfptr[8]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[5])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ");")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.OLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.ORANK__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.OVLOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.THE_NULL__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.OCTYP__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.CTYPE_PARCHAR__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_#GET_INT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_#GET_INT__L7*/ curfnum[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.CTYPE_RESFIELD__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_#__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2652:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V20*/ curfptr[19] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJPUTXTRARESULT", 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_OUTPUCOD_OBJPUTXTRARESULT*/ static basilys_ptr_t rout_106_OUTPUCOD_OBJEXPV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJEXPV_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 14 void* varptr[14]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<14; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 14; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJEXPV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ getarg"); /*_.OEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJEXPV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oexp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2686)?(2686):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2686:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V8*/ curfptr[7] = slot; }; ; /*_#I__L3*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V9*/ curfptr[8] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ block"); /*block*/{ /*_#IS_MULTIPLE__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ cond.then"); /*_.IFELSE___V11*/ curfptr[10] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cont"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2690)?(2690):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V10*/ curfptr[9] = /*_.IFELSE___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ clear"); /*clear*/ /*_.IFELSE___V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2690:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V13*/ curfptr[12] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V13*/ curfptr[12])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V13*/ curfptr[12]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V13*/ curfptr[12])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V9*/ curfptr[8]); ; /*_.LAMBDA___V12*/ curfptr[10] = /*_.LAMBDA___V13*/ curfptr[12];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2691:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2691:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V12*/ curfptr[10]; /*_.MULTIPLE_EVERY__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V7*/ curfptr[5] = /*_.MULTIPLE_EVERY__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_.LAMBDA___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2687:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V14*/ curfptr[13] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJEXPV", 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_OUTPUCOD_OBJEXPV*/ static basilys_ptr_t rout_107_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_107_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 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ 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-outobj.bysl:2693:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2694:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2694:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2694:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2694:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_107_LAMBDA_*/ static basilys_ptr_t rout_108_OUTPUCOD_OBJLOCATEDEXPV(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_OBJLOCATEDEXPV_st { unsigned nbvar; #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 7 long varnum[7]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_OBJLOCATEDEXPV", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ getarg"); /*_.OEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJLOCATEDEXPV*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check oexp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2700)?(2700):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2700:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 1, "OBX_CONT");/*_.CONT__V8*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2702:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.OEXP__V2*/ curfptr[1]), 2, "OBCX_LOC");/*_.OLOC__V9*/ curfptr[8] = slot; }; ; /*_#I__L3*/ curfnum[1] = ((/*_#DEPTH__L1*/ curfnum[0]) + (1));; /*_.BOXDEPTHP1__V10*/ curfptr[9] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (/*_#I__L3*/ curfnum[1])));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ block"); /*block*/{ /*_#IS_MULTIPLE__L4*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7])) == OBMAG_MULTIPLE);; BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ cond"); /*cond*/ if (/*_#IS_MULTIPLE__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cont"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2705)?(2705):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ clear"); /*clear*/ /*_#IS_MULTIPLE__L4*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2705:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_MIXINT__L5*/ curfnum[3] = (basilys_magic_discr((basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[8])) == OBMAG_MIXINT);; BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond"); /*cond*/ if (/*_#IS_MIXINT__L5*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond.then"); /*_#OR___L6*/ curfnum[5] = /*_#IS_MIXINT__L5*/ curfnum[3];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ block"); /*block*/{ /*_#IS_MIXLOC__L7*/ curfnum[6] = (basilys_magic_discr((basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[8])) == OBMAG_MIXLOC);; /*_#OR___L6*/ curfnum[5] = /*_#IS_MIXLOC__L7*/ curfnum[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ clear"); /*clear*/ /*_#IS_MIXLOC__L7*/ curfnum[6] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond"); /*cond*/ if (/*_#OR___L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2707:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2707:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2707:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2707:/ apply.arg"); argtab[2].bp_cstring = "expr"; /*_.OUTPUT_RAW_LOCATION__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_RAW_LOCATION*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.OLOC__V9*/ curfptr[8]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IF___V13*/ curfptr[11] = /*_.OUTPUT_RAW_LOCATION__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ clear"); /*clear*/ /*_.OUTPUT_RAW_LOCATION__V14*/ curfptr[13] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2706:/ cond.else"); /*_.IF___V13*/ curfptr[11] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V16*/ curfptr[15] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V16*/ curfptr[15])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V16*/ curfptr[15]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V16*/ curfptr[15])->tabval[2] = (basilys_ptr_t)(/*_.BOXDEPTHP1__V10*/ curfptr[9]); ; /*_.LAMBDA___V15*/ curfptr[13] = /*_.LAMBDA___V16*/ curfptr[15];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2709:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2709:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V15*/ curfptr[13]; /*_.MULTIPLE_EVERY__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.CONT__V8*/ curfptr[7]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V7*/ curfptr[5] = /*_.MULTIPLE_EVERY__V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.CONT__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.OLOC__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_#I__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.BOXDEPTHP1__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_#IS_MIXINT__L5*/ curfnum[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_#OR___L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.IF___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.LAMBDA___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2701:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V17*/ curfptr[16] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V7*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ clear"); /*clear*/ /*_.LET___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_OBJLOCATEDEXPV", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_108_OUTPUCOD_OBJLOCATEDEXPV*/ static basilys_ptr_t rout_109_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_109_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 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<3; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 3; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ getarg"); /*_.COMP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ 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-outobj.bysl:2711:/ block"); /*block*/{ /*_#GET_INT__L2*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)((/*~BOXDEPTHP1*/ curfclos->tabval[2]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2712:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2712:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2712:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2712:/ ojbmsend.arg"); argtab[2].bp_long = /*_#GET_INT__L2*/ curfnum[1]; /*_.OUTPUT_C_CODE__V3*/ curfptr[2] = basilysgc_send((basilys_ptr_t)(/*_.COMP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[0])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ clear"); /*clear*/ /*_#GET_INT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_109_LAMBDA_*/ static basilys_ptr_t rout_110_OUTPUCOD_VERBATIMSTRING(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_VERBATIMSTRING_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 7 void* varptr[7]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_VERBATIMSTRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ getarg"); /*_.VSTR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ block"); /*block*/{ /*_.DISCRIM__V6*/ curfptr[5] = (basilys_discr((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));; /*_#__L2*/ curfnum[1] = ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_VERBATIMSTRING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ cond"); /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vstr"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2718)?(2718):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ clear"); /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ clear"); /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2718:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1]))); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_VERBATIMSTRING", 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_OUTPUCOD_VERBATIMSTRING*/ static basilys_ptr_t rout_111_OUTPUCOD_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_111_OUTPUCOD_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 7 void* varptr[7]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_STRING", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ getarg"); /*_.VSTR__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ block"); /*block*/{ /*_.DISCRIM__V6*/ curfptr[5] = (basilys_discr((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1])));; /*_#__L2*/ curfnum[1] = ((/*_.DISCRIM__V6*/ curfptr[5]) == ((/*!DISCR_STRING*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ cond"); /*cond*/ if (/*_#__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vstr"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2729)?(2729):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ clear"); /*clear*/ /*_.DISCRIM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ clear"); /*clear*/ /*_#__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2729:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( " \"")); basilysgc_add_strbuf_cstr((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), basilys_string_str((basilys_ptr_t)(/*_.VSTR__V2*/ curfptr[1]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "\"")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_STRING", 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_111_OUTPUCOD_STRING*/ static basilys_ptr_t rout_112_OUTPUCOD_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_112_OUTPUCOD_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 6 void* varptr[6]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_INTEGER", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ getarg"); /*_.VINT__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ block"); /*block*/{ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = (basilys_magic_discr((basilys_ptr_t)(/*_.VINT__V2*/ curfptr[1])) == OBMAG_INT);; BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ cond"); /*cond*/ if (/*_#IS_INTEGERBOX__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check vint"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2741)?(2741):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ clear"); /*clear*/ /*_#IS_INTEGERBOX__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2741:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.VINT__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#GET_INT__L3*/ curfnum[1])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2740:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_INTEGER", 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_112_OUTPUCOD_INTEGER*/ static basilys_ptr_t rout_113_OUTPUCOD_FINALRETURN(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUCOD_FINALRETURN_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 8 void* varptr[8]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUCOD_FINALRETURN", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ getarg"); /*_.FRET__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ getarg"); if (xargdescr_[2] != BPAR_LONG) goto lab_endgetargs; /*_#DEPTH__L1*/ curfnum[0] = xargtab_[2].bp_long; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FRET__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_OBJFINALRETURN*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fret"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2748)?(2748):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2748:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2749:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FRET__V2*/ curfptr[1]), 0, "OBI_LOC");/*_.OBI_LOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2749:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2749:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V4*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2749:/ apply.arg"); argtab[1].bp_long = /*_#DEPTH__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2749:/ apply.arg"); argtab[2].bp_cstring = "finalreturn"; /*_.OUTPUT_LOCATION__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_LOCATION*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBI_LOC__V7*/ curfptr[5]), (BPARSTR_PTR BPARSTR_LONG BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( ";")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (/*_#DEPTH__L1*/ curfnum[0]), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/*finalret*/ goto labend_rout ")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ clear"); /*clear*/ /*_.OBI_LOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ clear"); /*clear*/ /*_.OUTPUT_LOCATION__V8*/ curfptr[7] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUCOD_FINALRETURN", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_113_OUTPUCOD_FINALRETURN*/ static basilys_ptr_t rout_114_SORTED_NAMED_DICT_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_114_SORTED_NAMED_DICT_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 15 void* varptr[15]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<15; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 15; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("SORTED_NAMED_DICT_TUPLE", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ getarg"); /*_.DIC__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ block"); /*block*/{ /*_#DICNT__L1*/ curfnum[0] = (basilys_count_mapstrings((struct basilysmapstrings_st*)(/*_.DIC__V2*/ curfptr[1])));; /*_.ENTLIST__V4*/ curfptr[3] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[0]))));; /*_.BOXZERO__V5*/ curfptr[4] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (0)));; /*_.BOXNEG__V6*/ curfptr[5] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (-1)));; /*_.BOXPOS__V7*/ curfptr[6] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[1])), (1)));; BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V9*/ curfptr[8] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_4*/ curfrout->tabval[4])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ 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)(/*_.ENTLIST__V4*/ curfptr[3]); ; /*_.LAMBDA___V8*/ curfptr[7] = /*_.LAMBDA___V9*/ curfptr[8];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2765:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2765:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V8*/ curfptr[7]; /*_.MAPSTRING_EVERY__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!MAPSTRING_EVERY*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.DIC__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2769:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2769:/ apply"); /*apply*/{ /*_.RAWTUP__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_TO_MULTIPLE*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ENTLIST__V4*/ curfptr[3]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_6*/ curfrout->tabval[6])), (3)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (basilys_ptr_t)(/*_.BOXNEG__V6*/ curfptr[5]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[1] = (basilys_ptr_t)(/*_.BOXZERO__V5*/ curfptr[4]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[2] = (basilys_ptr_t)(/*_.BOXPOS__V7*/ curfptr[6]); ; /*_.COMP__V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;} ; /*_.MULTIPLE_SORT__V15*/ curfptr[14] = basilysgc_sort_multiple((basilys_ptr_t)(/*_.RAWTUP__V12*/ curfptr[11]), (basilys_ptr_t)(/*_.COMP__V13*/ curfptr[12]), (basilys_ptr_t)( (/*!DISCR_MULTIPLE*/ curfrout->tabval[7])));; /*_.LET___V11*/ curfptr[10] = /*_.MULTIPLE_SORT__V15*/ curfptr[14];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2769:/ clear"); /*clear*/ /*_.RAWTUP__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2769:/ clear"); /*clear*/ /*_.COMP__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2769:/ clear"); /*clear*/ /*_.MULTIPLE_SORT__V15*/ curfptr[14] = 0 ;} ; /*_.LET___V3*/ curfptr[2] = /*_.LET___V11*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_#DICNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.ENTLIST__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.BOXZERO__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.BOXNEG__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.BOXPOS__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.LAMBDA___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.MAPSTRING_EVERY__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2759:/ clear"); /*clear*/ /*_.LET___V11*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("SORTED_NAMED_DICT_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_114_SORTED_NAMED_DICT_TUPLE*/ static basilys_ptr_t rout_115_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_115_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 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ getarg"); /*_.NAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ENT__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ENT__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.ENT__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_NAMED*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ cond.then"); /*_.IFELSE___V5*/ curfptr[4] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ent named"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2767)?(2767):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.IFELSE___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ clear"); /*clear*/ /*_.IFELSE___V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2767:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~ENTLIST*/ curfclos->tabval[0])), (basilys_ptr_t)(/*_.ENT__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ clear"); /*clear*/ /*_.IFCPP___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)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_115_LAMBDA_*/ 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 9 void* varptr[9]; #define CURFRAM_NBVARNUM 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<9; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 9; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ getarg"); /*_.E1__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.E2__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.E2__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.E1__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.N1__V5*/ curfptr[4] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2772:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.E2__V3*/ curfptr[2]), 1, "NAMED_NAME");/*_.N2__V6*/ curfptr[5] = slot; }; ; /*_#STRING___L1*/ curfnum[0] = basilys_string_less((basilys_ptr_t)(/*_.N1__V5*/ curfptr[4]), (basilys_ptr_t)(/*_.N2__V6*/ curfptr[5]));; BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ cond"); /*cond*/ if (/*_#STRING___L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ cond.then"); /*_.IFELSE___V7*/ curfptr[6] = (/*~BOXNEG*/ curfclos->tabval[0]);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ block"); /*block*/{ /*_#STRING___L2*/ curfnum[1] = basilys_string_same((/*_.N1__V5*/ curfptr[4]), (/*_.N2__V6*/ curfptr[5]));; BASILYS_LOCATION("warmelt-outobj.bysl:2774:/ cond"); /*cond*/ if (/*_#STRING___L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2774:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*~BOXZERO*/ curfclos->tabval[1]);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2774:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2774:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2775:/ block"); /*block*/{ /*_.PROGN___V9*/ curfptr[8] = (/*~BOXPOS*/ curfclos->tabval[2]);;} ; /*_.IFELSE___V8*/ curfptr[7] = /*_.PROGN___V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2774:/ clear"); /*clear*/ /*_.PROGN___V9*/ curfptr[8] = 0 ;} ; } ; /*_.IFELSE___V7*/ curfptr[6] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ clear"); /*clear*/ /*_#STRING___L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2773:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; } ; /*_.LET___V4*/ curfptr[3] = /*_.IFELSE___V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ clear"); /*clear*/ /*_.N1__V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ clear"); /*clear*/ /*_.N2__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ clear"); /*clear*/ /*_#STRING___L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2771:/ clear"); /*clear*/ /*_.IFELSE___V7*/ curfptr[6] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V4*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2770:/ 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_116_LAMBDA_*/ static basilys_ptr_t rout_117_OUTPUT_EXPORTED_OFFSETS(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_OUTPUT_EXPORTED_OFFSETS_st { unsigned nbvar; #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 2 long varnum[2]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("OUTPUT_EXPORTED_OFFSETS", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ getarg"); /*_.MODCTX__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.DECLBUF__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.DECLBUF__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.IMPLBUF__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ apply.arg"); argtab[0].bp_cstring = "output_exported_offsets modctx"; BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ apply.arg"); argtab[3].bp_long = 2783; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODCTX__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-outobj.bysl:2783:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2783:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modctx"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2784)?(2784):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2784:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2786:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 1, "MOCX_EXPFIELDICT");/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ apply"); /*apply*/{ /*_.SORTEDFIELDS__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.MOCX_EXPFIELDICT__V9*/ curfptr[7]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2788:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.MODCTX__V2*/ curfptr[1]), 2, "MOCX_EXPCLASSDICT");/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2787:/ apply"); /*apply*/{ /*_.SORTEDCLASSES__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!SORTED_NAMED_DICT_TUPLE*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported field offsets */")); BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V14*/ curfptr[13] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_5*/ curfrout->tabval[5])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V14*/ curfptr[13])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V14*/ curfptr[13]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V14*/ curfptr[13])->tabval[0] = (basilys_ptr_t)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V13*/ curfptr[12] = /*_.LAMBDA___V14*/ curfptr[13];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2792:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2792:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V13*/ curfptr[12]; /*_.MULTIPLE_EVERY__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SORTEDFIELDS__V10*/ curfptr[9]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), ( "/* exported class lengths */")); BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V17*/ curfptr[16] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_7*/ curfrout->tabval[7])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ 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)(/*_.IMPLBUF__V4*/ curfptr[3]); ; /*_.LAMBDA___V16*/ curfptr[15] = /*_.LAMBDA___V17*/ curfptr[16];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2806:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2806:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V16*/ curfptr[15]; /*_.MULTIPLE_EVERY__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!MULTIPLE_EVERY*/ curfrout->tabval[3])), (basilys_ptr_t)(/*_.SORTEDCLASSES__V12*/ curfptr[11]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)(/*_.IMPLBUF__V4*/ curfptr[3]), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.MOCX_EXPFIELDICT__V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.SORTEDFIELDS__V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.MOCX_EXPCLASSDICT__V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.SORTEDCLASSES__V12*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.LAMBDA___V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.LAMBDA___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2785:/ clear"); /*clear*/ /*_.MULTIPLE_EVERY__V18*/ curfptr[17] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("OUTPUT_EXPORTED_OFFSETS", 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_117_OUTPUT_EXPORTED_OFFSETS*/ static basilys_ptr_t rout_118_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_118_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ getarg"); /*_.FLD__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ 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-outobj.bysl:2794:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.FLD__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_FIELD*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check fld"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2795)?(2795):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2795:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int fieldoff__")); BASILYS_LOCATION("warmelt-outobj.bysl:2798:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FLD__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = ")); /*_#GET_INT__L3*/ curfnum[1] = (basilys_get_int((basilys_ptr_t)(/*_.FLD__V2*/ curfptr[1])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#GET_INT__L3*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_118_LAMBDA_*/ static basilys_ptr_t rout_119_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_119_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ getarg"); /*_.CLA__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ 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-outobj.bysl:2808:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ block"); /*block*/{ /*_#IS_A__L2*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_CLASS*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ cond"); /*cond*/ if (/*_#IS_A__L2*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check cla"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2809)?(2809):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ clear"); /*clear*/ /*_#IS_A__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2809:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( "const int classlen__")); BASILYS_LOCATION("warmelt-outobj.bysl:2812:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 1, "NAMED_NAME");/*_.NAMED_NAME__V5*/ curfptr[3] = slot; }; ; basilysgc_add_strbuf_cident((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.NAMED_NAME__V5*/ curfptr[3]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( " = ")); BASILYS_LOCATION("warmelt-outobj.bysl:2815:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.CLA__V2*/ curfptr[1]), 6, "CLASS_FIELDS");/*_.CLASS_FIELDS__V6*/ curfptr[5] = slot; }; ; /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = (basilys_multiple_length((basilys_ptr_t)(/*_.CLASS_FIELDS__V6*/ curfptr[5])));; basilysgc_add_strbuf_dec((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), (/*_#MULTIPLE_LENGTH__L3*/ curfnum[1])); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~IMPLBUF*/ curfclos->tabval[0])), ( ";")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ clear"); /*clear*/ /*_.NAMED_NAME__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ clear"); /*clear*/ /*_.CLASS_FIELDS__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ clear"); /*clear*/ /*_#MULTIPLE_LENGTH__L3*/ curfnum[1] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_119_LAMBDA_*/ static basilys_ptr_t rout_120_COMPILE_LIST_SEXPR(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_COMPILE_LIST_SEXPR_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 82 void* varptr[82]; #define CURFRAM_NBVARNUM 26 long varnum[26]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<82; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 82; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILE_LIST_SEXPR", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ getarg"); /*_.LSEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.INIENV__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.INIENV__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.MODNAMSTR__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ block"); /*block*/{ debugeputs(( "starting compile_list_sexpr")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ apply.arg"); argtab[0].bp_cstring = "\n\n\n*%*%* compile_list_sexpr lsexp"; BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ apply.arg"); argtab[3].bp_long = 2826; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.LSEXP__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-outobj.bysl:2826:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2826:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr inienv"; BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ apply.arg"); argtab[3].bp_long = 2827; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2827:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr modnamstr"; BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ apply.arg"); argtab[3].bp_long = 2828; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (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-outobj.bysl:2828:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2828:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ block"); /*block*/{ /*_#IS_LIST__L4*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.LSEXP__V2*/ curfptr[1])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ cond"); /*cond*/ if (/*_#IS_LIST__L4*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ cond.then"); /*_.IFELSE___V12*/ curfptr[11] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check lsexp"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2829)?(2829):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V11*/ curfptr[9] = /*_.IFELSE___V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ clear"); /*clear*/ /*_#IS_LIST__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ clear"); /*clear*/ /*_.IFELSE___V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2829:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ block"); /*block*/{ /*_#IS_STRING__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ cond.then"); /*_.IFELSE___V14*/ curfptr[13] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check modnamstr"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2830)?(2830):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.IFELSE___V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ clear"); /*clear*/ /*_.IFELSE___V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2830:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ cond.then"); /*_.IFELSE___V16*/ curfptr[15] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inienv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2831)?(2831):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.IFELSE___V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ clear"); /*clear*/ /*_.IFELSE___V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2831:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ block"); /*block*/{ /*_.MAKE_MAPSTRING__V17*/ curfptr[15] = (basilysgc_new_mapstrings( (basilysobject_ptr_t) ((/*!DISCR_MAPSTRINGS*/ curfrout->tabval[3])), (90)));; /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = (basilysgc_new_mapstrings( (basilysobject_ptr_t) ((/*!DISCR_MAPSTRINGS*/ curfrout->tabval[3])), (40)));; BASILYS_LOCATION("warmelt-outobj.bysl:2833:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2833:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_MODULCONTEXT*/ curfrout->tabval[2])), (3), "CLASS_MODULCONTEXT");/*_.INST__V20*/ curfptr[19] = newobj; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2833:/ 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), (/*_.MODNAMSTR__V4*/ curfptr[3]), "MOCX_MODULENAME"); ; BASILYS_LOCATION("warmelt-outobj.bysl:2833:/ 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), (/*_.MAKE_MAPSTRING__V17*/ curfptr[15]), "MOCX_EXPFIELDICT"); ; BASILYS_LOCATION("warmelt-outobj.bysl:2833:/ 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), (/*_.MAKE_MAPSTRING__V18*/ curfptr[17]), "MOCX_EXPCLASSDICT"); ; /*_.MODCTX__V19*/ curfptr[18] = /*_.INST__V20*/ curfptr[19];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2838:/ apply"); /*apply*/{ /*_.NCX__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)((/*!CREATE_NORMCONTEXT*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr initial ncx"; BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ apply.arg"); argtab[3].bp_long = 2839; /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), (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-outobj.bysl:2839:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V23*/ curfptr[22] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2839:/ cppif.else"); /*_.IFCPP___V22*/ curfptr[21] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ block"); /*block*/{ /*_#IS_A__L8*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), (basilys_ptr_t)((/*!CLASS_NORMCONTEXT*/ curfrout->tabval[5])));; BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ cond"); /*cond*/ if (/*_#IS_A__L8*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ cond.then"); /*_.IFELSE___V25*/ curfptr[24] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check ncx"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2840)?(2840):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V24*/ curfptr[22] = /*_.IFELSE___V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ clear"); /*clear*/ /*_#IS_A__L8*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ clear"); /*clear*/ /*_.IFELSE___V25*/ curfptr[24] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2840:/ cppif.else"); /*_.IFCPP___V24*/ curfptr[22] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.INIENV__V3*/ curfptr[2]; /*_.XLIST__V26*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)((/*!MACROEXPAND_TOPLEVEL_LIST*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.LSEXP__V2*/ curfptr[1]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LIST_FIRST__V27*/ curfptr[26] = (basilys_list_first((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24])));; /*_.FIRSTX__V28*/ curfptr[27] = (basilys_pair_head((basilys_ptr_t)(/*_.LIST_FIRST__V27*/ curfptr[26])));; /*_#IS_A__L9*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.FIRSTX__V28*/ curfptr[27]), (basilys_ptr_t)((/*!CLASS_SRC*/ curfrout->tabval[7])));; BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ cond"); /*cond*/ if (/*_#IS_A__L9*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.FIRSTX__V28*/ curfptr[27]), 0, "SRC_LOC");/*_.SRC_LOC__V30*/ curfptr[29] = slot; }; ; /*_.FIRSTLOC__V29*/ curfptr[28] = /*_.SRC_LOC__V30*/ curfptr[29];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ clear"); /*clear*/ /*_.SRC_LOC__V30*/ curfptr[29] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2843:/ cond.else"); /*_.FIRSTLOC__V29*/ curfptr[28] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2844:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 0, "NCTX_INITPROC");/*_.INIPROC__V31*/ curfptr[29] = slot; }; ; /*_.DECLBUF__V32*/ curfptr[31] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; /*_.IMPLBUF__V33*/ curfptr[32] = basilysgc_new_strbuf((basilysobject_ptr_t)((/*!DISCR_STRBUF*/ curfrout->tabval[8])), (char*)0);; /*_.MAKE_STRINGCONST__V34*/ curfptr[33] = (basilysgc_new_stringdup((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[10])), ( "at very start")));; BASILYS_LOCATION("warmelt-outobj.bysl:2848:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2848:/ rawallocobj"); /*rawallocobj*/ { basilys_ptr_t newobj = 0; basilys_raw_object_create(newobj,(basilys_ptr_t)((/*!CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ curfrout->tabval[9])), (2), "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER");/*_.INST__V36*/ curfptr[35] = newobj; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2848:/ 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), (/*_.FIRSTLOC__V29*/ curfptr[28]), "SRC_LOC"); ; BASILYS_LOCATION("warmelt-outobj.bysl:2848:/ putslot"); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.INST__V36*/ curfptr[35]))));basilys_putfield_object((/*_.INST__V36*/ curfptr[35]), (1), (/*_.MAKE_STRINGCONST__V34*/ curfptr[33]), "SUCME_COMMENT"); ; /*_.UCMEB1__V35*/ curfptr[34] = /*_.INST__V36*/ curfptr[35];;} ; basilysgc_prepend_list((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24]), (basilys_ptr_t)(/*_.UCMEB1__V35*/ curfptr[34])); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ apply.arg"); argtab[0].bp_cstring = "after macroexpansion compile_list_sexpr seq"; BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L10*/ curfnum[9]; BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ apply.arg"); argtab[3].bp_long = 2854; /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24]), (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-outobj.bysl:2854:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[37] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2854:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[36] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ apply.arg"); argtab[0].bp_cstring = "after macroexpansion compile_list_sexpr inienv"; BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9]; BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ apply.arg"); argtab[3].bp_long = 2855; /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INIENV__V3*/ curfptr[2]), (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-outobj.bysl:2855:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V40*/ curfptr[39] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2855:/ cppif.else"); /*_.IFCPP___V39*/ curfptr[37] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ block"); /*block*/{ /*_#IS_A__L12*/ curfnum[9] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIPROC__V31*/ curfptr[29]), (basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ cond"); /*cond*/ if (/*_#IS_A__L12*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ cond.then"); /*_.IFELSE___V42*/ curfptr[41] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check iniproc"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2856)?(2856):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V41*/ curfptr[39] = /*_.IFELSE___V42*/ curfptr[41];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ clear"); /*clear*/ /*_#IS_A__L12*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ clear"); /*clear*/ /*_.IFELSE___V42*/ curfptr[41] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2856:/ cppif.else"); /*_.IFCPP___V41*/ curfptr[39] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ block"); /*block*/{ /*_#IS_LIST__L13*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ cond"); /*cond*/ if (/*_#IS_LIST__L13*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ cond.then"); /*_.IFELSE___V44*/ curfptr[43] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check xlist"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2857)?(2857):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V43*/ curfptr[41] = /*_.IFELSE___V44*/ curfptr[43];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ clear"); /*clear*/ /*_#IS_LIST__L13*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ clear"); /*clear*/ /*_.IFELSE___V44*/ curfptr[43] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2857:/ cppif.else"); /*_.IFCPP___V43*/ curfptr[41] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V46*/ curfptr[45] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_20*/ curfrout->tabval[20])), (4)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ 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)(/*_.DECLBUF__V32*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[1] = (basilys_ptr_t)(/*_.INIENV__V3*/ curfptr[2]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[2] = (basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V46*/ curfptr[45])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V46*/ curfptr[45]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V46*/ curfptr[45])->tabval[3] = (basilys_ptr_t)(/*_.INIPROC__V31*/ curfptr[29]); ; /*_.LAMBDA___V45*/ curfptr[43] = /*_.LAMBDA___V46*/ curfptr[45];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2858:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2858:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V45*/ curfptr[43]; /*_.LIST_EVERY__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 1, "NCTX_PROCLIST");/*_.PROLIST__V48*/ curfptr[47] = slot; }; ; /*_.OBJLIST__V49*/ curfptr[48] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[21]))));; /*_#LIST_LENGTH__L14*/ curfnum[9] = (basilys_list_length((basilys_ptr_t)(/*_.XLIST__V26*/ curfptr[24])));; /*_#I__L15*/ curfnum[14] = ((20) * (/*_#LIST_LENGTH__L14*/ curfnum[9]));; /*_#I__L16*/ curfnum[15] = ((10) + (/*_#I__L15*/ curfnum[14]));; /*_.COMPICACHE__V50*/ curfptr[49] = (basilysgc_new_mapobjects( (basilysobject_ptr_t) ((/*!DISCR_MAPOBJECTS*/ curfrout->tabval[22])), (/*_#I__L16*/ curfnum[15])));; /*_.COUNTBOX__V51*/ curfptr[50] = (basilysgc_new_int((basilysobject_ptr_t)((/*!DISCR_INTEGER*/ curfrout->tabval[23])), (0)));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr prolist"; BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L17*/ curfnum[16]; BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ apply.arg"); argtab[3].bp_long = 2895; /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PROLIST__V48*/ curfptr[47]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V52*/ curfptr[51] = /*_.DEBUG_MSG_FUN__V53*/ curfptr[52];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L17*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V53*/ curfptr[52] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2895:/ cppif.else"); /*_.IFCPP___V52*/ curfptr[51] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ block"); /*block*/{ /*_#IS_LIST__L18*/ curfnum[16] = (basilys_magic_discr((basilys_ptr_t)(/*_.PROLIST__V48*/ curfptr[47])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ cond"); /*cond*/ if (/*_#IS_LIST__L18*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ cond.then"); /*_.IFELSE___V55*/ curfptr[54] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check prolist"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2896)?(2896):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V54*/ curfptr[52] = /*_.IFELSE___V55*/ curfptr[54];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ clear"); /*clear*/ /*_#IS_LIST__L18*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ clear"); /*clear*/ /*_.IFELSE___V55*/ curfptr[54] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2896:/ cppif.else"); /*_.IFCPP___V54*/ curfptr[52] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V57*/ curfptr[56] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_27*/ curfrout->tabval[27])), (4)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V57*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V57*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V57*/ curfptr[56])->tabval[0] = (basilys_ptr_t)(/*_.COUNTBOX__V51*/ curfptr[50]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V57*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V57*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V57*/ curfptr[56])->tabval[1] = (basilys_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V57*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 2>= 0 && 2< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V57*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V57*/ curfptr[56])->tabval[2] = (basilys_ptr_t)(/*_.COMPICACHE__V50*/ curfptr[49]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V57*/ curfptr[56])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 3>= 0 && 3< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V57*/ curfptr[56]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V57*/ curfptr[56])->tabval[3] = (basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48]); ; /*_.LAMBDA___V56*/ curfptr[54] = /*_.LAMBDA___V57*/ curfptr[56];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2897:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2897:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V56*/ curfptr[54]; /*_.LIST_EVERY__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.PROLIST__V48*/ curfptr[47]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L19*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr objlist"; BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L19*/ curfnum[16]; BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ apply.arg"); argtab[3].bp_long = 2909; /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V59*/ curfptr[58] = /*_.DEBUG_MSG_FUN__V60*/ curfptr[59];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L19*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V60*/ curfptr[59] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2909:/ cppif.else"); /*_.IFCPP___V59*/ curfptr[58] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ block"); /*block*/{ /*_#IS_LIST__L20*/ curfnum[16] = (basilys_magic_discr((basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ cond"); /*cond*/ if (/*_#IS_LIST__L20*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ cond.then"); /*_.IFELSE___V62*/ curfptr[61] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check objlist"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2910)?(2910):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V61*/ curfptr[59] = /*_.IFELSE___V62*/ curfptr[61];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ clear"); /*clear*/ /*_#IS_LIST__L20*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ clear"); /*clear*/ /*_.IFELSE___V62*/ curfptr[61] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2910:/ cppif.else"); /*_.IFCPP___V61*/ curfptr[59] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 0, "NCTX_INITPROC");/*_.INIPRO__V63*/ curfptr[61] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2912:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 2, "NCTX_DATALIST");/*_.INIDATA__V64*/ curfptr[63] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2913:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 3, "NCTX_VALUELIST");/*_.IMPORTVALUES__V65*/ curfptr[64] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2914:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.NCX__V21*/ curfptr[20]), 14, "NCTX_PROCURMODENVLIST");/*_.PROCURMODENVLIST__V66*/ curfptr[65] = slot; }; ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ block"); /*block*/{ /*_#IS_A__L21*/ curfnum[16] = basilys_is_instance_of((basilys_ptr_t)(/*_.INIPRO__V63*/ curfptr[61]), (basilys_ptr_t)((/*!CLASS_NREP_INITPROC*/ curfrout->tabval[11])));; BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ cond"); /*cond*/ if (/*_#IS_A__L21*/ curfnum[16]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ cond.then"); /*_.IFELSE___V68*/ curfptr[67] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check inipro"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2916)?(2916):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V67*/ curfptr[66] = /*_.IFELSE___V68*/ curfptr[67];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ clear"); /*clear*/ /*_#IS_A__L21*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ clear"); /*clear*/ /*_.IFELSE___V68*/ curfptr[67] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2916:/ cppif.else"); /*_.IFCPP___V67*/ curfptr[66] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L22*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr procurmodenvlist"; BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L22*/ curfnum[16]; BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ apply.arg"); argtab[3].bp_long = 2917; /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PROCURMODENVLIST__V66*/ curfptr[65]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V69*/ curfptr[67] = /*_.DEBUG_MSG_FUN__V70*/ curfptr[69];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L22*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V70*/ curfptr[69] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2917:/ cppif.else"); /*_.IFCPP___V69*/ curfptr[67] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply"); /*apply*/{ union basilysparam_un argtab[5]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.MODCTX__V19*/ curfptr[18]; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.INIDATA__V64*/ curfptr[63]; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.COMPICACHE__V50*/ curfptr[49]; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply.arg"); argtab[3].bp_aptr = (basilys_ptr_t*) &/*_.PROCURMODENVLIST__V66*/ curfptr[65]; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ apply.arg"); argtab[4].bp_aptr = (basilys_ptr_t*) &/*_.IMPORTVALUES__V65*/ curfptr[64]; /*_.INIOBJ__V71*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE2OBJ_INITPROC*/ curfrout->tabval[28])), (basilys_ptr_t)(/*_.INIPRO__V63*/ curfptr[61]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L23*/ curfnum[16] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr iniobj"; BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L23*/ curfnum[16]; BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ apply.arg"); argtab[3].bp_long = 2919; /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INIOBJ__V71*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V72*/ curfptr[71] = /*_.DEBUG_MSG_FUN__V73*/ curfptr[72];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L23*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V73*/ curfptr[72] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2919:/ cppif.else"); /*_.IFCPP___V72*/ curfptr[71] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#LIST_LENGTH__L24*/ curfnum[16] = (basilys_list_length((basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48])));; basilys_putnum(stderr,( "** warmelt generated "), (/*_#LIST_LENGTH__L24*/ curfnum[16]), ( " routines into ")); basilys_putstr(stderr, (basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3])); basilys_newlineflush(stderr); basilys_puts(stderr,( "** from ")); basilys_puts(stderr,basilys_compiled_timestamp); basilys_newlineflush(stderr); basilys_puts(stderr,( "** of checksum ")); basilys_puts(stderr,basilys_md5); basilys_newlineflush(stderr); BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V75*/ curfptr[74] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_31*/ curfrout->tabval[31])), (2)); ; BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V75*/ curfptr[74])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V75*/ curfptr[74]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V75*/ curfptr[74])->tabval[0] = (basilys_ptr_t)(/*_.DECLBUF__V32*/ curfptr[31]); ; BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V75*/ curfptr[74])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 1>= 0 && 1< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V75*/ curfptr[74]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V75*/ curfptr[74])->tabval[1] = (basilys_ptr_t)(/*_.IMPLBUF__V33*/ curfptr[32]); ; /*_.LAMBDA___V74*/ curfptr[72] = /*_.LAMBDA___V75*/ curfptr[74];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2930:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2930:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V74*/ curfptr[72]; /*_.LIST_EVERY__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[12])), (basilys_ptr_t)(/*_.OBJLIST__V49*/ curfptr[48]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr final modnamstr"; BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L25*/ curfnum[24]; BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ apply.arg"); argtab[3].bp_long = 2935; /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V77*/ curfptr[76] = /*_.DEBUG_MSG_FUN__V78*/ curfptr[77];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L25*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V78*/ curfptr[77] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2935:/ cppif.else"); /*_.IFCPP___V77*/ curfptr[76] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr outputting iniobj"; BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L26*/ curfnum[24]; BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ apply.arg"); argtab[3].bp_long = 2936; /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.INIOBJ__V71*/ curfptr[69]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V79*/ curfptr[77] = /*_.DEBUG_MSG_FUN__V80*/ curfptr[79];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L26*/ curfnum[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V80*/ curfptr[79] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2936:/ cppif.else"); /*_.IFCPP___V79*/ curfptr[77] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2937:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2937:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V32*/ curfptr[31]; BASILYS_LOCATION("warmelt-outobj.bysl:2937:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V33*/ curfptr[32]; BASILYS_LOCATION("warmelt-outobj.bysl:2937:/ ojbmsend.arg"); argtab[2].bp_long = 0; /*_.OUTPUT_C_CODE__V81*/ curfptr[79] = basilysgc_send((basilys_ptr_t)(/*_.INIOBJ__V71*/ curfptr[69]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[32])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2938:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2938:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.DECLBUF__V32*/ curfptr[31]; BASILYS_LOCATION("warmelt-outobj.bysl:2938:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.IMPLBUF__V33*/ curfptr[32]; /*_.OUTPUT_EXPORTED_OFFSETS__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)((/*!OUTPUT_EXPORTED_OFFSETS*/ curfrout->tabval[33])), (basilys_ptr_t)(/*_.MODCTX__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; basilys_output_cfile_decl_impl((basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]), (basilys_ptr_t)(/*_.DECLBUF__V32*/ curfptr[31]), (basilys_ptr_t)(/*_.IMPLBUF__V33*/ curfptr[32])); inform(UNKNOWN_LOCATION, ("BASILYS INFORM [#%ld]: %s - %s"), basilys_dbgcounter, ( "warmelt generated module"), basilys_string_str((basilys_ptr_t)(/*_.MODNAMSTR__V4*/ curfptr[3]))); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.INIOBJ__V71*/ curfptr[69] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.IFCPP___V72*/ curfptr[71] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_#LIST_LENGTH__L24*/ curfnum[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.LAMBDA___V74*/ curfptr[72] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.LIST_EVERY__V76*/ curfptr[75] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.IFCPP___V77*/ curfptr[76] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.IFCPP___V79*/ curfptr[77] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__V81*/ curfptr[79] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2918:/ clear"); /*clear*/ /*_.OUTPUT_EXPORTED_OFFSETS__V82*/ curfptr[81] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.INIPRO__V63*/ curfptr[61] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.INIDATA__V64*/ curfptr[63] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.IMPORTVALUES__V65*/ curfptr[64] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.PROCURMODENVLIST__V66*/ curfptr[65] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.IFCPP___V67*/ curfptr[66] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2911:/ clear"); /*clear*/ /*_.IFCPP___V69*/ curfptr[67] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.PROLIST__V48*/ curfptr[47] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.OBJLIST__V49*/ curfptr[48] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_#LIST_LENGTH__L14*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_#I__L15*/ curfnum[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_#I__L16*/ curfnum[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.COMPICACHE__V50*/ curfptr[49] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.COUNTBOX__V51*/ curfptr[50] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.IFCPP___V52*/ curfptr[51] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.IFCPP___V54*/ curfptr[52] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.LAMBDA___V56*/ curfptr[54] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.LIST_EVERY__V58*/ curfptr[57] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.IFCPP___V59*/ curfptr[58] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2890:/ clear"); /*clear*/ /*_.IFCPP___V61*/ curfptr[59] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.XLIST__V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.LIST_FIRST__V27*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.FIRSTX__V28*/ curfptr[27] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.FIRSTLOC__V29*/ curfptr[28] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.INIPROC__V31*/ curfptr[29] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.DECLBUF__V32*/ curfptr[31] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.IMPLBUF__V33*/ curfptr[32] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.MAKE_STRINGCONST__V34*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.UCMEB1__V35*/ curfptr[34] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[36] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.IFCPP___V39*/ curfptr[37] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.IFCPP___V41*/ curfptr[39] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.IFCPP___V43*/ curfptr[41] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.LAMBDA___V45*/ curfptr[43] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2841:/ clear"); /*clear*/ /*_.LIST_EVERY__V47*/ curfptr[46] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.MAKE_MAPSTRING__V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.MAKE_MAPSTRING__V18*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.MODCTX__V19*/ curfptr[18] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.NCX__V21*/ curfptr[20] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.IFCPP___V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2832:/ clear"); /*clear*/ /*_.IFCPP___V24*/ curfptr[22] = 0 ;} ; debugeputs(( "ended compile_list_sexpr")); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILE_LIST_SEXPR", 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_120_COMPILE_LIST_SEXPR*/ static basilys_ptr_t rout_121_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_121_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 11 long varnum[11]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<18; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 18; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ getarg"); /*_.SEXP__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ 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-outobj.bysl:2860:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr sexp"; BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ apply.arg"); argtab[3].bp_long = 2861; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SEXP__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-outobj.bysl:2861:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2861:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2862:/ block"); /*block*/{ /*_#IS_A__L3*/ curfnum[1] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_LOCATED*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ cond"); /*cond*/ if (/*_#IS_A__L3*/ curfnum[1]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "LOCA_LOCATION");/*_.LOCA_LOCATION__V6*/ curfptr[5] = slot; }; ; /*_.PSLOC__V5*/ curfptr[3] = /*_.LOCA_LOCATION__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ clear"); /*clear*/ /*_.LOCA_LOCATION__V6*/ curfptr[5] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2863:/ cond.else"); /*_.PSLOC__V5*/ curfptr[3] = NULL;; } ; /*_#IS_A__L4*/ curfnum[3] = basilys_is_instance_of((basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_SRC_COMMENT*/ curfrout->tabval[2])));; BASILYS_LOCATION("warmelt-outobj.bysl:2867:/ cond"); /*cond*/ if (/*_#IS_A__L4*/ curfnum[3]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2867:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2867:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2868:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2868:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 0, "SRC_LOC");/*_.SLOC__V7*/ curfptr[5] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:2869:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), 1, "SCOMM_STR");/*_.SCOMM__V8*/ curfptr[7] = slot; }; ; basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DECLBUF*/ curfclos->tabval[0])), ( "/**!!** ")); #ifndef MELTGCC_NOLINENUMBERING #endif /*MELTGCC_NOLINENUMBERING*/ basilysgc_add_strbuf_ccomment((struct basilysstrbuf_st *)((/*~DECLBUF*/ curfclos->tabval[0])), basilys_string_str((basilys_ptr_t)(/*_.SCOMM__V8*/ curfptr[7]))); basilysgc_add_strbuf((struct basilysstrbuf_st *)((/*~DECLBUF*/ curfclos->tabval[0])), ( "**!!**/")); basilysgc_strbuf_add_indent((struct basilysstrbuf_st *)((/*~DECLBUF*/ curfclos->tabval[0])), (0), 0); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2868:/ clear"); /*clear*/ /*_.SLOC__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2868:/ clear"); /*clear*/ /*_.SCOMM__V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2867:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2867:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ 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-outobj.bysl:2878:/ multimsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~INIENV*/ curfclos->tabval[1]);BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ multimsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~NCX*/ curfclos->tabval[2]);BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ multimsend.arg"); argtab[2].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3]; BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ multimsend.xres"); restab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V10*/ curfptr[7];BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ multimsend.send"); /*_.NEXP__V9*/ curfptr[5] = basilysgc_send ((basilys_ptr_t)(/*_.SEXP__V2*/ curfptr[1]), ((basilys_ptr_t)((/*!NORMAL_EXP*/ curfrout->tabval[3]))), (BPARSTR_PTR BPARSTR_PTR BPARSTR_PTR ""), argtab, (BPARSTR_PTR ""), restab); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr nexp"; BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ apply.arg"); argtab[3].bp_long = 2881; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V11*/ curfptr[10] = /*_.DEBUG_MSG_FUN__V12*/ curfptr[11];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2881:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr nbind"; BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[4]; BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ apply.arg"); argtab[3].bp_long = 2882; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.NBIND__V10*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2882:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_A__L7*/ curfnum[4] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_NREP*/ curfrout->tabval[4])));; BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ cond"); /*cond*/ if (/*_#IS_A__L7*/ curfnum[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ block"); /*block*/{ /*_#IS_A__L9*/ curfnum[8] = basilys_is_instance_of((basilys_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[5])));; /*_#NOT__L10*/ curfnum[9] = (!(/*_#IS_A__L9*/ curfnum[8]));; /*_#IF___L8*/ curfnum[7] = /*_#NOT__L10*/ curfnum[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ clear"); /*clear*/ /*_#IS_A__L9*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ clear"); /*clear*/ /*_#NOT__L10*/ curfnum[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ cond.else"); /*_#IF___L8*/ curfnum[7] = 0;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ cond"); /*cond*/ if (/*_#IF___L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2883:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.NBIND__V10*/ curfptr[7]; BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.PSLOC__V5*/ curfptr[3]; /*_.WNEXP__V15*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!WRAP_NORMAL_LET1*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.NEXP__V9*/ curfptr[5]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr wnexp"; BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[8]; BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ apply.arg"); argtab[3].bp_long = 2886; /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.WNEXP__V15*/ 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-outobj.bysl:2886:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V17*/ curfptr[16] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2886:/ cppif.else"); /*_.IFCPP___V16*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2887:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*~INIPROC*/ curfclos->tabval[3])), 2, "NINIT_TOPL");/*_.NINIT_TOPL__V18*/ curfptr[16] = slot; }; ; basilysgc_append_list((basilys_ptr_t)(/*_.NINIT_TOPL__V18*/ curfptr[16]), (basilys_ptr_t)(/*_.WNEXP__V15*/ curfptr[13])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ clear"); /*clear*/ /*_.WNEXP__V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ clear"); /*clear*/ /*_.IFCPP___V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2885:/ clear"); /*clear*/ /*_.NINIT_TOPL__V18*/ curfptr[16] = 0 ;} ; /*epilog*/} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ clear"); /*clear*/ /*_#IS_A__L7*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ clear"); /*clear*/ /*_#IF___L8*/ curfnum[7] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2878:/ clear"); /*clear*/ /*_.NBIND__V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2862:/ clear"); /*clear*/ /*_#IS_A__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2862:/ clear"); /*clear*/ /*_.PSLOC__V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2862:/ clear"); /*clear*/ /*_#IS_A__L4*/ curfnum[3] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ 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_121_LAMBDA_*/ static basilys_ptr_t rout_122_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_122_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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ getarg"); /*_.PRO__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ block"); /*block*/{ /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (basilys_ptr_t)((/*!CLASS_NREP_ANYPROC*/ curfrout->tabval[0])));; BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ cond.then"); /*_.IFELSE___V4*/ curfptr[3] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check pro"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2900)?(2900):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V3*/ curfptr[2] = /*_.IFELSE___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ clear"); /*clear*/ /*_.IFELSE___V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2900:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr pro"; BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ apply.arg"); argtab[3].bp_long = 2901; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PRO__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-outobj.bysl:2901:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2901:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#GET_INT__L3*/ curfnum[0] = (basilys_get_int((basilys_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; /*_#I__L4*/ curfnum[3] = ((/*_#GET_INT__L3*/ curfnum[0]) + (1));; basilys_put_int((basilys_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0])), (/*_#I__L4*/ curfnum[3])); BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ block"); /*block*/{ /*_#GET_INT__L5*/ curfnum[4] = (basilys_get_int((basilys_ptr_t)((/*~COUNTBOX*/ curfclos->tabval[0]))));; BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ apply"); /*apply*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~MODCTX*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~COMPICACHE*/ curfclos->tabval[2]); BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ apply.arg"); argtab[2].bp_long = /*_#GET_INT__L5*/ curfnum[4]; /*_.OBJPRO__V7*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE2OBJ_PROCEDURE*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.PRO__V2*/ curfptr[1]), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr objpro"; BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[5]; BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ apply.arg"); argtab[3].bp_long = 2904; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V8*/ curfptr[7] = /*_.DEBUG_MSG_FUN__V9*/ curfptr[8];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2904:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr done pro"; BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L7*/ curfnum[5]; BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ apply.arg"); argtab[3].bp_long = 2905; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.PRO__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-outobj.bysl:2905:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2905:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; basilysgc_append_list((basilys_ptr_t)((/*~OBJLIST*/ curfclos->tabval[3])), (basilys_ptr_t)(/*_.OBJPRO__V7*/ curfptr[5])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ clear"); /*clear*/ /*_#GET_INT__L5*/ curfnum[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ clear"); /*clear*/ /*_.OBJPRO__V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2903:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ clear"); /*clear*/ /*_#GET_INT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ clear"); /*clear*/ /*_#I__L4*/ curfnum[3] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_122_LAMBDA_*/ static basilys_ptr_t rout_123_LAMBDA_(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_123_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 5 void* varptr[5]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<5; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 5; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ getarg"); /*_.OBEL__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ apply.arg"); argtab[0].bp_cstring = "compile_list_sexpr obel"; BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ apply.arg"); argtab[3].bp_long = 2933; /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.OBEL__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-outobj.bysl:2933:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V4*/ curfptr[3] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2933:/ cppif.else"); /*_.IFCPP___V3*/ curfptr[2] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2934:/ msend"); /*msend*/{ union basilysparam_un argtab[3]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2934:/ ojbmsend.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*~DECLBUF*/ curfclos->tabval[0]); BASILYS_LOCATION("warmelt-outobj.bysl:2934:/ ojbmsend.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &(/*~IMPLBUF*/ curfclos->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:2934:/ ojbmsend.arg"); argtab[2].bp_long = 0; /*_.OUTPUT_C_CODE__V5*/ curfptr[3] = basilysgc_send((basilys_ptr_t)(/*_.OBEL__V2*/ curfptr[1]), (basilys_ptr_t)((/*!OUTPUT_C_CODE*/ curfrout->tabval[1])), (BPARSTR_PTR BPARSTR_PTR BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.OUTPUT_C_CODE__V5*/ curfptr[3];; BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ clear"); /*clear*/ /*_.IFCPP___V3*/ curfptr[2] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ clear"); /*clear*/ /*_.OUTPUT_C_CODE__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_123_LAMBDA_*/ static basilys_ptr_t rout_124_INSTALL_INITIAL_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_INSTALL_INITIAL_COMMAND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 6 void* varptr[6]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<6; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 6; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("INSTALL_INITIAL_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ getarg"); /*_.NAM__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.FUN__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.FUN__V3*/ curfptr[2])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ apply.arg"); argtab[0].bp_cstring = "install_initial_command fun"; BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ apply.arg"); argtab[3].bp_long = 2948; /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.FUN__V3*/ curfptr[2]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V4*/ curfptr[3] = /*_.DEBUG_MSG_FUN__V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V5*/ curfptr[4] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2948:/ cppif.else"); /*_.IFCPP___V4*/ curfptr[3] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*_#IS_CLOSURE__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.FUN__V3*/ curfptr[2])) == OBMAG_CLOSURE);; BASILYS_LOCATION("warmelt-outobj.bysl:2949:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2949:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2949:/ block"); /*block*/{ /*_#IS_STRING__L3*/ curfnum[2] = (basilys_magic_discr((basilys_ptr_t)(/*_.NAM__V2*/ curfptr[1])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2950:/ cond"); /*cond*/ if (/*_#IS_STRING__L3*/ curfnum[2]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2950:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2950:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2951:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[1])), 2, "SYSDATA_CMD_FUNDICT");/*_.SYSDATA_CMD_FUNDICT__V6*/ curfptr[4] = slot; }; ; basilysgc_put_mapstrings((struct basilysmapstrings_st *) (/*_.SYSDATA_CMD_FUNDICT__V6*/ curfptr[4]), basilys_string_str((basilys_ptr_t)(/*_.NAM__V2*/ curfptr[1])), (basilys_ptr_t)(/*_.FUN__V3*/ curfptr[2])); /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2950:/ clear"); /*clear*/ /*_.SYSDATA_CMD_FUNDICT__V6*/ curfptr[4] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2949:/ clear"); /*clear*/ /*_#IS_STRING__L3*/ curfnum[2] = 0 ;} ; } /*noelse*/ ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ clear"); /*clear*/ /*_.IFCPP___V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ clear"); /*clear*/ /*_#IS_CLOSURE__L2*/ curfnum[0] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("INSTALL_INITIAL_COMMAND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*noretval*/ NULL); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_124_INSTALL_INITIAL_COMMAND*/ static basilys_ptr_t rout_125_INITIAL_COMMAND_INSTALL(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_INITIAL_COMMAND_INSTALL_st { unsigned nbvar; #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*/ const char* loc_CTYPE_CSTRING__o0; long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<7; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 7; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("INITIAL_COMMAND_INSTALL", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ getarg"); /*_.FUN__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ getarg"); if (xargdescr_[0] != BPAR_CSTRING) goto lab_endgetargs; /*_?*/ curfram__.loc_CTYPE_CSTRING__o0 = xargtab_[0].bp_cstring; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ block"); /*block*/{ /*_#IS_CLOSURE__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.FUN__V2*/ curfptr[1])) == OBMAG_CLOSURE);; BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond"); /*cond*/ if (/*_#IS_CLOSURE__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond"); /*cond*/ if (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2957:/ block"); /*block*/{ /*_.NAM__V6*/ curfptr[5] = basilysgc_new_string((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[0])), (/*_?*/ curfram__.loc_CTYPE_CSTRING__o0));; BASILYS_LOCATION("warmelt-outobj.bysl:2958:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2958:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.FUN__V2*/ curfptr[1]; /*_.INSTALL_INITIAL_COMMAND__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!INSTALL_INITIAL_COMMAND*/ curfrout->tabval[1])), (basilys_ptr_t)(/*_.NAM__V6*/ curfptr[5]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V5*/ curfptr[4] = /*_.INSTALL_INITIAL_COMMAND__V7*/ curfptr[6];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2957:/ clear"); /*clear*/ /*_.NAM__V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2957:/ clear"); /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V7*/ curfptr[6] = 0 ;} ; /*_.IF___V4*/ curfptr[3] = /*_.LET___V5*/ curfptr[4];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ clear"); /*clear*/ /*_.LET___V5*/ curfptr[4] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond.else"); /*_.IF___V4*/ curfptr[3] = NULL;; } ; /*_.IF___V3*/ curfptr[2] = /*_.IF___V4*/ curfptr[3];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ clear"); /*clear*/ /*_.IF___V4*/ curfptr[3] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2955:/ cond.else"); /*_.IF___V3*/ curfptr[2] = NULL;; } ; BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IF___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ clear"); /*clear*/ /*_#IS_CLOSURE__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ clear"); /*clear*/ /*_.IF___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("INITIAL_COMMAND_INSTALL", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_125_INITIAL_COMMAND_INSTALL*/ static basilys_ptr_t rout_126_READSEQ_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_READSEQ_COMMAND_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<12; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 12; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("READSEQ_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ block"); /*block*/{ debugeputs(( "starting readseq")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ apply.arg"); argtab[0].bp_cstring = "start readseq_command"; BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ apply.arg"); argtab[3].bp_long = 2964; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (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-outobj.bysl:2964:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2964:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2965:/ block"); /*block*/{ /*_.RLIST__V9*/ curfptr[8] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])), (char*)0));; debugeputs(( "ending readseq")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ apply.arg"); argtab[0].bp_cstring = "done readseq_command"; BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ apply.arg"); argtab[3].bp_long = 2967; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RLIST__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-outobj.bysl:2967:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2967:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2968:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:2968:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V8*/ curfptr[6] = /*_.RETURN___V12*/ curfptr[10];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2965:/ clear"); /*clear*/ /*_.RLIST__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2965:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2965:/ clear"); /*clear*/ /*_.RETURN___V12*/ curfptr[10] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ clear"); /*clear*/ /*_.LET___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("READSEQ_COMMAND", 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_READSEQ_COMMAND*/ static basilys_ptr_t rout_127_COMPILEFILE_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #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_COMPILEFILE_COMMAND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 40 void* varptr[40]; #define CURFRAM_NBVARNUM 12 long varnum[12]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<40; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 40; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILEFILE_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ block"); /*block*/{ debugeputs(( "starting compilefile_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command arg"; BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ apply.arg"); argtab[3].bp_long = 2978; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (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-outobj.bysl:2978:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2978:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command secarg"; BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ apply.arg"); argtab[3].bp_long = 2979; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3]), (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-outobj.bysl:2979:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2979:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ apply.arg"); argtab[0].bp_cstring = "start compilefile_command moduldata"; BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ apply.arg"); argtab[3].bp_long = 2980; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4]), (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-outobj.bysl:2980:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2980:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ block"); /*block*/{ /*_.PARMODENV__V13*/ curfptr[12] = (/*!konst_1*/ curfrout->tabval[1]);; BASILYS_LOCATION("warmelt-outobj.bysl:2983:/ cond"); /*cond*/ if (/*_.MODULDATA__V5*/ curfptr[4]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2983:/ cond.then"); /*_.CURENV__V14*/ curfptr[13] = /*_.MODULDATA__V5*/ curfptr[4];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2983:/ cond.else"); /*_.CURENV__V14*/ curfptr[13] = (/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2]);; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ apply.arg"); argtab[0].bp_cstring = "before read compilefile_command parmodenv"; BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ apply.arg"); argtab[3].bp_long = 2985; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.PARMODENV__V13*/ curfptr[12]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[14] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2985:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[14] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ apply.arg"); argtab[0].bp_cstring = "before read compilefile_command initial_environment"; BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ apply.arg"); argtab[3].bp_long = 2986; /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[2])), (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-outobj.bysl:2986:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V18*/ curfptr[17] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2986:/ cppif.else"); /*_.IFCPP___V17*/ curfptr[15] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ block"); /*block*/{ /*_#IS_A__L6*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.CURENV__V14*/ curfptr[13]), (basilys_ptr_t)((/*!CLASS_ENVIRONMENT*/ curfrout->tabval[3])));; BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ cond"); /*cond*/ if (/*_#IS_A__L6*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ cond.then"); /*_.IFELSE___V20*/ curfptr[19] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curenv"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(2987)?(2987):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V19*/ curfptr[17] = /*_.IFELSE___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ clear"); /*clear*/ /*_#IS_A__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ clear"); /*clear*/ /*_.IFELSE___V20*/ curfptr[19] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2987:/ cppif.else"); /*_.IFCPP___V19*/ curfptr[17] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ block"); /*block*/{ /*_.RLIST__V22*/ curfptr[21] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[4]))));; /*_#IS_STRING__L7*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ cond.then"); /*_.BASNAM__V23*/ curfptr[22] = /*_.SECARG__V4*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ block"); /*block*/{ /*_#IS_STRING__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ cond"); /*cond*/ if (/*_#IS_STRING__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ block"); /*block*/{ /*_.MAKE_STRING_NAKEDBASENAME__V25*/ curfptr[24] = (basilysgc_new_string_nakedbasename((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[5])), basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]))));; /*_.IFELSE___V24*/ curfptr[23] = /*_.MAKE_STRING_NAKEDBASENAME__V25*/ curfptr[24];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V25*/ curfptr[24] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ block"); /*block*/{ error("BASILYS ERROR MSG [#%ld]::: %s ", basilys_dbgcounter, ( "explicit -fbasilys-secondarg should be specified with -fbasilys-arglist")); BASILYS_LOCATION("warmelt-outobj.bysl:2994:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:2994:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2992:/ block"); /*block*/{ /*_.PROGN___V27*/ curfptr[26] = /*_.RETURN___V26*/ curfptr[24];;} ; /*_.IFELSE___V24*/ curfptr[23] = /*_.PROGN___V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ clear"); /*clear*/ /*_.RETURN___V26*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2991:/ clear"); /*clear*/ /*_.PROGN___V27*/ curfptr[26] = 0 ;} ; } ; /*_.BASNAM__V23*/ curfptr[22] = /*_.IFELSE___V24*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ clear"); /*clear*/ /*_#IS_STRING__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2990:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[23] = 0 ;} ; } ; /*_#IS_STRING__L9*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ cond"); /*cond*/ if (/*_#IS_STRING__L9*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ block"); /*block*/{ /*_.READ_FILE__V29*/ curfptr[26] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])), (char*)0));; BASILYS_LOCATION("warmelt-outobj.bysl:2999:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2999:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.READ_FILE__V29*/ curfptr[26]; /*_.LIST_APPEND2LIST__V30*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[6])), (basilys_ptr_t)(/*_.RLIST__V22*/ curfptr[21]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V28*/ curfptr[24] = /*_.LIST_APPEND2LIST__V30*/ curfptr[23];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ clear"); /*clear*/ /*_.READ_FILE__V29*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V30*/ curfptr[23] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ block"); /*block*/{ /*_#IS_LIST__L10*/ curfnum[9] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ cond"); /*cond*/ if (/*_#IS_LIST__L10*/ curfnum[9]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V33*/ curfptr[32] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_10*/ curfrout->tabval[10])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V33*/ curfptr[32])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V33*/ curfptr[32]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V33*/ curfptr[32])->tabval[0] = (basilys_ptr_t)(/*_.RLIST__V22*/ curfptr[21]); ; /*_.LAMBDA___V32*/ curfptr[23] = /*_.LAMBDA___V33*/ curfptr[32];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3001:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3001:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V32*/ curfptr[23]; /*_.LIST_EVERY__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[7])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V31*/ curfptr[26] = /*_.LIST_EVERY__V34*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ clear"); /*clear*/ /*_.LAMBDA___V32*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ clear"); /*clear*/ /*_.LIST_EVERY__V34*/ curfptr[33] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3000:/ cond.else"); /*_.IFELSE___V31*/ curfptr[26] = NULL;; } ; /*_.IFELSE___V28*/ curfptr[24] = /*_.IFELSE___V31*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ clear"); /*clear*/ /*_#IS_LIST__L10*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2998:/ clear"); /*clear*/ /*_.IFELSE___V31*/ curfptr[26] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ apply.arg"); argtab[0].bp_cstring = "after read compilefile_command rlist"; BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L11*/ curfnum[9]; BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ apply.arg"); argtab[3].bp_long = 3011; /*_.DEBUG_MSG_FUN__V36*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RLIST__V22*/ curfptr[21]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V35*/ curfptr[23] = /*_.DEBUG_MSG_FUN__V36*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L11*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V36*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3011:/ cppif.else"); /*_.IFCPP___V35*/ curfptr[23] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L12*/ curfnum[9] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ apply.arg"); argtab[0].bp_cstring = "after read compilefile_command curenv"; BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L12*/ curfnum[9]; BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ apply.arg"); argtab[3].bp_long = 3012; /*_.DEBUG_MSG_FUN__V38*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CURENV__V14*/ curfptr[13]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V37*/ curfptr[26] = /*_.DEBUG_MSG_FUN__V38*/ curfptr[33];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L12*/ curfnum[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V38*/ curfptr[33] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3012:/ cppif.else"); /*_.IFCPP___V37*/ curfptr[26] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3013:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3013:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CURENV__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:3013:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.BASNAM__V23*/ curfptr[22]; /*_.COMPILE_LIST_SEXPR__V39*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[11])), (basilys_ptr_t)(/*_.RLIST__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:3014:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:3014:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V21*/ curfptr[19] = /*_.RETURN___V40*/ curfptr[39];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.RLIST__V22*/ curfptr[21] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.BASNAM__V23*/ curfptr[22] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_#IS_STRING__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.IFELSE___V28*/ curfptr[24] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.IFCPP___V35*/ curfptr[23] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.IFCPP___V37*/ curfptr[26] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.COMPILE_LIST_SEXPR__V39*/ curfptr[33] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2988:/ clear"); /*clear*/ /*_.RETURN___V40*/ curfptr[39] = 0 ;} ; /*_.LET___V12*/ curfptr[10] = /*_.LET___V21*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.PARMODENV__V13*/ curfptr[12] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.CURENV__V14*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.IFCPP___V17*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.IFCPP___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2981:/ clear"); /*clear*/ /*_.LET___V21*/ curfptr[19] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V12*/ curfptr[10];; BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ clear"); /*clear*/ /*_.LET___V12*/ curfptr[10] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILEFILE_COMMAND", 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_127_COMPILEFILE_COMMAND*/ static basilys_ptr_t rout_128_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_128_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ block"); /*block*/{ inform(UNKNOWN_LOCATION, ("BASILYS INFORM [#%ld]: %s - %s"), basilys_dbgcounter, ( "reading from file"), basilys_string_str((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]))); BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ block"); /*block*/{ /*_.CUREAD__V4*/ curfptr[3] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ apply.arg"); argtab[0].bp_cstring = "compilefile_command curead"; BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ apply.arg"); argtab[3].bp_long = 3006; /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.DEBUG_MSG_FUN__V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3006:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ block"); /*block*/{ /*_#IS_LIST__L2*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ cond"); /*cond*/ if (/*_#IS_LIST__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rlist"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(3007)?(3007):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ clear"); /*clear*/ /*_#IS_LIST__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3007:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = ((/*_.CUREAD__V4*/ curfptr[3]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L3*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ cond.then"); /*_.IFELSE___V10*/ curfptr[9] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curead"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(3008)?(3008):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[7] = /*_.IFELSE___V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3008:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3009:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3009:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3]; /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ clear"); /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3004:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_128_LAMBDA_*/ static basilys_ptr_t rout_129_COMPILEINIT_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_129_COMPILEINIT_COMMAND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 31 void* varptr[31]; #define CURFRAM_NBVARNUM 9 long varnum[9]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<31; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 31; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("COMPILEINIT_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ block"); /*block*/{ debugeputs(( "starting compileinit_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command arg"; BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ apply.arg"); argtab[3].bp_long = 3024; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (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-outobj.bysl:3024:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3024:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command secarg"; BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ apply.arg"); argtab[3].bp_long = 3025; /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3]), (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-outobj.bysl:3025:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V9*/ curfptr[8] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3025:/ cppif.else"); /*_.IFCPP___V8*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ apply.arg"); argtab[0].bp_cstring = "start compileinit_command moduldata"; BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ apply.arg"); argtab[3].bp_long = 3026; /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4]), (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-outobj.bysl:3026:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V11*/ curfptr[10] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3026:/ cppif.else"); /*_.IFCPP___V10*/ curfptr[8] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ apply.arg"); argtab[0].bp_cstring = "before read compileinit_command initial_environment"; BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ apply.arg"); argtab[3].bp_long = 3027; /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)((/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[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-outobj.bysl:3027:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V13*/ curfptr[12] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3027:/ cppif.else"); /*_.IFCPP___V12*/ curfptr[10] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ block"); /*block*/{ /*_.RLIST__V15*/ curfptr[14] = (basilysgc_new_list((basilysobject_ptr_t)((/*!DISCR_LIST*/ curfrout->tabval[2]))));; /*_#IS_STRING__L5*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ cond"); /*cond*/ if (/*_#IS_STRING__L5*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ cond.then"); /*_.BASNAM__V16*/ curfptr[15] = /*_.SECARG__V4*/ curfptr[3];; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ block"); /*block*/{ /*_#IS_STRING__L6*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ cond"); /*cond*/ if (/*_#IS_STRING__L6*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ block"); /*block*/{ /*_.MAKE_STRING_NAKEDBASENAME__V18*/ curfptr[17] = (basilysgc_new_string_nakedbasename((basilysobject_ptr_t)((/*!DISCR_STRING*/ curfrout->tabval[3])), basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]))));; /*_.IFELSE___V17*/ curfptr[16] = /*_.MAKE_STRING_NAKEDBASENAME__V18*/ curfptr[17];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ clear"); /*clear*/ /*_.MAKE_STRING_NAKEDBASENAME__V18*/ curfptr[17] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ block"); /*block*/{ error("BASILYS ERROR MSG [#%ld]::: %s ", basilys_dbgcounter, ( "explicit -fbasilys-secondarg should be specified with -fbasilys-arglist")); BASILYS_LOCATION("warmelt-outobj.bysl:3034:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:3034:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3032:/ block"); /*block*/{ /*_.PROGN___V20*/ curfptr[19] = /*_.RETURN___V19*/ curfptr[17];;} ; /*_.IFELSE___V17*/ curfptr[16] = /*_.PROGN___V20*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ clear"); /*clear*/ /*_.RETURN___V19*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3031:/ clear"); /*clear*/ /*_.PROGN___V20*/ curfptr[19] = 0 ;} ; } ; /*_.BASNAM__V16*/ curfptr[15] = /*_.IFELSE___V17*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ clear"); /*clear*/ /*_#IS_STRING__L6*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3030:/ clear"); /*clear*/ /*_.IFELSE___V17*/ curfptr[16] = 0 ;} ; } ; /*_#IS_STRING__L7*/ curfnum[5] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_STRING);; BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ cond"); /*cond*/ if (/*_#IS_STRING__L7*/ curfnum[5]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ block"); /*block*/{ /*_.READ_FILE__V22*/ curfptr[19] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])), (char*)0));; BASILYS_LOCATION("warmelt-outobj.bysl:3039:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3039:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.READ_FILE__V22*/ curfptr[19]; /*_.LIST_APPEND2LIST__V23*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[4])), (basilys_ptr_t)(/*_.RLIST__V15*/ curfptr[14]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V21*/ curfptr[17] = /*_.LIST_APPEND2LIST__V23*/ curfptr[16];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ clear"); /*clear*/ /*_.READ_FILE__V22*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V23*/ curfptr[16] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ block"); /*block*/{ /*_#IS_LIST__L8*/ curfnum[7] = (basilys_magic_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ cond"); /*cond*/ if (/*_#IS_LIST__L8*/ curfnum[7]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ newclosure"); /*newclosure*/ /*_.LAMBDA___V26*/ curfptr[25] = basilysgc_new_closure((basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))), (basilysroutine_ptr_t)((/*!konst_8*/ curfrout->tabval[8])), (1)); ; BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ putclosedv"); /*putclosv*/ basilys_assertmsg("putclosv checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.LAMBDA___V26*/ curfptr[25])) == OBMAG_CLOSURE); basilys_assertmsg("putclosv checkoff", 0>= 0 && 0< basilys_closure_size((basilys_ptr_t) (/*_.LAMBDA___V26*/ curfptr[25]))); ((basilysclosure_ptr_t)/*_.LAMBDA___V26*/ curfptr[25])->tabval[0] = (basilys_ptr_t)(/*_.RLIST__V15*/ curfptr[14]); ; /*_.LAMBDA___V25*/ curfptr[16] = /*_.LAMBDA___V26*/ curfptr[25];;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3041:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3041:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.LAMBDA___V25*/ curfptr[16]; /*_.LIST_EVERY__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_EVERY*/ curfrout->tabval[5])), (basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFELSE___V24*/ curfptr[19] = /*_.LIST_EVERY__V27*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ clear"); /*clear*/ /*_.LAMBDA___V25*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ clear"); /*clear*/ /*_.LIST_EVERY__V27*/ curfptr[26] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3040:/ cond.else"); /*_.IFELSE___V24*/ curfptr[19] = NULL;; } ; /*_.IFELSE___V21*/ curfptr[17] = /*_.IFELSE___V24*/ curfptr[19];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ clear"); /*clear*/ /*_#IS_LIST__L8*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3038:/ clear"); /*clear*/ /*_.IFELSE___V24*/ curfptr[19] = 0 ;} ; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ apply.arg"); argtab[0].bp_cstring = "after read compileinit_command rlist"; BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L9*/ curfnum[7]; BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ apply.arg"); argtab[3].bp_long = 3051; /*_.DEBUG_MSG_FUN__V29*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.RLIST__V15*/ curfptr[14]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V28*/ curfptr[16] = /*_.DEBUG_MSG_FUN__V29*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L9*/ curfnum[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V29*/ curfptr[26] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3051:/ cppif.else"); /*_.IFCPP___V28*/ curfptr[16] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3060:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3060:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &(/*!INITIAL_ENVIRONMENT*/ curfrout->tabval[1]); BASILYS_LOCATION("warmelt-outobj.bysl:3060:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.BASNAM__V16*/ curfptr[15]; /*_.COMPILE_LIST_SEXPR__V30*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)((/*!COMPILE_LIST_SEXPR*/ curfrout->tabval[9])), (basilys_ptr_t)(/*_.RLIST__V15*/ curfptr[14]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:3061:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:3061:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V14*/ curfptr[12] = /*_.RETURN___V31*/ curfptr[26];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.RLIST__V15*/ curfptr[14] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_#IS_STRING__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.BASNAM__V16*/ curfptr[15] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_#IS_STRING__L7*/ curfnum[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.IFELSE___V21*/ curfptr[17] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.IFCPP___V28*/ curfptr[16] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.COMPILE_LIST_SEXPR__V30*/ curfptr[19] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3028:/ clear"); /*clear*/ /*_.RETURN___V31*/ curfptr[26] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V14*/ curfptr[12];; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ clear"); /*clear*/ /*_.IFCPP___V8*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ clear"); /*clear*/ /*_.IFCPP___V10*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ clear"); /*clear*/ /*_.IFCPP___V12*/ curfptr[10] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ clear"); /*clear*/ /*_.LET___V14*/ curfptr[12] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("COMPILEINIT_COMMAND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_129_COMPILEINIT_COMMAND*/ static basilys_ptr_t rout_130_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_130_LAMBDA__st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 11 void* varptr[11]; #define CURFRAM_NBVARNUM 3 long varnum[3]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<11; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 11; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("LAMBDA_", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ getarg"); /*_.CURARG__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ block"); /*block*/{ inform(UNKNOWN_LOCATION, ("BASILYS INFORM [#%ld]: %s - %s"), basilys_dbgcounter, ( "reading from file"), basilys_string_str((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1]))); BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ block"); /*block*/{ /*_.CUREAD__V4*/ curfptr[3] = (basilysgc_read_file (basilys_string_str((basilys_ptr_t)(/*_.CURARG__V2*/ curfptr[1])), (char*)0));; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ block"); /*block*/{ /*_#IS_LIST__L1*/ curfnum[0] = (basilys_magic_discr((basilys_ptr_t)((/*~RLIST*/ curfclos->tabval[0]))) == OBMAG_LIST);; BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ cond"); /*cond*/ if (/*_#IS_LIST__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ cond.then"); /*_.IFELSE___V6*/ curfptr[5] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check rlist"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(3046)?(3046):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V5*/ curfptr[4] = /*_.IFELSE___V6*/ curfptr[5];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ clear"); /*clear*/ /*_#IS_LIST__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ clear"); /*clear*/ /*_.IFELSE___V6*/ curfptr[5] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3046:/ cppif.else"); /*_.IFCPP___V5*/ curfptr[4] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ block"); /*block*/{ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = ((/*_.CUREAD__V4*/ curfptr[3]) == NULL || (basilys_magic_discr((basilys_ptr_t)(/*_.CUREAD__V4*/ curfptr[3])) == OBMAG_LIST));; BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ cond"); /*cond*/ if (/*_#IS_LIST_OR_NULL__L2*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ cond.then"); /*_.IFELSE___V8*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "check curead"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(3047)?(3047):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V7*/ curfptr[5] = /*_.IFELSE___V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ clear"); /*clear*/ /*_#IS_LIST_OR_NULL__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ clear"); /*clear*/ /*_.IFELSE___V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3047:/ cppif.else"); /*_.IFCPP___V7*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ apply.arg"); argtab[0].bp_cstring = "compileinit_command curead"; BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ apply.arg"); argtab[3].bp_long = 3048; /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.CUREAD__V4*/ curfptr[3]), (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-outobj.bysl:3048:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V10*/ curfptr[9] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3048:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[7] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3049:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3049:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.CUREAD__V4*/ curfptr[3]; /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)((/*!LIST_APPEND2LIST*/ curfrout->tabval[1])), (basilys_ptr_t)((/*~RLIST*/ curfclos->tabval[0])), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_.LET___V3*/ curfptr[2] = /*_.LIST_APPEND2LIST__V11*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ clear"); /*clear*/ /*_.CUREAD__V4*/ curfptr[3] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ clear"); /*clear*/ /*_.IFCPP___V5*/ curfptr[4] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ clear"); /*clear*/ /*_.IFCPP___V7*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3044:/ clear"); /*clear*/ /*_.LIST_APPEND2LIST__V11*/ curfptr[9] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V3*/ curfptr[2];; BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ clear"); /*clear*/ /*_.LET___V3*/ curfptr[2] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("LAMBDA_", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_130_LAMBDA_*/ static basilys_ptr_t rout_131_SHOWMDATA_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_131_SHOWMDATA_COMMAND_st { unsigned nbvar; #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_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<8; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 8; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("SHOWMDATA_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ block"); /*block*/{ debugeputs(( "starting showmdata_command")); #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ apply.arg"); argtab[0].bp_cstring = "showmdata moduldata"; BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ apply.arg"); argtab[3].bp_long = 3070; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4]), (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-outobj.bysl:3070:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3070:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; debugeputs(( "ending showmdata_command")); BASILYS_LOCATION("warmelt-outobj.bysl:3072:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:3072:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.RETURN___V8*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ clear"); /*clear*/ /*_.RETURN___V8*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("SHOWMDATA_COMMAND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_131_SHOWMDATA_COMMAND*/ static basilys_ptr_t rout_132_SHOWVAR_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_132_SHOWVAR_COMMAND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 17 void* varptr[17]; #define CURFRAM_NBVARNUM 4 long varnum[4]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<17; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 17; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("SHOWVAR_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ block"); /*block*/{ /*_.SYM__V7*/ curfptr[6] = basilysgc_named_symbol( basilys_string_str((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])), BASILYS_GET);; BASILYS_LOCATION("warmelt-outobj.bysl:3081:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3081:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.SYM__V7*/ curfptr[6]; /*_.BIND__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!FIND_ENV*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*_#IS_A__L1*/ curfnum[0] = basilys_is_instance_of((basilys_ptr_t)(/*_.BIND__V8*/ curfptr[7]), (basilys_ptr_t)((/*!CLASS_VALUE_BINDING*/ curfrout->tabval[1])));; BASILYS_LOCATION("warmelt-outobj.bysl:3082:/ cond"); /*cond*/ if (/*_#IS_A__L1*/ curfnum[0]) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3082:/ cond.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3082:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3083:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(/*_.BIND__V8*/ curfptr[7]), 1, "VBIND_VALUE");/*_.VBIND_VALUE__V10*/ curfptr[9] = slot; }; ; /*_.VAL__V9*/ curfptr[8] = /*_.VBIND_VALUE__V10*/ curfptr[9];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3082:/ clear"); /*clear*/ /*_.VBIND_VALUE__V10*/ curfptr[9] = 0 ;} ; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3082:/ cond.else"); /*_.VAL__V9*/ curfptr[8] = NULL;; } ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ apply.arg"); argtab[0].bp_cstring = "showvar symbol"; BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ apply.arg"); argtab[3].bp_long = 3085; /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.SYM__V7*/ curfptr[6]), (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-outobj.bysl:3085:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V12*/ curfptr[11] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3085:/ cppif.else"); /*_.IFCPP___V11*/ curfptr[9] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ apply.arg"); argtab[0].bp_cstring = "showvar binding"; BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ apply.arg"); argtab[3].bp_long = 3086; /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.BIND__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V13*/ curfptr[11] = /*_.DEBUG_MSG_FUN__V14*/ curfptr[13];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V14*/ curfptr[13] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3086:/ cppif.else"); /*_.IFCPP___V13*/ curfptr[11] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ apply.arg"); argtab[0].bp_cstring = "showvar val"; BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[1]; BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ apply.arg"); argtab[3].bp_long = 3087; /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[2])), (basilys_ptr_t)(/*_.VAL__V9*/ curfptr[8]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V15*/ curfptr[13] = /*_.DEBUG_MSG_FUN__V16*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[1] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V16*/ curfptr[15] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3087:/ cppif.else"); /*_.IFCPP___V15*/ curfptr[13] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3088:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = NULL;; BASILYS_LOCATION("warmelt-outobj.bysl:3088:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*_.LET___V6*/ curfptr[5] = /*_.RETURN___V17*/ curfptr[15];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.SYM__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.BIND__V8*/ curfptr[7] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_#IS_A__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.VAL__V9*/ curfptr[8] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.IFCPP___V11*/ curfptr[9] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.IFCPP___V13*/ curfptr[11] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.IFCPP___V15*/ curfptr[13] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3080:/ clear"); /*clear*/ /*_.RETURN___V17*/ curfptr[15] = 0 ;} ; BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.LET___V6*/ curfptr[5];; BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ clear"); /*clear*/ /*_.LET___V6*/ curfptr[5] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("SHOWVAR_COMMAND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_132_SHOWVAR_COMMAND*/ static basilys_ptr_t rout_133_HELP_COMMAND(basilysclosure_ptr_t closp_, basilys_ptr_t firstargp_, const char xargdescr_[], union basilysparam_un *xargtab_, const char xresdescr_[], union basilysparam_un *xrestab_) { #if ENABLE_CHECKING static long call_counter__; long thiscallcounter__ ATTRIBUTE_UNUSED = ++ call_counter__; #define callcount thiscallcounter__ #else #define callcount 0L #endif struct frame_rout_133_HELP_COMMAND_st { unsigned nbvar; #if ENABLE_CHECKING const char* flocs; #endif struct basilysclosure_st *clos; struct excepth_basilys_st *exh; struct callframe_basilys_st *prev; #define CURFRAM_NBVARPTR 10 void* varptr[10]; #define CURFRAM_NBVARNUM 1 long varnum[1]; /*others*/ long _spare_; } *framptr_=0, curfram__; if (BASILYS_UNLIKELY(xargdescr_ == BASILYSPAR_MARKGGC)) { /*mark for ggc*/ int ix=0; framptr_ = (void*)firstargp_; gt_ggc_mx_basilys_un (framptr_->clos); for(ix=0; ix<10; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); return NULL; }/*end markggc*/; memset(&curfram__, 0, sizeof(curfram__)); curfram__.nbvar = 10; curfram__.clos = closp_; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; basilys_trace_start("HELP_COMMAND", callcount); /*getargs*/ /*getarg#0*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ getarg"); /*_.DISPATCHER__V2*/ curfptr[1] = (basilys_ptr_t) firstargp_; /*getarg#1*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ getarg"); if (xargdescr_[0] != BPAR_PTR) goto lab_endgetargs; /*_.ARG__V3*/ curfptr[2] = (xargtab_[0].bp_aptr) ? (*(xargtab_[0].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.ARG__V3*/ curfptr[2])) != NULL); /*getarg#2*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ getarg"); if (xargdescr_[1] != BPAR_PTR) goto lab_endgetargs; /*_.SECARG__V4*/ curfptr[3] = (xargtab_[1].bp_aptr) ? (*(xargtab_[1].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.SECARG__V4*/ curfptr[3])) != NULL); /*getarg#3*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ getarg"); if (xargdescr_[2] != BPAR_PTR) goto lab_endgetargs; /*_.MODULDATA__V5*/ curfptr[4] = (xargtab_[2].bp_aptr) ? (*(xargtab_[2].bp_aptr)) : NULL; gcc_assert(basilys_discr((basilys_ptr_t)(/*_.MODULDATA__V5*/ curfptr[4])) != NULL); ; goto lab_endgetargs; lab_endgetargs:; /*body*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ block"); /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)((/*!INITIAL_SYSTEM_DATA*/ curfrout->tabval[1])), 2, "SYSDATA_CMD_FUNDICT");/*_.SYSDATA_CMD_FUNDICT__V7*/ curfptr[6] = slot; }; ; /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ apply.arg"); argtab[0].bp_cstring = "command function dict"; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ apply.arg"); argtab[3].bp_long = 3097; /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)((/*!DEBUG_MSG_FUN*/ curfrout->tabval[0])), (basilys_ptr_t)(/*_.SYSDATA_CMD_FUNDICT__V7*/ curfptr[6]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V6*/ curfptr[5] = /*_.DEBUG_MSG_FUN__V8*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ clear"); /*clear*/ /*_.SYSDATA_CMD_FUNDICT__V7*/ curfptr[6] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V8*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3097:/ cppif.else"); /*_.IFCPP___V6*/ curfptr[5] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ block"); /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ cond"); /*cond*/ if ((/*nil*/NULL)) /*then*/ { BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ cond.then"); /*_.IFELSE___V10*/ curfptr[7] = (/*nil*/NULL);; } else {BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ cond.else"); BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ block"); /*block*/{ /*block*/{ basilys_assert_failed(( "unimplemented help command"),( "warmelt-outobj.bysl")?( "warmelt-outobj.bysl"):__FILE__,(3098)?(3098):__LINE__, __FUNCTION__); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} ; /*epilog*/} ; } ; /*_.IFCPP___V9*/ curfptr[6] = /*_.IFELSE___V10*/ curfptr[7];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ clear"); /*clear*/ /*_.IFELSE___V10*/ curfptr[7] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3098:/ cppif.else"); /*_.IFCPP___V9*/ curfptr[6] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ block"); /*block*/{ /*_.RETVAL___V1*/ curfptr[0] = /*_.IFCPP___V9*/ curfptr[6];; BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ finalreturn"); ; /*finalret*/ goto labend_rout ;} ; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ clear"); /*clear*/ /*_.IFCPP___V6*/ curfptr[5] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ clear"); /*clear*/ /*_.IFCPP___V9*/ curfptr[6] = 0 ;} ; goto labend_rout; labend_rout: basilys_trace_end("HELP_COMMAND", callcount); basilys_topframe = (struct callframe_basilys_st*) curfram__.prev; return (basilys_ptr_t)(/*_.RETVAL___V1*/ curfptr[0]); #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /*end rout_133_HELP_COMMAND*/ 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 658 void* varptr[658]; #define CURFRAM_NBVARNUM 6 long varnum[6]; /*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__DEBUG_MSG_FUN; struct BASILYS_STRING_STRUCT(13) dstr_2__DEBUG_MSG_FUN; struct BASILYS_OBJECT_STRUCT(3) dsym_3__CLASS_SYMBOL; struct BASILYS_STRING_STRUCT(12) dstr_4__CLASS_SYMBOL; struct BASILYS_ROUTINE_STRUCT(1) drout_5__OUTDECLINIT_ROOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_6__OUTDECLINIT_ROOT; struct BASILYS_OBJECT_STRUCT(3) dsym_7__INSTALL_METHOD; struct BASILYS_STRING_STRUCT(14) dstr_8__INSTALL_METHOD; struct BASILYS_OBJECT_STRUCT(3) dsym_9__CLASS_ROOT; struct BASILYS_STRING_STRUCT(10) dstr_10__CLASS_ROOT; struct BASILYS_OBJECT_STRUCT(3) dsym_11__OUTPUT_C_DECLINIT; struct BASILYS_STRING_STRUCT(17) dstr_12__OUTPUT_C_DECLINI; struct BASILYS_ROUTINE_STRUCT(2) drout_13__OUTPUCOD_OBJINIELEM; struct BASILYS_CLOSURE_STRUCT(0) dclo_14__OUTPUCOD_OBJINIELEM; struct BASILYS_OBJECT_STRUCT(3) dsym_15__CLASS_OBJINITELEM; struct BASILYS_STRING_STRUCT(17) dstr_16__CLASS_OBJINITELE; struct BASILYS_OBJECT_STRUCT(3) dsym_17__OUTPUT_C_CODE; struct BASILYS_STRING_STRUCT(13) dstr_18__OUTPUT_C_CODE; struct BASILYS_ROUTINE_STRUCT(1) drout_19__OUTCINITFILL_ROOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_20__OUTCINITFILL_ROOT; struct BASILYS_OBJECT_STRUCT(3) dsym_21__OUTPUT_C_INITFILL; struct BASILYS_STRING_STRUCT(17) dstr_22__OUTPUT_C_INITFIL; struct BASILYS_ROUTINE_STRUCT(1) drout_23__OUTCINITPREDEF_ROOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_24__OUTCINITPREDEF_ROOT; struct BASILYS_OBJECT_STRUCT(3) dsym_25__OUTPUT_C_INITPREDEF; struct BASILYS_STRING_STRUCT(19) dstr_26__OUTPUT_C_INITPRE; struct BASILYS_ROUTINE_STRUCT(3) drout_27__OUTPUT_PREDEF; struct BASILYS_CLOSURE_STRUCT(0) dclo_28__OUTPUT_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_29__OBPREDEF; struct BASILYS_STRING_STRUCT(8) dstr_30__OBPREDEF; struct BASILYS_ROUTINE_STRUCT(2) drout_31__OUTPUCOD_PREDEF; struct BASILYS_CLOSURE_STRUCT(0) dclo_32__OUTPUCOD_PREDEF; struct BASILYS_OBJECT_STRUCT(3) dsym_33__CLASS_OBJPREDEF; struct BASILYS_STRING_STRUCT(15) dstr_34__CLASS_OBJPREDEF; struct BASILYS_ROUTINE_STRUCT(1) drout_35__OUTPUCOD_NIL; struct BASILYS_CLOSURE_STRUCT(0) dclo_36__OUTPUCOD_NIL; struct BASILYS_OBJECT_STRUCT(3) dsym_37__CLASS_OBJNIL; struct BASILYS_STRING_STRUCT(12) dstr_38__CLASS_OBJNIL; struct BASILYS_ROUTINE_STRUCT(0) drout_39__OUTDECLINIT_OBJINITOBJECT; struct BASILYS_CLOSURE_STRUCT(0) dclo_40__OUTDECLINIT_OBJINITOBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_41__CLASS_OBJINITOBJECT; struct BASILYS_STRING_STRUCT(19) dstr_42__CLASS_OBJINITOBJ; struct BASILYS_ROUTINE_STRUCT(7) drout_43__OUTCINITFILL_OBJINITOBJECT; struct BASILYS_CLOSURE_STRUCT(0) dclo_44__OUTCINITFILL_OBJINITOBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_45__CLASS_NREP_DATAINSTANCE; struct BASILYS_STRING_STRUCT(23) dstr_46__CLASS_NREP_DATAI; struct BASILYS_ROUTINE_STRUCT(6) drout_47__OUTCINITPREDEF_OBJINITOBJECT; struct BASILYS_CLOSURE_STRUCT(0) dclo_48__OUTCINITPREDEF_OBJINITOBJECT; struct BASILYS_OBJECT_STRUCT(3) dsym_49__CLASS_NREP_NIL; struct BASILYS_STRING_STRUCT(14) dstr_50__CLASS_NREP_NIL; struct BASILYS_ROUTINE_STRUCT(0) drout_51__OUTDECLINIT_OBJINITMULTIPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_52__OUTDECLINIT_OBJINITMULTIPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_53__CLASS_OBJINITMULTIPLE; struct BASILYS_STRING_STRUCT(21) dstr_54__CLASS_OBJINITMUL; struct BASILYS_ROUTINE_STRUCT(3) drout_55__OUTCINITFILL_OBJINITMULTIPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_56__OUTCINITFILL_OBJINITMULTIPLE; struct BASILYS_ROUTINE_STRUCT(0) drout_57__OUTDECLINIT_OBJINITCLOSURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_58__OUTDECLINIT_OBJINITCLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_59__CLASS_OBJINITCLOSURE; struct BASILYS_STRING_STRUCT(20) dstr_60__CLASS_OBJINITCLO; struct BASILYS_ROUTINE_STRUCT(3) drout_61__OUTCINITFILL_OBJINITCLOSURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_62__OUTCINITFILL_OBJINITCLOSURE; struct BASILYS_ROUTINE_STRUCT(0) drout_63__OUTDECLINIT_OBJINITROUTINE; struct BASILYS_CLOSURE_STRUCT(0) dclo_64__OUTDECLINIT_OBJINITROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_65__CLASS_OBJINITROUTINE; struct BASILYS_STRING_STRUCT(20) dstr_66__CLASS_OBJINITROU; struct BASILYS_ROUTINE_STRUCT(6) drout_67__OUTCINITFILL_OBJINITROUTINE; struct BASILYS_CLOSURE_STRUCT(0) dclo_68__OUTCINITFILL_OBJINITROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_69__CLASS_NREP_DATAROUTINE; struct BASILYS_STRING_STRUCT(22) dstr_70__CLASS_NREP_DATAR; struct BASILYS_OBJECT_STRUCT(3) dsym_71__CLASS_NAMED; struct BASILYS_STRING_STRUCT(11) dstr_72__CLASS_NAMED; struct BASILYS_OBJECT_STRUCT(3) dsym_73__CLASS_NREP_ROUTPROC; struct BASILYS_STRING_STRUCT(19) dstr_74__CLASS_NREP_ROUTP; struct BASILYS_ROUTINE_STRUCT(0) drout_75__OUTDECLINIT_OBJINITSTRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_76__OUTDECLINIT_OBJINITSTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_77__CLASS_OBJINITSTRING; struct BASILYS_STRING_STRUCT(19) dstr_78__CLASS_OBJINITSTR; struct BASILYS_ROUTINE_STRUCT(3) drout_79__OUTCINITFILL_OBJINITSTRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_80__OUTCINITFILL_OBJINITSTRING; struct BASILYS_ROUTINE_STRUCT(0) drout_81__OUTPUCOD_ANYDISCR; struct BASILYS_CLOSURE_STRUCT(0) dclo_82__OUTPUCOD_ANYDISCR; struct BASILYS_OBJECT_STRUCT(3) dsym_83__DISCR_ANYRECV; struct BASILYS_STRING_STRUCT(13) dstr_84__DISCR_ANYRECV; struct BASILYS_ROUTINE_STRUCT(0) drout_85__OUTPUCOD_NULL; struct BASILYS_CLOSURE_STRUCT(0) dclo_86__OUTPUCOD_NULL; struct BASILYS_OBJECT_STRUCT(3) dsym_87__DISCR_NULLRECV; struct BASILYS_STRING_STRUCT(14) dstr_88__DISCR_NULLRECV; struct BASILYS_ROUTINE_STRUCT(2) drout_89__OUTPUCOD_CATCHALL_ROOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_90__OUTPUCOD_CATCHALL_ROOT; struct BASILYS_OBJECT_STRUCT(3) dsym_91__DISPLAYDEBUGMSG; struct BASILYS_STRING_STRUCT(15) dstr_92__DISPLAYDEBUGMSG; struct BASILYS_ROUTINE_STRUCT(0) drout_93__OUTPUT_RAW_LOCATION; struct BASILYS_CLOSURE_STRUCT(0) dclo_94__OUTPUT_RAW_LOCATION; struct BASILYS_ROUTINE_STRUCT(1) drout_95__OUTPUT_LOCATION; struct BASILYS_CLOSURE_STRUCT(0) dclo_96__OUTPUT_LOCATION; struct BASILYS_ROUTINE_STRUCT(6) drout_97__OUTPUT_CURFRAME_DECLSTRUCT; struct BASILYS_CLOSURE_STRUCT(0) dclo_98__OUTPUT_CURFRAME_DECLSTRUCT; struct BASILYS_OBJECT_STRUCT(3) dsym_99__CLASS_INITIALROUTINEOBJ; struct BASILYS_STRING_STRUCT(23) dstr_100__CLASS_INITIALROU; struct BASILYS_OBJECT_STRUCT(3) dsym_101__LIST_EVERY; struct BASILYS_STRING_STRUCT(10) dstr_102__LIST_EVERY; struct BASILYS_ROUTINE_STRUCT(2) drout_103__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_104__CLASS_OBJLOCV; struct BASILYS_STRING_STRUCT(13) dstr_105__CLASS_OBJLOCV; struct BASILYS_OBJECT_STRUCT(3) dsym_106__CLASS_CTYPE; struct BASILYS_STRING_STRUCT(11) dstr_107__CLASS_CTYPE; struct BASILYS_ROUTINE_STRUCT(10) drout_108__OUTPUCOD_MARKER; struct BASILYS_CLOSURE_STRUCT(0) dclo_109__OUTPUCOD_MARKER; struct BASILYS_OBJECT_STRUCT(3) dsym_110__CLASS_ROUTINEOBJ; struct BASILYS_STRING_STRUCT(16) dstr_111__CLASS_ROUTINEOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_112__CTYPE_VALUE; struct BASILYS_STRING_STRUCT(11) dstr_113__CTYPE_VALUE; struct BASILYS_ROUTINE_STRUCT(4) drout_114__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_115__CLASS_OBJVALUE; struct BASILYS_STRING_STRUCT(14) dstr_116__CLASS_OBJVALUE; struct BASILYS_ROUTINE_STRUCT(2) drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT; struct BASILYS_ROUTINE_STRUCT(13) drout_119__OUTPUCOD_PROCROUTINE; struct BASILYS_CLOSURE_STRUCT(0) dclo_120__OUTPUCOD_PROCROUTINE; struct BASILYS_OBJECT_STRUCT(3) dsym_121__CLASS_PROCROUTINEOBJ; struct BASILYS_STRING_STRUCT(20) dstr_122__CLASS_PROCROUTIN; struct BASILYS_OBJECT_STRUCT(3) dsym_123__DISCR_STRING; struct BASILYS_STRING_STRUCT(12) dstr_124__DISCR_STRING; struct BASILYS_OBJECT_STRUCT(3) dsym_125__MULTIPLE_EVERY; struct BASILYS_STRING_STRUCT(14) dstr_126__MULTIPLE_EVERY; struct BASILYS_ROUTINE_STRUCT(1) drout_127__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_128__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_129__CLASS_OBJPUREVALUE; struct BASILYS_STRING_STRUCT(18) dstr_130__CLASS_OBJPUREVAL; struct BASILYS_ROUTINE_STRUCT(3) drout_131__OUTPUT_CURFRAME_CDAT_STRUCT; struct BASILYS_CLOSURE_STRUCT(0) dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT; struct BASILYS_ROUTINE_STRUCT(1) drout_133__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_134__OUTPUT_CURFRAME_CDAT_FILL; struct BASILYS_CLOSURE_STRUCT(0) dclo_135__OUTPUT_CURFRAME_CDAT_FILL; struct BASILYS_ROUTINE_STRUCT(1) drout_136__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_137__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(15) drout_138__OUTPUCOD_INITIALROUTINE; struct BASILYS_CLOSURE_STRUCT(0) dclo_139__OUTPUCOD_INITIALROUTINE; struct BASILYS_ROUTINE_STRUCT(0) drout_140__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_141__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_142__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(7) drout_143__OUTPUCOD_GETARG; struct BASILYS_CLOSURE_STRUCT(0) dclo_144__OUTPUCOD_GETARG; struct BASILYS_OBJECT_STRUCT(3) dsym_145__CLASS_OBJGETARG; struct BASILYS_STRING_STRUCT(15) dstr_146__CLASS_OBJGETARG; struct BASILYS_OBJECT_STRUCT(3) dsym_147__CLASS_FORMAL_BINDING; struct BASILYS_STRING_STRUCT(20) dstr_148__CLASS_FORMAL_BIN; struct BASILYS_ROUTINE_STRUCT(3) drout_149__OUTPUCOD_OBJLOCV; struct BASILYS_CLOSURE_STRUCT(0) dclo_150__OUTPUCOD_OBJLOCV; struct BASILYS_OBJECT_STRUCT(3) dsym_151__CTYPE_LONG; struct BASILYS_STRING_STRUCT(10) dstr_152__CTYPE_LONG; struct BASILYS_ROUTINE_STRUCT(2) drout_153__OUTPUCOD_OBJCLOCCV; struct BASILYS_CLOSURE_STRUCT(0) dclo_154__OUTPUCOD_OBJCLOCCV; struct BASILYS_OBJECT_STRUCT(3) dsym_155__CLASS_OBJCLOCCV; struct BASILYS_STRING_STRUCT(15) dstr_156__CLASS_OBJCLOCCV; struct BASILYS_ROUTINE_STRUCT(3) drout_157__OUTPUCOD_OBJCONSTV; struct BASILYS_CLOSURE_STRUCT(0) dclo_158__OUTPUCOD_OBJCONSTV; struct BASILYS_OBJECT_STRUCT(3) dsym_159__CLASS_OBJCONSTV; struct BASILYS_STRING_STRUCT(15) dstr_160__CLASS_OBJCONSTV; struct BASILYS_ROUTINE_STRUCT(4) drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST; struct BASILYS_CLOSURE_STRUCT(0) dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST; struct BASILYS_ROUTINE_STRUCT(2) drout_163__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_164__OUTPUCOD_OBJBLOCK; struct BASILYS_CLOSURE_STRUCT(0) dclo_165__OUTPUCOD_OBJBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_166__CLASS_OBJBLOCK; struct BASILYS_STRING_STRUCT(14) dstr_167__CLASS_OBJBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_168__DISCR_INTEGER; struct BASILYS_STRING_STRUCT(13) dstr_169__DISCR_INTEGER; struct BASILYS_ROUTINE_STRUCT(11) drout_170__OUTPUCOD_OBJCITERBLOCK; struct BASILYS_CLOSURE_STRUCT(0) dclo_171__OUTPUCOD_OBJCITERBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_172__CLASS_OBJCITERBLOCK; struct BASILYS_STRING_STRUCT(19) dstr_173__CLASS_OBJCITERBL; struct BASILYS_OBJECT_STRUCT(3) dsym_174__CLASS_CITERATOR; struct BASILYS_STRING_STRUCT(15) dstr_175__CLASS_CITERATOR; struct BASILYS_ROUTINE_STRUCT(1) drout_176__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_177__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_178__OUTPUCOD_OBJCOMMENTINSTR; struct BASILYS_CLOSURE_STRUCT(0) dclo_179__OUTPUCOD_OBJCOMMENTINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_180__CLASS_OBJCOMMENTINSTR; struct BASILYS_STRING_STRUCT(21) dstr_181__CLASS_OBJCOMMENT; struct BASILYS_OBJECT_STRUCT(3) dsym_182__DISCR_STRBUF; struct BASILYS_STRING_STRUCT(12) dstr_183__DISCR_STRBUF; struct BASILYS_ROUTINE_STRUCT(7) drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK; struct BASILYS_CLOSURE_STRUCT(0) dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK; struct BASILYS_OBJECT_STRUCT(3) dsym_186__CLASS_OBJCOMMENTEDBLOCK; struct BASILYS_STRING_STRUCT(23) dstr_187__CLASS_OBJCOMMENT; struct BASILYS_ROUTINE_STRUCT(1) drout_188__ADD2SBUF_CLONSYM; struct BASILYS_CLOSURE_STRUCT(0) dclo_189__ADD2SBUF_CLONSYM; struct BASILYS_OBJECT_STRUCT(3) dsym_190__CLASS_CLONEDSYMBOL; struct BASILYS_STRING_STRUCT(18) dstr_191__CLASS_CLONEDSYMB; struct BASILYS_ROUTINE_STRUCT(13) drout_192__OUTPUCOD_OBJLOOP; struct BASILYS_CLOSURE_STRUCT(0) dclo_193__OUTPUCOD_OBJLOOP; struct BASILYS_OBJECT_STRUCT(3) dsym_194__CLASS_OBJLOOP; struct BASILYS_STRING_STRUCT(13) dstr_195__CLASS_OBJLOOP; struct BASILYS_ROUTINE_STRUCT(2) drout_196__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_197__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_198__OUTPUCOD_OBJEXIT; struct BASILYS_CLOSURE_STRUCT(0) dclo_199__OUTPUCOD_OBJEXIT; struct BASILYS_OBJECT_STRUCT(3) dsym_200__CLASS_OBJEXIT; struct BASILYS_STRING_STRUCT(13) dstr_201__CLASS_OBJEXIT; struct BASILYS_ROUTINE_STRUCT(13) drout_202__OUTPUCOD_OBJCOMPUTE; struct BASILYS_CLOSURE_STRUCT(0) dclo_203__OUTPUCOD_OBJCOMPUTE; struct BASILYS_OBJECT_STRUCT(3) dsym_204__CLASS_OBJCOMPUTE; struct BASILYS_STRING_STRUCT(16) dstr_205__CLASS_OBJCOMPUTE; struct BASILYS_ROUTINE_STRUCT(1) drout_206__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_207__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_208__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(5) drout_209__OUTPUCOD_OBJCOND; struct BASILYS_CLOSURE_STRUCT(0) dclo_210__OUTPUCOD_OBJCOND; struct BASILYS_OBJECT_STRUCT(3) dsym_211__CLASS_OBJCOND; struct BASILYS_STRING_STRUCT(13) dstr_212__CLASS_OBJCOND; struct BASILYS_ROUTINE_STRUCT(5) drout_213__OUTPUCOD_OBJCPPIF; struct BASILYS_CLOSURE_STRUCT(0) dclo_214__OUTPUCOD_OBJCPPIF; struct BASILYS_OBJECT_STRUCT(3) dsym_215__CLASS_OBJCPPIF; struct BASILYS_STRING_STRUCT(14) dstr_216__CLASS_OBJCPPIF; struct BASILYS_ROUTINE_STRUCT(6) drout_217__OUTPUCOD_OBJINTERNSYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_218__OUTPUCOD_OBJINTERNSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_219__CLASS_OBJINTERNSYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_220__CLASS_OBJINTERNS; struct BASILYS_OBJECT_STRUCT(3) dsym_221__CLASS_NREP_DATASYMBOL; struct BASILYS_STRING_STRUCT(21) dstr_222__CLASS_NREP_DATAS; struct BASILYS_ROUTINE_STRUCT(5) drout_223__OUTPUCOD_OBJINTERNKEYWORD; struct BASILYS_CLOSURE_STRUCT(0) dclo_224__OUTPUCOD_OBJINTERNKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_225__CLASS_OBJINTERNKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_226__CLASS_OBJINTERNK; struct BASILYS_OBJECT_STRUCT(3) dsym_227__CLASS_NREP_DATAKEYWORD; struct BASILYS_STRING_STRUCT(22) dstr_228__CLASS_NREP_DATAK; struct BASILYS_ROUTINE_STRUCT(6) drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL; struct BASILYS_CLOSURE_STRUCT(0) dclo_230__OUTPUCOD_OBJGETNAMEDSYMBOL; struct BASILYS_OBJECT_STRUCT(3) dsym_231__CLASS_OBJGETNAMEDSYMBOL; struct BASILYS_STRING_STRUCT(23) dstr_232__CLASS_OBJGETNAME; struct BASILYS_ROUTINE_STRUCT(6) drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD; struct BASILYS_CLOSURE_STRUCT(0) dclo_234__OUTPUCOD_OBJGETNAMEDKEYWORD; struct BASILYS_OBJECT_STRUCT(3) dsym_235__CLASS_OBJGETNAMEDKEYWORD; struct BASILYS_STRING_STRUCT(24) dstr_236__CLASS_OBJGETNAME; struct BASILYS_ROUTINE_STRUCT(20) drout_237__OUTPUCOD_OBJAPPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_238__OUTPUCOD_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_239__CLASS_OBJAPPLY; struct BASILYS_STRING_STRUCT(14) dstr_240__CLASS_OBJAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_241__DISCR_LIST; struct BASILYS_STRING_STRUCT(10) dstr_242__DISCR_LIST; struct BASILYS_ROUTINE_STRUCT(8) drout_243__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_244__CLASS_OBJINSTR; struct BASILYS_STRING_STRUCT(14) dstr_245__CLASS_OBJINSTR; struct BASILYS_OBJECT_STRUCT(3) dsym_246__GET_CTYPE; struct BASILYS_STRING_STRUCT(9) dstr_247__GET_CTYPE; struct BASILYS_ROUTINE_STRUCT(1) drout_248__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_249__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(19) drout_250__OUTPUCOD_OBJMSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_251__OUTPUCOD_OBJMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_252__CLASS_OBJMSEND; struct BASILYS_STRING_STRUCT(14) dstr_253__CLASS_OBJMSEND; struct BASILYS_ROUTINE_STRUCT(7) drout_254__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_255__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_256__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(28) drout_257__OUTPUCOD_OBJMULTIAPPLY; struct BASILYS_CLOSURE_STRUCT(0) dclo_258__OUTPUCOD_OBJMULTIAPPLY; struct BASILYS_OBJECT_STRUCT(3) dsym_259__CLASS_OBJMULTIAPPLY; struct BASILYS_STRING_STRUCT(19) dstr_260__CLASS_OBJMULTIAP; struct BASILYS_ROUTINE_STRUCT(1) drout_261__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_262__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_263__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_264__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_265__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_266__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(28) drout_267__OUTPUCOD_OBJMULTIMSEND; struct BASILYS_CLOSURE_STRUCT(0) dclo_268__OUTPUCOD_OBJMULTIMSEND; struct BASILYS_OBJECT_STRUCT(3) dsym_269__CLASS_OBJMULTIMSEND; struct BASILYS_STRING_STRUCT(19) dstr_270__CLASS_OBJMULTIMS; struct BASILYS_ROUTINE_STRUCT(1) drout_271__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_272__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_273__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_274__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_275__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(0) drout_276__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(4) drout_277__OUTPUCOD_OBJCLEAR; struct BASILYS_CLOSURE_STRUCT(0) dclo_278__OUTPUCOD_OBJCLEAR; struct BASILYS_OBJECT_STRUCT(3) dsym_279__CLASS_OBJCLEAR; struct BASILYS_STRING_STRUCT(14) dstr_280__CLASS_OBJCLEAR; struct BASILYS_ROUTINE_STRUCT(9) drout_281__OUTPUCOD_OBJRAWALLOCOBJ; struct BASILYS_CLOSURE_STRUCT(0) dclo_282__OUTPUCOD_OBJRAWALLOCOBJ; struct BASILYS_OBJECT_STRUCT(3) dsym_283__CLASS_OBJRAWALLOCOBJ; struct BASILYS_STRING_STRUCT(20) dstr_284__CLASS_OBJRAWALLO; struct BASILYS_ROUTINE_STRUCT(1) drout_285__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(8) drout_286__OUTPUCOD_OBJNEWCLOSURE; struct BASILYS_CLOSURE_STRUCT(0) dclo_287__OUTPUCOD_OBJNEWCLOSURE; struct BASILYS_OBJECT_STRUCT(3) dsym_288__CLASS_OBJNEWCLOSURE; struct BASILYS_STRING_STRUCT(19) dstr_289__CLASS_OBJNEWCLOS; struct BASILYS_ROUTINE_STRUCT(1) drout_290__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(3) drout_291__OUTPUCOD_OBJTOUCH; struct BASILYS_CLOSURE_STRUCT(0) dclo_292__OUTPUCOD_OBJTOUCH; struct BASILYS_OBJECT_STRUCT(3) dsym_293__CLASS_OBJTOUCH; struct BASILYS_STRING_STRUCT(14) dstr_294__CLASS_OBJTOUCH; struct BASILYS_ROUTINE_STRUCT(4) drout_295__OUTPUCOD_OBJPUTUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_296__OUTPUCOD_OBJPUTUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_297__CLASS_OBJPUTUPLE; struct BASILYS_STRING_STRUCT(16) dstr_298__CLASS_OBJPUTUPLE; struct BASILYS_ROUTINE_STRUCT(9) drout_299__OUTPUCOD_OBJGETSLOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_300__OUTPUCOD_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_301__CLASS_OBJGETSLOT; struct BASILYS_STRING_STRUCT(16) dstr_302__CLASS_OBJGETSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_303__CLASS_FIELD; struct BASILYS_STRING_STRUCT(11) dstr_304__CLASS_FIELD; struct BASILYS_ROUTINE_STRUCT(1) drout_305__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(7) drout_306__OUTPUCOD_OBJPUTSLOT; struct BASILYS_CLOSURE_STRUCT(0) dclo_307__OUTPUCOD_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_308__CLASS_OBJPUTSLOT; struct BASILYS_STRING_STRUCT(16) dstr_309__CLASS_OBJPUTSLOT; struct BASILYS_OBJECT_STRUCT(3) dsym_310__CLASS_NREP; struct BASILYS_STRING_STRUCT(10) dstr_311__CLASS_NREP; struct BASILYS_ROUTINE_STRUCT(4) drout_312__OUTPUCOD_OBJPUTCLOSUROUT; struct BASILYS_CLOSURE_STRUCT(0) dclo_313__OUTPUCOD_OBJPUTCLOSUROUT; struct BASILYS_OBJECT_STRUCT(3) dsym_314__CLASS_OBJPUTCLOSUROUT; struct BASILYS_STRING_STRUCT(21) dstr_315__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_316__OUTPUCOD_OBJPUTCLOSEDV; struct BASILYS_CLOSURE_STRUCT(0) dclo_317__OUTPUCOD_OBJPUTCLOSEDV; struct BASILYS_OBJECT_STRUCT(3) dsym_318__CLASS_OBJPUTCLOSEDV; struct BASILYS_STRING_STRUCT(19) dstr_319__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct BASILYS_CLOSURE_STRUCT(0) dclo_321__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; struct BASILYS_OBJECT_STRUCT(3) dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV; struct BASILYS_STRING_STRUCT(26) dstr_323__CLASS_OBJPUTCLOS; struct BASILYS_ROUTINE_STRUCT(4) drout_324__OUTPUCOD_OBJPUTROUTCONST; struct BASILYS_CLOSURE_STRUCT(0) dclo_325__OUTPUCOD_OBJPUTROUTCONST; struct BASILYS_OBJECT_STRUCT(3) dsym_326__CLASS_OBJPUTROUTCONST; struct BASILYS_STRING_STRUCT(21) dstr_327__CLASS_OBJPUTROUT; struct BASILYS_ROUTINE_STRUCT(3) drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct BASILYS_CLOSURE_STRUCT(0) dclo_329__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; struct BASILYS_OBJECT_STRUCT(3) dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL; struct BASILYS_STRING_STRUCT(28) dstr_331__CLASS_OBJPUTROUT; struct BASILYS_ROUTINE_STRUCT(6) drout_332__OUTPUCOD_OBJPUTXTRARESULT; struct BASILYS_CLOSURE_STRUCT(0) dclo_333__OUTPUCOD_OBJPUTXTRARESULT; struct BASILYS_OBJECT_STRUCT(3) dsym_334__CLASS_OBJPUTXTRARESULT; struct BASILYS_STRING_STRUCT(22) dstr_335__CLASS_OBJPUTXTRA; struct BASILYS_ROUTINE_STRUCT(5) drout_336__OUTPUCOD_OBJEXPV; struct BASILYS_CLOSURE_STRUCT(0) dclo_337__OUTPUCOD_OBJEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_338__CLASS_OBJEXPV; struct BASILYS_STRING_STRUCT(13) dstr_339__CLASS_OBJEXPV; struct BASILYS_ROUTINE_STRUCT(1) drout_340__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(6) drout_341__OUTPUCOD_OBJLOCATEDEXPV; struct BASILYS_CLOSURE_STRUCT(0) dclo_342__OUTPUCOD_OBJLOCATEDEXPV; struct BASILYS_OBJECT_STRUCT(3) dsym_343__CLASS_OBJLOCATEDEXPV; struct BASILYS_STRING_STRUCT(20) dstr_344__CLASS_OBJLOCATED; struct BASILYS_ROUTINE_STRUCT(1) drout_345__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_346__OUTPUCOD_VERBATIMSTRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_347__OUTPUCOD_VERBATIMSTRING; struct BASILYS_OBJECT_STRUCT(3) dsym_348__DISCR_VERBATIMSTRING; struct BASILYS_STRING_STRUCT(20) dstr_349__DISCR_VERBATIMST; struct BASILYS_ROUTINE_STRUCT(1) drout_350__OUTPUCOD_STRING; struct BASILYS_CLOSURE_STRUCT(0) dclo_351__OUTPUCOD_STRING; struct BASILYS_ROUTINE_STRUCT(0) drout_352__OUTPUCOD_INTEGER; struct BASILYS_CLOSURE_STRUCT(0) dclo_353__OUTPUCOD_INTEGER; struct BASILYS_ROUTINE_STRUCT(2) drout_354__OUTPUCOD_FINALRETURN; struct BASILYS_CLOSURE_STRUCT(0) dclo_355__OUTPUCOD_FINALRETURN; struct BASILYS_OBJECT_STRUCT(3) dsym_356__CLASS_OBJFINALRETURN; struct BASILYS_STRING_STRUCT(20) dstr_357__CLASS_OBJFINALRE; struct BASILYS_ROUTINE_STRUCT(8) drout_358__SORTED_NAMED_DICT_TUPLE; struct BASILYS_CLOSURE_STRUCT(0) dclo_359__SORTED_NAMED_DICT_TUPLE; struct BASILYS_OBJECT_STRUCT(3) dsym_360__MAPSTRING_EVERY; struct BASILYS_STRING_STRUCT(15) dstr_361__MAPSTRING_EVERY; struct BASILYS_ROUTINE_STRUCT(1) drout_362__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_363__LIST_TO_MULTIPLE; struct BASILYS_STRING_STRUCT(16) dstr_364__LIST_TO_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(0) drout_365__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_366__DISCR_MULTIPLE; struct BASILYS_STRING_STRUCT(14) dstr_367__DISCR_MULTIPLE; struct BASILYS_ROUTINE_STRUCT(8) drout_368__OUTPUT_EXPORTED_OFFSETS; struct BASILYS_CLOSURE_STRUCT(0) dclo_369__OUTPUT_EXPORTED_OFFSETS; struct BASILYS_OBJECT_STRUCT(3) dsym_370__CLASS_MODULCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_371__CLASS_MODULCONTE; struct BASILYS_ROUTINE_STRUCT(1) drout_372__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_373__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_374__CLASS_CLASS; struct BASILYS_STRING_STRUCT(11) dstr_375__CLASS_CLASS; struct BASILYS_ROUTINE_STRUCT(34) drout_376__COMPILE_LIST_SEXPR; struct BASILYS_CLOSURE_STRUCT(0) dclo_377__COMPILE_LIST_SEXPR; struct BASILYS_OBJECT_STRUCT(3) dsym_378__CLASS_ENVIRONMENT; struct BASILYS_STRING_STRUCT(17) dstr_379__CLASS_ENVIRONMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_380__DISCR_MAPSTRINGS; struct BASILYS_STRING_STRUCT(16) dstr_381__DISCR_MAPSTRINGS; struct BASILYS_OBJECT_STRUCT(3) dsym_382__CREATE_NORMCONTEXT; struct BASILYS_STRING_STRUCT(18) dstr_383__CREATE_NORMCONTE; struct BASILYS_OBJECT_STRUCT(3) dsym_384__CLASS_NORMCONTEXT; struct BASILYS_STRING_STRUCT(17) dstr_385__CLASS_NORMCONTEX; struct BASILYS_OBJECT_STRUCT(3) dsym_386__MACROEXPAND_TOPLEVEL_LIST; struct BASILYS_STRING_STRUCT(25) dstr_387__MACROEXPAND_TOPL; struct BASILYS_OBJECT_STRUCT(3) dsym_388__CLASS_SRC; struct BASILYS_STRING_STRUCT(9) dstr_389__CLASS_SRC; struct BASILYS_OBJECT_STRUCT(3) dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; struct BASILYS_STRING_STRUCT(53) dstr_391__CLASS_SRC_UPDATE; struct BASILYS_OBJECT_STRUCT(3) dsym_392__CLASS_NREP_INITPROC; struct BASILYS_STRING_STRUCT(19) dstr_393__CLASS_NREP_INITP; struct BASILYS_ROUTINE_STRUCT(7) drout_394__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_395__CLASS_LOCATED; struct BASILYS_STRING_STRUCT(13) dstr_396__CLASS_LOCATED; struct BASILYS_OBJECT_STRUCT(3) dsym_397__CLASS_SRC_COMMENT; struct BASILYS_STRING_STRUCT(17) dstr_398__CLASS_SRC_COMMEN; struct BASILYS_OBJECT_STRUCT(3) dsym_399__NORMAL_EXP; struct BASILYS_STRING_STRUCT(10) dstr_400__NORMAL_EXP; struct BASILYS_OBJECT_STRUCT(3) dsym_401__CLASS_NREP_ANYPROC; struct BASILYS_STRING_STRUCT(18) dstr_402__CLASS_NREP_ANYPR; struct BASILYS_OBJECT_STRUCT(3) dsym_403__WRAP_NORMAL_LET1; struct BASILYS_STRING_STRUCT(16) dstr_404__WRAP_NORMAL_LET1; struct BASILYS_OBJECT_STRUCT(3) dsym_405__DISCR_MAPOBJECTS; struct BASILYS_STRING_STRUCT(16) dstr_406__DISCR_MAPOBJECTS; struct BASILYS_ROUTINE_STRUCT(3) drout_407__LAMBDA_; struct BASILYS_OBJECT_STRUCT(3) dsym_408__COMPILE2OBJ_PROCEDURE; struct BASILYS_STRING_STRUCT(21) dstr_409__COMPILE2OBJ_PROC; struct BASILYS_OBJECT_STRUCT(3) dsym_410__COMPILE2OBJ_INITPROC; struct BASILYS_STRING_STRUCT(20) dstr_411__COMPILE2OBJ_INIT; struct BASILYS_ROUTINE_STRUCT(2) drout_412__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(2) drout_413__INSTALL_INITIAL_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_414__INSTALL_INITIAL_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_415__INITIAL_SYSTEM_DATA; struct BASILYS_STRING_STRUCT(19) dstr_416__INITIAL_SYSTEM_D; struct BASILYS_ROUTINE_STRUCT(2) drout_417__INITIAL_COMMAND_INSTALL; struct BASILYS_CLOSURE_STRUCT(0) dclo_418__INITIAL_COMMAND_INSTALL; struct BASILYS_ROUTINE_STRUCT(1) drout_419__READSEQ_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_420__READSEQ_COMMAND; struct BASILYS_ROUTINE_STRUCT(12) drout_421__COMPILEFILE_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_422__COMPILEFILE_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_423__INITIAL_ENVIRONMENT; struct BASILYS_STRING_STRUCT(19) dstr_424__INITIAL_ENVIRONM; struct BASILYS_OBJECT_STRUCT(3) dsym_425__LIST_APPEND2LIST; struct BASILYS_STRING_STRUCT(16) dstr_426__LIST_APPEND2LIST; struct BASILYS_ROUTINE_STRUCT(2) drout_427__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(10) drout_428__COMPILEINIT_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_429__COMPILEINIT_COMMAND; struct BASILYS_ROUTINE_STRUCT(2) drout_430__LAMBDA_; struct BASILYS_ROUTINE_STRUCT(1) drout_431__SHOWMDATA_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_432__SHOWMDATA_COMMAND; struct BASILYS_ROUTINE_STRUCT(3) drout_433__SHOWVAR_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_434__SHOWVAR_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_435__FIND_ENV; struct BASILYS_STRING_STRUCT(8) dstr_436__FIND_ENV; struct BASILYS_OBJECT_STRUCT(3) dsym_437__CLASS_VALUE_BINDING; struct BASILYS_STRING_STRUCT(19) dstr_438__CLASS_VALUE_BIND; struct BASILYS_ROUTINE_STRUCT(2) drout_439__HELP_COMMAND; struct BASILYS_CLOSURE_STRUCT(0) dclo_440__HELP_COMMAND; struct BASILYS_OBJECT_STRUCT(3) dsym_441__INITIAL_COMMAND_INSTALL; struct BASILYS_STRING_STRUCT(23) dstr_442__INITIAL_COMMAND_; struct BASILYS_OBJECT_STRUCT(3) dsym_443__INSTALL_INITIAL_COMMAND; struct BASILYS_STRING_STRUCT(23) dstr_444__INSTALL_INITIAL_; struct BASILYS_OBJECT_STRUCT(3) dsym_445__COMPILE_LIST_SEXPR; struct BASILYS_STRING_STRUCT(18) dstr_446__COMPILE_LIST_SEX; 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__DEBUG_MSG_FUN*/ if (!/*_.VALDATA___V119*/ curfptr[118]) /*_.VALDATA___V119*/ curfptr[118] = (void*)&cdat->dsym_1__DEBUG_MSG_FUN; basilys_assertmsg("iniobj checkdiscr dsym_1__DEBUG_MSG_FUN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__DEBUG_MSG_FUN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_1__DEBUG_MSG_FUN.obj_hash = 938829072; cdat->dsym_1__DEBUG_MSG_FUN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_1__DEBUG_MSG_FUN)); /*inistring dstr_2__DEBUG_MSG_FUN*/ /*_.VALSTR___V120*/ curfptr[119] = (void*)&cdat->dstr_2__DEBUG_MSG_FUN; cdat->dstr_2__DEBUG_MSG_FUN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_2__DEBUG_MSG_FUN.val, "DEBUG_MSG_FUN"); /*iniobj dsym_3__CLASS_SYMBOL*/ if (!/*_.VALDATA___V121*/ curfptr[120]) /*_.VALDATA___V121*/ curfptr[120] = (void*)&cdat->dsym_3__CLASS_SYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_3__CLASS_SYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_SYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_3__CLASS_SYMBOL.obj_hash = 53524182; cdat->dsym_3__CLASS_SYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_3__CLASS_SYMBOL)); /*inistring dstr_4__CLASS_SYMBOL*/ /*_.VALSTR___V122*/ curfptr[121] = (void*)&cdat->dstr_4__CLASS_SYMBOL; cdat->dstr_4__CLASS_SYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_4__CLASS_SYMBOL.val, "CLASS_SYMBOL"); /*inirout drout_5__OUTDECLINIT_ROOT*/ /*_.VALROUT___V123*/ curfptr[122] = (void*)&cdat->drout_5__OUTDECLINIT_ROOT; cdat->drout_5__OUTDECLINIT_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_5__OUTDECLINIT_ROOT.routdescr, "OUTDECLINIT_ROOT @warmelt-outobj.bysl:36", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_5__OUTDECLINIT_ROOT.nbval = 1; *(basilysroutfun_t **) (cdat->drout_5__OUTDECLINIT_ROOT.routaddr) = rout_1_OUTDECLINIT_ROOT; /*iniclos dclo_6__OUTDECLINIT_ROOT*/ /*_.VALCLO___V124*/ curfptr[123] = (void*)&cdat->dclo_6__OUTDECLINIT_ROOT; cdat->dclo_6__OUTDECLINIT_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_6__OUTDECLINIT_ROOT.nbval = 0; /*iniobj dsym_7__INSTALL_METHOD*/ if (!/*_.VALDATA___V125*/ curfptr[124]) /*_.VALDATA___V125*/ curfptr[124] = (void*)&cdat->dsym_7__INSTALL_METHOD; basilys_assertmsg("iniobj checkdiscr dsym_7__INSTALL_METHOD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_7__INSTALL_METHOD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_7__INSTALL_METHOD.obj_hash = 680699224; cdat->dsym_7__INSTALL_METHOD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_7__INSTALL_METHOD)); /*inistring dstr_8__INSTALL_METHOD*/ /*_.VALSTR___V126*/ curfptr[125] = (void*)&cdat->dstr_8__INSTALL_METHOD; cdat->dstr_8__INSTALL_METHOD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_8__INSTALL_METHOD.val, "INSTALL_METHOD"); /*iniobj dsym_9__CLASS_ROOT*/ if (!/*_.VALDATA___V127*/ curfptr[126]) /*_.VALDATA___V127*/ curfptr[126] = (void*)&cdat->dsym_9__CLASS_ROOT; basilys_assertmsg("iniobj checkdiscr dsym_9__CLASS_ROOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__CLASS_ROOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_9__CLASS_ROOT.obj_hash = 60568825; cdat->dsym_9__CLASS_ROOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_9__CLASS_ROOT)); /*inistring dstr_10__CLASS_ROOT*/ /*_.VALSTR___V128*/ curfptr[127] = (void*)&cdat->dstr_10__CLASS_ROOT; cdat->dstr_10__CLASS_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_10__CLASS_ROOT.val, "CLASS_ROOT"); /*iniobj dsym_11__OUTPUT_C_DECLINIT*/ if (!/*_.VALDATA___V129*/ curfptr[128]) /*_.VALDATA___V129*/ curfptr[128] = (void*)&cdat->dsym_11__OUTPUT_C_DECLINIT; basilys_assertmsg("iniobj checkdiscr dsym_11__OUTPUT_C_DECLINIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_11__OUTPUT_C_DECLINIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_11__OUTPUT_C_DECLINIT.obj_hash = 1046624755; cdat->dsym_11__OUTPUT_C_DECLINIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_11__OUTPUT_C_DECLINIT)); /*inistring dstr_12__OUTPUT_C_DECLINI*/ /*_.VALSTR___V130*/ curfptr[129] = (void*)&cdat->dstr_12__OUTPUT_C_DECLINI; cdat->dstr_12__OUTPUT_C_DECLINI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_12__OUTPUT_C_DECLINI.val, "OUTPUT_C_DECLINIT"); /*inirout drout_13__OUTPUCOD_OBJINIELEM*/ /*_.VALROUT___V131*/ curfptr[130] = (void*)&cdat->drout_13__OUTPUCOD_OBJINIELEM; cdat->drout_13__OUTPUCOD_OBJINIELEM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_13__OUTPUCOD_OBJINIELEM.routdescr, "OUTPUCOD_OBJINIELEM @warmelt-outobj.bysl:43", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_13__OUTPUCOD_OBJINIELEM.nbval = 2; *(basilysroutfun_t **) (cdat->drout_13__OUTPUCOD_OBJINIELEM.routaddr) = rout_2_OUTPUCOD_OBJINIELEM; /*iniclos dclo_14__OUTPUCOD_OBJINIELEM*/ /*_.VALCLO___V132*/ curfptr[131] = (void*)&cdat->dclo_14__OUTPUCOD_OBJINIELEM; cdat->dclo_14__OUTPUCOD_OBJINIELEM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_14__OUTPUCOD_OBJINIELEM.nbval = 0; /*iniobj dsym_15__CLASS_OBJINITELEM*/ if (!/*_.VALDATA___V133*/ curfptr[132]) /*_.VALDATA___V133*/ curfptr[132] = (void*)&cdat->dsym_15__CLASS_OBJINITELEM; basilys_assertmsg("iniobj checkdiscr dsym_15__CLASS_OBJINITELEM", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_15__CLASS_OBJINITELEM.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_15__CLASS_OBJINITELEM.obj_hash = 129631203; cdat->dsym_15__CLASS_OBJINITELEM.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_15__CLASS_OBJINITELEM)); /*inistring dstr_16__CLASS_OBJINITELE*/ /*_.VALSTR___V134*/ curfptr[133] = (void*)&cdat->dstr_16__CLASS_OBJINITELE; cdat->dstr_16__CLASS_OBJINITELE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_16__CLASS_OBJINITELE.val, "CLASS_OBJINITELEM"); /*iniobj dsym_17__OUTPUT_C_CODE*/ if (!/*_.VALDATA___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (void*)&cdat->dsym_17__OUTPUT_C_CODE; basilys_assertmsg("iniobj checkdiscr dsym_17__OUTPUT_C_CODE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__OUTPUT_C_CODE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_17__OUTPUT_C_CODE.obj_hash = 137415526; cdat->dsym_17__OUTPUT_C_CODE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_17__OUTPUT_C_CODE)); /*inistring dstr_18__OUTPUT_C_CODE*/ /*_.VALSTR___V136*/ curfptr[135] = (void*)&cdat->dstr_18__OUTPUT_C_CODE; cdat->dstr_18__OUTPUT_C_CODE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_18__OUTPUT_C_CODE.val, "OUTPUT_C_CODE"); /*inirout drout_19__OUTCINITFILL_ROOT*/ /*_.VALROUT___V137*/ curfptr[136] = (void*)&cdat->drout_19__OUTCINITFILL_ROOT; cdat->drout_19__OUTCINITFILL_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_19__OUTCINITFILL_ROOT.routdescr, "OUTCINITFILL_ROOT @warmelt-outobj.bysl:54", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_19__OUTCINITFILL_ROOT.nbval = 1; *(basilysroutfun_t **) (cdat->drout_19__OUTCINITFILL_ROOT.routaddr) = rout_3_OUTCINITFILL_ROOT; /*iniclos dclo_20__OUTCINITFILL_ROOT*/ /*_.VALCLO___V138*/ curfptr[137] = (void*)&cdat->dclo_20__OUTCINITFILL_ROOT; cdat->dclo_20__OUTCINITFILL_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_20__OUTCINITFILL_ROOT.nbval = 0; /*iniobj dsym_21__OUTPUT_C_INITFILL*/ if (!/*_.VALDATA___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*)&cdat->dsym_21__OUTPUT_C_INITFILL; basilys_assertmsg("iniobj checkdiscr dsym_21__OUTPUT_C_INITFILL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_21__OUTPUT_C_INITFILL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_21__OUTPUT_C_INITFILL.obj_hash = 553878238; cdat->dsym_21__OUTPUT_C_INITFILL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_21__OUTPUT_C_INITFILL)); /*inistring dstr_22__OUTPUT_C_INITFIL*/ /*_.VALSTR___V140*/ curfptr[139] = (void*)&cdat->dstr_22__OUTPUT_C_INITFIL; cdat->dstr_22__OUTPUT_C_INITFIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_22__OUTPUT_C_INITFIL.val, "OUTPUT_C_INITFILL"); /*inirout drout_23__OUTCINITPREDEF_ROOT*/ /*_.VALROUT___V141*/ curfptr[140] = (void*)&cdat->drout_23__OUTCINITPREDEF_ROOT; cdat->drout_23__OUTCINITPREDEF_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_23__OUTCINITPREDEF_ROOT.routdescr, "OUTCINITPREDEF_ROOT @warmelt-outobj.bysl:62", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_23__OUTCINITPREDEF_ROOT.nbval = 1; *(basilysroutfun_t **) (cdat->drout_23__OUTCINITPREDEF_ROOT.routaddr) = rout_4_OUTCINITPREDEF_ROOT; /*iniclos dclo_24__OUTCINITPREDEF_ROOT*/ /*_.VALCLO___V142*/ curfptr[141] = (void*)&cdat->dclo_24__OUTCINITPREDEF_ROOT; cdat->dclo_24__OUTCINITPREDEF_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_24__OUTCINITPREDEF_ROOT.nbval = 0; /*iniobj dsym_25__OUTPUT_C_INITPREDEF*/ if (!/*_.VALDATA___V143*/ curfptr[142]) /*_.VALDATA___V143*/ curfptr[142] = (void*)&cdat->dsym_25__OUTPUT_C_INITPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_25__OUTPUT_C_INITPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_25__OUTPUT_C_INITPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_25__OUTPUT_C_INITPREDEF.obj_hash = 963494394; cdat->dsym_25__OUTPUT_C_INITPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_25__OUTPUT_C_INITPREDEF)); /*inistring dstr_26__OUTPUT_C_INITPRE*/ /*_.VALSTR___V144*/ curfptr[143] = (void*)&cdat->dstr_26__OUTPUT_C_INITPRE; cdat->dstr_26__OUTPUT_C_INITPRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_26__OUTPUT_C_INITPRE.val, "OUTPUT_C_INITPREDEF"); /*inirout drout_27__OUTPUT_PREDEF*/ /*_.VALROUT___V145*/ curfptr[144] = (void*)&cdat->drout_27__OUTPUT_PREDEF; cdat->drout_27__OUTPUT_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_27__OUTPUT_PREDEF.routdescr, "OUTPUT_PREDEF @warmelt-outobj.bysl:69", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_27__OUTPUT_PREDEF.nbval = 3; *(basilysroutfun_t **) (cdat->drout_27__OUTPUT_PREDEF.routaddr) = rout_5_OUTPUT_PREDEF; /*iniclos dclo_28__OUTPUT_PREDEF*/ /*_.VALCLO___V146*/ curfptr[145] = (void*)&cdat->dclo_28__OUTPUT_PREDEF; cdat->dclo_28__OUTPUT_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_28__OUTPUT_PREDEF.nbval = 0; /*iniobj dsym_29__OBPREDEF*/ if (!/*_.VALDATA___V147*/ curfptr[146]) /*_.VALDATA___V147*/ curfptr[146] = (void*)&cdat->dsym_29__OBPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_29__OBPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_29__OBPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_29__OBPREDEF.obj_hash = 465714734; cdat->dsym_29__OBPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_29__OBPREDEF)); /*inistring dstr_30__OBPREDEF*/ /*_.VALSTR___V148*/ curfptr[147] = (void*)&cdat->dstr_30__OBPREDEF; cdat->dstr_30__OBPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_30__OBPREDEF.val, "OBPREDEF"); /*inirout drout_31__OUTPUCOD_PREDEF*/ /*_.VALROUT___V149*/ curfptr[148] = (void*)&cdat->drout_31__OUTPUCOD_PREDEF; cdat->drout_31__OUTPUCOD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_31__OUTPUCOD_PREDEF.routdescr, "OUTPUCOD_PREDEF @warmelt-outobj.bysl:88", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_31__OUTPUCOD_PREDEF.nbval = 2; *(basilysroutfun_t **) (cdat->drout_31__OUTPUCOD_PREDEF.routaddr) = rout_6_OUTPUCOD_PREDEF; /*iniclos dclo_32__OUTPUCOD_PREDEF*/ /*_.VALCLO___V150*/ curfptr[149] = (void*)&cdat->dclo_32__OUTPUCOD_PREDEF; cdat->dclo_32__OUTPUCOD_PREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_32__OUTPUCOD_PREDEF.nbval = 0; /*iniobj dsym_33__CLASS_OBJPREDEF*/ if (!/*_.VALDATA___V151*/ curfptr[150]) /*_.VALDATA___V151*/ curfptr[150] = (void*)&cdat->dsym_33__CLASS_OBJPREDEF; basilys_assertmsg("iniobj checkdiscr dsym_33__CLASS_OBJPREDEF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__CLASS_OBJPREDEF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_33__CLASS_OBJPREDEF.obj_hash = 416230155; cdat->dsym_33__CLASS_OBJPREDEF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_33__CLASS_OBJPREDEF)); /*inistring dstr_34__CLASS_OBJPREDEF*/ /*_.VALSTR___V152*/ curfptr[151] = (void*)&cdat->dstr_34__CLASS_OBJPREDEF; cdat->dstr_34__CLASS_OBJPREDEF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_34__CLASS_OBJPREDEF.val, "CLASS_OBJPREDEF"); /*inirout drout_35__OUTPUCOD_NIL*/ /*_.VALROUT___V153*/ curfptr[152] = (void*)&cdat->drout_35__OUTPUCOD_NIL; cdat->drout_35__OUTPUCOD_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_35__OUTPUCOD_NIL.routdescr, "OUTPUCOD_NIL @warmelt-outobj.bysl:95", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_35__OUTPUCOD_NIL.nbval = 1; *(basilysroutfun_t **) (cdat->drout_35__OUTPUCOD_NIL.routaddr) = rout_7_OUTPUCOD_NIL; /*iniclos dclo_36__OUTPUCOD_NIL*/ /*_.VALCLO___V154*/ curfptr[153] = (void*)&cdat->dclo_36__OUTPUCOD_NIL; cdat->dclo_36__OUTPUCOD_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_36__OUTPUCOD_NIL.nbval = 0; /*iniobj dsym_37__CLASS_OBJNIL*/ if (!/*_.VALDATA___V155*/ curfptr[154]) /*_.VALDATA___V155*/ curfptr[154] = (void*)&cdat->dsym_37__CLASS_OBJNIL; basilys_assertmsg("iniobj checkdiscr dsym_37__CLASS_OBJNIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_37__CLASS_OBJNIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_37__CLASS_OBJNIL.obj_hash = 621637507; cdat->dsym_37__CLASS_OBJNIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_37__CLASS_OBJNIL)); /*inistring dstr_38__CLASS_OBJNIL*/ /*_.VALSTR___V156*/ curfptr[155] = (void*)&cdat->dstr_38__CLASS_OBJNIL; cdat->dstr_38__CLASS_OBJNIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_38__CLASS_OBJNIL.val, "CLASS_OBJNIL"); /*inirout drout_39__OUTDECLINIT_OBJINITOBJECT*/ /*_.VALROUT___V157*/ curfptr[156] = (void*)&cdat->drout_39__OUTDECLINIT_OBJINITOBJECT; cdat->drout_39__OUTDECLINIT_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_39__OUTDECLINIT_OBJINITOBJECT.routdescr, "OUTDECLINIT_OBJINITOBJECT @warmelt-outobj.bysl:101", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_39__OUTDECLINIT_OBJINITOBJECT.nbval = 0; *(basilysroutfun_t **) (cdat->drout_39__OUTDECLINIT_OBJINITOBJECT.routaddr) = rout_8_OUTDECLINIT_OBJINITOBJECT; /*iniclos dclo_40__OUTDECLINIT_OBJINITOBJECT*/ /*_.VALCLO___V158*/ curfptr[157] = (void*)&cdat->dclo_40__OUTDECLINIT_OBJINITOBJECT; cdat->dclo_40__OUTDECLINIT_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_40__OUTDECLINIT_OBJINITOBJECT.nbval = 0; /*iniobj dsym_41__CLASS_OBJINITOBJECT*/ if (!/*_.VALDATA___V159*/ curfptr[158]) /*_.VALDATA___V159*/ curfptr[158] = (void*)&cdat->dsym_41__CLASS_OBJINITOBJECT; basilys_assertmsg("iniobj checkdiscr dsym_41__CLASS_OBJINITOBJECT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_41__CLASS_OBJINITOBJECT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_41__CLASS_OBJINITOBJECT.obj_hash = 532827978; cdat->dsym_41__CLASS_OBJINITOBJECT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_41__CLASS_OBJINITOBJECT)); /*inistring dstr_42__CLASS_OBJINITOBJ*/ /*_.VALSTR___V160*/ curfptr[159] = (void*)&cdat->dstr_42__CLASS_OBJINITOBJ; cdat->dstr_42__CLASS_OBJINITOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_42__CLASS_OBJINITOBJ.val, "CLASS_OBJINITOBJECT"); /*inirout drout_43__OUTCINITFILL_OBJINITOBJECT*/ /*_.VALROUT___V161*/ curfptr[160] = (void*)&cdat->drout_43__OUTCINITFILL_OBJINITOBJECT; cdat->drout_43__OUTCINITFILL_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_43__OUTCINITFILL_OBJINITOBJECT.routdescr, "OUTCINITFILL_OBJINITOBJECT @warmelt-outobj.bysl:111", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_43__OUTCINITFILL_OBJINITOBJECT.nbval = 7; *(basilysroutfun_t **) (cdat->drout_43__OUTCINITFILL_OBJINITOBJECT.routaddr) = rout_9_OUTCINITFILL_OBJINITOBJECT; /*iniclos dclo_44__OUTCINITFILL_OBJINITOBJECT*/ /*_.VALCLO___V166*/ curfptr[165] = (void*)&cdat->dclo_44__OUTCINITFILL_OBJINITOBJECT; cdat->dclo_44__OUTCINITFILL_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_44__OUTCINITFILL_OBJINITOBJECT.nbval = 0; /*iniobj dsym_45__CLASS_NREP_DATAINSTANCE*/ if (!/*_.VALDATA___V167*/ curfptr[166]) /*_.VALDATA___V167*/ curfptr[166] = (void*)&cdat->dsym_45__CLASS_NREP_DATAINSTANCE; basilys_assertmsg("iniobj checkdiscr dsym_45__CLASS_NREP_DATAINSTANCE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_45__CLASS_NREP_DATAINSTANCE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_45__CLASS_NREP_DATAINSTANCE.obj_hash = 475932459; cdat->dsym_45__CLASS_NREP_DATAINSTANCE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_45__CLASS_NREP_DATAINSTANCE)); /*inistring dstr_46__CLASS_NREP_DATAI*/ /*_.VALSTR___V168*/ curfptr[167] = (void*)&cdat->dstr_46__CLASS_NREP_DATAI; cdat->dstr_46__CLASS_NREP_DATAI.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_46__CLASS_NREP_DATAI.val, "CLASS_NREP_DATAINSTANCE"); /*inirout drout_47__OUTCINITPREDEF_OBJINITOBJECT*/ /*_.VALROUT___V169*/ curfptr[168] = (void*)&cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT; cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.routdescr, "OUTCINITPREDEF_OBJINITOBJECT @warmelt-outobj.bysl:231", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.nbval = 6; *(basilysroutfun_t **) (cdat->drout_47__OUTCINITPREDEF_OBJINITOBJECT.routaddr) = rout_10_OUTCINITPREDEF_OBJINITOBJECT; /*iniclos dclo_48__OUTCINITPREDEF_OBJINITOBJECT*/ /*_.VALCLO___V170*/ curfptr[169] = (void*)&cdat->dclo_48__OUTCINITPREDEF_OBJINITOBJECT; cdat->dclo_48__OUTCINITPREDEF_OBJINITOBJECT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_48__OUTCINITPREDEF_OBJINITOBJECT.nbval = 0; /*iniobj dsym_49__CLASS_NREP_NIL*/ if (!/*_.VALDATA___V171*/ curfptr[170]) /*_.VALDATA___V171*/ curfptr[170] = (void*)&cdat->dsym_49__CLASS_NREP_NIL; basilys_assertmsg("iniobj checkdiscr dsym_49__CLASS_NREP_NIL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_49__CLASS_NREP_NIL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_49__CLASS_NREP_NIL.obj_hash = 607452589; cdat->dsym_49__CLASS_NREP_NIL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_49__CLASS_NREP_NIL)); /*inistring dstr_50__CLASS_NREP_NIL*/ /*_.VALSTR___V172*/ curfptr[171] = (void*)&cdat->dstr_50__CLASS_NREP_NIL; cdat->dstr_50__CLASS_NREP_NIL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_50__CLASS_NREP_NIL.val, "CLASS_NREP_NIL"); /*inirout drout_51__OUTDECLINIT_OBJINITMULTIPLE*/ /*_.VALROUT___V173*/ curfptr[172] = (void*)&cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE; cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.routdescr, "OUTDECLINIT_OBJINITMULTIPLE @warmelt-outobj.bysl:311", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0; *(basilysroutfun_t **) (cdat->drout_51__OUTDECLINIT_OBJINITMULTIPLE.routaddr) = rout_11_OUTDECLINIT_OBJINITMULTIPLE; /*iniclos dclo_52__OUTDECLINIT_OBJINITMULTIPLE*/ /*_.VALCLO___V174*/ curfptr[173] = (void*)&cdat->dclo_52__OUTDECLINIT_OBJINITMULTIPLE; cdat->dclo_52__OUTDECLINIT_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_52__OUTDECLINIT_OBJINITMULTIPLE.nbval = 0; /*iniobj dsym_53__CLASS_OBJINITMULTIPLE*/ if (!/*_.VALDATA___V175*/ curfptr[174]) /*_.VALDATA___V175*/ curfptr[174] = (void*)&cdat->dsym_53__CLASS_OBJINITMULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_53__CLASS_OBJINITMULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_53__CLASS_OBJINITMULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_53__CLASS_OBJINITMULTIPLE.obj_hash = 864635026; cdat->dsym_53__CLASS_OBJINITMULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_53__CLASS_OBJINITMULTIPLE)); /*inistring dstr_54__CLASS_OBJINITMUL*/ /*_.VALSTR___V176*/ curfptr[175] = (void*)&cdat->dstr_54__CLASS_OBJINITMUL; cdat->dstr_54__CLASS_OBJINITMUL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_54__CLASS_OBJINITMUL.val, "CLASS_OBJINITMULTIPLE"); /*inirout drout_55__OUTCINITFILL_OBJINITMULTIPLE*/ /*_.VALROUT___V177*/ curfptr[176] = (void*)&cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE; cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.routdescr, "OUTCINITFILL_OBJINITMULTIPLE @warmelt-outobj.bysl:321", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.nbval = 3; *(basilysroutfun_t **) (cdat->drout_55__OUTCINITFILL_OBJINITMULTIPLE.routaddr) = rout_12_OUTCINITFILL_OBJINITMULTIPLE; /*iniclos dclo_56__OUTCINITFILL_OBJINITMULTIPLE*/ /*_.VALCLO___V178*/ curfptr[177] = (void*)&cdat->dclo_56__OUTCINITFILL_OBJINITMULTIPLE; cdat->dclo_56__OUTCINITFILL_OBJINITMULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_56__OUTCINITFILL_OBJINITMULTIPLE.nbval = 0; /*inirout drout_57__OUTDECLINIT_OBJINITCLOSURE*/ /*_.VALROUT___V179*/ curfptr[178] = (void*)&cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE; cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.routdescr, "OUTDECLINIT_OBJINITCLOSURE @warmelt-outobj.bysl:353", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.nbval = 0; *(basilysroutfun_t **) (cdat->drout_57__OUTDECLINIT_OBJINITCLOSURE.routaddr) = rout_13_OUTDECLINIT_OBJINITCLOSURE; /*iniclos dclo_58__OUTDECLINIT_OBJINITCLOSURE*/ /*_.VALCLO___V180*/ curfptr[179] = (void*)&cdat->dclo_58__OUTDECLINIT_OBJINITCLOSURE; cdat->dclo_58__OUTDECLINIT_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_58__OUTDECLINIT_OBJINITCLOSURE.nbval = 0; /*iniobj dsym_59__CLASS_OBJINITCLOSURE*/ if (!/*_.VALDATA___V181*/ curfptr[180]) /*_.VALDATA___V181*/ curfptr[180] = (void*)&cdat->dsym_59__CLASS_OBJINITCLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_59__CLASS_OBJINITCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_59__CLASS_OBJINITCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_59__CLASS_OBJINITCLOSURE.obj_hash = 952363892; cdat->dsym_59__CLASS_OBJINITCLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_59__CLASS_OBJINITCLOSURE)); /*inistring dstr_60__CLASS_OBJINITCLO*/ /*_.VALSTR___V182*/ curfptr[181] = (void*)&cdat->dstr_60__CLASS_OBJINITCLO; cdat->dstr_60__CLASS_OBJINITCLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_60__CLASS_OBJINITCLO.val, "CLASS_OBJINITCLOSURE"); /*inirout drout_61__OUTCINITFILL_OBJINITCLOSURE*/ /*_.VALROUT___V183*/ curfptr[182] = (void*)&cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE; cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.routdescr, "OUTCINITFILL_OBJINITCLOSURE @warmelt-outobj.bysl:362", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.nbval = 3; *(basilysroutfun_t **) (cdat->drout_61__OUTCINITFILL_OBJINITCLOSURE.routaddr) = rout_14_OUTCINITFILL_OBJINITCLOSURE; /*iniclos dclo_62__OUTCINITFILL_OBJINITCLOSURE*/ /*_.VALCLO___V184*/ curfptr[183] = (void*)&cdat->dclo_62__OUTCINITFILL_OBJINITCLOSURE; cdat->dclo_62__OUTCINITFILL_OBJINITCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_62__OUTCINITFILL_OBJINITCLOSURE.nbval = 0; /*inirout drout_63__OUTDECLINIT_OBJINITROUTINE*/ /*_.VALROUT___V185*/ curfptr[184] = (void*)&cdat->drout_63__OUTDECLINIT_OBJINITROUTINE; cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.routdescr, "OUTDECLINIT_OBJINITROUTINE @warmelt-outobj.bysl:397", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.nbval = 0; *(basilysroutfun_t **) (cdat->drout_63__OUTDECLINIT_OBJINITROUTINE.routaddr) = rout_15_OUTDECLINIT_OBJINITROUTINE; /*iniclos dclo_64__OUTDECLINIT_OBJINITROUTINE*/ /*_.VALCLO___V186*/ curfptr[185] = (void*)&cdat->dclo_64__OUTDECLINIT_OBJINITROUTINE; cdat->dclo_64__OUTDECLINIT_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_64__OUTDECLINIT_OBJINITROUTINE.nbval = 0; /*iniobj dsym_65__CLASS_OBJINITROUTINE*/ if (!/*_.VALDATA___V187*/ curfptr[186]) /*_.VALDATA___V187*/ curfptr[186] = (void*)&cdat->dsym_65__CLASS_OBJINITROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_65__CLASS_OBJINITROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_65__CLASS_OBJINITROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_65__CLASS_OBJINITROUTINE.obj_hash = 527007550; cdat->dsym_65__CLASS_OBJINITROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_65__CLASS_OBJINITROUTINE)); /*inistring dstr_66__CLASS_OBJINITROU*/ /*_.VALSTR___V188*/ curfptr[187] = (void*)&cdat->dstr_66__CLASS_OBJINITROU; cdat->dstr_66__CLASS_OBJINITROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_66__CLASS_OBJINITROU.val, "CLASS_OBJINITROUTINE"); /*inirout drout_67__OUTCINITFILL_OBJINITROUTINE*/ /*_.VALROUT___V189*/ curfptr[188] = (void*)&cdat->drout_67__OUTCINITFILL_OBJINITROUTINE; cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.routdescr, "OUTCINITFILL_OBJINITROUTINE @warmelt-outobj.bysl:407", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.nbval = 6; *(basilysroutfun_t **) (cdat->drout_67__OUTCINITFILL_OBJINITROUTINE.routaddr) = rout_16_OUTCINITFILL_OBJINITROUTINE; /*iniclos dclo_68__OUTCINITFILL_OBJINITROUTINE*/ /*_.VALCLO___V190*/ curfptr[189] = (void*)&cdat->dclo_68__OUTCINITFILL_OBJINITROUTINE; cdat->dclo_68__OUTCINITFILL_OBJINITROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_68__OUTCINITFILL_OBJINITROUTINE.nbval = 0; /*iniobj dsym_69__CLASS_NREP_DATAROUTINE*/ if (!/*_.VALDATA___V191*/ curfptr[190]) /*_.VALDATA___V191*/ curfptr[190] = (void*)&cdat->dsym_69__CLASS_NREP_DATAROUTINE; basilys_assertmsg("iniobj checkdiscr dsym_69__CLASS_NREP_DATAROUTINE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_69__CLASS_NREP_DATAROUTINE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_69__CLASS_NREP_DATAROUTINE.obj_hash = 675830344; cdat->dsym_69__CLASS_NREP_DATAROUTINE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_69__CLASS_NREP_DATAROUTINE)); /*inistring dstr_70__CLASS_NREP_DATAR*/ /*_.VALSTR___V192*/ curfptr[191] = (void*)&cdat->dstr_70__CLASS_NREP_DATAR; cdat->dstr_70__CLASS_NREP_DATAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_70__CLASS_NREP_DATAR.val, "CLASS_NREP_DATAROUTINE"); /*iniobj dsym_71__CLASS_NAMED*/ if (!/*_.VALDATA___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (void*)&cdat->dsym_71__CLASS_NAMED; basilys_assertmsg("iniobj checkdiscr dsym_71__CLASS_NAMED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_NAMED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_71__CLASS_NAMED.obj_hash = 60407004; cdat->dsym_71__CLASS_NAMED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_71__CLASS_NAMED)); /*inistring dstr_72__CLASS_NAMED*/ /*_.VALSTR___V194*/ curfptr[193] = (void*)&cdat->dstr_72__CLASS_NAMED; cdat->dstr_72__CLASS_NAMED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_72__CLASS_NAMED.val, "CLASS_NAMED"); /*iniobj dsym_73__CLASS_NREP_ROUTPROC*/ if (!/*_.VALDATA___V195*/ curfptr[194]) /*_.VALDATA___V195*/ curfptr[194] = (void*)&cdat->dsym_73__CLASS_NREP_ROUTPROC; basilys_assertmsg("iniobj checkdiscr dsym_73__CLASS_NREP_ROUTPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_73__CLASS_NREP_ROUTPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_73__CLASS_NREP_ROUTPROC.obj_hash = 959677762; cdat->dsym_73__CLASS_NREP_ROUTPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_73__CLASS_NREP_ROUTPROC)); /*inistring dstr_74__CLASS_NREP_ROUTP*/ /*_.VALSTR___V196*/ curfptr[195] = (void*)&cdat->dstr_74__CLASS_NREP_ROUTP; cdat->dstr_74__CLASS_NREP_ROUTP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_74__CLASS_NREP_ROUTP.val, "CLASS_NREP_ROUTPROC"); /*inirout drout_75__OUTDECLINIT_OBJINITSTRING*/ /*_.VALROUT___V197*/ curfptr[196] = (void*)&cdat->drout_75__OUTDECLINIT_OBJINITSTRING; cdat->drout_75__OUTDECLINIT_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_75__OUTDECLINIT_OBJINITSTRING.routdescr, "OUTDECLINIT_OBJINITSTRING @warmelt-outobj.bysl:486", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_75__OUTDECLINIT_OBJINITSTRING.nbval = 0; *(basilysroutfun_t **) (cdat->drout_75__OUTDECLINIT_OBJINITSTRING.routaddr) = rout_17_OUTDECLINIT_OBJINITSTRING; /*iniclos dclo_76__OUTDECLINIT_OBJINITSTRING*/ /*_.VALCLO___V198*/ curfptr[197] = (void*)&cdat->dclo_76__OUTDECLINIT_OBJINITSTRING; cdat->dclo_76__OUTDECLINIT_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_76__OUTDECLINIT_OBJINITSTRING.nbval = 0; /*iniobj dsym_77__CLASS_OBJINITSTRING*/ if (!/*_.VALDATA___V199*/ curfptr[198]) /*_.VALDATA___V199*/ curfptr[198] = (void*)&cdat->dsym_77__CLASS_OBJINITSTRING; basilys_assertmsg("iniobj checkdiscr dsym_77__CLASS_OBJINITSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__CLASS_OBJINITSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_77__CLASS_OBJINITSTRING.obj_hash = 1067075981; cdat->dsym_77__CLASS_OBJINITSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_77__CLASS_OBJINITSTRING)); /*inistring dstr_78__CLASS_OBJINITSTR*/ /*_.VALSTR___V200*/ curfptr[199] = (void*)&cdat->dstr_78__CLASS_OBJINITSTR; cdat->dstr_78__CLASS_OBJINITSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_78__CLASS_OBJINITSTR.val, "CLASS_OBJINITSTRING"); /*inirout drout_79__OUTCINITFILL_OBJINITSTRING*/ /*_.VALROUT___V201*/ curfptr[200] = (void*)&cdat->drout_79__OUTCINITFILL_OBJINITSTRING; cdat->drout_79__OUTCINITFILL_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_79__OUTCINITFILL_OBJINITSTRING.routdescr, "OUTCINITFILL_OBJINITSTRING @warmelt-outobj.bysl:496", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_79__OUTCINITFILL_OBJINITSTRING.nbval = 3; *(basilysroutfun_t **) (cdat->drout_79__OUTCINITFILL_OBJINITSTRING.routaddr) = rout_18_OUTCINITFILL_OBJINITSTRING; /*iniclos dclo_80__OUTCINITFILL_OBJINITSTRING*/ /*_.VALCLO___V202*/ curfptr[201] = (void*)&cdat->dclo_80__OUTCINITFILL_OBJINITSTRING; cdat->dclo_80__OUTCINITFILL_OBJINITSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_80__OUTCINITFILL_OBJINITSTRING.nbval = 0; /*inirout drout_81__OUTPUCOD_ANYDISCR*/ /*_.VALROUT___V203*/ curfptr[202] = (void*)&cdat->drout_81__OUTPUCOD_ANYDISCR; cdat->drout_81__OUTPUCOD_ANYDISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_81__OUTPUCOD_ANYDISCR.routdescr, "OUTPUCOD_ANYDISCR @warmelt-outobj.bysl:530", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_81__OUTPUCOD_ANYDISCR.nbval = 0; *(basilysroutfun_t **) (cdat->drout_81__OUTPUCOD_ANYDISCR.routaddr) = rout_19_OUTPUCOD_ANYDISCR; /*iniclos dclo_82__OUTPUCOD_ANYDISCR*/ /*_.VALCLO___V204*/ curfptr[203] = (void*)&cdat->dclo_82__OUTPUCOD_ANYDISCR; cdat->dclo_82__OUTPUCOD_ANYDISCR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_82__OUTPUCOD_ANYDISCR.nbval = 0; /*iniobj dsym_83__DISCR_ANYRECV*/ if (!/*_.VALDATA___V205*/ curfptr[204]) /*_.VALDATA___V205*/ curfptr[204] = (void*)&cdat->dsym_83__DISCR_ANYRECV; basilys_assertmsg("iniobj checkdiscr dsym_83__DISCR_ANYRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_83__DISCR_ANYRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_83__DISCR_ANYRECV.obj_hash = 88765237; cdat->dsym_83__DISCR_ANYRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_83__DISCR_ANYRECV)); /*inistring dstr_84__DISCR_ANYRECV*/ /*_.VALSTR___V206*/ curfptr[205] = (void*)&cdat->dstr_84__DISCR_ANYRECV; cdat->dstr_84__DISCR_ANYRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_84__DISCR_ANYRECV.val, "DISCR_ANYRECV"); /*inirout drout_85__OUTPUCOD_NULL*/ /*_.VALROUT___V207*/ curfptr[206] = (void*)&cdat->drout_85__OUTPUCOD_NULL; cdat->drout_85__OUTPUCOD_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_85__OUTPUCOD_NULL.routdescr, "OUTPUCOD_NULL @warmelt-outobj.bysl:539", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_85__OUTPUCOD_NULL.nbval = 0; *(basilysroutfun_t **) (cdat->drout_85__OUTPUCOD_NULL.routaddr) = rout_20_OUTPUCOD_NULL; /*iniclos dclo_86__OUTPUCOD_NULL*/ /*_.VALCLO___V208*/ curfptr[207] = (void*)&cdat->dclo_86__OUTPUCOD_NULL; cdat->dclo_86__OUTPUCOD_NULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_86__OUTPUCOD_NULL.nbval = 0; /*iniobj dsym_87__DISCR_NULLRECV*/ if (!/*_.VALDATA___V209*/ curfptr[208]) /*_.VALDATA___V209*/ curfptr[208] = (void*)&cdat->dsym_87__DISCR_NULLRECV; basilys_assertmsg("iniobj checkdiscr dsym_87__DISCR_NULLRECV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_87__DISCR_NULLRECV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_87__DISCR_NULLRECV.obj_hash = 39603699; cdat->dsym_87__DISCR_NULLRECV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_87__DISCR_NULLRECV)); /*inistring dstr_88__DISCR_NULLRECV*/ /*_.VALSTR___V210*/ curfptr[209] = (void*)&cdat->dstr_88__DISCR_NULLRECV; cdat->dstr_88__DISCR_NULLRECV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_88__DISCR_NULLRECV.val, "DISCR_NULLRECV"); /*inirout drout_89__OUTPUCOD_CATCHALL_ROOT*/ /*_.VALROUT___V211*/ curfptr[210] = (void*)&cdat->drout_89__OUTPUCOD_CATCHALL_ROOT; cdat->drout_89__OUTPUCOD_CATCHALL_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_89__OUTPUCOD_CATCHALL_ROOT.routdescr, "OUTPUCOD_CATCHALL_ROOT @warmelt-outobj.bysl:545", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_89__OUTPUCOD_CATCHALL_ROOT.nbval = 2; *(basilysroutfun_t **) (cdat->drout_89__OUTPUCOD_CATCHALL_ROOT.routaddr) = rout_21_OUTPUCOD_CATCHALL_ROOT; /*iniclos dclo_90__OUTPUCOD_CATCHALL_ROOT*/ /*_.VALCLO___V212*/ curfptr[211] = (void*)&cdat->dclo_90__OUTPUCOD_CATCHALL_ROOT; cdat->dclo_90__OUTPUCOD_CATCHALL_ROOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_90__OUTPUCOD_CATCHALL_ROOT.nbval = 0; /*iniobj dsym_91__DISPLAYDEBUGMSG*/ if (!/*_.VALDATA___V213*/ curfptr[212]) /*_.VALDATA___V213*/ curfptr[212] = (void*)&cdat->dsym_91__DISPLAYDEBUGMSG; basilys_assertmsg("iniobj checkdiscr dsym_91__DISPLAYDEBUGMSG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__DISPLAYDEBUGMSG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_91__DISPLAYDEBUGMSG.obj_hash = 784680112; cdat->dsym_91__DISPLAYDEBUGMSG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_91__DISPLAYDEBUGMSG)); /*inistring dstr_92__DISPLAYDEBUGMSG*/ /*_.VALSTR___V214*/ curfptr[213] = (void*)&cdat->dstr_92__DISPLAYDEBUGMSG; cdat->dstr_92__DISPLAYDEBUGMSG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_92__DISPLAYDEBUGMSG.val, "DISPLAYDEBUGMSG"); /*inirout drout_93__OUTPUT_RAW_LOCATION*/ /*_.VALROUT___V165*/ curfptr[164] = (void*)&cdat->drout_93__OUTPUT_RAW_LOCATION; cdat->drout_93__OUTPUT_RAW_LOCATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_93__OUTPUT_RAW_LOCATION.routdescr, "OUTPUT_RAW_LOCATION @warmelt-outobj.bysl:558", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_93__OUTPUT_RAW_LOCATION.nbval = 0; *(basilysroutfun_t **) (cdat->drout_93__OUTPUT_RAW_LOCATION.routaddr) = rout_22_OUTPUT_RAW_LOCATION; /*iniclos dclo_94__OUTPUT_RAW_LOCATION*/ /*_.VALCLO___V164*/ curfptr[163] = (void*)&cdat->dclo_94__OUTPUT_RAW_LOCATION; cdat->dclo_94__OUTPUT_RAW_LOCATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_94__OUTPUT_RAW_LOCATION.nbval = 0; /*inirout drout_95__OUTPUT_LOCATION*/ /*_.VALROUT___V163*/ curfptr[162] = (void*)&cdat->drout_95__OUTPUT_LOCATION; cdat->drout_95__OUTPUT_LOCATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_95__OUTPUT_LOCATION.routdescr, "OUTPUT_LOCATION @warmelt-outobj.bysl:589", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_95__OUTPUT_LOCATION.nbval = 1; *(basilysroutfun_t **) (cdat->drout_95__OUTPUT_LOCATION.routaddr) = rout_23_OUTPUT_LOCATION; /*iniclos dclo_96__OUTPUT_LOCATION*/ /*_.VALCLO___V162*/ curfptr[161] = (void*)&cdat->dclo_96__OUTPUT_LOCATION; cdat->dclo_96__OUTPUT_LOCATION.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_96__OUTPUT_LOCATION.nbval = 0; /*inirout drout_97__OUTPUT_CURFRAME_DECLSTRUCT*/ /*_.VALROUT___V215*/ curfptr[214] = (void*)&cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT; cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT @warmelt-outobj.bysl:619", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 6; *(basilysroutfun_t **) (cdat->drout_97__OUTPUT_CURFRAME_DECLSTRUCT.routaddr) = rout_24_OUTPUT_CURFRAME_DECLSTRUCT; /*iniclos dclo_98__OUTPUT_CURFRAME_DECLSTRUCT*/ /*_.VALCLO___V217*/ curfptr[216] = (void*)&cdat->dclo_98__OUTPUT_CURFRAME_DECLSTRUCT; cdat->dclo_98__OUTPUT_CURFRAME_DECLSTRUCT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_98__OUTPUT_CURFRAME_DECLSTRUCT.nbval = 0; /*iniobj dsym_99__CLASS_INITIALROUTINEOBJ*/ if (!/*_.VALDATA___V218*/ curfptr[217]) /*_.VALDATA___V218*/ curfptr[217] = (void*)&cdat->dsym_99__CLASS_INITIALROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_99__CLASS_INITIALROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__CLASS_INITIALROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_99__CLASS_INITIALROUTINEOBJ.obj_hash = 149718249; cdat->dsym_99__CLASS_INITIALROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_99__CLASS_INITIALROUTINEOBJ)); /*inistring dstr_100__CLASS_INITIALROU*/ /*_.VALSTR___V219*/ curfptr[218] = (void*)&cdat->dstr_100__CLASS_INITIALROU; cdat->dstr_100__CLASS_INITIALROU.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_100__CLASS_INITIALROU.val, "CLASS_INITIALROUTINEOBJ"); /*iniobj dsym_101__LIST_EVERY*/ if (!/*_.VALDATA___V220*/ curfptr[219]) /*_.VALDATA___V220*/ curfptr[219] = (void*)&cdat->dsym_101__LIST_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_101__LIST_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_101__LIST_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_101__LIST_EVERY.obj_hash = 942863429; cdat->dsym_101__LIST_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_101__LIST_EVERY)); /*inistring dstr_102__LIST_EVERY*/ /*_.VALSTR___V221*/ curfptr[220] = (void*)&cdat->dstr_102__LIST_EVERY; cdat->dstr_102__LIST_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_102__LIST_EVERY.val, "LIST_EVERY"); /*inirout drout_103__LAMBDA_*/ /*_.VALROUT___V216*/ curfptr[215] = (void*)&cdat->drout_103__LAMBDA_; cdat->drout_103__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_103__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:690", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_103__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_103__LAMBDA_.routaddr) = rout_25_LAMBDA_; /*iniobj dsym_104__CLASS_OBJLOCV*/ if (!/*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (void*)&cdat->dsym_104__CLASS_OBJLOCV; basilys_assertmsg("iniobj checkdiscr dsym_104__CLASS_OBJLOCV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_104__CLASS_OBJLOCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_104__CLASS_OBJLOCV.obj_hash = 259875989; cdat->dsym_104__CLASS_OBJLOCV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_104__CLASS_OBJLOCV)); /*inistring dstr_105__CLASS_OBJLOCV*/ /*_.VALSTR___V223*/ curfptr[222] = (void*)&cdat->dstr_105__CLASS_OBJLOCV; cdat->dstr_105__CLASS_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_105__CLASS_OBJLOCV.val, "CLASS_OBJLOCV"); /*iniobj dsym_106__CLASS_CTYPE*/ if (!/*_.VALDATA___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (void*)&cdat->dsym_106__CLASS_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_106__CLASS_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_106__CLASS_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_106__CLASS_CTYPE.obj_hash = 78610803; cdat->dsym_106__CLASS_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_106__CLASS_CTYPE)); /*inistring dstr_107__CLASS_CTYPE*/ /*_.VALSTR___V225*/ curfptr[224] = (void*)&cdat->dstr_107__CLASS_CTYPE; cdat->dstr_107__CLASS_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_107__CLASS_CTYPE.val, "CLASS_CTYPE"); /*inirout drout_108__OUTPUCOD_MARKER*/ /*_.VALROUT___V226*/ curfptr[225] = (void*)&cdat->drout_108__OUTPUCOD_MARKER; cdat->drout_108__OUTPUCOD_MARKER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_108__OUTPUCOD_MARKER.routdescr, "OUTPUCOD_MARKER @warmelt-outobj.bysl:714", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_108__OUTPUCOD_MARKER.nbval = 10; *(basilysroutfun_t **) (cdat->drout_108__OUTPUCOD_MARKER.routaddr) = rout_26_OUTPUCOD_MARKER; /*iniclos dclo_109__OUTPUCOD_MARKER*/ /*_.VALCLO___V228*/ curfptr[227] = (void*)&cdat->dclo_109__OUTPUCOD_MARKER; cdat->dclo_109__OUTPUCOD_MARKER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_109__OUTPUCOD_MARKER.nbval = 0; /*iniobj dsym_110__CLASS_ROUTINEOBJ*/ if (!/*_.VALDATA___V229*/ curfptr[228]) /*_.VALDATA___V229*/ curfptr[228] = (void*)&cdat->dsym_110__CLASS_ROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_110__CLASS_ROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_110__CLASS_ROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_110__CLASS_ROUTINEOBJ.obj_hash = 302625151; cdat->dsym_110__CLASS_ROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_110__CLASS_ROUTINEOBJ)); /*inistring dstr_111__CLASS_ROUTINEOBJ*/ /*_.VALSTR___V230*/ curfptr[229] = (void*)&cdat->dstr_111__CLASS_ROUTINEOBJ; cdat->dstr_111__CLASS_ROUTINEOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_111__CLASS_ROUTINEOBJ.val, "CLASS_ROUTINEOBJ"); /*iniobj dsym_112__CTYPE_VALUE*/ if (!/*_.VALDATA___V231*/ curfptr[230]) /*_.VALDATA___V231*/ curfptr[230] = (void*)&cdat->dsym_112__CTYPE_VALUE; basilys_assertmsg("iniobj checkdiscr dsym_112__CTYPE_VALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_112__CTYPE_VALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_112__CTYPE_VALUE.obj_hash = 11062864; cdat->dsym_112__CTYPE_VALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_112__CTYPE_VALUE)); /*inistring dstr_113__CTYPE_VALUE*/ /*_.VALSTR___V232*/ curfptr[231] = (void*)&cdat->dstr_113__CTYPE_VALUE; cdat->dstr_113__CTYPE_VALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_113__CTYPE_VALUE.val, "CTYPE_VALUE"); /*inirout drout_114__LAMBDA_*/ /*_.VALROUT___V227*/ curfptr[226] = (void*)&cdat->drout_114__LAMBDA_; cdat->drout_114__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_114__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:735", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_114__LAMBDA_.nbval = 4; *(basilysroutfun_t **) (cdat->drout_114__LAMBDA_.routaddr) = rout_27_LAMBDA_; /*iniobj dsym_115__CLASS_OBJVALUE*/ if (!/*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (void*)&cdat->dsym_115__CLASS_OBJVALUE; basilys_assertmsg("iniobj checkdiscr dsym_115__CLASS_OBJVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__CLASS_OBJVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_115__CLASS_OBJVALUE.obj_hash = 1057853242; cdat->dsym_115__CLASS_OBJVALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_115__CLASS_OBJVALUE)); /*inistring dstr_116__CLASS_OBJVALUE*/ /*_.VALSTR___V234*/ curfptr[233] = (void*)&cdat->dstr_116__CLASS_OBJVALUE; cdat->dstr_116__CLASS_OBJVALUE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_116__CLASS_OBJVALUE.val, "CLASS_OBJVALUE"); /*inirout drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*_.VALROUT___V235*/ curfptr[234] = (void*)&cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT; cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT.routdescr, "OUTPUT_CURFRAME_DECLSTRUCT_INIT @warmelt-outobj.bysl:768", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 2; *(basilysroutfun_t **) (cdat->drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT.routaddr) = rout_28_OUTPUT_CURFRAME_DECLSTRUCT_INIT; /*iniclos dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT*/ /*_.VALCLO___V236*/ curfptr[235] = (void*)&cdat->dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT; cdat->dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_118__OUTPUT_CURFRAME_DECLSTRUCT_INIT.nbval = 0; /*inirout drout_119__OUTPUCOD_PROCROUTINE*/ /*_.VALROUT___V237*/ curfptr[236] = (void*)&cdat->drout_119__OUTPUCOD_PROCROUTINE; cdat->drout_119__OUTPUCOD_PROCROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_119__OUTPUCOD_PROCROUTINE.routdescr, "OUTPUCOD_PROCROUTINE @warmelt-outobj.bysl:832", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_119__OUTPUCOD_PROCROUTINE.nbval = 13; *(basilysroutfun_t **) (cdat->drout_119__OUTPUCOD_PROCROUTINE.routaddr) = rout_29_OUTPUCOD_PROCROUTINE; /*iniclos dclo_120__OUTPUCOD_PROCROUTINE*/ /*_.VALCLO___V240*/ curfptr[239] = (void*)&cdat->dclo_120__OUTPUCOD_PROCROUTINE; cdat->dclo_120__OUTPUCOD_PROCROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_120__OUTPUCOD_PROCROUTINE.nbval = 0; /*iniobj dsym_121__CLASS_PROCROUTINEOBJ*/ if (!/*_.VALDATA___V241*/ curfptr[240]) /*_.VALDATA___V241*/ curfptr[240] = (void*)&cdat->dsym_121__CLASS_PROCROUTINEOBJ; basilys_assertmsg("iniobj checkdiscr dsym_121__CLASS_PROCROUTINEOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_121__CLASS_PROCROUTINEOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_121__CLASS_PROCROUTINEOBJ.obj_hash = 171301749; cdat->dsym_121__CLASS_PROCROUTINEOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_121__CLASS_PROCROUTINEOBJ)); /*inistring dstr_122__CLASS_PROCROUTIN*/ /*_.VALSTR___V242*/ curfptr[241] = (void*)&cdat->dstr_122__CLASS_PROCROUTIN; cdat->dstr_122__CLASS_PROCROUTIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_122__CLASS_PROCROUTIN.val, "CLASS_PROCROUTINEOBJ"); /*iniobj dsym_123__DISCR_STRING*/ if (!/*_.VALDATA___V243*/ curfptr[242]) /*_.VALDATA___V243*/ curfptr[242] = (void*)&cdat->dsym_123__DISCR_STRING; basilys_assertmsg("iniobj checkdiscr dsym_123__DISCR_STRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_123__DISCR_STRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_123__DISCR_STRING.obj_hash = 100436219; cdat->dsym_123__DISCR_STRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_123__DISCR_STRING)); /*inistring dstr_124__DISCR_STRING*/ /*_.VALSTR___V244*/ curfptr[243] = (void*)&cdat->dstr_124__DISCR_STRING; cdat->dstr_124__DISCR_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_124__DISCR_STRING.val, "DISCR_STRING"); /*iniobj dsym_125__MULTIPLE_EVERY*/ if (!/*_.VALDATA___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*)&cdat->dsym_125__MULTIPLE_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_125__MULTIPLE_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__MULTIPLE_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_125__MULTIPLE_EVERY.obj_hash = 130098745; cdat->dsym_125__MULTIPLE_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_125__MULTIPLE_EVERY)); /*inistring dstr_126__MULTIPLE_EVERY*/ /*_.VALSTR___V246*/ curfptr[245] = (void*)&cdat->dstr_126__MULTIPLE_EVERY; cdat->dstr_126__MULTIPLE_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_126__MULTIPLE_EVERY.val, "MULTIPLE_EVERY"); /*inirout drout_127__LAMBDA_*/ /*_.VALROUT___V238*/ curfptr[237] = (void*)&cdat->drout_127__LAMBDA_; cdat->drout_127__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_127__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:894", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_127__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_127__LAMBDA_.routaddr) = rout_30_LAMBDA_; /*inirout drout_128__LAMBDA_*/ /*_.VALROUT___V239*/ curfptr[238] = (void*)&cdat->drout_128__LAMBDA_; cdat->drout_128__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_128__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:915", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_128__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_128__LAMBDA_.routaddr) = rout_31_LAMBDA_; /*iniobj dsym_129__CLASS_OBJPUREVALUE*/ if (!/*_.VALDATA___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (void*)&cdat->dsym_129__CLASS_OBJPUREVALUE; basilys_assertmsg("iniobj checkdiscr dsym_129__CLASS_OBJPUREVALUE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_129__CLASS_OBJPUREVALUE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_129__CLASS_OBJPUREVALUE.obj_hash = 439671425; cdat->dsym_129__CLASS_OBJPUREVALUE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_129__CLASS_OBJPUREVALUE)); /*inistring dstr_130__CLASS_OBJPUREVAL*/ /*_.VALSTR___V248*/ curfptr[247] = (void*)&cdat->dstr_130__CLASS_OBJPUREVAL; cdat->dstr_130__CLASS_OBJPUREVAL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_130__CLASS_OBJPUREVAL.val, "CLASS_OBJPUREVALUE"); /*inirout drout_131__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*_.VALROUT___V249*/ curfptr[248] = (void*)&cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT; cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT.routdescr, "OUTPUT_CURFRAME_CDAT_STRUCT @warmelt-outobj.bysl:956", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 3; *(basilysroutfun_t **) (cdat->drout_131__OUTPUT_CURFRAME_CDAT_STRUCT.routaddr) = rout_32_OUTPUT_CURFRAME_CDAT_STRUCT; /*iniclos dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT*/ /*_.VALCLO___V251*/ curfptr[250] = (void*)&cdat->dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT; cdat->dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_132__OUTPUT_CURFRAME_CDAT_STRUCT.nbval = 0; /*inirout drout_133__LAMBDA_*/ /*_.VALROUT___V250*/ curfptr[249] = (void*)&cdat->drout_133__LAMBDA_; cdat->drout_133__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_133__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:961", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_133__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_133__LAMBDA_.routaddr) = rout_33_LAMBDA_; /*inirout drout_134__OUTPUT_CURFRAME_CDAT_FILL*/ /*_.VALROUT___V252*/ curfptr[251] = (void*)&cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL; cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL.routdescr, "OUTPUT_CURFRAME_CDAT_FILL @warmelt-outobj.bysl:972", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL.nbval = 5; *(basilysroutfun_t **) (cdat->drout_134__OUTPUT_CURFRAME_CDAT_FILL.routaddr) = rout_34_OUTPUT_CURFRAME_CDAT_FILL; /*iniclos dclo_135__OUTPUT_CURFRAME_CDAT_FILL*/ /*_.VALCLO___V255*/ curfptr[254] = (void*)&cdat->dclo_135__OUTPUT_CURFRAME_CDAT_FILL; cdat->dclo_135__OUTPUT_CURFRAME_CDAT_FILL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_135__OUTPUT_CURFRAME_CDAT_FILL.nbval = 0; /*inirout drout_136__LAMBDA_*/ /*_.VALROUT___V253*/ curfptr[252] = (void*)&cdat->drout_136__LAMBDA_; cdat->drout_136__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_136__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:984", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_136__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_136__LAMBDA_.routaddr) = rout_35_LAMBDA_; /*inirout drout_137__LAMBDA_*/ /*_.VALROUT___V254*/ curfptr[253] = (void*)&cdat->drout_137__LAMBDA_; cdat->drout_137__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_137__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:993", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_137__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_137__LAMBDA_.routaddr) = rout_36_LAMBDA_; /*inirout drout_138__OUTPUCOD_INITIALROUTINE*/ /*_.VALROUT___V256*/ curfptr[255] = (void*)&cdat->drout_138__OUTPUCOD_INITIALROUTINE; cdat->drout_138__OUTPUCOD_INITIALROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_138__OUTPUCOD_INITIALROUTINE.routdescr, "OUTPUCOD_INITIALROUTINE @warmelt-outobj.bysl:1011", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_138__OUTPUCOD_INITIALROUTINE.nbval = 15; *(basilysroutfun_t **) (cdat->drout_138__OUTPUCOD_INITIALROUTINE.routaddr) = rout_37_OUTPUCOD_INITIALROUTINE; /*iniclos dclo_139__OUTPUCOD_INITIALROUTINE*/ /*_.VALCLO___V260*/ curfptr[259] = (void*)&cdat->dclo_139__OUTPUCOD_INITIALROUTINE; cdat->dclo_139__OUTPUCOD_INITIALROUTINE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_139__OUTPUCOD_INITIALROUTINE.nbval = 0; /*inirout drout_140__LAMBDA_*/ /*_.VALROUT___V257*/ curfptr[256] = (void*)&cdat->drout_140__LAMBDA_; cdat->drout_140__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_140__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1064", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_140__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_140__LAMBDA_.routaddr) = rout_38_LAMBDA_; /*inirout drout_141__LAMBDA_*/ /*_.VALROUT___V258*/ curfptr[257] = (void*)&cdat->drout_141__LAMBDA_; cdat->drout_141__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_141__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1077", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_141__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_141__LAMBDA_.routaddr) = rout_39_LAMBDA_; /*inirout drout_142__LAMBDA_*/ /*_.VALROUT___V259*/ curfptr[258] = (void*)&cdat->drout_142__LAMBDA_; cdat->drout_142__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_142__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1101", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_142__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_142__LAMBDA_.routaddr) = rout_40_LAMBDA_; /*inirout drout_143__OUTPUCOD_GETARG*/ /*_.VALROUT___V261*/ curfptr[260] = (void*)&cdat->drout_143__OUTPUCOD_GETARG; cdat->drout_143__OUTPUCOD_GETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_143__OUTPUCOD_GETARG.routdescr, "OUTPUCOD_GETARG @warmelt-outobj.bysl:1151", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_143__OUTPUCOD_GETARG.nbval = 7; *(basilysroutfun_t **) (cdat->drout_143__OUTPUCOD_GETARG.routaddr) = rout_41_OUTPUCOD_GETARG; /*iniclos dclo_144__OUTPUCOD_GETARG*/ /*_.VALCLO___V262*/ curfptr[261] = (void*)&cdat->dclo_144__OUTPUCOD_GETARG; cdat->dclo_144__OUTPUCOD_GETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_144__OUTPUCOD_GETARG.nbval = 0; /*iniobj dsym_145__CLASS_OBJGETARG*/ if (!/*_.VALDATA___V263*/ curfptr[262]) /*_.VALDATA___V263*/ curfptr[262] = (void*)&cdat->dsym_145__CLASS_OBJGETARG; basilys_assertmsg("iniobj checkdiscr dsym_145__CLASS_OBJGETARG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__CLASS_OBJGETARG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_145__CLASS_OBJGETARG.obj_hash = 596373581; cdat->dsym_145__CLASS_OBJGETARG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_145__CLASS_OBJGETARG)); /*inistring dstr_146__CLASS_OBJGETARG*/ /*_.VALSTR___V264*/ curfptr[263] = (void*)&cdat->dstr_146__CLASS_OBJGETARG; cdat->dstr_146__CLASS_OBJGETARG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_146__CLASS_OBJGETARG.val, "CLASS_OBJGETARG"); /*iniobj dsym_147__CLASS_FORMAL_BINDING*/ if (!/*_.VALDATA___V265*/ curfptr[264]) /*_.VALDATA___V265*/ curfptr[264] = (void*)&cdat->dsym_147__CLASS_FORMAL_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_147__CLASS_FORMAL_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_147__CLASS_FORMAL_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_147__CLASS_FORMAL_BINDING.obj_hash = 3733780; cdat->dsym_147__CLASS_FORMAL_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_147__CLASS_FORMAL_BINDING)); /*inistring dstr_148__CLASS_FORMAL_BIN*/ /*_.VALSTR___V266*/ curfptr[265] = (void*)&cdat->dstr_148__CLASS_FORMAL_BIN; cdat->dstr_148__CLASS_FORMAL_BIN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_148__CLASS_FORMAL_BIN.val, "CLASS_FORMAL_BINDING"); /*inirout drout_149__OUTPUCOD_OBJLOCV*/ /*_.VALROUT___V267*/ curfptr[266] = (void*)&cdat->drout_149__OUTPUCOD_OBJLOCV; cdat->drout_149__OUTPUCOD_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_149__OUTPUCOD_OBJLOCV.routdescr, "OUTPUCOD_OBJLOCV @warmelt-outobj.bysl:1217", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_149__OUTPUCOD_OBJLOCV.nbval = 3; *(basilysroutfun_t **) (cdat->drout_149__OUTPUCOD_OBJLOCV.routaddr) = rout_42_OUTPUCOD_OBJLOCV; /*iniclos dclo_150__OUTPUCOD_OBJLOCV*/ /*_.VALCLO___V268*/ curfptr[267] = (void*)&cdat->dclo_150__OUTPUCOD_OBJLOCV; cdat->dclo_150__OUTPUCOD_OBJLOCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_150__OUTPUCOD_OBJLOCV.nbval = 0; /*iniobj dsym_151__CTYPE_LONG*/ if (!/*_.VALDATA___V269*/ curfptr[268]) /*_.VALDATA___V269*/ curfptr[268] = (void*)&cdat->dsym_151__CTYPE_LONG; basilys_assertmsg("iniobj checkdiscr dsym_151__CTYPE_LONG", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__CTYPE_LONG.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_151__CTYPE_LONG.obj_hash = 64180850; cdat->dsym_151__CTYPE_LONG.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_151__CTYPE_LONG)); /*inistring dstr_152__CTYPE_LONG*/ /*_.VALSTR___V270*/ curfptr[269] = (void*)&cdat->dstr_152__CTYPE_LONG; cdat->dstr_152__CTYPE_LONG.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_152__CTYPE_LONG.val, "CTYPE_LONG"); /*inirout drout_153__OUTPUCOD_OBJCLOCCV*/ /*_.VALROUT___V271*/ curfptr[270] = (void*)&cdat->drout_153__OUTPUCOD_OBJCLOCCV; cdat->drout_153__OUTPUCOD_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_153__OUTPUCOD_OBJCLOCCV.routdescr, "OUTPUCOD_OBJCLOCCV @warmelt-outobj.bysl:1247", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_153__OUTPUCOD_OBJCLOCCV.nbval = 2; *(basilysroutfun_t **) (cdat->drout_153__OUTPUCOD_OBJCLOCCV.routaddr) = rout_43_OUTPUCOD_OBJCLOCCV; /*iniclos dclo_154__OUTPUCOD_OBJCLOCCV*/ /*_.VALCLO___V272*/ curfptr[271] = (void*)&cdat->dclo_154__OUTPUCOD_OBJCLOCCV; cdat->dclo_154__OUTPUCOD_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_154__OUTPUCOD_OBJCLOCCV.nbval = 0; /*iniobj dsym_155__CLASS_OBJCLOCCV*/ if (!/*_.VALDATA___V273*/ curfptr[272]) /*_.VALDATA___V273*/ curfptr[272] = (void*)&cdat->dsym_155__CLASS_OBJCLOCCV; basilys_assertmsg("iniobj checkdiscr dsym_155__CLASS_OBJCLOCCV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__CLASS_OBJCLOCCV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_155__CLASS_OBJCLOCCV.obj_hash = 195863179; cdat->dsym_155__CLASS_OBJCLOCCV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_155__CLASS_OBJCLOCCV)); /*inistring dstr_156__CLASS_OBJCLOCCV*/ /*_.VALSTR___V274*/ curfptr[273] = (void*)&cdat->dstr_156__CLASS_OBJCLOCCV; cdat->dstr_156__CLASS_OBJCLOCCV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_156__CLASS_OBJCLOCCV.val, "CLASS_OBJCLOCCV"); /*inirout drout_157__OUTPUCOD_OBJCONSTV*/ /*_.VALROUT___V275*/ curfptr[274] = (void*)&cdat->drout_157__OUTPUCOD_OBJCONSTV; cdat->drout_157__OUTPUCOD_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_157__OUTPUCOD_OBJCONSTV.routdescr, "OUTPUCOD_OBJCONSTV @warmelt-outobj.bysl:1264", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_157__OUTPUCOD_OBJCONSTV.nbval = 3; *(basilysroutfun_t **) (cdat->drout_157__OUTPUCOD_OBJCONSTV.routaddr) = rout_44_OUTPUCOD_OBJCONSTV; /*iniclos dclo_158__OUTPUCOD_OBJCONSTV*/ /*_.VALCLO___V276*/ curfptr[275] = (void*)&cdat->dclo_158__OUTPUCOD_OBJCONSTV; cdat->dclo_158__OUTPUCOD_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_158__OUTPUCOD_OBJCONSTV.nbval = 0; /*iniobj dsym_159__CLASS_OBJCONSTV*/ if (!/*_.VALDATA___V277*/ curfptr[276]) /*_.VALDATA___V277*/ curfptr[276] = (void*)&cdat->dsym_159__CLASS_OBJCONSTV; basilys_assertmsg("iniobj checkdiscr dsym_159__CLASS_OBJCONSTV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_159__CLASS_OBJCONSTV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_159__CLASS_OBJCONSTV.obj_hash = 125371776; cdat->dsym_159__CLASS_OBJCONSTV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_159__CLASS_OBJCONSTV)); /*inistring dstr_160__CLASS_OBJCONSTV*/ /*_.VALSTR___V278*/ curfptr[277] = (void*)&cdat->dstr_160__CLASS_OBJCONSTV; cdat->dstr_160__CLASS_OBJCONSTV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_160__CLASS_OBJCONSTV.val, "CLASS_OBJCONSTV"); /*inirout drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*_.VALROUT___V279*/ curfptr[278] = (void*)&cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST; cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST.routdescr, "OUTPUT_CODE_INSTRUCTIONS_LIST @warmelt-outobj.bysl:1282", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 4; *(basilysroutfun_t **) (cdat->drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST.routaddr) = rout_45_OUTPUT_CODE_INSTRUCTIONS_LIST; /*iniclos dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST*/ /*_.VALCLO___V281*/ curfptr[280] = (void*)&cdat->dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST; cdat->dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_162__OUTPUT_CODE_INSTRUCTIONS_LIST.nbval = 0; /*inirout drout_163__LAMBDA_*/ /*_.VALROUT___V280*/ curfptr[279] = (void*)&cdat->drout_163__LAMBDA_; cdat->drout_163__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_163__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1287", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_163__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_163__LAMBDA_.routaddr) = rout_46_LAMBDA_; /*inirout drout_164__OUTPUCOD_OBJBLOCK*/ /*_.VALROUT___V282*/ curfptr[281] = (void*)&cdat->drout_164__OUTPUCOD_OBJBLOCK; cdat->drout_164__OUTPUCOD_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_164__OUTPUCOD_OBJBLOCK.routdescr, "OUTPUCOD_OBJBLOCK @warmelt-outobj.bysl:1299", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_164__OUTPUCOD_OBJBLOCK.nbval = 5; *(basilysroutfun_t **) (cdat->drout_164__OUTPUCOD_OBJBLOCK.routaddr) = rout_47_OUTPUCOD_OBJBLOCK; /*iniclos dclo_165__OUTPUCOD_OBJBLOCK*/ /*_.VALCLO___V283*/ curfptr[282] = (void*)&cdat->dclo_165__OUTPUCOD_OBJBLOCK; cdat->dclo_165__OUTPUCOD_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_165__OUTPUCOD_OBJBLOCK.nbval = 0; /*iniobj dsym_166__CLASS_OBJBLOCK*/ if (!/*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*)&cdat->dsym_166__CLASS_OBJBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_166__CLASS_OBJBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_166__CLASS_OBJBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_166__CLASS_OBJBLOCK.obj_hash = 827902126; cdat->dsym_166__CLASS_OBJBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_166__CLASS_OBJBLOCK)); /*inistring dstr_167__CLASS_OBJBLOCK*/ /*_.VALSTR___V285*/ curfptr[284] = (void*)&cdat->dstr_167__CLASS_OBJBLOCK; cdat->dstr_167__CLASS_OBJBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_167__CLASS_OBJBLOCK.val, "CLASS_OBJBLOCK"); /*iniobj dsym_168__DISCR_INTEGER*/ if (!/*_.VALDATA___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*)&cdat->dsym_168__DISCR_INTEGER; basilys_assertmsg("iniobj checkdiscr dsym_168__DISCR_INTEGER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_168__DISCR_INTEGER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_168__DISCR_INTEGER.obj_hash = 119182103; cdat->dsym_168__DISCR_INTEGER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_168__DISCR_INTEGER)); /*inistring dstr_169__DISCR_INTEGER*/ /*_.VALSTR___V287*/ curfptr[286] = (void*)&cdat->dstr_169__DISCR_INTEGER; cdat->dstr_169__DISCR_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_169__DISCR_INTEGER.val, "DISCR_INTEGER"); /*inirout drout_170__OUTPUCOD_OBJCITERBLOCK*/ /*_.VALROUT___V288*/ curfptr[287] = (void*)&cdat->drout_170__OUTPUCOD_OBJCITERBLOCK; cdat->drout_170__OUTPUCOD_OBJCITERBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_170__OUTPUCOD_OBJCITERBLOCK.routdescr, "OUTPUCOD_OBJCITERBLOCK @warmelt-outobj.bysl:1323", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_170__OUTPUCOD_OBJCITERBLOCK.nbval = 11; *(basilysroutfun_t **) (cdat->drout_170__OUTPUCOD_OBJCITERBLOCK.routaddr) = rout_48_OUTPUCOD_OBJCITERBLOCK; /*iniclos dclo_171__OUTPUCOD_OBJCITERBLOCK*/ /*_.VALCLO___V291*/ curfptr[290] = (void*)&cdat->dclo_171__OUTPUCOD_OBJCITERBLOCK; cdat->dclo_171__OUTPUCOD_OBJCITERBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_171__OUTPUCOD_OBJCITERBLOCK.nbval = 0; /*iniobj dsym_172__CLASS_OBJCITERBLOCK*/ if (!/*_.VALDATA___V292*/ curfptr[291]) /*_.VALDATA___V292*/ curfptr[291] = (void*)&cdat->dsym_172__CLASS_OBJCITERBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_172__CLASS_OBJCITERBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_172__CLASS_OBJCITERBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_172__CLASS_OBJCITERBLOCK.obj_hash = 897861098; cdat->dsym_172__CLASS_OBJCITERBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_172__CLASS_OBJCITERBLOCK)); /*inistring dstr_173__CLASS_OBJCITERBL*/ /*_.VALSTR___V293*/ curfptr[292] = (void*)&cdat->dstr_173__CLASS_OBJCITERBL; cdat->dstr_173__CLASS_OBJCITERBL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_173__CLASS_OBJCITERBL.val, "CLASS_OBJCITERBLOCK"); /*iniobj dsym_174__CLASS_CITERATOR*/ if (!/*_.VALDATA___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (void*)&cdat->dsym_174__CLASS_CITERATOR; basilys_assertmsg("iniobj checkdiscr dsym_174__CLASS_CITERATOR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_174__CLASS_CITERATOR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_174__CLASS_CITERATOR.obj_hash = 650290054; cdat->dsym_174__CLASS_CITERATOR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_174__CLASS_CITERATOR)); /*inistring dstr_175__CLASS_CITERATOR*/ /*_.VALSTR___V295*/ curfptr[294] = (void*)&cdat->dstr_175__CLASS_CITERATOR; cdat->dstr_175__CLASS_CITERATOR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_175__CLASS_CITERATOR.val, "CLASS_CITERATOR"); /*inirout drout_176__LAMBDA_*/ /*_.VALROUT___V289*/ curfptr[288] = (void*)&cdat->drout_176__LAMBDA_; cdat->drout_176__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_176__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1343", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_176__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_176__LAMBDA_.routaddr) = rout_49_LAMBDA_; /*inirout drout_177__LAMBDA_*/ /*_.VALROUT___V290*/ curfptr[289] = (void*)&cdat->drout_177__LAMBDA_; cdat->drout_177__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_177__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1354", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_177__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_177__LAMBDA_.routaddr) = rout_50_LAMBDA_; /*inirout drout_178__OUTPUCOD_OBJCOMMENTINSTR*/ /*_.VALROUT___V296*/ curfptr[295] = (void*)&cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR; cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR.routdescr, "OUTPUCOD_OBJCOMMENTINSTR @warmelt-outobj.bysl:1373", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR.nbval = 4; *(basilysroutfun_t **) (cdat->drout_178__OUTPUCOD_OBJCOMMENTINSTR.routaddr) = rout_51_OUTPUCOD_OBJCOMMENTINSTR; /*iniclos dclo_179__OUTPUCOD_OBJCOMMENTINSTR*/ /*_.VALCLO___V297*/ curfptr[296] = (void*)&cdat->dclo_179__OUTPUCOD_OBJCOMMENTINSTR; cdat->dclo_179__OUTPUCOD_OBJCOMMENTINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_179__OUTPUCOD_OBJCOMMENTINSTR.nbval = 0; /*iniobj dsym_180__CLASS_OBJCOMMENTINSTR*/ if (!/*_.VALDATA___V298*/ curfptr[297]) /*_.VALDATA___V298*/ curfptr[297] = (void*)&cdat->dsym_180__CLASS_OBJCOMMENTINSTR; basilys_assertmsg("iniobj checkdiscr dsym_180__CLASS_OBJCOMMENTINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_180__CLASS_OBJCOMMENTINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_180__CLASS_OBJCOMMENTINSTR.obj_hash = 564818642; cdat->dsym_180__CLASS_OBJCOMMENTINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_180__CLASS_OBJCOMMENTINSTR)); /*inistring dstr_181__CLASS_OBJCOMMENT*/ /*_.VALSTR___V299*/ curfptr[298] = (void*)&cdat->dstr_181__CLASS_OBJCOMMENT; cdat->dstr_181__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_181__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTINSTR"); /*iniobj dsym_182__DISCR_STRBUF*/ if (!/*_.VALDATA___V300*/ curfptr[299]) /*_.VALDATA___V300*/ curfptr[299] = (void*)&cdat->dsym_182__DISCR_STRBUF; basilys_assertmsg("iniobj checkdiscr dsym_182__DISCR_STRBUF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_182__DISCR_STRBUF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_182__DISCR_STRBUF.obj_hash = 492035674; cdat->dsym_182__DISCR_STRBUF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_182__DISCR_STRBUF)); /*inistring dstr_183__DISCR_STRBUF*/ /*_.VALSTR___V301*/ curfptr[300] = (void*)&cdat->dstr_183__DISCR_STRBUF; cdat->dstr_183__DISCR_STRBUF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_183__DISCR_STRBUF.val, "DISCR_STRBUF"); /*inirout drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*_.VALROUT___V302*/ curfptr[301] = (void*)&cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK; cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK.routdescr, "OUTPUCOD_OBJCOMMENTEDBLOCK @warmelt-outobj.bysl:1392", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 7; *(basilysroutfun_t **) (cdat->drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK.routaddr) = rout_52_OUTPUCOD_OBJCOMMENTEDBLOCK; /*iniclos dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK*/ /*_.VALCLO___V303*/ curfptr[302] = (void*)&cdat->dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK; cdat->dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_185__OUTPUCOD_OBJCOMMENTEDBLOCK.nbval = 0; /*iniobj dsym_186__CLASS_OBJCOMMENTEDBLOCK*/ if (!/*_.VALDATA___V304*/ curfptr[303]) /*_.VALDATA___V304*/ curfptr[303] = (void*)&cdat->dsym_186__CLASS_OBJCOMMENTEDBLOCK; basilys_assertmsg("iniobj checkdiscr dsym_186__CLASS_OBJCOMMENTEDBLOCK", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_186__CLASS_OBJCOMMENTEDBLOCK.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_186__CLASS_OBJCOMMENTEDBLOCK.obj_hash = 94800260; cdat->dsym_186__CLASS_OBJCOMMENTEDBLOCK.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_186__CLASS_OBJCOMMENTEDBLOCK)); /*inistring dstr_187__CLASS_OBJCOMMENT*/ /*_.VALSTR___V305*/ curfptr[304] = (void*)&cdat->dstr_187__CLASS_OBJCOMMENT; cdat->dstr_187__CLASS_OBJCOMMENT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_187__CLASS_OBJCOMMENT.val, "CLASS_OBJCOMMENTEDBLOCK"); /*inirout drout_188__ADD2SBUF_CLONSYM*/ /*_.VALROUT___V306*/ curfptr[305] = (void*)&cdat->drout_188__ADD2SBUF_CLONSYM; cdat->drout_188__ADD2SBUF_CLONSYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_188__ADD2SBUF_CLONSYM.routdescr, "ADD2SBUF_CLONSYM @warmelt-outobj.bysl:1429", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_188__ADD2SBUF_CLONSYM.nbval = 1; *(basilysroutfun_t **) (cdat->drout_188__ADD2SBUF_CLONSYM.routaddr) = rout_53_ADD2SBUF_CLONSYM; /*iniclos dclo_189__ADD2SBUF_CLONSYM*/ /*_.VALCLO___V307*/ curfptr[306] = (void*)&cdat->dclo_189__ADD2SBUF_CLONSYM; cdat->dclo_189__ADD2SBUF_CLONSYM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_189__ADD2SBUF_CLONSYM.nbval = 0; /*iniobj dsym_190__CLASS_CLONEDSYMBOL*/ if (!/*_.VALDATA___V308*/ curfptr[307]) /*_.VALDATA___V308*/ curfptr[307] = (void*)&cdat->dsym_190__CLASS_CLONEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_190__CLASS_CLONEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_190__CLASS_CLONEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_190__CLASS_CLONEDSYMBOL.obj_hash = 101008864; cdat->dsym_190__CLASS_CLONEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_190__CLASS_CLONEDSYMBOL)); /*inistring dstr_191__CLASS_CLONEDSYMB*/ /*_.VALSTR___V309*/ curfptr[308] = (void*)&cdat->dstr_191__CLASS_CLONEDSYMB; cdat->dstr_191__CLASS_CLONEDSYMB.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_191__CLASS_CLONEDSYMB.val, "CLASS_CLONEDSYMBOL"); /*inirout drout_192__OUTPUCOD_OBJLOOP*/ /*_.VALROUT___V310*/ curfptr[309] = (void*)&cdat->drout_192__OUTPUCOD_OBJLOOP; cdat->drout_192__OUTPUCOD_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_192__OUTPUCOD_OBJLOOP.routdescr, "OUTPUCOD_OBJLOOP @warmelt-outobj.bysl:1440", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_192__OUTPUCOD_OBJLOOP.nbval = 13; *(basilysroutfun_t **) (cdat->drout_192__OUTPUCOD_OBJLOOP.routaddr) = rout_54_OUTPUCOD_OBJLOOP; /*iniclos dclo_193__OUTPUCOD_OBJLOOP*/ /*_.VALCLO___V313*/ curfptr[312] = (void*)&cdat->dclo_193__OUTPUCOD_OBJLOOP; cdat->dclo_193__OUTPUCOD_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_193__OUTPUCOD_OBJLOOP.nbval = 0; /*iniobj dsym_194__CLASS_OBJLOOP*/ if (!/*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*)&cdat->dsym_194__CLASS_OBJLOOP; basilys_assertmsg("iniobj checkdiscr dsym_194__CLASS_OBJLOOP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_194__CLASS_OBJLOOP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_194__CLASS_OBJLOOP.obj_hash = 763853388; cdat->dsym_194__CLASS_OBJLOOP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_194__CLASS_OBJLOOP)); /*inistring dstr_195__CLASS_OBJLOOP*/ /*_.VALSTR___V315*/ curfptr[314] = (void*)&cdat->dstr_195__CLASS_OBJLOOP; cdat->dstr_195__CLASS_OBJLOOP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_195__CLASS_OBJLOOP.val, "CLASS_OBJLOOP"); /*inirout drout_196__LAMBDA_*/ /*_.VALROUT___V311*/ curfptr[310] = (void*)&cdat->drout_196__LAMBDA_; cdat->drout_196__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_196__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1460", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_196__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_196__LAMBDA_.routaddr) = rout_55_LAMBDA_; /*inirout drout_197__LAMBDA_*/ /*_.VALROUT___V312*/ curfptr[311] = (void*)&cdat->drout_197__LAMBDA_; cdat->drout_197__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_197__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1482", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_197__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_197__LAMBDA_.routaddr) = rout_56_LAMBDA_; /*inirout drout_198__OUTPUCOD_OBJEXIT*/ /*_.VALROUT___V316*/ curfptr[315] = (void*)&cdat->drout_198__OUTPUCOD_OBJEXIT; cdat->drout_198__OUTPUCOD_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_198__OUTPUCOD_OBJEXIT.routdescr, "OUTPUCOD_OBJEXIT @warmelt-outobj.bysl:1497", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_198__OUTPUCOD_OBJEXIT.nbval = 5; *(basilysroutfun_t **) (cdat->drout_198__OUTPUCOD_OBJEXIT.routaddr) = rout_57_OUTPUCOD_OBJEXIT; /*iniclos dclo_199__OUTPUCOD_OBJEXIT*/ /*_.VALCLO___V317*/ curfptr[316] = (void*)&cdat->dclo_199__OUTPUCOD_OBJEXIT; cdat->dclo_199__OUTPUCOD_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_199__OUTPUCOD_OBJEXIT.nbval = 0; /*iniobj dsym_200__CLASS_OBJEXIT*/ if (!/*_.VALDATA___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (void*)&cdat->dsym_200__CLASS_OBJEXIT; basilys_assertmsg("iniobj checkdiscr dsym_200__CLASS_OBJEXIT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_200__CLASS_OBJEXIT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_200__CLASS_OBJEXIT.obj_hash = 635210442; cdat->dsym_200__CLASS_OBJEXIT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_200__CLASS_OBJEXIT)); /*inistring dstr_201__CLASS_OBJEXIT*/ /*_.VALSTR___V319*/ curfptr[318] = (void*)&cdat->dstr_201__CLASS_OBJEXIT; cdat->dstr_201__CLASS_OBJEXIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_201__CLASS_OBJEXIT.val, "CLASS_OBJEXIT"); /*inirout drout_202__OUTPUCOD_OBJCOMPUTE*/ /*_.VALROUT___V320*/ curfptr[319] = (void*)&cdat->drout_202__OUTPUCOD_OBJCOMPUTE; cdat->drout_202__OUTPUCOD_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_202__OUTPUCOD_OBJCOMPUTE.routdescr, "OUTPUCOD_OBJCOMPUTE @warmelt-outobj.bysl:1515", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_202__OUTPUCOD_OBJCOMPUTE.nbval = 13; *(basilysroutfun_t **) (cdat->drout_202__OUTPUCOD_OBJCOMPUTE.routaddr) = rout_58_OUTPUCOD_OBJCOMPUTE; /*iniclos dclo_203__OUTPUCOD_OBJCOMPUTE*/ /*_.VALCLO___V324*/ curfptr[323] = (void*)&cdat->dclo_203__OUTPUCOD_OBJCOMPUTE; cdat->dclo_203__OUTPUCOD_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_203__OUTPUCOD_OBJCOMPUTE.nbval = 0; /*iniobj dsym_204__CLASS_OBJCOMPUTE*/ if (!/*_.VALDATA___V325*/ curfptr[324]) /*_.VALDATA___V325*/ curfptr[324] = (void*)&cdat->dsym_204__CLASS_OBJCOMPUTE; basilys_assertmsg("iniobj checkdiscr dsym_204__CLASS_OBJCOMPUTE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_204__CLASS_OBJCOMPUTE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_204__CLASS_OBJCOMPUTE.obj_hash = 943434547; cdat->dsym_204__CLASS_OBJCOMPUTE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_204__CLASS_OBJCOMPUTE)); /*inistring dstr_205__CLASS_OBJCOMPUTE*/ /*_.VALSTR___V326*/ curfptr[325] = (void*)&cdat->dstr_205__CLASS_OBJCOMPUTE; cdat->dstr_205__CLASS_OBJCOMPUTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_205__CLASS_OBJCOMPUTE.val, "CLASS_OBJCOMPUTE"); /*inirout drout_206__LAMBDA_*/ /*_.VALROUT___V321*/ curfptr[320] = (void*)&cdat->drout_206__LAMBDA_; cdat->drout_206__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_206__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1527", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_206__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_206__LAMBDA_.routaddr) = rout_59_LAMBDA_; /*inirout drout_207__LAMBDA_*/ /*_.VALROUT___V322*/ curfptr[321] = (void*)&cdat->drout_207__LAMBDA_; cdat->drout_207__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_207__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1536", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_207__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_207__LAMBDA_.routaddr) = rout_60_LAMBDA_; /*inirout drout_208__LAMBDA_*/ /*_.VALROUT___V323*/ curfptr[322] = (void*)&cdat->drout_208__LAMBDA_; cdat->drout_208__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_208__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1543", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_208__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_208__LAMBDA_.routaddr) = rout_61_LAMBDA_; /*inirout drout_209__OUTPUCOD_OBJCOND*/ /*_.VALROUT___V327*/ curfptr[326] = (void*)&cdat->drout_209__OUTPUCOD_OBJCOND; cdat->drout_209__OUTPUCOD_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_209__OUTPUCOD_OBJCOND.routdescr, "OUTPUCOD_OBJCOND @warmelt-outobj.bysl:1554", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_209__OUTPUCOD_OBJCOND.nbval = 5; *(basilysroutfun_t **) (cdat->drout_209__OUTPUCOD_OBJCOND.routaddr) = rout_62_OUTPUCOD_OBJCOND; /*iniclos dclo_210__OUTPUCOD_OBJCOND*/ /*_.VALCLO___V328*/ curfptr[327] = (void*)&cdat->dclo_210__OUTPUCOD_OBJCOND; cdat->dclo_210__OUTPUCOD_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_210__OUTPUCOD_OBJCOND.nbval = 0; /*iniobj dsym_211__CLASS_OBJCOND*/ if (!/*_.VALDATA___V329*/ curfptr[328]) /*_.VALDATA___V329*/ curfptr[328] = (void*)&cdat->dsym_211__CLASS_OBJCOND; basilys_assertmsg("iniobj checkdiscr dsym_211__CLASS_OBJCOND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__CLASS_OBJCOND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_211__CLASS_OBJCOND.obj_hash = 545823211; cdat->dsym_211__CLASS_OBJCOND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_211__CLASS_OBJCOND)); /*inistring dstr_212__CLASS_OBJCOND*/ /*_.VALSTR___V330*/ curfptr[329] = (void*)&cdat->dstr_212__CLASS_OBJCOND; cdat->dstr_212__CLASS_OBJCOND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_212__CLASS_OBJCOND.val, "CLASS_OBJCOND"); /*inirout drout_213__OUTPUCOD_OBJCPPIF*/ /*_.VALROUT___V331*/ curfptr[330] = (void*)&cdat->drout_213__OUTPUCOD_OBJCPPIF; cdat->drout_213__OUTPUCOD_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_213__OUTPUCOD_OBJCPPIF.routdescr, "OUTPUCOD_OBJCPPIF @warmelt-outobj.bysl:1596", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_213__OUTPUCOD_OBJCPPIF.nbval = 5; *(basilysroutfun_t **) (cdat->drout_213__OUTPUCOD_OBJCPPIF.routaddr) = rout_63_OUTPUCOD_OBJCPPIF; /*iniclos dclo_214__OUTPUCOD_OBJCPPIF*/ /*_.VALCLO___V332*/ curfptr[331] = (void*)&cdat->dclo_214__OUTPUCOD_OBJCPPIF; cdat->dclo_214__OUTPUCOD_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_214__OUTPUCOD_OBJCPPIF.nbval = 0; /*iniobj dsym_215__CLASS_OBJCPPIF*/ if (!/*_.VALDATA___V333*/ curfptr[332]) /*_.VALDATA___V333*/ curfptr[332] = (void*)&cdat->dsym_215__CLASS_OBJCPPIF; basilys_assertmsg("iniobj checkdiscr dsym_215__CLASS_OBJCPPIF", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_OBJCPPIF.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_215__CLASS_OBJCPPIF.obj_hash = 418843843; cdat->dsym_215__CLASS_OBJCPPIF.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_215__CLASS_OBJCPPIF)); /*inistring dstr_216__CLASS_OBJCPPIF*/ /*_.VALSTR___V334*/ curfptr[333] = (void*)&cdat->dstr_216__CLASS_OBJCPPIF; cdat->dstr_216__CLASS_OBJCPPIF.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_216__CLASS_OBJCPPIF.val, "CLASS_OBJCPPIF"); /*inirout drout_217__OUTPUCOD_OBJINTERNSYMBOL*/ /*_.VALROUT___V335*/ curfptr[334] = (void*)&cdat->drout_217__OUTPUCOD_OBJINTERNSYMBOL; cdat->drout_217__OUTPUCOD_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_217__OUTPUCOD_OBJINTERNSYMBOL.routdescr, "OUTPUCOD_OBJINTERNSYMBOL @warmelt-outobj.bysl:1628", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_217__OUTPUCOD_OBJINTERNSYMBOL.nbval = 6; *(basilysroutfun_t **) (cdat->drout_217__OUTPUCOD_OBJINTERNSYMBOL.routaddr) = rout_64_OUTPUCOD_OBJINTERNSYMBOL; /*iniclos dclo_218__OUTPUCOD_OBJINTERNSYMBOL*/ /*_.VALCLO___V336*/ curfptr[335] = (void*)&cdat->dclo_218__OUTPUCOD_OBJINTERNSYMBOL; cdat->dclo_218__OUTPUCOD_OBJINTERNSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_218__OUTPUCOD_OBJINTERNSYMBOL.nbval = 0; /*iniobj dsym_219__CLASS_OBJINTERNSYMBOL*/ if (!/*_.VALDATA___V337*/ curfptr[336]) /*_.VALDATA___V337*/ curfptr[336] = (void*)&cdat->dsym_219__CLASS_OBJINTERNSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_219__CLASS_OBJINTERNSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_219__CLASS_OBJINTERNSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_219__CLASS_OBJINTERNSYMBOL.obj_hash = 881953204; cdat->dsym_219__CLASS_OBJINTERNSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_219__CLASS_OBJINTERNSYMBOL)); /*inistring dstr_220__CLASS_OBJINTERNS*/ /*_.VALSTR___V338*/ curfptr[337] = (void*)&cdat->dstr_220__CLASS_OBJINTERNS; cdat->dstr_220__CLASS_OBJINTERNS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_220__CLASS_OBJINTERNS.val, "CLASS_OBJINTERNSYMBOL"); /*iniobj dsym_221__CLASS_NREP_DATASYMBOL*/ if (!/*_.VALDATA___V339*/ curfptr[338]) /*_.VALDATA___V339*/ curfptr[338] = (void*)&cdat->dsym_221__CLASS_NREP_DATASYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_221__CLASS_NREP_DATASYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__CLASS_NREP_DATASYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_221__CLASS_NREP_DATASYMBOL.obj_hash = 55902456; cdat->dsym_221__CLASS_NREP_DATASYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_221__CLASS_NREP_DATASYMBOL)); /*inistring dstr_222__CLASS_NREP_DATAS*/ /*_.VALSTR___V340*/ curfptr[339] = (void*)&cdat->dstr_222__CLASS_NREP_DATAS; cdat->dstr_222__CLASS_NREP_DATAS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_222__CLASS_NREP_DATAS.val, "CLASS_NREP_DATASYMBOL"); /*inirout drout_223__OUTPUCOD_OBJINTERNKEYWORD*/ /*_.VALROUT___V341*/ curfptr[340] = (void*)&cdat->drout_223__OUTPUCOD_OBJINTERNKEYWORD; cdat->drout_223__OUTPUCOD_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_223__OUTPUCOD_OBJINTERNKEYWORD.routdescr, "OUTPUCOD_OBJINTERNKEYWORD @warmelt-outobj.bysl:1652", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_223__OUTPUCOD_OBJINTERNKEYWORD.nbval = 5; *(basilysroutfun_t **) (cdat->drout_223__OUTPUCOD_OBJINTERNKEYWORD.routaddr) = rout_65_OUTPUCOD_OBJINTERNKEYWORD; /*iniclos dclo_224__OUTPUCOD_OBJINTERNKEYWORD*/ /*_.VALCLO___V342*/ curfptr[341] = (void*)&cdat->dclo_224__OUTPUCOD_OBJINTERNKEYWORD; cdat->dclo_224__OUTPUCOD_OBJINTERNKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_224__OUTPUCOD_OBJINTERNKEYWORD.nbval = 0; /*iniobj dsym_225__CLASS_OBJINTERNKEYWORD*/ if (!/*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*)&cdat->dsym_225__CLASS_OBJINTERNKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_225__CLASS_OBJINTERNKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__CLASS_OBJINTERNKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_225__CLASS_OBJINTERNKEYWORD.obj_hash = 606725080; cdat->dsym_225__CLASS_OBJINTERNKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_225__CLASS_OBJINTERNKEYWORD)); /*inistring dstr_226__CLASS_OBJINTERNK*/ /*_.VALSTR___V344*/ curfptr[343] = (void*)&cdat->dstr_226__CLASS_OBJINTERNK; cdat->dstr_226__CLASS_OBJINTERNK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_226__CLASS_OBJINTERNK.val, "CLASS_OBJINTERNKEYWORD"); /*iniobj dsym_227__CLASS_NREP_DATAKEYWORD*/ if (!/*_.VALDATA___V345*/ curfptr[344]) /*_.VALDATA___V345*/ curfptr[344] = (void*)&cdat->dsym_227__CLASS_NREP_DATAKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_227__CLASS_NREP_DATAKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__CLASS_NREP_DATAKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_227__CLASS_NREP_DATAKEYWORD.obj_hash = 755124591; cdat->dsym_227__CLASS_NREP_DATAKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_227__CLASS_NREP_DATAKEYWORD)); /*inistring dstr_228__CLASS_NREP_DATAK*/ /*_.VALSTR___V346*/ curfptr[345] = (void*)&cdat->dstr_228__CLASS_NREP_DATAK; cdat->dstr_228__CLASS_NREP_DATAK.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_228__CLASS_NREP_DATAK.val, "CLASS_NREP_DATAKEYWORD"); /*inirout drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*_.VALROUT___V347*/ curfptr[346] = (void*)&cdat->drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL; cdat->drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL.routdescr, "OUTPUCOD_OBJGETNAMEDSYMBOL @warmelt-outobj.bysl:1675", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 6; *(basilysroutfun_t **) (cdat->drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL.routaddr) = rout_66_OUTPUCOD_OBJGETNAMEDSYMBOL; /*iniclos dclo_230__OUTPUCOD_OBJGETNAMEDSYMBOL*/ /*_.VALCLO___V348*/ curfptr[347] = (void*)&cdat->dclo_230__OUTPUCOD_OBJGETNAMEDSYMBOL; cdat->dclo_230__OUTPUCOD_OBJGETNAMEDSYMBOL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_230__OUTPUCOD_OBJGETNAMEDSYMBOL.nbval = 0; /*iniobj dsym_231__CLASS_OBJGETNAMEDSYMBOL*/ if (!/*_.VALDATA___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (void*)&cdat->dsym_231__CLASS_OBJGETNAMEDSYMBOL; basilys_assertmsg("iniobj checkdiscr dsym_231__CLASS_OBJGETNAMEDSYMBOL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_231__CLASS_OBJGETNAMEDSYMBOL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_231__CLASS_OBJGETNAMEDSYMBOL.obj_hash = 552748717; cdat->dsym_231__CLASS_OBJGETNAMEDSYMBOL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_231__CLASS_OBJGETNAMEDSYMBOL)); /*inistring dstr_232__CLASS_OBJGETNAME*/ /*_.VALSTR___V350*/ curfptr[349] = (void*)&cdat->dstr_232__CLASS_OBJGETNAME; cdat->dstr_232__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_232__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDSYMBOL"); /*inirout drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*_.VALROUT___V351*/ curfptr[350] = (void*)&cdat->drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD; cdat->drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD.routdescr, "OUTPUCOD_OBJGETNAMEDKEYWORD @warmelt-outobj.bysl:1713", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 6; *(basilysroutfun_t **) (cdat->drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD.routaddr) = rout_67_OUTPUCOD_OBJGETNAMEDKEYWORD; /*iniclos dclo_234__OUTPUCOD_OBJGETNAMEDKEYWORD*/ /*_.VALCLO___V352*/ curfptr[351] = (void*)&cdat->dclo_234__OUTPUCOD_OBJGETNAMEDKEYWORD; cdat->dclo_234__OUTPUCOD_OBJGETNAMEDKEYWORD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_234__OUTPUCOD_OBJGETNAMEDKEYWORD.nbval = 0; /*iniobj dsym_235__CLASS_OBJGETNAMEDKEYWORD*/ if (!/*_.VALDATA___V353*/ curfptr[352]) /*_.VALDATA___V353*/ curfptr[352] = (void*)&cdat->dsym_235__CLASS_OBJGETNAMEDKEYWORD; basilys_assertmsg("iniobj checkdiscr dsym_235__CLASS_OBJGETNAMEDKEYWORD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_OBJGETNAMEDKEYWORD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_235__CLASS_OBJGETNAMEDKEYWORD.obj_hash = 877025959; cdat->dsym_235__CLASS_OBJGETNAMEDKEYWORD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_235__CLASS_OBJGETNAMEDKEYWORD)); /*inistring dstr_236__CLASS_OBJGETNAME*/ /*_.VALSTR___V354*/ curfptr[353] = (void*)&cdat->dstr_236__CLASS_OBJGETNAME; cdat->dstr_236__CLASS_OBJGETNAME.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_236__CLASS_OBJGETNAME.val, "CLASS_OBJGETNAMEDKEYWORD"); /*inirout drout_237__OUTPUCOD_OBJAPPLY*/ /*_.VALROUT___V355*/ curfptr[354] = (void*)&cdat->drout_237__OUTPUCOD_OBJAPPLY; cdat->drout_237__OUTPUCOD_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_237__OUTPUCOD_OBJAPPLY.routdescr, "OUTPUCOD_OBJAPPLY @warmelt-outobj.bysl:1748", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_237__OUTPUCOD_OBJAPPLY.nbval = 20; *(basilysroutfun_t **) (cdat->drout_237__OUTPUCOD_OBJAPPLY.routaddr) = rout_68_OUTPUCOD_OBJAPPLY; /*iniclos dclo_238__OUTPUCOD_OBJAPPLY*/ /*_.VALCLO___V359*/ curfptr[358] = (void*)&cdat->dclo_238__OUTPUCOD_OBJAPPLY; cdat->dclo_238__OUTPUCOD_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_238__OUTPUCOD_OBJAPPLY.nbval = 0; /*iniobj dsym_239__CLASS_OBJAPPLY*/ if (!/*_.VALDATA___V360*/ curfptr[359]) /*_.VALDATA___V360*/ curfptr[359] = (void*)&cdat->dsym_239__CLASS_OBJAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_239__CLASS_OBJAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_OBJAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_239__CLASS_OBJAPPLY.obj_hash = 734111989; cdat->dsym_239__CLASS_OBJAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_239__CLASS_OBJAPPLY)); /*inistring dstr_240__CLASS_OBJAPPLY*/ /*_.VALSTR___V361*/ curfptr[360] = (void*)&cdat->dstr_240__CLASS_OBJAPPLY; cdat->dstr_240__CLASS_OBJAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_240__CLASS_OBJAPPLY.val, "CLASS_OBJAPPLY"); /*iniobj dsym_241__DISCR_LIST*/ if (!/*_.VALDATA___V362*/ curfptr[361]) /*_.VALDATA___V362*/ curfptr[361] = (void*)&cdat->dsym_241__DISCR_LIST; basilys_assertmsg("iniobj checkdiscr dsym_241__DISCR_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__DISCR_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_241__DISCR_LIST.obj_hash = 98407634; cdat->dsym_241__DISCR_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_241__DISCR_LIST)); /*inistring dstr_242__DISCR_LIST*/ /*_.VALSTR___V363*/ curfptr[362] = (void*)&cdat->dstr_242__DISCR_LIST; cdat->dstr_242__DISCR_LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_242__DISCR_LIST.val, "DISCR_LIST"); /*inirout drout_243__LAMBDA_*/ /*_.VALROUT___V356*/ curfptr[355] = (void*)&cdat->drout_243__LAMBDA_; cdat->drout_243__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_243__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1774", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_243__LAMBDA_.nbval = 8; *(basilysroutfun_t **) (cdat->drout_243__LAMBDA_.routaddr) = rout_69_LAMBDA_; /*iniobj dsym_244__CLASS_OBJINSTR*/ if (!/*_.VALDATA___V364*/ curfptr[363]) /*_.VALDATA___V364*/ curfptr[363] = (void*)&cdat->dsym_244__CLASS_OBJINSTR; basilys_assertmsg("iniobj checkdiscr dsym_244__CLASS_OBJINSTR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_244__CLASS_OBJINSTR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_244__CLASS_OBJINSTR.obj_hash = 310627895; cdat->dsym_244__CLASS_OBJINSTR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_244__CLASS_OBJINSTR)); /*inistring dstr_245__CLASS_OBJINSTR*/ /*_.VALSTR___V365*/ curfptr[364] = (void*)&cdat->dstr_245__CLASS_OBJINSTR; cdat->dstr_245__CLASS_OBJINSTR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_245__CLASS_OBJINSTR.val, "CLASS_OBJINSTR"); /*iniobj dsym_246__GET_CTYPE*/ if (!/*_.VALDATA___V366*/ curfptr[365]) /*_.VALDATA___V366*/ curfptr[365] = (void*)&cdat->dsym_246__GET_CTYPE; basilys_assertmsg("iniobj checkdiscr dsym_246__GET_CTYPE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_246__GET_CTYPE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_246__GET_CTYPE.obj_hash = 747649571; cdat->dsym_246__GET_CTYPE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_246__GET_CTYPE)); /*inistring dstr_247__GET_CTYPE*/ /*_.VALSTR___V367*/ curfptr[366] = (void*)&cdat->dstr_247__GET_CTYPE; cdat->dstr_247__GET_CTYPE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_247__GET_CTYPE.val, "GET_CTYPE"); /*inirout drout_248__LAMBDA_*/ /*_.VALROUT___V357*/ curfptr[356] = (void*)&cdat->drout_248__LAMBDA_; cdat->drout_248__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_248__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1807", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_248__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_248__LAMBDA_.routaddr) = rout_70_LAMBDA_; /*inirout drout_249__LAMBDA_*/ /*_.VALROUT___V358*/ curfptr[357] = (void*)&cdat->drout_249__LAMBDA_; cdat->drout_249__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_249__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1822", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_249__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_249__LAMBDA_.routaddr) = rout_71_LAMBDA_; /*inirout drout_250__OUTPUCOD_OBJMSEND*/ /*_.VALROUT___V368*/ curfptr[367] = (void*)&cdat->drout_250__OUTPUCOD_OBJMSEND; cdat->drout_250__OUTPUCOD_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_250__OUTPUCOD_OBJMSEND.routdescr, "OUTPUCOD_OBJMSEND @warmelt-outobj.bysl:1842", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_250__OUTPUCOD_OBJMSEND.nbval = 19; *(basilysroutfun_t **) (cdat->drout_250__OUTPUCOD_OBJMSEND.routaddr) = rout_72_OUTPUCOD_OBJMSEND; /*iniclos dclo_251__OUTPUCOD_OBJMSEND*/ /*_.VALCLO___V372*/ curfptr[371] = (void*)&cdat->dclo_251__OUTPUCOD_OBJMSEND; cdat->dclo_251__OUTPUCOD_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_251__OUTPUCOD_OBJMSEND.nbval = 0; /*iniobj dsym_252__CLASS_OBJMSEND*/ if (!/*_.VALDATA___V373*/ curfptr[372]) /*_.VALDATA___V373*/ curfptr[372] = (void*)&cdat->dsym_252__CLASS_OBJMSEND; basilys_assertmsg("iniobj checkdiscr dsym_252__CLASS_OBJMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_252__CLASS_OBJMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_252__CLASS_OBJMSEND.obj_hash = 664056168; cdat->dsym_252__CLASS_OBJMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_252__CLASS_OBJMSEND)); /*inistring dstr_253__CLASS_OBJMSEND*/ /*_.VALSTR___V374*/ curfptr[373] = (void*)&cdat->dstr_253__CLASS_OBJMSEND; cdat->dstr_253__CLASS_OBJMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_253__CLASS_OBJMSEND.val, "CLASS_OBJMSEND"); /*inirout drout_254__LAMBDA_*/ /*_.VALROUT___V369*/ curfptr[368] = (void*)&cdat->drout_254__LAMBDA_; cdat->drout_254__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_254__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1871", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_254__LAMBDA_.nbval = 7; *(basilysroutfun_t **) (cdat->drout_254__LAMBDA_.routaddr) = rout_73_LAMBDA_; /*inirout drout_255__LAMBDA_*/ /*_.VALROUT___V370*/ curfptr[369] = (void*)&cdat->drout_255__LAMBDA_; cdat->drout_255__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_255__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1903", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_255__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_255__LAMBDA_.routaddr) = rout_74_LAMBDA_; /*inirout drout_256__LAMBDA_*/ /*_.VALROUT___V371*/ curfptr[370] = (void*)&cdat->drout_256__LAMBDA_; cdat->drout_256__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_256__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1914", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_256__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_256__LAMBDA_.routaddr) = rout_75_LAMBDA_; /*inirout drout_257__OUTPUCOD_OBJMULTIAPPLY*/ /*_.VALROUT___V375*/ curfptr[374] = (void*)&cdat->drout_257__OUTPUCOD_OBJMULTIAPPLY; cdat->drout_257__OUTPUCOD_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_257__OUTPUCOD_OBJMULTIAPPLY.routdescr, "OUTPUCOD_OBJMULTIAPPLY @warmelt-outobj.bysl:1933", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_257__OUTPUCOD_OBJMULTIAPPLY.nbval = 28; *(basilysroutfun_t **) (cdat->drout_257__OUTPUCOD_OBJMULTIAPPLY.routaddr) = rout_76_OUTPUCOD_OBJMULTIAPPLY; /*iniclos dclo_258__OUTPUCOD_OBJMULTIAPPLY*/ /*_.VALCLO___V382*/ curfptr[381] = (void*)&cdat->dclo_258__OUTPUCOD_OBJMULTIAPPLY; cdat->dclo_258__OUTPUCOD_OBJMULTIAPPLY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_258__OUTPUCOD_OBJMULTIAPPLY.nbval = 0; /*iniobj dsym_259__CLASS_OBJMULTIAPPLY*/ if (!/*_.VALDATA___V383*/ curfptr[382]) /*_.VALDATA___V383*/ curfptr[382] = (void*)&cdat->dsym_259__CLASS_OBJMULTIAPPLY; basilys_assertmsg("iniobj checkdiscr dsym_259__CLASS_OBJMULTIAPPLY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__CLASS_OBJMULTIAPPLY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_259__CLASS_OBJMULTIAPPLY.obj_hash = 718205837; cdat->dsym_259__CLASS_OBJMULTIAPPLY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_259__CLASS_OBJMULTIAPPLY)); /*inistring dstr_260__CLASS_OBJMULTIAP*/ /*_.VALSTR___V384*/ curfptr[383] = (void*)&cdat->dstr_260__CLASS_OBJMULTIAP; cdat->dstr_260__CLASS_OBJMULTIAP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_260__CLASS_OBJMULTIAP.val, "CLASS_OBJMULTIAPPLY"); /*inirout drout_261__LAMBDA_*/ /*_.VALROUT___V376*/ curfptr[375] = (void*)&cdat->drout_261__LAMBDA_; cdat->drout_261__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_261__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1980", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_261__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_261__LAMBDA_.routaddr) = rout_77_LAMBDA_; /*inirout drout_262__LAMBDA_*/ /*_.VALROUT___V377*/ curfptr[376] = (void*)&cdat->drout_262__LAMBDA_; cdat->drout_262__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_262__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:1990", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_262__LAMBDA_.nbval = 6; *(basilysroutfun_t **) (cdat->drout_262__LAMBDA_.routaddr) = rout_78_LAMBDA_; /*inirout drout_263__LAMBDA_*/ /*_.VALROUT___V378*/ curfptr[377] = (void*)&cdat->drout_263__LAMBDA_; cdat->drout_263__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_263__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2022", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_263__LAMBDA_.nbval = 6; *(basilysroutfun_t **) (cdat->drout_263__LAMBDA_.routaddr) = rout_79_LAMBDA_; /*inirout drout_264__LAMBDA_*/ /*_.VALROUT___V379*/ curfptr[378] = (void*)&cdat->drout_264__LAMBDA_; cdat->drout_264__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_264__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2050", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_264__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_264__LAMBDA_.routaddr) = rout_80_LAMBDA_; /*inirout drout_265__LAMBDA_*/ /*_.VALROUT___V380*/ curfptr[379] = (void*)&cdat->drout_265__LAMBDA_; cdat->drout_265__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_265__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2065", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_265__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_265__LAMBDA_.routaddr) = rout_81_LAMBDA_; /*inirout drout_266__LAMBDA_*/ /*_.VALROUT___V381*/ curfptr[380] = (void*)&cdat->drout_266__LAMBDA_; cdat->drout_266__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_266__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2076", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_266__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_266__LAMBDA_.routaddr) = rout_82_LAMBDA_; /*inirout drout_267__OUTPUCOD_OBJMULTIMSEND*/ /*_.VALROUT___V385*/ curfptr[384] = (void*)&cdat->drout_267__OUTPUCOD_OBJMULTIMSEND; cdat->drout_267__OUTPUCOD_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_267__OUTPUCOD_OBJMULTIMSEND.routdescr, "OUTPUCOD_OBJMULTIMSEND @warmelt-outobj.bysl:2096", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_267__OUTPUCOD_OBJMULTIMSEND.nbval = 28; *(basilysroutfun_t **) (cdat->drout_267__OUTPUCOD_OBJMULTIMSEND.routaddr) = rout_83_OUTPUCOD_OBJMULTIMSEND; /*iniclos dclo_268__OUTPUCOD_OBJMULTIMSEND*/ /*_.VALCLO___V392*/ curfptr[391] = (void*)&cdat->dclo_268__OUTPUCOD_OBJMULTIMSEND; cdat->dclo_268__OUTPUCOD_OBJMULTIMSEND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_268__OUTPUCOD_OBJMULTIMSEND.nbval = 0; /*iniobj dsym_269__CLASS_OBJMULTIMSEND*/ if (!/*_.VALDATA___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*)&cdat->dsym_269__CLASS_OBJMULTIMSEND; basilys_assertmsg("iniobj checkdiscr dsym_269__CLASS_OBJMULTIMSEND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__CLASS_OBJMULTIMSEND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_269__CLASS_OBJMULTIMSEND.obj_hash = 441055573; cdat->dsym_269__CLASS_OBJMULTIMSEND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_269__CLASS_OBJMULTIMSEND)); /*inistring dstr_270__CLASS_OBJMULTIMS*/ /*_.VALSTR___V394*/ curfptr[393] = (void*)&cdat->dstr_270__CLASS_OBJMULTIMS; cdat->dstr_270__CLASS_OBJMULTIMS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_270__CLASS_OBJMULTIMS.val, "CLASS_OBJMULTIMSEND"); /*inirout drout_271__LAMBDA_*/ /*_.VALROUT___V386*/ curfptr[385] = (void*)&cdat->drout_271__LAMBDA_; cdat->drout_271__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_271__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2130", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_271__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_271__LAMBDA_.routaddr) = rout_84_LAMBDA_; /*inirout drout_272__LAMBDA_*/ /*_.VALROUT___V387*/ curfptr[386] = (void*)&cdat->drout_272__LAMBDA_; cdat->drout_272__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_272__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2148", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_272__LAMBDA_.nbval = 6; *(basilysroutfun_t **) (cdat->drout_272__LAMBDA_.routaddr) = rout_85_LAMBDA_; /*inirout drout_273__LAMBDA_*/ /*_.VALROUT___V388*/ curfptr[387] = (void*)&cdat->drout_273__LAMBDA_; cdat->drout_273__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_273__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2179", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_273__LAMBDA_.nbval = 6; *(basilysroutfun_t **) (cdat->drout_273__LAMBDA_.routaddr) = rout_86_LAMBDA_; /*inirout drout_274__LAMBDA_*/ /*_.VALROUT___V389*/ curfptr[388] = (void*)&cdat->drout_274__LAMBDA_; cdat->drout_274__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_274__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2208", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_274__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_274__LAMBDA_.routaddr) = rout_87_LAMBDA_; /*inirout drout_275__LAMBDA_*/ /*_.VALROUT___V390*/ curfptr[389] = (void*)&cdat->drout_275__LAMBDA_; cdat->drout_275__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_275__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2221", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_275__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_275__LAMBDA_.routaddr) = rout_88_LAMBDA_; /*inirout drout_276__LAMBDA_*/ /*_.VALROUT___V391*/ curfptr[390] = (void*)&cdat->drout_276__LAMBDA_; cdat->drout_276__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_276__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2232", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_276__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_276__LAMBDA_.routaddr) = rout_89_LAMBDA_; /*inirout drout_277__OUTPUCOD_OBJCLEAR*/ /*_.VALROUT___V395*/ curfptr[394] = (void*)&cdat->drout_277__OUTPUCOD_OBJCLEAR; cdat->drout_277__OUTPUCOD_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_277__OUTPUCOD_OBJCLEAR.routdescr, "OUTPUCOD_OBJCLEAR @warmelt-outobj.bysl:2250", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_277__OUTPUCOD_OBJCLEAR.nbval = 4; *(basilysroutfun_t **) (cdat->drout_277__OUTPUCOD_OBJCLEAR.routaddr) = rout_90_OUTPUCOD_OBJCLEAR; /*iniclos dclo_278__OUTPUCOD_OBJCLEAR*/ /*_.VALCLO___V396*/ curfptr[395] = (void*)&cdat->dclo_278__OUTPUCOD_OBJCLEAR; cdat->dclo_278__OUTPUCOD_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_278__OUTPUCOD_OBJCLEAR.nbval = 0; /*iniobj dsym_279__CLASS_OBJCLEAR*/ if (!/*_.VALDATA___V397*/ curfptr[396]) /*_.VALDATA___V397*/ curfptr[396] = (void*)&cdat->dsym_279__CLASS_OBJCLEAR; basilys_assertmsg("iniobj checkdiscr dsym_279__CLASS_OBJCLEAR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_279__CLASS_OBJCLEAR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_279__CLASS_OBJCLEAR.obj_hash = 1071635108; cdat->dsym_279__CLASS_OBJCLEAR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_279__CLASS_OBJCLEAR)); /*inistring dstr_280__CLASS_OBJCLEAR*/ /*_.VALSTR___V398*/ curfptr[397] = (void*)&cdat->dstr_280__CLASS_OBJCLEAR; cdat->dstr_280__CLASS_OBJCLEAR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_280__CLASS_OBJCLEAR.val, "CLASS_OBJCLEAR"); /*inirout drout_281__OUTPUCOD_OBJRAWALLOCOBJ*/ /*_.VALROUT___V399*/ curfptr[398] = (void*)&cdat->drout_281__OUTPUCOD_OBJRAWALLOCOBJ; cdat->drout_281__OUTPUCOD_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_281__OUTPUCOD_OBJRAWALLOCOBJ.routdescr, "OUTPUCOD_OBJRAWALLOCOBJ @warmelt-outobj.bysl:2265", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_281__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 9; *(basilysroutfun_t **) (cdat->drout_281__OUTPUCOD_OBJRAWALLOCOBJ.routaddr) = rout_91_OUTPUCOD_OBJRAWALLOCOBJ; /*iniclos dclo_282__OUTPUCOD_OBJRAWALLOCOBJ*/ /*_.VALCLO___V401*/ curfptr[400] = (void*)&cdat->dclo_282__OUTPUCOD_OBJRAWALLOCOBJ; cdat->dclo_282__OUTPUCOD_OBJRAWALLOCOBJ.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_282__OUTPUCOD_OBJRAWALLOCOBJ.nbval = 0; /*iniobj dsym_283__CLASS_OBJRAWALLOCOBJ*/ if (!/*_.VALDATA___V402*/ curfptr[401]) /*_.VALDATA___V402*/ curfptr[401] = (void*)&cdat->dsym_283__CLASS_OBJRAWALLOCOBJ; basilys_assertmsg("iniobj checkdiscr dsym_283__CLASS_OBJRAWALLOCOBJ", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_283__CLASS_OBJRAWALLOCOBJ.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_283__CLASS_OBJRAWALLOCOBJ.obj_hash = 795830730; cdat->dsym_283__CLASS_OBJRAWALLOCOBJ.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_283__CLASS_OBJRAWALLOCOBJ)); /*inistring dstr_284__CLASS_OBJRAWALLO*/ /*_.VALSTR___V403*/ curfptr[402] = (void*)&cdat->dstr_284__CLASS_OBJRAWALLO; cdat->dstr_284__CLASS_OBJRAWALLO.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_284__CLASS_OBJRAWALLO.val, "CLASS_OBJRAWALLOCOBJ"); /*inirout drout_285__LAMBDA_*/ /*_.VALROUT___V400*/ curfptr[399] = (void*)&cdat->drout_285__LAMBDA_; cdat->drout_285__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_285__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2288", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_285__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_285__LAMBDA_.routaddr) = rout_92_LAMBDA_; /*inirout drout_286__OUTPUCOD_OBJNEWCLOSURE*/ /*_.VALROUT___V404*/ curfptr[403] = (void*)&cdat->drout_286__OUTPUCOD_OBJNEWCLOSURE; cdat->drout_286__OUTPUCOD_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_286__OUTPUCOD_OBJNEWCLOSURE.routdescr, "OUTPUCOD_OBJNEWCLOSURE @warmelt-outobj.bysl:2299", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_286__OUTPUCOD_OBJNEWCLOSURE.nbval = 8; *(basilysroutfun_t **) (cdat->drout_286__OUTPUCOD_OBJNEWCLOSURE.routaddr) = rout_93_OUTPUCOD_OBJNEWCLOSURE; /*iniclos dclo_287__OUTPUCOD_OBJNEWCLOSURE*/ /*_.VALCLO___V406*/ curfptr[405] = (void*)&cdat->dclo_287__OUTPUCOD_OBJNEWCLOSURE; cdat->dclo_287__OUTPUCOD_OBJNEWCLOSURE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_287__OUTPUCOD_OBJNEWCLOSURE.nbval = 0; /*iniobj dsym_288__CLASS_OBJNEWCLOSURE*/ if (!/*_.VALDATA___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*)&cdat->dsym_288__CLASS_OBJNEWCLOSURE; basilys_assertmsg("iniobj checkdiscr dsym_288__CLASS_OBJNEWCLOSURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_288__CLASS_OBJNEWCLOSURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_288__CLASS_OBJNEWCLOSURE.obj_hash = 699586028; cdat->dsym_288__CLASS_OBJNEWCLOSURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_288__CLASS_OBJNEWCLOSURE)); /*inistring dstr_289__CLASS_OBJNEWCLOS*/ /*_.VALSTR___V408*/ curfptr[407] = (void*)&cdat->dstr_289__CLASS_OBJNEWCLOS; cdat->dstr_289__CLASS_OBJNEWCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_289__CLASS_OBJNEWCLOS.val, "CLASS_OBJNEWCLOSURE"); /*inirout drout_290__LAMBDA_*/ /*_.VALROUT___V405*/ curfptr[404] = (void*)&cdat->drout_290__LAMBDA_; cdat->drout_290__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_290__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2313", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_290__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_290__LAMBDA_.routaddr) = rout_94_LAMBDA_; /*inirout drout_291__OUTPUCOD_OBJTOUCH*/ /*_.VALROUT___V409*/ curfptr[408] = (void*)&cdat->drout_291__OUTPUCOD_OBJTOUCH; cdat->drout_291__OUTPUCOD_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_291__OUTPUCOD_OBJTOUCH.routdescr, "OUTPUCOD_OBJTOUCH @warmelt-outobj.bysl:2329", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_291__OUTPUCOD_OBJTOUCH.nbval = 3; *(basilysroutfun_t **) (cdat->drout_291__OUTPUCOD_OBJTOUCH.routaddr) = rout_95_OUTPUCOD_OBJTOUCH; /*iniclos dclo_292__OUTPUCOD_OBJTOUCH*/ /*_.VALCLO___V410*/ curfptr[409] = (void*)&cdat->dclo_292__OUTPUCOD_OBJTOUCH; cdat->dclo_292__OUTPUCOD_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_292__OUTPUCOD_OBJTOUCH.nbval = 0; /*iniobj dsym_293__CLASS_OBJTOUCH*/ if (!/*_.VALDATA___V411*/ curfptr[410]) /*_.VALDATA___V411*/ curfptr[410] = (void*)&cdat->dsym_293__CLASS_OBJTOUCH; basilys_assertmsg("iniobj checkdiscr dsym_293__CLASS_OBJTOUCH", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_293__CLASS_OBJTOUCH.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_293__CLASS_OBJTOUCH.obj_hash = 643155770; cdat->dsym_293__CLASS_OBJTOUCH.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_293__CLASS_OBJTOUCH)); /*inistring dstr_294__CLASS_OBJTOUCH*/ /*_.VALSTR___V412*/ curfptr[411] = (void*)&cdat->dstr_294__CLASS_OBJTOUCH; cdat->dstr_294__CLASS_OBJTOUCH.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_294__CLASS_OBJTOUCH.val, "CLASS_OBJTOUCH"); /*inirout drout_295__OUTPUCOD_OBJPUTUPLE*/ /*_.VALROUT___V413*/ curfptr[412] = (void*)&cdat->drout_295__OUTPUCOD_OBJPUTUPLE; cdat->drout_295__OUTPUCOD_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_295__OUTPUCOD_OBJPUTUPLE.routdescr, "OUTPUCOD_OBJPUTUPLE @warmelt-outobj.bysl:2354", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_295__OUTPUCOD_OBJPUTUPLE.nbval = 4; *(basilysroutfun_t **) (cdat->drout_295__OUTPUCOD_OBJPUTUPLE.routaddr) = rout_96_OUTPUCOD_OBJPUTUPLE; /*iniclos dclo_296__OUTPUCOD_OBJPUTUPLE*/ /*_.VALCLO___V414*/ curfptr[413] = (void*)&cdat->dclo_296__OUTPUCOD_OBJPUTUPLE; cdat->dclo_296__OUTPUCOD_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_296__OUTPUCOD_OBJPUTUPLE.nbval = 0; /*iniobj dsym_297__CLASS_OBJPUTUPLE*/ if (!/*_.VALDATA___V415*/ curfptr[414]) /*_.VALDATA___V415*/ curfptr[414] = (void*)&cdat->dsym_297__CLASS_OBJPUTUPLE; basilys_assertmsg("iniobj checkdiscr dsym_297__CLASS_OBJPUTUPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_297__CLASS_OBJPUTUPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_297__CLASS_OBJPUTUPLE.obj_hash = 419131762; cdat->dsym_297__CLASS_OBJPUTUPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_297__CLASS_OBJPUTUPLE)); /*inistring dstr_298__CLASS_OBJPUTUPLE*/ /*_.VALSTR___V416*/ curfptr[415] = (void*)&cdat->dstr_298__CLASS_OBJPUTUPLE; cdat->dstr_298__CLASS_OBJPUTUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_298__CLASS_OBJPUTUPLE.val, "CLASS_OBJPUTUPLE"); /*inirout drout_299__OUTPUCOD_OBJGETSLOT*/ /*_.VALROUT___V417*/ curfptr[416] = (void*)&cdat->drout_299__OUTPUCOD_OBJGETSLOT; cdat->drout_299__OUTPUCOD_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_299__OUTPUCOD_OBJGETSLOT.routdescr, "OUTPUCOD_OBJGETSLOT @warmelt-outobj.bysl:2389", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_299__OUTPUCOD_OBJGETSLOT.nbval = 9; *(basilysroutfun_t **) (cdat->drout_299__OUTPUCOD_OBJGETSLOT.routaddr) = rout_97_OUTPUCOD_OBJGETSLOT; /*iniclos dclo_300__OUTPUCOD_OBJGETSLOT*/ /*_.VALCLO___V419*/ curfptr[418] = (void*)&cdat->dclo_300__OUTPUCOD_OBJGETSLOT; cdat->dclo_300__OUTPUCOD_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_300__OUTPUCOD_OBJGETSLOT.nbval = 0; /*iniobj dsym_301__CLASS_OBJGETSLOT*/ if (!/*_.VALDATA___V420*/ curfptr[419]) /*_.VALDATA___V420*/ curfptr[419] = (void*)&cdat->dsym_301__CLASS_OBJGETSLOT; basilys_assertmsg("iniobj checkdiscr dsym_301__CLASS_OBJGETSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__CLASS_OBJGETSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_301__CLASS_OBJGETSLOT.obj_hash = 1004612742; cdat->dsym_301__CLASS_OBJGETSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_301__CLASS_OBJGETSLOT)); /*inistring dstr_302__CLASS_OBJGETSLOT*/ /*_.VALSTR___V421*/ curfptr[420] = (void*)&cdat->dstr_302__CLASS_OBJGETSLOT; cdat->dstr_302__CLASS_OBJGETSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_302__CLASS_OBJGETSLOT.val, "CLASS_OBJGETSLOT"); /*iniobj dsym_303__CLASS_FIELD*/ if (!/*_.VALDATA___V422*/ curfptr[421]) /*_.VALDATA___V422*/ curfptr[421] = (void*)&cdat->dsym_303__CLASS_FIELD; basilys_assertmsg("iniobj checkdiscr dsym_303__CLASS_FIELD", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__CLASS_FIELD.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_303__CLASS_FIELD.obj_hash = 523073; cdat->dsym_303__CLASS_FIELD.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_303__CLASS_FIELD)); /*inistring dstr_304__CLASS_FIELD*/ /*_.VALSTR___V423*/ curfptr[422] = (void*)&cdat->dstr_304__CLASS_FIELD; cdat->dstr_304__CLASS_FIELD.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_304__CLASS_FIELD.val, "CLASS_FIELD"); /*inirout drout_305__LAMBDA_*/ /*_.VALROUT___V418*/ curfptr[417] = (void*)&cdat->drout_305__LAMBDA_; cdat->drout_305__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_305__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2411", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_305__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_305__LAMBDA_.routaddr) = rout_98_LAMBDA_; /*inirout drout_306__OUTPUCOD_OBJPUTSLOT*/ /*_.VALROUT___V424*/ curfptr[423] = (void*)&cdat->drout_306__OUTPUCOD_OBJPUTSLOT; cdat->drout_306__OUTPUCOD_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_306__OUTPUCOD_OBJPUTSLOT.routdescr, "OUTPUCOD_OBJPUTSLOT @warmelt-outobj.bysl:2420", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_306__OUTPUCOD_OBJPUTSLOT.nbval = 7; *(basilysroutfun_t **) (cdat->drout_306__OUTPUCOD_OBJPUTSLOT.routaddr) = rout_99_OUTPUCOD_OBJPUTSLOT; /*iniclos dclo_307__OUTPUCOD_OBJPUTSLOT*/ /*_.VALCLO___V425*/ curfptr[424] = (void*)&cdat->dclo_307__OUTPUCOD_OBJPUTSLOT; cdat->dclo_307__OUTPUCOD_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_307__OUTPUCOD_OBJPUTSLOT.nbval = 0; /*iniobj dsym_308__CLASS_OBJPUTSLOT*/ if (!/*_.VALDATA___V426*/ curfptr[425]) /*_.VALDATA___V426*/ curfptr[425] = (void*)&cdat->dsym_308__CLASS_OBJPUTSLOT; basilys_assertmsg("iniobj checkdiscr dsym_308__CLASS_OBJPUTSLOT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_308__CLASS_OBJPUTSLOT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_308__CLASS_OBJPUTSLOT.obj_hash = 382942903; cdat->dsym_308__CLASS_OBJPUTSLOT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_308__CLASS_OBJPUTSLOT)); /*inistring dstr_309__CLASS_OBJPUTSLOT*/ /*_.VALSTR___V427*/ curfptr[426] = (void*)&cdat->dstr_309__CLASS_OBJPUTSLOT; cdat->dstr_309__CLASS_OBJPUTSLOT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_309__CLASS_OBJPUTSLOT.val, "CLASS_OBJPUTSLOT"); /*iniobj dsym_310__CLASS_NREP*/ if (!/*_.VALDATA___V428*/ curfptr[427]) /*_.VALDATA___V428*/ curfptr[427] = (void*)&cdat->dsym_310__CLASS_NREP; basilys_assertmsg("iniobj checkdiscr dsym_310__CLASS_NREP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_310__CLASS_NREP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_310__CLASS_NREP.obj_hash = 704846736; cdat->dsym_310__CLASS_NREP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_310__CLASS_NREP)); /*inistring dstr_311__CLASS_NREP*/ /*_.VALSTR___V429*/ curfptr[428] = (void*)&cdat->dstr_311__CLASS_NREP; cdat->dstr_311__CLASS_NREP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_311__CLASS_NREP.val, "CLASS_NREP"); /*inirout drout_312__OUTPUCOD_OBJPUTCLOSUROUT*/ /*_.VALROUT___V430*/ curfptr[429] = (void*)&cdat->drout_312__OUTPUCOD_OBJPUTCLOSUROUT; cdat->drout_312__OUTPUCOD_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_312__OUTPUCOD_OBJPUTCLOSUROUT.routdescr, "OUTPUCOD_OBJPUTCLOSUROUT @warmelt-outobj.bysl:2480", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_312__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 4; *(basilysroutfun_t **) (cdat->drout_312__OUTPUCOD_OBJPUTCLOSUROUT.routaddr) = rout_100_OUTPUCOD_OBJPUTCLOSUROUT; /*iniclos dclo_313__OUTPUCOD_OBJPUTCLOSUROUT*/ /*_.VALCLO___V431*/ curfptr[430] = (void*)&cdat->dclo_313__OUTPUCOD_OBJPUTCLOSUROUT; cdat->dclo_313__OUTPUCOD_OBJPUTCLOSUROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_313__OUTPUCOD_OBJPUTCLOSUROUT.nbval = 0; /*iniobj dsym_314__CLASS_OBJPUTCLOSUROUT*/ if (!/*_.VALDATA___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (void*)&cdat->dsym_314__CLASS_OBJPUTCLOSUROUT; basilys_assertmsg("iniobj checkdiscr dsym_314__CLASS_OBJPUTCLOSUROUT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_314__CLASS_OBJPUTCLOSUROUT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_314__CLASS_OBJPUTCLOSUROUT.obj_hash = 331144291; cdat->dsym_314__CLASS_OBJPUTCLOSUROUT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_314__CLASS_OBJPUTCLOSUROUT)); /*inistring dstr_315__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V433*/ curfptr[432] = (void*)&cdat->dstr_315__CLASS_OBJPUTCLOS; cdat->dstr_315__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_315__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSUROUT"); /*inirout drout_316__OUTPUCOD_OBJPUTCLOSEDV*/ /*_.VALROUT___V434*/ curfptr[433] = (void*)&cdat->drout_316__OUTPUCOD_OBJPUTCLOSEDV; cdat->drout_316__OUTPUCOD_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_316__OUTPUCOD_OBJPUTCLOSEDV.routdescr, "OUTPUCOD_OBJPUTCLOSEDV @warmelt-outobj.bysl:2508", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_316__OUTPUCOD_OBJPUTCLOSEDV.nbval = 4; *(basilysroutfun_t **) (cdat->drout_316__OUTPUCOD_OBJPUTCLOSEDV.routaddr) = rout_101_OUTPUCOD_OBJPUTCLOSEDV; /*iniclos dclo_317__OUTPUCOD_OBJPUTCLOSEDV*/ /*_.VALCLO___V435*/ curfptr[434] = (void*)&cdat->dclo_317__OUTPUCOD_OBJPUTCLOSEDV; cdat->dclo_317__OUTPUCOD_OBJPUTCLOSEDV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_317__OUTPUCOD_OBJPUTCLOSEDV.nbval = 0; /*iniobj dsym_318__CLASS_OBJPUTCLOSEDV*/ if (!/*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*)&cdat->dsym_318__CLASS_OBJPUTCLOSEDV; basilys_assertmsg("iniobj checkdiscr dsym_318__CLASS_OBJPUTCLOSEDV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_318__CLASS_OBJPUTCLOSEDV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_318__CLASS_OBJPUTCLOSEDV.obj_hash = 870174829; cdat->dsym_318__CLASS_OBJPUTCLOSEDV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_318__CLASS_OBJPUTCLOSEDV)); /*inistring dstr_319__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V437*/ curfptr[436] = (void*)&cdat->dstr_319__CLASS_OBJPUTCLOS; cdat->dstr_319__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_319__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDV"); /*inirout drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*_.VALROUT___V438*/ curfptr[437] = (void*)&cdat->drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; cdat->drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routdescr, "OUTPUCOD_OBJPUTCLOSEDNOTNULLV @warmelt-outobj.bysl:2543", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 4; *(basilysroutfun_t **) (cdat->drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.routaddr) = rout_102_OUTPUCOD_OBJPUTCLOSEDNOTNULLV; /*iniclos dclo_321__OUTPUCOD_OBJPUTCLOSEDNOTNULLV*/ /*_.VALCLO___V439*/ curfptr[438] = (void*)&cdat->dclo_321__OUTPUCOD_OBJPUTCLOSEDNOTNULLV; cdat->dclo_321__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_321__OUTPUCOD_OBJPUTCLOSEDNOTNULLV.nbval = 0; /*iniobj dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV*/ if (!/*_.VALDATA___V440*/ curfptr[439]) /*_.VALDATA___V440*/ curfptr[439] = (void*)&cdat->dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV; basilys_assertmsg("iniobj checkdiscr dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV.obj_hash = 674443590; cdat->dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_322__CLASS_OBJPUTCLOSEDNOTNULLV)); /*inistring dstr_323__CLASS_OBJPUTCLOS*/ /*_.VALSTR___V441*/ curfptr[440] = (void*)&cdat->dstr_323__CLASS_OBJPUTCLOS; cdat->dstr_323__CLASS_OBJPUTCLOS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_323__CLASS_OBJPUTCLOS.val, "CLASS_OBJPUTCLOSEDNOTNULLV"); /*inirout drout_324__OUTPUCOD_OBJPUTROUTCONST*/ /*_.VALROUT___V442*/ curfptr[441] = (void*)&cdat->drout_324__OUTPUCOD_OBJPUTROUTCONST; cdat->drout_324__OUTPUCOD_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_324__OUTPUCOD_OBJPUTROUTCONST.routdescr, "OUTPUCOD_OBJPUTROUTCONST @warmelt-outobj.bysl:2582", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_324__OUTPUCOD_OBJPUTROUTCONST.nbval = 4; *(basilysroutfun_t **) (cdat->drout_324__OUTPUCOD_OBJPUTROUTCONST.routaddr) = rout_103_OUTPUCOD_OBJPUTROUTCONST; /*iniclos dclo_325__OUTPUCOD_OBJPUTROUTCONST*/ /*_.VALCLO___V443*/ curfptr[442] = (void*)&cdat->dclo_325__OUTPUCOD_OBJPUTROUTCONST; cdat->dclo_325__OUTPUCOD_OBJPUTROUTCONST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_325__OUTPUCOD_OBJPUTROUTCONST.nbval = 0; /*iniobj dsym_326__CLASS_OBJPUTROUTCONST*/ if (!/*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*)&cdat->dsym_326__CLASS_OBJPUTROUTCONST; basilys_assertmsg("iniobj checkdiscr dsym_326__CLASS_OBJPUTROUTCONST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_326__CLASS_OBJPUTROUTCONST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_326__CLASS_OBJPUTROUTCONST.obj_hash = 815485494; cdat->dsym_326__CLASS_OBJPUTROUTCONST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_326__CLASS_OBJPUTROUTCONST)); /*inistring dstr_327__CLASS_OBJPUTROUT*/ /*_.VALSTR___V445*/ curfptr[444] = (void*)&cdat->dstr_327__CLASS_OBJPUTROUT; cdat->dstr_327__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_327__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONST"); /*inirout drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*_.VALROUT___V446*/ curfptr[445] = (void*)&cdat->drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; cdat->drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routdescr, "OUTPUCOD_OBJPUTROUTCONSTNOTNULL @warmelt-outobj.bysl:2617", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 3; *(basilysroutfun_t **) (cdat->drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.routaddr) = rout_104_OUTPUCOD_OBJPUTROUTCONSTNOTNULL; /*iniclos dclo_329__OUTPUCOD_OBJPUTROUTCONSTNOTNULL*/ /*_.VALCLO___V447*/ curfptr[446] = (void*)&cdat->dclo_329__OUTPUCOD_OBJPUTROUTCONSTNOTNULL; cdat->dclo_329__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_329__OUTPUCOD_OBJPUTROUTCONSTNOTNULL.nbval = 0; /*iniobj dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL*/ if (!/*_.VALDATA___V448*/ curfptr[447]) /*_.VALDATA___V448*/ curfptr[447] = (void*)&cdat->dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL; basilys_assertmsg("iniobj checkdiscr dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL.obj_hash = 698971949; cdat->dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_330__CLASS_OBJPUTROUTCONSTNOTNULL)); /*inistring dstr_331__CLASS_OBJPUTROUT*/ /*_.VALSTR___V449*/ curfptr[448] = (void*)&cdat->dstr_331__CLASS_OBJPUTROUT; cdat->dstr_331__CLASS_OBJPUTROUT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_331__CLASS_OBJPUTROUT.val, "CLASS_OBJPUTROUTCONSTNOTNULL"); /*inirout drout_332__OUTPUCOD_OBJPUTXTRARESULT*/ /*_.VALROUT___V450*/ curfptr[449] = (void*)&cdat->drout_332__OUTPUCOD_OBJPUTXTRARESULT; cdat->drout_332__OUTPUCOD_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_332__OUTPUCOD_OBJPUTXTRARESULT.routdescr, "OUTPUCOD_OBJPUTXTRARESULT @warmelt-outobj.bysl:2650", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_332__OUTPUCOD_OBJPUTXTRARESULT.nbval = 6; *(basilysroutfun_t **) (cdat->drout_332__OUTPUCOD_OBJPUTXTRARESULT.routaddr) = rout_105_OUTPUCOD_OBJPUTXTRARESULT; /*iniclos dclo_333__OUTPUCOD_OBJPUTXTRARESULT*/ /*_.VALCLO___V451*/ curfptr[450] = (void*)&cdat->dclo_333__OUTPUCOD_OBJPUTXTRARESULT; cdat->dclo_333__OUTPUCOD_OBJPUTXTRARESULT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_333__OUTPUCOD_OBJPUTXTRARESULT.nbval = 0; /*iniobj dsym_334__CLASS_OBJPUTXTRARESULT*/ if (!/*_.VALDATA___V452*/ curfptr[451]) /*_.VALDATA___V452*/ curfptr[451] = (void*)&cdat->dsym_334__CLASS_OBJPUTXTRARESULT; basilys_assertmsg("iniobj checkdiscr dsym_334__CLASS_OBJPUTXTRARESULT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_334__CLASS_OBJPUTXTRARESULT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_334__CLASS_OBJPUTXTRARESULT.obj_hash = 66172370; cdat->dsym_334__CLASS_OBJPUTXTRARESULT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_334__CLASS_OBJPUTXTRARESULT)); /*inistring dstr_335__CLASS_OBJPUTXTRA*/ /*_.VALSTR___V453*/ curfptr[452] = (void*)&cdat->dstr_335__CLASS_OBJPUTXTRA; cdat->dstr_335__CLASS_OBJPUTXTRA.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_335__CLASS_OBJPUTXTRA.val, "CLASS_OBJPUTXTRARESULT"); /*inirout drout_336__OUTPUCOD_OBJEXPV*/ /*_.VALROUT___V454*/ curfptr[453] = (void*)&cdat->drout_336__OUTPUCOD_OBJEXPV; cdat->drout_336__OUTPUCOD_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_336__OUTPUCOD_OBJEXPV.routdescr, "OUTPUCOD_OBJEXPV @warmelt-outobj.bysl:2685", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_336__OUTPUCOD_OBJEXPV.nbval = 5; *(basilysroutfun_t **) (cdat->drout_336__OUTPUCOD_OBJEXPV.routaddr) = rout_106_OUTPUCOD_OBJEXPV; /*iniclos dclo_337__OUTPUCOD_OBJEXPV*/ /*_.VALCLO___V456*/ curfptr[455] = (void*)&cdat->dclo_337__OUTPUCOD_OBJEXPV; cdat->dclo_337__OUTPUCOD_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_337__OUTPUCOD_OBJEXPV.nbval = 0; /*iniobj dsym_338__CLASS_OBJEXPV*/ if (!/*_.VALDATA___V457*/ curfptr[456]) /*_.VALDATA___V457*/ curfptr[456] = (void*)&cdat->dsym_338__CLASS_OBJEXPV; basilys_assertmsg("iniobj checkdiscr dsym_338__CLASS_OBJEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_338__CLASS_OBJEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_338__CLASS_OBJEXPV.obj_hash = 134484056; cdat->dsym_338__CLASS_OBJEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_338__CLASS_OBJEXPV)); /*inistring dstr_339__CLASS_OBJEXPV*/ /*_.VALSTR___V458*/ curfptr[457] = (void*)&cdat->dstr_339__CLASS_OBJEXPV; cdat->dstr_339__CLASS_OBJEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_339__CLASS_OBJEXPV.val, "CLASS_OBJEXPV"); /*inirout drout_340__LAMBDA_*/ /*_.VALROUT___V455*/ curfptr[454] = (void*)&cdat->drout_340__LAMBDA_; cdat->drout_340__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_340__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2693", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_340__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_340__LAMBDA_.routaddr) = rout_107_LAMBDA_; /*inirout drout_341__OUTPUCOD_OBJLOCATEDEXPV*/ /*_.VALROUT___V459*/ curfptr[458] = (void*)&cdat->drout_341__OUTPUCOD_OBJLOCATEDEXPV; cdat->drout_341__OUTPUCOD_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_341__OUTPUCOD_OBJLOCATEDEXPV.routdescr, "OUTPUCOD_OBJLOCATEDEXPV @warmelt-outobj.bysl:2699", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_341__OUTPUCOD_OBJLOCATEDEXPV.nbval = 6; *(basilysroutfun_t **) (cdat->drout_341__OUTPUCOD_OBJLOCATEDEXPV.routaddr) = rout_108_OUTPUCOD_OBJLOCATEDEXPV; /*iniclos dclo_342__OUTPUCOD_OBJLOCATEDEXPV*/ /*_.VALCLO___V461*/ curfptr[460] = (void*)&cdat->dclo_342__OUTPUCOD_OBJLOCATEDEXPV; cdat->dclo_342__OUTPUCOD_OBJLOCATEDEXPV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_342__OUTPUCOD_OBJLOCATEDEXPV.nbval = 0; /*iniobj dsym_343__CLASS_OBJLOCATEDEXPV*/ if (!/*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*)&cdat->dsym_343__CLASS_OBJLOCATEDEXPV; basilys_assertmsg("iniobj checkdiscr dsym_343__CLASS_OBJLOCATEDEXPV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_343__CLASS_OBJLOCATEDEXPV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_343__CLASS_OBJLOCATEDEXPV.obj_hash = 564704332; cdat->dsym_343__CLASS_OBJLOCATEDEXPV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_343__CLASS_OBJLOCATEDEXPV)); /*inistring dstr_344__CLASS_OBJLOCATED*/ /*_.VALSTR___V463*/ curfptr[462] = (void*)&cdat->dstr_344__CLASS_OBJLOCATED; cdat->dstr_344__CLASS_OBJLOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_344__CLASS_OBJLOCATED.val, "CLASS_OBJLOCATEDEXPV"); /*inirout drout_345__LAMBDA_*/ /*_.VALROUT___V460*/ curfptr[459] = (void*)&cdat->drout_345__LAMBDA_; cdat->drout_345__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_345__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2711", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_345__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_345__LAMBDA_.routaddr) = rout_109_LAMBDA_; /*inirout drout_346__OUTPUCOD_VERBATIMSTRING*/ /*_.VALROUT___V464*/ curfptr[463] = (void*)&cdat->drout_346__OUTPUCOD_VERBATIMSTRING; cdat->drout_346__OUTPUCOD_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_346__OUTPUCOD_VERBATIMSTRING.routdescr, "OUTPUCOD_VERBATIMSTRING @warmelt-outobj.bysl:2717", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_346__OUTPUCOD_VERBATIMSTRING.nbval = 1; *(basilysroutfun_t **) (cdat->drout_346__OUTPUCOD_VERBATIMSTRING.routaddr) = rout_110_OUTPUCOD_VERBATIMSTRING; /*iniclos dclo_347__OUTPUCOD_VERBATIMSTRING*/ /*_.VALCLO___V465*/ curfptr[464] = (void*)&cdat->dclo_347__OUTPUCOD_VERBATIMSTRING; cdat->dclo_347__OUTPUCOD_VERBATIMSTRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_347__OUTPUCOD_VERBATIMSTRING.nbval = 0; /*iniobj dsym_348__DISCR_VERBATIMSTRING*/ if (!/*_.VALDATA___V466*/ curfptr[465]) /*_.VALDATA___V466*/ curfptr[465] = (void*)&cdat->dsym_348__DISCR_VERBATIMSTRING; basilys_assertmsg("iniobj checkdiscr dsym_348__DISCR_VERBATIMSTRING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_348__DISCR_VERBATIMSTRING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_348__DISCR_VERBATIMSTRING.obj_hash = 6759605; cdat->dsym_348__DISCR_VERBATIMSTRING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_348__DISCR_VERBATIMSTRING)); /*inistring dstr_349__DISCR_VERBATIMST*/ /*_.VALSTR___V467*/ curfptr[466] = (void*)&cdat->dstr_349__DISCR_VERBATIMST; cdat->dstr_349__DISCR_VERBATIMST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_349__DISCR_VERBATIMST.val, "DISCR_VERBATIMSTRING"); /*inirout drout_350__OUTPUCOD_STRING*/ /*_.VALROUT___V468*/ curfptr[467] = (void*)&cdat->drout_350__OUTPUCOD_STRING; cdat->drout_350__OUTPUCOD_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_350__OUTPUCOD_STRING.routdescr, "OUTPUCOD_STRING @warmelt-outobj.bysl:2728", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_350__OUTPUCOD_STRING.nbval = 1; *(basilysroutfun_t **) (cdat->drout_350__OUTPUCOD_STRING.routaddr) = rout_111_OUTPUCOD_STRING; /*iniclos dclo_351__OUTPUCOD_STRING*/ /*_.VALCLO___V469*/ curfptr[468] = (void*)&cdat->dclo_351__OUTPUCOD_STRING; cdat->dclo_351__OUTPUCOD_STRING.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_351__OUTPUCOD_STRING.nbval = 0; /*inirout drout_352__OUTPUCOD_INTEGER*/ /*_.VALROUT___V470*/ curfptr[469] = (void*)&cdat->drout_352__OUTPUCOD_INTEGER; cdat->drout_352__OUTPUCOD_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_352__OUTPUCOD_INTEGER.routdescr, "OUTPUCOD_INTEGER @warmelt-outobj.bysl:2740", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_352__OUTPUCOD_INTEGER.nbval = 0; *(basilysroutfun_t **) (cdat->drout_352__OUTPUCOD_INTEGER.routaddr) = rout_112_OUTPUCOD_INTEGER; /*iniclos dclo_353__OUTPUCOD_INTEGER*/ /*_.VALCLO___V471*/ curfptr[470] = (void*)&cdat->dclo_353__OUTPUCOD_INTEGER; cdat->dclo_353__OUTPUCOD_INTEGER.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_353__OUTPUCOD_INTEGER.nbval = 0; /*inirout drout_354__OUTPUCOD_FINALRETURN*/ /*_.VALROUT___V472*/ curfptr[471] = (void*)&cdat->drout_354__OUTPUCOD_FINALRETURN; cdat->drout_354__OUTPUCOD_FINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_354__OUTPUCOD_FINALRETURN.routdescr, "OUTPUCOD_FINALRETURN @warmelt-outobj.bysl:2747", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_354__OUTPUCOD_FINALRETURN.nbval = 2; *(basilysroutfun_t **) (cdat->drout_354__OUTPUCOD_FINALRETURN.routaddr) = rout_113_OUTPUCOD_FINALRETURN; /*iniclos dclo_355__OUTPUCOD_FINALRETURN*/ /*_.VALCLO___V473*/ curfptr[472] = (void*)&cdat->dclo_355__OUTPUCOD_FINALRETURN; cdat->dclo_355__OUTPUCOD_FINALRETURN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_355__OUTPUCOD_FINALRETURN.nbval = 0; /*iniobj dsym_356__CLASS_OBJFINALRETURN*/ if (!/*_.VALDATA___V474*/ curfptr[473]) /*_.VALDATA___V474*/ curfptr[473] = (void*)&cdat->dsym_356__CLASS_OBJFINALRETURN; basilys_assertmsg("iniobj checkdiscr dsym_356__CLASS_OBJFINALRETURN", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_356__CLASS_OBJFINALRETURN.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_356__CLASS_OBJFINALRETURN.obj_hash = 650464089; cdat->dsym_356__CLASS_OBJFINALRETURN.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_356__CLASS_OBJFINALRETURN)); /*inistring dstr_357__CLASS_OBJFINALRE*/ /*_.VALSTR___V475*/ curfptr[474] = (void*)&cdat->dstr_357__CLASS_OBJFINALRE; cdat->dstr_357__CLASS_OBJFINALRE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_357__CLASS_OBJFINALRE.val, "CLASS_OBJFINALRETURN"); /*inirout drout_358__SORTED_NAMED_DICT_TUPLE*/ /*_.VALROUT___V476*/ curfptr[475] = (void*)&cdat->drout_358__SORTED_NAMED_DICT_TUPLE; cdat->drout_358__SORTED_NAMED_DICT_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_358__SORTED_NAMED_DICT_TUPLE.routdescr, "SORTED_NAMED_DICT_TUPLE @warmelt-outobj.bysl:2758", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_358__SORTED_NAMED_DICT_TUPLE.nbval = 8; *(basilysroutfun_t **) (cdat->drout_358__SORTED_NAMED_DICT_TUPLE.routaddr) = rout_114_SORTED_NAMED_DICT_TUPLE; /*iniclos dclo_359__SORTED_NAMED_DICT_TUPLE*/ /*_.VALCLO___V479*/ curfptr[478] = (void*)&cdat->dclo_359__SORTED_NAMED_DICT_TUPLE; cdat->dclo_359__SORTED_NAMED_DICT_TUPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_359__SORTED_NAMED_DICT_TUPLE.nbval = 0; /*iniobj dsym_360__MAPSTRING_EVERY*/ if (!/*_.VALDATA___V480*/ curfptr[479]) /*_.VALDATA___V480*/ curfptr[479] = (void*)&cdat->dsym_360__MAPSTRING_EVERY; basilys_assertmsg("iniobj checkdiscr dsym_360__MAPSTRING_EVERY", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_360__MAPSTRING_EVERY.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_360__MAPSTRING_EVERY.obj_hash = 173778712; cdat->dsym_360__MAPSTRING_EVERY.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_360__MAPSTRING_EVERY)); /*inistring dstr_361__MAPSTRING_EVERY*/ /*_.VALSTR___V481*/ curfptr[480] = (void*)&cdat->dstr_361__MAPSTRING_EVERY; cdat->dstr_361__MAPSTRING_EVERY.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_361__MAPSTRING_EVERY.val, "MAPSTRING_EVERY"); /*inirout drout_362__LAMBDA_*/ /*_.VALROUT___V477*/ curfptr[476] = (void*)&cdat->drout_362__LAMBDA_; cdat->drout_362__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_362__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2766", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_362__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_362__LAMBDA_.routaddr) = rout_115_LAMBDA_; /*iniobj dsym_363__LIST_TO_MULTIPLE*/ if (!/*_.VALDATA___V482*/ curfptr[481]) /*_.VALDATA___V482*/ curfptr[481] = (void*)&cdat->dsym_363__LIST_TO_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_363__LIST_TO_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__LIST_TO_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_363__LIST_TO_MULTIPLE.obj_hash = 987171205; cdat->dsym_363__LIST_TO_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_363__LIST_TO_MULTIPLE)); /*inistring dstr_364__LIST_TO_MULTIPLE*/ /*_.VALSTR___V483*/ curfptr[482] = (void*)&cdat->dstr_364__LIST_TO_MULTIPLE; cdat->dstr_364__LIST_TO_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_364__LIST_TO_MULTIPLE.val, "LIST_TO_MULTIPLE"); /*inirout drout_365__LAMBDA_*/ /*_.VALROUT___V478*/ curfptr[477] = (void*)&cdat->drout_365__LAMBDA_; cdat->drout_365__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_365__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2770", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_365__LAMBDA_.nbval = 0; *(basilysroutfun_t **) (cdat->drout_365__LAMBDA_.routaddr) = rout_116_LAMBDA_; /*iniobj dsym_366__DISCR_MULTIPLE*/ if (!/*_.VALDATA___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (void*)&cdat->dsym_366__DISCR_MULTIPLE; basilys_assertmsg("iniobj checkdiscr dsym_366__DISCR_MULTIPLE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_366__DISCR_MULTIPLE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_366__DISCR_MULTIPLE.obj_hash = 91864583; cdat->dsym_366__DISCR_MULTIPLE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_366__DISCR_MULTIPLE)); /*inistring dstr_367__DISCR_MULTIPLE*/ /*_.VALSTR___V485*/ curfptr[484] = (void*)&cdat->dstr_367__DISCR_MULTIPLE; cdat->dstr_367__DISCR_MULTIPLE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_367__DISCR_MULTIPLE.val, "DISCR_MULTIPLE"); /*inirout drout_368__OUTPUT_EXPORTED_OFFSETS*/ /*_.VALROUT___V486*/ curfptr[485] = (void*)&cdat->drout_368__OUTPUT_EXPORTED_OFFSETS; cdat->drout_368__OUTPUT_EXPORTED_OFFSETS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_368__OUTPUT_EXPORTED_OFFSETS.routdescr, "OUTPUT_EXPORTED_OFFSETS @warmelt-outobj.bysl:2782", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_368__OUTPUT_EXPORTED_OFFSETS.nbval = 8; *(basilysroutfun_t **) (cdat->drout_368__OUTPUT_EXPORTED_OFFSETS.routaddr) = rout_117_OUTPUT_EXPORTED_OFFSETS; /*iniclos dclo_369__OUTPUT_EXPORTED_OFFSETS*/ /*_.VALCLO___V489*/ curfptr[488] = (void*)&cdat->dclo_369__OUTPUT_EXPORTED_OFFSETS; cdat->dclo_369__OUTPUT_EXPORTED_OFFSETS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_369__OUTPUT_EXPORTED_OFFSETS.nbval = 0; /*iniobj dsym_370__CLASS_MODULCONTEXT*/ if (!/*_.VALDATA___V490*/ curfptr[489]) /*_.VALDATA___V490*/ curfptr[489] = (void*)&cdat->dsym_370__CLASS_MODULCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_370__CLASS_MODULCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_370__CLASS_MODULCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_370__CLASS_MODULCONTEXT.obj_hash = 827706478; cdat->dsym_370__CLASS_MODULCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_370__CLASS_MODULCONTEXT)); /*inistring dstr_371__CLASS_MODULCONTE*/ /*_.VALSTR___V491*/ curfptr[490] = (void*)&cdat->dstr_371__CLASS_MODULCONTE; cdat->dstr_371__CLASS_MODULCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_371__CLASS_MODULCONTE.val, "CLASS_MODULCONTEXT"); /*inirout drout_372__LAMBDA_*/ /*_.VALROUT___V487*/ curfptr[486] = (void*)&cdat->drout_372__LAMBDA_; cdat->drout_372__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_372__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2794", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_372__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_372__LAMBDA_.routaddr) = rout_118_LAMBDA_; /*inirout drout_373__LAMBDA_*/ /*_.VALROUT___V488*/ curfptr[487] = (void*)&cdat->drout_373__LAMBDA_; cdat->drout_373__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_373__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2808", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_373__LAMBDA_.nbval = 1; *(basilysroutfun_t **) (cdat->drout_373__LAMBDA_.routaddr) = rout_119_LAMBDA_; /*iniobj dsym_374__CLASS_CLASS*/ if (!/*_.VALDATA___V492*/ curfptr[491]) /*_.VALDATA___V492*/ curfptr[491] = (void*)&cdat->dsym_374__CLASS_CLASS; basilys_assertmsg("iniobj checkdiscr dsym_374__CLASS_CLASS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_374__CLASS_CLASS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_374__CLASS_CLASS.obj_hash = 60141292; cdat->dsym_374__CLASS_CLASS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_374__CLASS_CLASS)); /*inistring dstr_375__CLASS_CLASS*/ /*_.VALSTR___V493*/ curfptr[492] = (void*)&cdat->dstr_375__CLASS_CLASS; cdat->dstr_375__CLASS_CLASS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_375__CLASS_CLASS.val, "CLASS_CLASS"); /*inirout drout_376__COMPILE_LIST_SEXPR*/ /*_.VALROUT___V494*/ curfptr[493] = (void*)&cdat->drout_376__COMPILE_LIST_SEXPR; cdat->drout_376__COMPILE_LIST_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_376__COMPILE_LIST_SEXPR.routdescr, "COMPILE_LIST_SEXPR @warmelt-outobj.bysl:2824", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_376__COMPILE_LIST_SEXPR.nbval = 34; *(basilysroutfun_t **) (cdat->drout_376__COMPILE_LIST_SEXPR.routaddr) = rout_120_COMPILE_LIST_SEXPR; /*iniclos dclo_377__COMPILE_LIST_SEXPR*/ /*_.VALCLO___V498*/ curfptr[497] = (void*)&cdat->dclo_377__COMPILE_LIST_SEXPR; cdat->dclo_377__COMPILE_LIST_SEXPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_377__COMPILE_LIST_SEXPR.nbval = 0; /*iniobj dsym_378__CLASS_ENVIRONMENT*/ if (!/*_.VALDATA___V499*/ curfptr[498]) /*_.VALDATA___V499*/ curfptr[498] = (void*)&cdat->dsym_378__CLASS_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_378__CLASS_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_378__CLASS_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_378__CLASS_ENVIRONMENT.obj_hash = 59212821; cdat->dsym_378__CLASS_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_378__CLASS_ENVIRONMENT)); /*inistring dstr_379__CLASS_ENVIRONMEN*/ /*_.VALSTR___V500*/ curfptr[499] = (void*)&cdat->dstr_379__CLASS_ENVIRONMEN; cdat->dstr_379__CLASS_ENVIRONMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_379__CLASS_ENVIRONMEN.val, "CLASS_ENVIRONMENT"); /*iniobj dsym_380__DISCR_MAPSTRINGS*/ if (!/*_.VALDATA___V501*/ curfptr[500]) /*_.VALDATA___V501*/ curfptr[500] = (void*)&cdat->dsym_380__DISCR_MAPSTRINGS; basilys_assertmsg("iniobj checkdiscr dsym_380__DISCR_MAPSTRINGS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_380__DISCR_MAPSTRINGS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_380__DISCR_MAPSTRINGS.obj_hash = 122797468; cdat->dsym_380__DISCR_MAPSTRINGS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_380__DISCR_MAPSTRINGS)); /*inistring dstr_381__DISCR_MAPSTRINGS*/ /*_.VALSTR___V502*/ curfptr[501] = (void*)&cdat->dstr_381__DISCR_MAPSTRINGS; cdat->dstr_381__DISCR_MAPSTRINGS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_381__DISCR_MAPSTRINGS.val, "DISCR_MAPSTRINGS"); /*iniobj dsym_382__CREATE_NORMCONTEXT*/ if (!/*_.VALDATA___V503*/ curfptr[502]) /*_.VALDATA___V503*/ curfptr[502] = (void*)&cdat->dsym_382__CREATE_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_382__CREATE_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_382__CREATE_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_382__CREATE_NORMCONTEXT.obj_hash = 127778273; cdat->dsym_382__CREATE_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_382__CREATE_NORMCONTEXT)); /*inistring dstr_383__CREATE_NORMCONTE*/ /*_.VALSTR___V504*/ curfptr[503] = (void*)&cdat->dstr_383__CREATE_NORMCONTE; cdat->dstr_383__CREATE_NORMCONTE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_383__CREATE_NORMCONTE.val, "CREATE_NORMCONTEXT"); /*iniobj dsym_384__CLASS_NORMCONTEXT*/ if (!/*_.VALDATA___V505*/ curfptr[504]) /*_.VALDATA___V505*/ curfptr[504] = (void*)&cdat->dsym_384__CLASS_NORMCONTEXT; basilys_assertmsg("iniobj checkdiscr dsym_384__CLASS_NORMCONTEXT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_384__CLASS_NORMCONTEXT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_384__CLASS_NORMCONTEXT.obj_hash = 317209306; cdat->dsym_384__CLASS_NORMCONTEXT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_384__CLASS_NORMCONTEXT)); /*inistring dstr_385__CLASS_NORMCONTEX*/ /*_.VALSTR___V506*/ curfptr[505] = (void*)&cdat->dstr_385__CLASS_NORMCONTEX; cdat->dstr_385__CLASS_NORMCONTEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_385__CLASS_NORMCONTEX.val, "CLASS_NORMCONTEXT"); /*iniobj dsym_386__MACROEXPAND_TOPLEVEL_LIST*/ if (!/*_.VALDATA___V507*/ curfptr[506]) /*_.VALDATA___V507*/ curfptr[506] = (void*)&cdat->dsym_386__MACROEXPAND_TOPLEVEL_LIST; basilys_assertmsg("iniobj checkdiscr dsym_386__MACROEXPAND_TOPLEVEL_LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_386__MACROEXPAND_TOPLEVEL_LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_386__MACROEXPAND_TOPLEVEL_LIST.obj_hash = 973794411; cdat->dsym_386__MACROEXPAND_TOPLEVEL_LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_386__MACROEXPAND_TOPLEVEL_LIST)); /*inistring dstr_387__MACROEXPAND_TOPL*/ /*_.VALSTR___V508*/ curfptr[507] = (void*)&cdat->dstr_387__MACROEXPAND_TOPL; cdat->dstr_387__MACROEXPAND_TOPL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_387__MACROEXPAND_TOPL.val, "MACROEXPAND_TOPLEVEL_LIST"); /*iniobj dsym_388__CLASS_SRC*/ if (!/*_.VALDATA___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*)&cdat->dsym_388__CLASS_SRC; basilys_assertmsg("iniobj checkdiscr dsym_388__CLASS_SRC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_388__CLASS_SRC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_388__CLASS_SRC.obj_hash = 631779221; cdat->dsym_388__CLASS_SRC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_388__CLASS_SRC)); /*inistring dstr_389__CLASS_SRC*/ /*_.VALSTR___V510*/ curfptr[509] = (void*)&cdat->dstr_389__CLASS_SRC; cdat->dstr_389__CLASS_SRC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_389__CLASS_SRC.val, "CLASS_SRC"); /*iniobj dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ if (!/*_.VALDATA___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*)&cdat->dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; basilys_assertmsg("iniobj checkdiscr dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_hash = 165024192; cdat->dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_390__CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER)); /*inistring dstr_391__CLASS_SRC_UPDATE*/ /*_.VALSTR___V512*/ curfptr[511] = (void*)&cdat->dstr_391__CLASS_SRC_UPDATE; cdat->dstr_391__CLASS_SRC_UPDATE.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_391__CLASS_SRC_UPDATE.val, "CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER"); /*iniobj dsym_392__CLASS_NREP_INITPROC*/ if (!/*_.VALDATA___V513*/ curfptr[512]) /*_.VALDATA___V513*/ curfptr[512] = (void*)&cdat->dsym_392__CLASS_NREP_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_392__CLASS_NREP_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_392__CLASS_NREP_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_392__CLASS_NREP_INITPROC.obj_hash = 915122709; cdat->dsym_392__CLASS_NREP_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_392__CLASS_NREP_INITPROC)); /*inistring dstr_393__CLASS_NREP_INITP*/ /*_.VALSTR___V514*/ curfptr[513] = (void*)&cdat->dstr_393__CLASS_NREP_INITP; cdat->dstr_393__CLASS_NREP_INITP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_393__CLASS_NREP_INITP.val, "CLASS_NREP_INITPROC"); /*inirout drout_394__LAMBDA_*/ /*_.VALROUT___V495*/ curfptr[494] = (void*)&cdat->drout_394__LAMBDA_; cdat->drout_394__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_394__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2860", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_394__LAMBDA_.nbval = 7; *(basilysroutfun_t **) (cdat->drout_394__LAMBDA_.routaddr) = rout_121_LAMBDA_; /*iniobj dsym_395__CLASS_LOCATED*/ if (!/*_.VALDATA___V515*/ curfptr[514]) /*_.VALDATA___V515*/ curfptr[514] = (void*)&cdat->dsym_395__CLASS_LOCATED; basilys_assertmsg("iniobj checkdiscr dsym_395__CLASS_LOCATED", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__CLASS_LOCATED.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_395__CLASS_LOCATED.obj_hash = 979003; cdat->dsym_395__CLASS_LOCATED.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_395__CLASS_LOCATED)); /*inistring dstr_396__CLASS_LOCATED*/ /*_.VALSTR___V516*/ curfptr[515] = (void*)&cdat->dstr_396__CLASS_LOCATED; cdat->dstr_396__CLASS_LOCATED.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_396__CLASS_LOCATED.val, "CLASS_LOCATED"); /*iniobj dsym_397__CLASS_SRC_COMMENT*/ if (!/*_.VALDATA___V517*/ curfptr[516]) /*_.VALDATA___V517*/ curfptr[516] = (void*)&cdat->dsym_397__CLASS_SRC_COMMENT; basilys_assertmsg("iniobj checkdiscr dsym_397__CLASS_SRC_COMMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_397__CLASS_SRC_COMMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_397__CLASS_SRC_COMMENT.obj_hash = 30350897; cdat->dsym_397__CLASS_SRC_COMMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_397__CLASS_SRC_COMMENT)); /*inistring dstr_398__CLASS_SRC_COMMEN*/ /*_.VALSTR___V518*/ curfptr[517] = (void*)&cdat->dstr_398__CLASS_SRC_COMMEN; cdat->dstr_398__CLASS_SRC_COMMEN.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_398__CLASS_SRC_COMMEN.val, "CLASS_SRC_COMMENT"); /*iniobj dsym_399__NORMAL_EXP*/ if (!/*_.VALDATA___V519*/ curfptr[518]) /*_.VALDATA___V519*/ curfptr[518] = (void*)&cdat->dsym_399__NORMAL_EXP; basilys_assertmsg("iniobj checkdiscr dsym_399__NORMAL_EXP", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_399__NORMAL_EXP.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_399__NORMAL_EXP.obj_hash = 420282450; cdat->dsym_399__NORMAL_EXP.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_399__NORMAL_EXP)); /*inistring dstr_400__NORMAL_EXP*/ /*_.VALSTR___V520*/ curfptr[519] = (void*)&cdat->dstr_400__NORMAL_EXP; cdat->dstr_400__NORMAL_EXP.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_400__NORMAL_EXP.val, "NORMAL_EXP"); /*iniobj dsym_401__CLASS_NREP_ANYPROC*/ if (!/*_.VALDATA___V521*/ curfptr[520]) /*_.VALDATA___V521*/ curfptr[520] = (void*)&cdat->dsym_401__CLASS_NREP_ANYPROC; basilys_assertmsg("iniobj checkdiscr dsym_401__CLASS_NREP_ANYPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_NREP_ANYPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_401__CLASS_NREP_ANYPROC.obj_hash = 605230702; cdat->dsym_401__CLASS_NREP_ANYPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_401__CLASS_NREP_ANYPROC)); /*inistring dstr_402__CLASS_NREP_ANYPR*/ /*_.VALSTR___V522*/ curfptr[521] = (void*)&cdat->dstr_402__CLASS_NREP_ANYPR; cdat->dstr_402__CLASS_NREP_ANYPR.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_402__CLASS_NREP_ANYPR.val, "CLASS_NREP_ANYPROC"); /*iniobj dsym_403__WRAP_NORMAL_LET1*/ if (!/*_.VALDATA___V523*/ curfptr[522]) /*_.VALDATA___V523*/ curfptr[522] = (void*)&cdat->dsym_403__WRAP_NORMAL_LET1; basilys_assertmsg("iniobj checkdiscr dsym_403__WRAP_NORMAL_LET1", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_403__WRAP_NORMAL_LET1.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_403__WRAP_NORMAL_LET1.obj_hash = 891908866; cdat->dsym_403__WRAP_NORMAL_LET1.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_403__WRAP_NORMAL_LET1)); /*inistring dstr_404__WRAP_NORMAL_LET1*/ /*_.VALSTR___V524*/ curfptr[523] = (void*)&cdat->dstr_404__WRAP_NORMAL_LET1; cdat->dstr_404__WRAP_NORMAL_LET1.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_404__WRAP_NORMAL_LET1.val, "WRAP_NORMAL_LET1"); /*iniobj dsym_405__DISCR_MAPOBJECTS*/ if (!/*_.VALDATA___V525*/ curfptr[524]) /*_.VALDATA___V525*/ curfptr[524] = (void*)&cdat->dsym_405__DISCR_MAPOBJECTS; basilys_assertmsg("iniobj checkdiscr dsym_405__DISCR_MAPOBJECTS", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_405__DISCR_MAPOBJECTS.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_405__DISCR_MAPOBJECTS.obj_hash = 95669218; cdat->dsym_405__DISCR_MAPOBJECTS.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_405__DISCR_MAPOBJECTS)); /*inistring dstr_406__DISCR_MAPOBJECTS*/ /*_.VALSTR___V526*/ curfptr[525] = (void*)&cdat->dstr_406__DISCR_MAPOBJECTS; cdat->dstr_406__DISCR_MAPOBJECTS.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_406__DISCR_MAPOBJECTS.val, "DISCR_MAPOBJECTS"); /*inirout drout_407__LAMBDA_*/ /*_.VALROUT___V496*/ curfptr[495] = (void*)&cdat->drout_407__LAMBDA_; cdat->drout_407__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_407__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2899", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_407__LAMBDA_.nbval = 3; *(basilysroutfun_t **) (cdat->drout_407__LAMBDA_.routaddr) = rout_122_LAMBDA_; /*iniobj dsym_408__COMPILE2OBJ_PROCEDURE*/ if (!/*_.VALDATA___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (void*)&cdat->dsym_408__COMPILE2OBJ_PROCEDURE; basilys_assertmsg("iniobj checkdiscr dsym_408__COMPILE2OBJ_PROCEDURE", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_408__COMPILE2OBJ_PROCEDURE.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_408__COMPILE2OBJ_PROCEDURE.obj_hash = 315972622; cdat->dsym_408__COMPILE2OBJ_PROCEDURE.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_408__COMPILE2OBJ_PROCEDURE)); /*inistring dstr_409__COMPILE2OBJ_PROC*/ /*_.VALSTR___V528*/ curfptr[527] = (void*)&cdat->dstr_409__COMPILE2OBJ_PROC; cdat->dstr_409__COMPILE2OBJ_PROC.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_409__COMPILE2OBJ_PROC.val, "COMPILE2OBJ_PROCEDURE"); /*iniobj dsym_410__COMPILE2OBJ_INITPROC*/ if (!/*_.VALDATA___V529*/ curfptr[528]) /*_.VALDATA___V529*/ curfptr[528] = (void*)&cdat->dsym_410__COMPILE2OBJ_INITPROC; basilys_assertmsg("iniobj checkdiscr dsym_410__COMPILE2OBJ_INITPROC", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_410__COMPILE2OBJ_INITPROC.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_410__COMPILE2OBJ_INITPROC.obj_hash = 795051323; cdat->dsym_410__COMPILE2OBJ_INITPROC.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_410__COMPILE2OBJ_INITPROC)); /*inistring dstr_411__COMPILE2OBJ_INIT*/ /*_.VALSTR___V530*/ curfptr[529] = (void*)&cdat->dstr_411__COMPILE2OBJ_INIT; cdat->dstr_411__COMPILE2OBJ_INIT.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_411__COMPILE2OBJ_INIT.val, "COMPILE2OBJ_INITPROC"); /*inirout drout_412__LAMBDA_*/ /*_.VALROUT___V497*/ curfptr[496] = (void*)&cdat->drout_412__LAMBDA_; cdat->drout_412__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_412__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:2932", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_412__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_412__LAMBDA_.routaddr) = rout_123_LAMBDA_; /*inirout drout_413__INSTALL_INITIAL_COMMAND*/ /*_.VALROUT___V531*/ curfptr[530] = (void*)&cdat->drout_413__INSTALL_INITIAL_COMMAND; cdat->drout_413__INSTALL_INITIAL_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_413__INSTALL_INITIAL_COMMAND.routdescr, "INSTALL_INITIAL_COMMAND @warmelt-outobj.bysl:2947", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_413__INSTALL_INITIAL_COMMAND.nbval = 2; *(basilysroutfun_t **) (cdat->drout_413__INSTALL_INITIAL_COMMAND.routaddr) = rout_124_INSTALL_INITIAL_COMMAND; /*iniclos dclo_414__INSTALL_INITIAL_COMMAND*/ /*_.VALCLO___V532*/ curfptr[531] = (void*)&cdat->dclo_414__INSTALL_INITIAL_COMMAND; cdat->dclo_414__INSTALL_INITIAL_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_414__INSTALL_INITIAL_COMMAND.nbval = 0; /*iniobj dsym_415__INITIAL_SYSTEM_DATA*/ if (!/*_.VALDATA___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*)&cdat->dsym_415__INITIAL_SYSTEM_DATA; basilys_assertmsg("iniobj checkdiscr dsym_415__INITIAL_SYSTEM_DATA", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__INITIAL_SYSTEM_DATA.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_415__INITIAL_SYSTEM_DATA.obj_hash = 771349808; cdat->dsym_415__INITIAL_SYSTEM_DATA.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_415__INITIAL_SYSTEM_DATA)); /*inistring dstr_416__INITIAL_SYSTEM_D*/ /*_.VALSTR___V534*/ curfptr[533] = (void*)&cdat->dstr_416__INITIAL_SYSTEM_D; cdat->dstr_416__INITIAL_SYSTEM_D.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_416__INITIAL_SYSTEM_D.val, "INITIAL_SYSTEM_DATA"); /*inirout drout_417__INITIAL_COMMAND_INSTALL*/ /*_.VALROUT___V535*/ curfptr[534] = (void*)&cdat->drout_417__INITIAL_COMMAND_INSTALL; cdat->drout_417__INITIAL_COMMAND_INSTALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_417__INITIAL_COMMAND_INSTALL.routdescr, "INITIAL_COMMAND_INSTALL @warmelt-outobj.bysl:2954", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_417__INITIAL_COMMAND_INSTALL.nbval = 2; *(basilysroutfun_t **) (cdat->drout_417__INITIAL_COMMAND_INSTALL.routaddr) = rout_125_INITIAL_COMMAND_INSTALL; /*iniclos dclo_418__INITIAL_COMMAND_INSTALL*/ /*_.VALCLO___V536*/ curfptr[535] = (void*)&cdat->dclo_418__INITIAL_COMMAND_INSTALL; cdat->dclo_418__INITIAL_COMMAND_INSTALL.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_418__INITIAL_COMMAND_INSTALL.nbval = 0; /*inirout drout_419__READSEQ_COMMAND*/ /*_.VALROUT___V537*/ curfptr[536] = (void*)&cdat->drout_419__READSEQ_COMMAND; cdat->drout_419__READSEQ_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_419__READSEQ_COMMAND.routdescr, "READSEQ_COMMAND @warmelt-outobj.bysl:2962", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_419__READSEQ_COMMAND.nbval = 1; *(basilysroutfun_t **) (cdat->drout_419__READSEQ_COMMAND.routaddr) = rout_126_READSEQ_COMMAND; /*iniclos dclo_420__READSEQ_COMMAND*/ /*_.VALCLO___V538*/ curfptr[537] = (void*)&cdat->dclo_420__READSEQ_COMMAND; cdat->dclo_420__READSEQ_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_420__READSEQ_COMMAND.nbval = 0; /*inirout drout_421__COMPILEFILE_COMMAND*/ /*_.VALROUT___V539*/ curfptr[538] = (void*)&cdat->drout_421__COMPILEFILE_COMMAND; cdat->drout_421__COMPILEFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_421__COMPILEFILE_COMMAND.routdescr, "COMPILEFILE_COMMAND @warmelt-outobj.bysl:2976", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_421__COMPILEFILE_COMMAND.nbval = 12; *(basilysroutfun_t **) (cdat->drout_421__COMPILEFILE_COMMAND.routaddr) = rout_127_COMPILEFILE_COMMAND; /*iniclos dclo_422__COMPILEFILE_COMMAND*/ /*_.VALCLO___V541*/ curfptr[540] = (void*)&cdat->dclo_422__COMPILEFILE_COMMAND; cdat->dclo_422__COMPILEFILE_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_422__COMPILEFILE_COMMAND.nbval = 0; /*iniobj dsym_423__INITIAL_ENVIRONMENT*/ if (!/*_.VALDATA___V542*/ curfptr[541]) /*_.VALDATA___V542*/ curfptr[541] = (void*)&cdat->dsym_423__INITIAL_ENVIRONMENT; basilys_assertmsg("iniobj checkdiscr dsym_423__INITIAL_ENVIRONMENT", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_423__INITIAL_ENVIRONMENT.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_423__INITIAL_ENVIRONMENT.obj_hash = 756729242; cdat->dsym_423__INITIAL_ENVIRONMENT.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_423__INITIAL_ENVIRONMENT)); /*inistring dstr_424__INITIAL_ENVIRONM*/ /*_.VALSTR___V543*/ curfptr[542] = (void*)&cdat->dstr_424__INITIAL_ENVIRONM; cdat->dstr_424__INITIAL_ENVIRONM.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_424__INITIAL_ENVIRONM.val, "INITIAL_ENVIRONMENT"); /*iniobj dsym_425__LIST_APPEND2LIST*/ if (!/*_.VALDATA___V544*/ curfptr[543]) /*_.VALDATA___V544*/ curfptr[543] = (void*)&cdat->dsym_425__LIST_APPEND2LIST; basilys_assertmsg("iniobj checkdiscr dsym_425__LIST_APPEND2LIST", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__LIST_APPEND2LIST.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_425__LIST_APPEND2LIST.obj_hash = 744841630; cdat->dsym_425__LIST_APPEND2LIST.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_425__LIST_APPEND2LIST)); /*inistring dstr_426__LIST_APPEND2LIST*/ /*_.VALSTR___V545*/ curfptr[544] = (void*)&cdat->dstr_426__LIST_APPEND2LIST; cdat->dstr_426__LIST_APPEND2LIST.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_426__LIST_APPEND2LIST.val, "LIST_APPEND2LIST"); /*inirout drout_427__LAMBDA_*/ /*_.VALROUT___V540*/ curfptr[539] = (void*)&cdat->drout_427__LAMBDA_; cdat->drout_427__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_427__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:3002", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_427__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_427__LAMBDA_.routaddr) = rout_128_LAMBDA_; /*inirout drout_428__COMPILEINIT_COMMAND*/ /*_.VALROUT___V546*/ curfptr[545] = (void*)&cdat->drout_428__COMPILEINIT_COMMAND; cdat->drout_428__COMPILEINIT_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_428__COMPILEINIT_COMMAND.routdescr, "COMPILEINIT_COMMAND @warmelt-outobj.bysl:3022", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_428__COMPILEINIT_COMMAND.nbval = 10; *(basilysroutfun_t **) (cdat->drout_428__COMPILEINIT_COMMAND.routaddr) = rout_129_COMPILEINIT_COMMAND; /*iniclos dclo_429__COMPILEINIT_COMMAND*/ /*_.VALCLO___V548*/ curfptr[547] = (void*)&cdat->dclo_429__COMPILEINIT_COMMAND; cdat->dclo_429__COMPILEINIT_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_429__COMPILEINIT_COMMAND.nbval = 0; /*inirout drout_430__LAMBDA_*/ /*_.VALROUT___V547*/ curfptr[546] = (void*)&cdat->drout_430__LAMBDA_; cdat->drout_430__LAMBDA_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_430__LAMBDA_.routdescr, "LAMBDA_ @warmelt-outobj.bysl:3042", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_430__LAMBDA_.nbval = 2; *(basilysroutfun_t **) (cdat->drout_430__LAMBDA_.routaddr) = rout_130_LAMBDA_; /*inirout drout_431__SHOWMDATA_COMMAND*/ /*_.VALROUT___V549*/ curfptr[548] = (void*)&cdat->drout_431__SHOWMDATA_COMMAND; cdat->drout_431__SHOWMDATA_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_431__SHOWMDATA_COMMAND.routdescr, "SHOWMDATA_COMMAND @warmelt-outobj.bysl:3068", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_431__SHOWMDATA_COMMAND.nbval = 1; *(basilysroutfun_t **) (cdat->drout_431__SHOWMDATA_COMMAND.routaddr) = rout_131_SHOWMDATA_COMMAND; /*iniclos dclo_432__SHOWMDATA_COMMAND*/ /*_.VALCLO___V550*/ curfptr[549] = (void*)&cdat->dclo_432__SHOWMDATA_COMMAND; cdat->dclo_432__SHOWMDATA_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_432__SHOWMDATA_COMMAND.nbval = 0; /*inirout drout_433__SHOWVAR_COMMAND*/ /*_.VALROUT___V551*/ curfptr[550] = (void*)&cdat->drout_433__SHOWVAR_COMMAND; cdat->drout_433__SHOWVAR_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_433__SHOWVAR_COMMAND.routdescr, "SHOWVAR_COMMAND @warmelt-outobj.bysl:3079", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_433__SHOWVAR_COMMAND.nbval = 3; *(basilysroutfun_t **) (cdat->drout_433__SHOWVAR_COMMAND.routaddr) = rout_132_SHOWVAR_COMMAND; /*iniclos dclo_434__SHOWVAR_COMMAND*/ /*_.VALCLO___V552*/ curfptr[551] = (void*)&cdat->dclo_434__SHOWVAR_COMMAND; cdat->dclo_434__SHOWVAR_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_434__SHOWVAR_COMMAND.nbval = 0; /*iniobj dsym_435__FIND_ENV*/ if (!/*_.VALDATA___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*)&cdat->dsym_435__FIND_ENV; basilys_assertmsg("iniobj checkdiscr dsym_435__FIND_ENV", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_435__FIND_ENV.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_435__FIND_ENV.obj_hash = 233459738; cdat->dsym_435__FIND_ENV.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_435__FIND_ENV)); /*inistring dstr_436__FIND_ENV*/ /*_.VALSTR___V554*/ curfptr[553] = (void*)&cdat->dstr_436__FIND_ENV; cdat->dstr_436__FIND_ENV.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_436__FIND_ENV.val, "FIND_ENV"); /*iniobj dsym_437__CLASS_VALUE_BINDING*/ if (!/*_.VALDATA___V555*/ curfptr[554]) /*_.VALDATA___V555*/ curfptr[554] = (void*)&cdat->dsym_437__CLASS_VALUE_BINDING; basilys_assertmsg("iniobj checkdiscr dsym_437__CLASS_VALUE_BINDING", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__CLASS_VALUE_BINDING.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_437__CLASS_VALUE_BINDING.obj_hash = 952021086; cdat->dsym_437__CLASS_VALUE_BINDING.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_437__CLASS_VALUE_BINDING)); /*inistring dstr_438__CLASS_VALUE_BIND*/ /*_.VALSTR___V556*/ curfptr[555] = (void*)&cdat->dstr_438__CLASS_VALUE_BIND; cdat->dstr_438__CLASS_VALUE_BIND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_438__CLASS_VALUE_BIND.val, "CLASS_VALUE_BINDING"); /*inirout drout_439__HELP_COMMAND*/ /*_.VALROUT___V557*/ curfptr[556] = (void*)&cdat->drout_439__HELP_COMMAND; cdat->drout_439__HELP_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_ROUTINE)))); strncpy(cdat->drout_439__HELP_COMMAND.routdescr, "HELP_COMMAND @warmelt-outobj.bysl:3096", BASILYS_ROUTDESCR_LEN - 1); cdat->drout_439__HELP_COMMAND.nbval = 2; *(basilysroutfun_t **) (cdat->drout_439__HELP_COMMAND.routaddr) = rout_133_HELP_COMMAND; /*iniclos dclo_440__HELP_COMMAND*/ /*_.VALCLO___V558*/ curfptr[557] = (void*)&cdat->dclo_440__HELP_COMMAND; cdat->dclo_440__HELP_COMMAND.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_CLOSURE)))); cdat->dclo_440__HELP_COMMAND.nbval = 0; /*iniobj dsym_441__INITIAL_COMMAND_INSTALL*/ if (!/*_.VALDATA___V559*/ curfptr[558]) /*_.VALDATA___V559*/ curfptr[558] = (void*)&cdat->dsym_441__INITIAL_COMMAND_INSTALL; basilys_assertmsg("iniobj checkdiscr dsym_441__INITIAL_COMMAND_INSTALL", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_441__INITIAL_COMMAND_INSTALL.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_441__INITIAL_COMMAND_INSTALL.obj_hash = 717306728; cdat->dsym_441__INITIAL_COMMAND_INSTALL.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_441__INITIAL_COMMAND_INSTALL)); /*inistring dstr_442__INITIAL_COMMAND_*/ /*_.VALSTR___V560*/ curfptr[559] = (void*)&cdat->dstr_442__INITIAL_COMMAND_; cdat->dstr_442__INITIAL_COMMAND_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_442__INITIAL_COMMAND_.val, "INITIAL_COMMAND_INSTALL"); /*iniobj dsym_443__INSTALL_INITIAL_COMMAND*/ if (!/*_.VALDATA___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*)&cdat->dsym_443__INSTALL_INITIAL_COMMAND; basilys_assertmsg("iniobj checkdiscr dsym_443__INSTALL_INITIAL_COMMAND", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__INSTALL_INITIAL_COMMAND.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_443__INSTALL_INITIAL_COMMAND.obj_hash = 3724912; cdat->dsym_443__INSTALL_INITIAL_COMMAND.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_443__INSTALL_INITIAL_COMMAND)); /*inistring dstr_444__INSTALL_INITIAL_*/ /*_.VALSTR___V562*/ curfptr[561] = (void*)&cdat->dstr_444__INSTALL_INITIAL_; cdat->dstr_444__INSTALL_INITIAL_.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_444__INSTALL_INITIAL_.val, "INSTALL_INITIAL_COMMAND"); /*iniobj dsym_445__COMPILE_LIST_SEXPR*/ if (!/*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*)&cdat->dsym_445__COMPILE_LIST_SEXPR; basilys_assertmsg("iniobj checkdiscr dsym_445__COMPILE_LIST_SEXPR", NULL != (void*)((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_445__COMPILE_LIST_SEXPR.obj_class = (basilysobject_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))); cdat->dsym_445__COMPILE_LIST_SEXPR.obj_hash = 346985953; cdat->dsym_445__COMPILE_LIST_SEXPR.obj_len = 3; basilys_object_set_serial((basilysobject_ptr_t) (&cdat->dsym_445__COMPILE_LIST_SEXPR)); /*inistring dstr_446__COMPILE_LIST_SEX*/ /*_.VALSTR___V564*/ curfptr[563] = (void*)&cdat->dstr_446__COMPILE_LIST_SEX; cdat->dstr_446__COMPILE_LIST_SEX.discr = (basilysobject_ptr_t)(((void*)(BASILYSG(DISCR_STRING)))); strcpy(cdat->dstr_446__COMPILE_LIST_SEX.val, "COMPILE_LIST_SEXPR"); 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 = 658; curfram__.prev = (struct callframe_basilys_st *) basilys_topframe; basilys_topframe = (struct callframe_basilys_st *) &curfram__; /**initial routine prologue**/ initial_frame_basilys = (void*) &curfram__; /**COMMENT: get previous environment **/; /*_.PREVENV___V4*/ curfptr[3] = modargp_; /**COMMENT: compute boxloc **/; /*cond*/ if (/*_.CONTENV___V2*/ curfptr[1] || basilys_object_length((basilys_ptr_t)BASILYSG(INITIAL_SYSTEM_DATA))", /*_.FRESHENV___V3*/ curfptr[2], __FILE__, __LINE__);;; /*apply*/{ /*_.CONTENV___V2*/ curfptr[1] = basilys_apply ((basilysclosure_ptr_t)(/*_.FRESHENV___V3*/ curfptr[2]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (""), (union basilysparam_un*)0, "", (union basilysparam_un*)0); } ;}/*com.end block:compute fresh module environment*/ ; } /**COMMENT: get symbols & keywords **/; /*getnamedsym: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___V119*/ curfptr[118]) /*_.VALDATA___V119*/ curfptr[118] = (void*) sy_DEBUG_MSG_FUN; } /*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___V121*/ curfptr[120]) /*_.VALDATA___V121*/ curfptr[120] = (void*) sy_CLASS_SYMBOL; } /*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___V125*/ curfptr[124]) /*_.VALDATA___V125*/ curfptr[124] = (void*) sy_INSTALL_METHOD; } /*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___V127*/ curfptr[126]) /*_.VALDATA___V127*/ curfptr[126] = (void*) sy_CLASS_ROOT; } /*getnamedsym:OUTPUT_C_DECLINIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_DECLINIT = basilysgc_named_symbol("OUTPUT_C_DECLINIT", BASILYS_GET); if (sy_OUTPUT_C_DECLINIT && NULL == /*_.VALDATA___V129*/ curfptr[128]) /*_.VALDATA___V129*/ curfptr[128] = (void*) sy_OUTPUT_C_DECLINIT; } /*getnamedsym:CLASS_OBJINITELEM*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITELEM = basilysgc_named_symbol("CLASS_OBJINITELEM", BASILYS_GET); if (sy_CLASS_OBJINITELEM && NULL == /*_.VALDATA___V133*/ curfptr[132]) /*_.VALDATA___V133*/ curfptr[132] = (void*) sy_CLASS_OBJINITELEM; } /*getnamedsym:OUTPUT_C_CODE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_CODE = basilysgc_named_symbol("OUTPUT_C_CODE", BASILYS_GET); if (sy_OUTPUT_C_CODE && NULL == /*_.VALDATA___V135*/ curfptr[134]) /*_.VALDATA___V135*/ curfptr[134] = (void*) sy_OUTPUT_C_CODE; } /*getnamedsym:OUTPUT_C_INITFILL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_INITFILL = basilysgc_named_symbol("OUTPUT_C_INITFILL", BASILYS_GET); if (sy_OUTPUT_C_INITFILL && NULL == /*_.VALDATA___V139*/ curfptr[138]) /*_.VALDATA___V139*/ curfptr[138] = (void*) sy_OUTPUT_C_INITFILL; } /*getnamedsym:OUTPUT_C_INITPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OUTPUT_C_INITPREDEF = basilysgc_named_symbol("OUTPUT_C_INITPREDEF", BASILYS_GET); if (sy_OUTPUT_C_INITPREDEF && NULL == /*_.VALDATA___V143*/ curfptr[142]) /*_.VALDATA___V143*/ curfptr[142] = (void*) sy_OUTPUT_C_INITPREDEF; } /*getnamedsym:OBPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_OBPREDEF = basilysgc_named_symbol("OBPREDEF", BASILYS_GET); if (sy_OBPREDEF && NULL == /*_.VALDATA___V147*/ curfptr[146]) /*_.VALDATA___V147*/ curfptr[146] = (void*) sy_OBPREDEF; } /*getnamedsym:CLASS_OBJPREDEF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPREDEF = basilysgc_named_symbol("CLASS_OBJPREDEF", BASILYS_GET); if (sy_CLASS_OBJPREDEF && NULL == /*_.VALDATA___V151*/ curfptr[150]) /*_.VALDATA___V151*/ curfptr[150] = (void*) sy_CLASS_OBJPREDEF; } /*getnamedsym:CLASS_OBJNIL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJNIL = basilysgc_named_symbol("CLASS_OBJNIL", BASILYS_GET); if (sy_CLASS_OBJNIL && NULL == /*_.VALDATA___V155*/ curfptr[154]) /*_.VALDATA___V155*/ curfptr[154] = (void*) sy_CLASS_OBJNIL; } /*getnamedsym:CLASS_OBJINITOBJECT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITOBJECT = basilysgc_named_symbol("CLASS_OBJINITOBJECT", BASILYS_GET); if (sy_CLASS_OBJINITOBJECT && NULL == /*_.VALDATA___V159*/ curfptr[158]) /*_.VALDATA___V159*/ curfptr[158] = (void*) sy_CLASS_OBJINITOBJECT; } /*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___V167*/ curfptr[166]) /*_.VALDATA___V167*/ curfptr[166] = (void*) sy_CLASS_NREP_DATAINSTANCE; } /*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___V171*/ curfptr[170]) /*_.VALDATA___V171*/ curfptr[170] = (void*) sy_CLASS_NREP_NIL; } /*getnamedsym:CLASS_OBJINITMULTIPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITMULTIPLE = basilysgc_named_symbol("CLASS_OBJINITMULTIPLE", BASILYS_GET); if (sy_CLASS_OBJINITMULTIPLE && NULL == /*_.VALDATA___V175*/ curfptr[174]) /*_.VALDATA___V175*/ curfptr[174] = (void*) sy_CLASS_OBJINITMULTIPLE; } /*getnamedsym:CLASS_OBJINITCLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITCLOSURE = basilysgc_named_symbol("CLASS_OBJINITCLOSURE", BASILYS_GET); if (sy_CLASS_OBJINITCLOSURE && NULL == /*_.VALDATA___V181*/ curfptr[180]) /*_.VALDATA___V181*/ curfptr[180] = (void*) sy_CLASS_OBJINITCLOSURE; } /*getnamedsym:CLASS_OBJINITROUTINE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITROUTINE = basilysgc_named_symbol("CLASS_OBJINITROUTINE", BASILYS_GET); if (sy_CLASS_OBJINITROUTINE && NULL == /*_.VALDATA___V187*/ curfptr[186]) /*_.VALDATA___V187*/ curfptr[186] = (void*) sy_CLASS_OBJINITROUTINE; } /*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___V191*/ curfptr[190]) /*_.VALDATA___V191*/ curfptr[190] = (void*) sy_CLASS_NREP_DATAROUTINE; } /*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___V193*/ curfptr[192]) /*_.VALDATA___V193*/ curfptr[192] = (void*) sy_CLASS_NAMED; } /*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___V195*/ curfptr[194]) /*_.VALDATA___V195*/ curfptr[194] = (void*) sy_CLASS_NREP_ROUTPROC; } /*getnamedsym:CLASS_OBJINITSTRING*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINITSTRING = basilysgc_named_symbol("CLASS_OBJINITSTRING", BASILYS_GET); if (sy_CLASS_OBJINITSTRING && NULL == /*_.VALDATA___V199*/ curfptr[198]) /*_.VALDATA___V199*/ curfptr[198] = (void*) sy_CLASS_OBJINITSTRING; } /*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___V205*/ curfptr[204]) /*_.VALDATA___V205*/ curfptr[204] = (void*) sy_DISCR_ANYRECV; } /*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___V209*/ curfptr[208]) /*_.VALDATA___V209*/ curfptr[208] = (void*) sy_DISCR_NULLRECV; } /*getnamedsym:DISPLAYDEBUGMSG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_DISPLAYDEBUGMSG = basilysgc_named_symbol("DISPLAYDEBUGMSG", BASILYS_GET); if (sy_DISPLAYDEBUGMSG && NULL == /*_.VALDATA___V213*/ curfptr[212]) /*_.VALDATA___V213*/ curfptr[212] = (void*) sy_DISPLAYDEBUGMSG; } /*getnamedsym:CLASS_INITIALROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_INITIALROUTINEOBJ = basilysgc_named_symbol("CLASS_INITIALROUTINEOBJ", BASILYS_GET); if (sy_CLASS_INITIALROUTINEOBJ && NULL == /*_.VALDATA___V218*/ curfptr[217]) /*_.VALDATA___V218*/ curfptr[217] = (void*) sy_CLASS_INITIALROUTINEOBJ; } /*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___V220*/ curfptr[219]) /*_.VALDATA___V220*/ curfptr[219] = (void*) sy_LIST_EVERY; } /*getnamedsym:CLASS_OBJLOCV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOCV = basilysgc_named_symbol("CLASS_OBJLOCV", BASILYS_GET); if (sy_CLASS_OBJLOCV && NULL == /*_.VALDATA___V222*/ curfptr[221]) /*_.VALDATA___V222*/ curfptr[221] = (void*) sy_CLASS_OBJLOCV; } /*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___V224*/ curfptr[223]) /*_.VALDATA___V224*/ curfptr[223] = (void*) sy_CLASS_CTYPE; } /*getnamedsym:CLASS_ROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_ROUTINEOBJ = basilysgc_named_symbol("CLASS_ROUTINEOBJ", BASILYS_GET); if (sy_CLASS_ROUTINEOBJ && NULL == /*_.VALDATA___V229*/ curfptr[228]) /*_.VALDATA___V229*/ curfptr[228] = (void*) sy_CLASS_ROUTINEOBJ; } /*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___V231*/ curfptr[230]) /*_.VALDATA___V231*/ curfptr[230] = (void*) sy_CTYPE_VALUE; } /*getnamedsym:CLASS_OBJVALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJVALUE = basilysgc_named_symbol("CLASS_OBJVALUE", BASILYS_GET); if (sy_CLASS_OBJVALUE && NULL == /*_.VALDATA___V233*/ curfptr[232]) /*_.VALDATA___V233*/ curfptr[232] = (void*) sy_CLASS_OBJVALUE; } /*getnamedsym:CLASS_PROCROUTINEOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_PROCROUTINEOBJ = basilysgc_named_symbol("CLASS_PROCROUTINEOBJ", BASILYS_GET); if (sy_CLASS_PROCROUTINEOBJ && NULL == /*_.VALDATA___V241*/ curfptr[240]) /*_.VALDATA___V241*/ curfptr[240] = (void*) sy_CLASS_PROCROUTINEOBJ; } /*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___V243*/ curfptr[242]) /*_.VALDATA___V243*/ curfptr[242] = (void*) sy_DISCR_STRING; } /*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___V245*/ curfptr[244]) /*_.VALDATA___V245*/ curfptr[244] = (void*) sy_MULTIPLE_EVERY; } /*getnamedsym:CLASS_OBJPUREVALUE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUREVALUE = basilysgc_named_symbol("CLASS_OBJPUREVALUE", BASILYS_GET); if (sy_CLASS_OBJPUREVALUE && NULL == /*_.VALDATA___V247*/ curfptr[246]) /*_.VALDATA___V247*/ curfptr[246] = (void*) sy_CLASS_OBJPUREVALUE; } /*getnamedsym:CLASS_OBJGETARG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETARG = basilysgc_named_symbol("CLASS_OBJGETARG", BASILYS_GET); if (sy_CLASS_OBJGETARG && NULL == /*_.VALDATA___V263*/ curfptr[262]) /*_.VALDATA___V263*/ curfptr[262] = (void*) sy_CLASS_OBJGETARG; } /*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___V265*/ curfptr[264]) /*_.VALDATA___V265*/ curfptr[264] = (void*) sy_CLASS_FORMAL_BINDING; } /*getnamedsym:CTYPE_LONG*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CTYPE_LONG = basilysgc_named_symbol("CTYPE_LONG", BASILYS_GET); if (sy_CTYPE_LONG && NULL == /*_.VALDATA___V269*/ curfptr[268]) /*_.VALDATA___V269*/ curfptr[268] = (void*) sy_CTYPE_LONG; } /*getnamedsym:CLASS_OBJCLOCCV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCLOCCV = basilysgc_named_symbol("CLASS_OBJCLOCCV", BASILYS_GET); if (sy_CLASS_OBJCLOCCV && NULL == /*_.VALDATA___V273*/ curfptr[272]) /*_.VALDATA___V273*/ curfptr[272] = (void*) sy_CLASS_OBJCLOCCV; } /*getnamedsym:CLASS_OBJCONSTV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCONSTV = basilysgc_named_symbol("CLASS_OBJCONSTV", BASILYS_GET); if (sy_CLASS_OBJCONSTV && NULL == /*_.VALDATA___V277*/ curfptr[276]) /*_.VALDATA___V277*/ curfptr[276] = (void*) sy_CLASS_OBJCONSTV; } /*getnamedsym:CLASS_OBJBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJBLOCK = basilysgc_named_symbol("CLASS_OBJBLOCK", BASILYS_GET); if (sy_CLASS_OBJBLOCK && NULL == /*_.VALDATA___V284*/ curfptr[283]) /*_.VALDATA___V284*/ curfptr[283] = (void*) sy_CLASS_OBJBLOCK; } /*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___V286*/ curfptr[285]) /*_.VALDATA___V286*/ curfptr[285] = (void*) sy_DISCR_INTEGER; } /*getnamedsym:CLASS_OBJCITERBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCITERBLOCK = basilysgc_named_symbol("CLASS_OBJCITERBLOCK", BASILYS_GET); if (sy_CLASS_OBJCITERBLOCK && NULL == /*_.VALDATA___V292*/ curfptr[291]) /*_.VALDATA___V292*/ curfptr[291] = (void*) sy_CLASS_OBJCITERBLOCK; } /*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___V294*/ curfptr[293]) /*_.VALDATA___V294*/ curfptr[293] = (void*) sy_CLASS_CITERATOR; } /*getnamedsym:CLASS_OBJCOMMENTINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMMENTINSTR = basilysgc_named_symbol("CLASS_OBJCOMMENTINSTR", BASILYS_GET); if (sy_CLASS_OBJCOMMENTINSTR && NULL == /*_.VALDATA___V298*/ curfptr[297]) /*_.VALDATA___V298*/ curfptr[297] = (void*) sy_CLASS_OBJCOMMENTINSTR; } /*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___V300*/ curfptr[299]) /*_.VALDATA___V300*/ curfptr[299] = (void*) sy_DISCR_STRBUF; } /*getnamedsym:CLASS_OBJCOMMENTEDBLOCK*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMMENTEDBLOCK = basilysgc_named_symbol("CLASS_OBJCOMMENTEDBLOCK", BASILYS_GET); if (sy_CLASS_OBJCOMMENTEDBLOCK && NULL == /*_.VALDATA___V304*/ curfptr[303]) /*_.VALDATA___V304*/ curfptr[303] = (void*) sy_CLASS_OBJCOMMENTEDBLOCK; } /*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___V308*/ curfptr[307]) /*_.VALDATA___V308*/ curfptr[307] = (void*) sy_CLASS_CLONEDSYMBOL; } /*getnamedsym:CLASS_OBJLOOP*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOOP = basilysgc_named_symbol("CLASS_OBJLOOP", BASILYS_GET); if (sy_CLASS_OBJLOOP && NULL == /*_.VALDATA___V314*/ curfptr[313]) /*_.VALDATA___V314*/ curfptr[313] = (void*) sy_CLASS_OBJLOOP; } /*getnamedsym:CLASS_OBJEXIT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJEXIT = basilysgc_named_symbol("CLASS_OBJEXIT", BASILYS_GET); if (sy_CLASS_OBJEXIT && NULL == /*_.VALDATA___V318*/ curfptr[317]) /*_.VALDATA___V318*/ curfptr[317] = (void*) sy_CLASS_OBJEXIT; } /*getnamedsym:CLASS_OBJCOMPUTE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOMPUTE = basilysgc_named_symbol("CLASS_OBJCOMPUTE", BASILYS_GET); if (sy_CLASS_OBJCOMPUTE && NULL == /*_.VALDATA___V325*/ curfptr[324]) /*_.VALDATA___V325*/ curfptr[324] = (void*) sy_CLASS_OBJCOMPUTE; } /*getnamedsym:CLASS_OBJCOND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCOND = basilysgc_named_symbol("CLASS_OBJCOND", BASILYS_GET); if (sy_CLASS_OBJCOND && NULL == /*_.VALDATA___V329*/ curfptr[328]) /*_.VALDATA___V329*/ curfptr[328] = (void*) sy_CLASS_OBJCOND; } /*getnamedsym:CLASS_OBJCPPIF*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCPPIF = basilysgc_named_symbol("CLASS_OBJCPPIF", BASILYS_GET); if (sy_CLASS_OBJCPPIF && NULL == /*_.VALDATA___V333*/ curfptr[332]) /*_.VALDATA___V333*/ curfptr[332] = (void*) sy_CLASS_OBJCPPIF; } /*getnamedsym:CLASS_OBJINTERNSYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINTERNSYMBOL = basilysgc_named_symbol("CLASS_OBJINTERNSYMBOL", BASILYS_GET); if (sy_CLASS_OBJINTERNSYMBOL && NULL == /*_.VALDATA___V337*/ curfptr[336]) /*_.VALDATA___V337*/ curfptr[336] = (void*) sy_CLASS_OBJINTERNSYMBOL; } /*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___V339*/ curfptr[338]) /*_.VALDATA___V339*/ curfptr[338] = (void*) sy_CLASS_NREP_DATASYMBOL; } /*getnamedsym:CLASS_OBJINTERNKEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINTERNKEYWORD = basilysgc_named_symbol("CLASS_OBJINTERNKEYWORD", BASILYS_GET); if (sy_CLASS_OBJINTERNKEYWORD && NULL == /*_.VALDATA___V343*/ curfptr[342]) /*_.VALDATA___V343*/ curfptr[342] = (void*) sy_CLASS_OBJINTERNKEYWORD; } /*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___V345*/ curfptr[344]) /*_.VALDATA___V345*/ curfptr[344] = (void*) sy_CLASS_NREP_DATAKEYWORD; } /*getnamedsym:CLASS_OBJGETNAMEDSYMBOL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETNAMEDSYMBOL = basilysgc_named_symbol("CLASS_OBJGETNAMEDSYMBOL", BASILYS_GET); if (sy_CLASS_OBJGETNAMEDSYMBOL && NULL == /*_.VALDATA___V349*/ curfptr[348]) /*_.VALDATA___V349*/ curfptr[348] = (void*) sy_CLASS_OBJGETNAMEDSYMBOL; } /*getnamedsym:CLASS_OBJGETNAMEDKEYWORD*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETNAMEDKEYWORD = basilysgc_named_symbol("CLASS_OBJGETNAMEDKEYWORD", BASILYS_GET); if (sy_CLASS_OBJGETNAMEDKEYWORD && NULL == /*_.VALDATA___V353*/ curfptr[352]) /*_.VALDATA___V353*/ curfptr[352] = (void*) sy_CLASS_OBJGETNAMEDKEYWORD; } /*getnamedsym:CLASS_OBJAPPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJAPPLY = basilysgc_named_symbol("CLASS_OBJAPPLY", BASILYS_GET); if (sy_CLASS_OBJAPPLY && NULL == /*_.VALDATA___V360*/ curfptr[359]) /*_.VALDATA___V360*/ curfptr[359] = (void*) sy_CLASS_OBJAPPLY; } /*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___V362*/ curfptr[361]) /*_.VALDATA___V362*/ curfptr[361] = (void*) sy_DISCR_LIST; } /*getnamedsym:CLASS_OBJINSTR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJINSTR = basilysgc_named_symbol("CLASS_OBJINSTR", BASILYS_GET); if (sy_CLASS_OBJINSTR && NULL == /*_.VALDATA___V364*/ curfptr[363]) /*_.VALDATA___V364*/ curfptr[363] = (void*) sy_CLASS_OBJINSTR; } /*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___V366*/ curfptr[365]) /*_.VALDATA___V366*/ curfptr[365] = (void*) sy_GET_CTYPE; } /*getnamedsym:CLASS_OBJMSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMSEND = basilysgc_named_symbol("CLASS_OBJMSEND", BASILYS_GET); if (sy_CLASS_OBJMSEND && NULL == /*_.VALDATA___V373*/ curfptr[372]) /*_.VALDATA___V373*/ curfptr[372] = (void*) sy_CLASS_OBJMSEND; } /*getnamedsym:CLASS_OBJMULTIAPPLY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMULTIAPPLY = basilysgc_named_symbol("CLASS_OBJMULTIAPPLY", BASILYS_GET); if (sy_CLASS_OBJMULTIAPPLY && NULL == /*_.VALDATA___V383*/ curfptr[382]) /*_.VALDATA___V383*/ curfptr[382] = (void*) sy_CLASS_OBJMULTIAPPLY; } /*getnamedsym:CLASS_OBJMULTIMSEND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJMULTIMSEND = basilysgc_named_symbol("CLASS_OBJMULTIMSEND", BASILYS_GET); if (sy_CLASS_OBJMULTIMSEND && NULL == /*_.VALDATA___V393*/ curfptr[392]) /*_.VALDATA___V393*/ curfptr[392] = (void*) sy_CLASS_OBJMULTIMSEND; } /*getnamedsym:CLASS_OBJCLEAR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJCLEAR = basilysgc_named_symbol("CLASS_OBJCLEAR", BASILYS_GET); if (sy_CLASS_OBJCLEAR && NULL == /*_.VALDATA___V397*/ curfptr[396]) /*_.VALDATA___V397*/ curfptr[396] = (void*) sy_CLASS_OBJCLEAR; } /*getnamedsym:CLASS_OBJRAWALLOCOBJ*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJRAWALLOCOBJ = basilysgc_named_symbol("CLASS_OBJRAWALLOCOBJ", BASILYS_GET); if (sy_CLASS_OBJRAWALLOCOBJ && NULL == /*_.VALDATA___V402*/ curfptr[401]) /*_.VALDATA___V402*/ curfptr[401] = (void*) sy_CLASS_OBJRAWALLOCOBJ; } /*getnamedsym:CLASS_OBJNEWCLOSURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJNEWCLOSURE = basilysgc_named_symbol("CLASS_OBJNEWCLOSURE", BASILYS_GET); if (sy_CLASS_OBJNEWCLOSURE && NULL == /*_.VALDATA___V407*/ curfptr[406]) /*_.VALDATA___V407*/ curfptr[406] = (void*) sy_CLASS_OBJNEWCLOSURE; } /*getnamedsym:CLASS_OBJTOUCH*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJTOUCH = basilysgc_named_symbol("CLASS_OBJTOUCH", BASILYS_GET); if (sy_CLASS_OBJTOUCH && NULL == /*_.VALDATA___V411*/ curfptr[410]) /*_.VALDATA___V411*/ curfptr[410] = (void*) sy_CLASS_OBJTOUCH; } /*getnamedsym:CLASS_OBJPUTUPLE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTUPLE = basilysgc_named_symbol("CLASS_OBJPUTUPLE", BASILYS_GET); if (sy_CLASS_OBJPUTUPLE && NULL == /*_.VALDATA___V415*/ curfptr[414]) /*_.VALDATA___V415*/ curfptr[414] = (void*) sy_CLASS_OBJPUTUPLE; } /*getnamedsym:CLASS_OBJGETSLOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJGETSLOT = basilysgc_named_symbol("CLASS_OBJGETSLOT", BASILYS_GET); if (sy_CLASS_OBJGETSLOT && NULL == /*_.VALDATA___V420*/ curfptr[419]) /*_.VALDATA___V420*/ curfptr[419] = (void*) sy_CLASS_OBJGETSLOT; } /*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___V422*/ curfptr[421]) /*_.VALDATA___V422*/ curfptr[421] = (void*) sy_CLASS_FIELD; } /*getnamedsym:CLASS_OBJPUTSLOT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTSLOT = basilysgc_named_symbol("CLASS_OBJPUTSLOT", BASILYS_GET); if (sy_CLASS_OBJPUTSLOT && NULL == /*_.VALDATA___V426*/ curfptr[425]) /*_.VALDATA___V426*/ curfptr[425] = (void*) sy_CLASS_OBJPUTSLOT; } /*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___V428*/ curfptr[427]) /*_.VALDATA___V428*/ curfptr[427] = (void*) sy_CLASS_NREP; } /*getnamedsym:CLASS_OBJPUTCLOSUROUT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSUROUT = basilysgc_named_symbol("CLASS_OBJPUTCLOSUROUT", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSUROUT && NULL == /*_.VALDATA___V432*/ curfptr[431]) /*_.VALDATA___V432*/ curfptr[431] = (void*) sy_CLASS_OBJPUTCLOSUROUT; } /*getnamedsym:CLASS_OBJPUTCLOSEDV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSEDV = basilysgc_named_symbol("CLASS_OBJPUTCLOSEDV", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSEDV && NULL == /*_.VALDATA___V436*/ curfptr[435]) /*_.VALDATA___V436*/ curfptr[435] = (void*) sy_CLASS_OBJPUTCLOSEDV; } /*getnamedsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTCLOSEDNOTNULLV = basilysgc_named_symbol("CLASS_OBJPUTCLOSEDNOTNULLV", BASILYS_GET); if (sy_CLASS_OBJPUTCLOSEDNOTNULLV && NULL == /*_.VALDATA___V440*/ curfptr[439]) /*_.VALDATA___V440*/ curfptr[439] = (void*) sy_CLASS_OBJPUTCLOSEDNOTNULLV; } /*getnamedsym:CLASS_OBJPUTROUTCONST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTROUTCONST = basilysgc_named_symbol("CLASS_OBJPUTROUTCONST", BASILYS_GET); if (sy_CLASS_OBJPUTROUTCONST && NULL == /*_.VALDATA___V444*/ curfptr[443]) /*_.VALDATA___V444*/ curfptr[443] = (void*) sy_CLASS_OBJPUTROUTCONST; } /*getnamedsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTROUTCONSTNOTNULL = basilysgc_named_symbol("CLASS_OBJPUTROUTCONSTNOTNULL", BASILYS_GET); if (sy_CLASS_OBJPUTROUTCONSTNOTNULL && NULL == /*_.VALDATA___V448*/ curfptr[447]) /*_.VALDATA___V448*/ curfptr[447] = (void*) sy_CLASS_OBJPUTROUTCONSTNOTNULL; } /*getnamedsym:CLASS_OBJPUTXTRARESULT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJPUTXTRARESULT = basilysgc_named_symbol("CLASS_OBJPUTXTRARESULT", BASILYS_GET); if (sy_CLASS_OBJPUTXTRARESULT && NULL == /*_.VALDATA___V452*/ curfptr[451]) /*_.VALDATA___V452*/ curfptr[451] = (void*) sy_CLASS_OBJPUTXTRARESULT; } /*getnamedsym:CLASS_OBJEXPV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJEXPV = basilysgc_named_symbol("CLASS_OBJEXPV", BASILYS_GET); if (sy_CLASS_OBJEXPV && NULL == /*_.VALDATA___V457*/ curfptr[456]) /*_.VALDATA___V457*/ curfptr[456] = (void*) sy_CLASS_OBJEXPV; } /*getnamedsym:CLASS_OBJLOCATEDEXPV*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJLOCATEDEXPV = basilysgc_named_symbol("CLASS_OBJLOCATEDEXPV", BASILYS_GET); if (sy_CLASS_OBJLOCATEDEXPV && NULL == /*_.VALDATA___V462*/ curfptr[461]) /*_.VALDATA___V462*/ curfptr[461] = (void*) sy_CLASS_OBJLOCATEDEXPV; } /*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___V466*/ curfptr[465]) /*_.VALDATA___V466*/ curfptr[465] = (void*) sy_DISCR_VERBATIMSTRING; } /*getnamedsym:CLASS_OBJFINALRETURN*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_CLASS_OBJFINALRETURN = basilysgc_named_symbol("CLASS_OBJFINALRETURN", BASILYS_GET); if (sy_CLASS_OBJFINALRETURN && NULL == /*_.VALDATA___V474*/ curfptr[473]) /*_.VALDATA___V474*/ curfptr[473] = (void*) sy_CLASS_OBJFINALRETURN; } /*getnamedsym:MAPSTRING_EVERY*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MAPSTRING_EVERY = basilysgc_named_symbol("MAPSTRING_EVERY", BASILYS_GET); if (sy_MAPSTRING_EVERY && NULL == /*_.VALDATA___V480*/ curfptr[479]) /*_.VALDATA___V480*/ curfptr[479] = (void*) sy_MAPSTRING_EVERY; } /*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___V482*/ curfptr[481]) /*_.VALDATA___V482*/ curfptr[481] = (void*) sy_LIST_TO_MULTIPLE; } /*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___V484*/ curfptr[483]) /*_.VALDATA___V484*/ curfptr[483] = (void*) sy_DISCR_MULTIPLE; } /*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___V490*/ curfptr[489]) /*_.VALDATA___V490*/ curfptr[489] = (void*) sy_CLASS_MODULCONTEXT; } /*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___V492*/ curfptr[491]) /*_.VALDATA___V492*/ curfptr[491] = (void*) sy_CLASS_CLASS; } /*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___V499*/ curfptr[498]) /*_.VALDATA___V499*/ curfptr[498] = (void*) sy_CLASS_ENVIRONMENT; } /*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___V501*/ curfptr[500]) /*_.VALDATA___V501*/ curfptr[500] = (void*) sy_DISCR_MAPSTRINGS; } /*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___V503*/ curfptr[502]) /*_.VALDATA___V503*/ curfptr[502] = (void*) sy_CREATE_NORMCONTEXT; } /*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___V505*/ curfptr[504]) /*_.VALDATA___V505*/ curfptr[504] = (void*) sy_CLASS_NORMCONTEXT; } /*getnamedsym:MACROEXPAND_TOPLEVEL_LIST*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_MACROEXPAND_TOPLEVEL_LIST = basilysgc_named_symbol("MACROEXPAND_TOPLEVEL_LIST", BASILYS_GET); if (sy_MACROEXPAND_TOPLEVEL_LIST && NULL == /*_.VALDATA___V507*/ curfptr[506]) /*_.VALDATA___V507*/ curfptr[506] = (void*) sy_MACROEXPAND_TOPLEVEL_LIST; } /*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___V509*/ curfptr[508]) /*_.VALDATA___V509*/ curfptr[508] = (void*) sy_CLASS_SRC; } /*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___V511*/ curfptr[510]) /*_.VALDATA___V511*/ curfptr[510] = (void*) sy_CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER; } /*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___V513*/ curfptr[512]) /*_.VALDATA___V513*/ curfptr[512] = (void*) sy_CLASS_NREP_INITPROC; } /*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___V515*/ curfptr[514]) /*_.VALDATA___V515*/ curfptr[514] = (void*) sy_CLASS_LOCATED; } /*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___V517*/ curfptr[516]) /*_.VALDATA___V517*/ curfptr[516] = (void*) sy_CLASS_SRC_COMMENT; } /*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___V519*/ curfptr[518]) /*_.VALDATA___V519*/ curfptr[518] = (void*) sy_NORMAL_EXP; } /*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___V521*/ curfptr[520]) /*_.VALDATA___V521*/ curfptr[520] = (void*) sy_CLASS_NREP_ANYPROC; } /*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___V523*/ curfptr[522]) /*_.VALDATA___V523*/ curfptr[522] = (void*) sy_WRAP_NORMAL_LET1; } /*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___V525*/ curfptr[524]) /*_.VALDATA___V525*/ curfptr[524] = (void*) sy_DISCR_MAPOBJECTS; } /*getnamedsym:COMPILE2OBJ_PROCEDURE*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE2OBJ_PROCEDURE = basilysgc_named_symbol("COMPILE2OBJ_PROCEDURE", BASILYS_GET); if (sy_COMPILE2OBJ_PROCEDURE && NULL == /*_.VALDATA___V527*/ curfptr[526]) /*_.VALDATA___V527*/ curfptr[526] = (void*) sy_COMPILE2OBJ_PROCEDURE; } /*getnamedsym:COMPILE2OBJ_INITPROC*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE2OBJ_INITPROC = basilysgc_named_symbol("COMPILE2OBJ_INITPROC", BASILYS_GET); if (sy_COMPILE2OBJ_INITPROC && NULL == /*_.VALDATA___V529*/ curfptr[528]) /*_.VALDATA___V529*/ curfptr[528] = (void*) sy_COMPILE2OBJ_INITPROC; } /*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___V533*/ curfptr[532]) /*_.VALDATA___V533*/ curfptr[532] = (void*) sy_INITIAL_SYSTEM_DATA; } /*getnamedsym:INITIAL_ENVIRONMENT*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITIAL_ENVIRONMENT = basilysgc_named_symbol("INITIAL_ENVIRONMENT", BASILYS_GET); if (sy_INITIAL_ENVIRONMENT && NULL == /*_.VALDATA___V542*/ curfptr[541]) /*_.VALDATA___V542*/ curfptr[541] = (void*) sy_INITIAL_ENVIRONMENT; } /*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___V544*/ curfptr[543]) /*_.VALDATA___V544*/ curfptr[543] = (void*) sy_LIST_APPEND2LIST; } /*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___V553*/ curfptr[552]) /*_.VALDATA___V553*/ curfptr[552] = (void*) sy_FIND_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___V555*/ curfptr[554]) /*_.VALDATA___V555*/ curfptr[554] = (void*) sy_CLASS_VALUE_BINDING; } /*getnamedsym:INITIAL_COMMAND_INSTALL*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INITIAL_COMMAND_INSTALL = basilysgc_named_symbol("INITIAL_COMMAND_INSTALL", BASILYS_GET); if (sy_INITIAL_COMMAND_INSTALL && NULL == /*_.VALDATA___V559*/ curfptr[558]) /*_.VALDATA___V559*/ curfptr[558] = (void*) sy_INITIAL_COMMAND_INSTALL; } /*getnamedsym:INSTALL_INITIAL_COMMAND*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_INSTALL_INITIAL_COMMAND = basilysgc_named_symbol("INSTALL_INITIAL_COMMAND", BASILYS_GET); if (sy_INSTALL_INITIAL_COMMAND && NULL == /*_.VALDATA___V561*/ curfptr[560]) /*_.VALDATA___V561*/ curfptr[560] = (void*) sy_INSTALL_INITIAL_COMMAND; } /*getnamedsym:COMPILE_LIST_SEXPR*/ if (BASILYSG(INITIAL_SYSTEM_DATA)) { basilys_ptr_t sy_COMPILE_LIST_SEXPR = basilysgc_named_symbol("COMPILE_LIST_SEXPR", BASILYS_GET); if (sy_COMPILE_LIST_SEXPR && NULL == /*_.VALDATA___V563*/ curfptr[562]) /*_.VALDATA___V563*/ curfptr[562] = (void*) sy_COMPILE_LIST_SEXPR; } /**COMMENT: get the value importer **/; { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 12, "SYSDATA_VALUE_IMPORTER");/*_.VALIMPORT___V6*/ curfptr[5] = slot; }; /**COMMENT: before getting imported values **/; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DEBUG_MSG_FUN__V7*/ curfptr[6] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_SYMBOL__V8*/ curfptr[7] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120]), (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__V9*/ curfptr[8] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124]), (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__V10*/ curfptr[9] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]), (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]; /*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]), (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_OBJINITELEM__V12*/ curfptr[11] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (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]; /*_.OUTPUT_C_CODE__V13*/ curfptr[12] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (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]; /*_.OUTPUT_C_INITFILL__V14*/ curfptr[13] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138]), (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]; /*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142]), (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]; /*_.OBPREDEF__V16*/ curfptr[15] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]), (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_OBJPREDEF__V17*/ curfptr[16] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150]), (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_OBJNIL__V18*/ curfptr[17] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]), (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_OBJINITOBJECT__V19*/ curfptr[18] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_NIL__V21*/ curfptr[20] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]), (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_OBJINITMULTIPLE__V22*/ curfptr[21] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174]), (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_OBJINITCLOSURE__V23*/ curfptr[22] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]), (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_OBJINITROUTINE__V24*/ curfptr[23] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190]), (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__V26*/ curfptr[25] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]), (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_OBJINITSTRING__V28*/ curfptr[27] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]), (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__V29*/ curfptr[28] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204]), (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__V30*/ curfptr[29] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.DISPLAYDEBUGMSG__V31*/ curfptr[30] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]), (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_INITIALROUTINEOBJ__V32*/ curfptr[31] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]), (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__V33*/ curfptr[32] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V220*/ curfptr[219]), (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_OBJLOCV__V34*/ curfptr[33] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]), (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__V35*/ curfptr[34] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]), (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_ROUTINEOBJ__V36*/ curfptr[35] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]), (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__V37*/ curfptr[36] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]), (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_OBJVALUE__V38*/ curfptr[37] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232]), (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_PROCROUTINEOBJ__V39*/ curfptr[38] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]), (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__V40*/ curfptr[39] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V243*/ curfptr[242]), (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__V41*/ curfptr[40] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244]), (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_OBJPUREVALUE__V42*/ curfptr[41] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246]), (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_OBJGETARG__V43*/ curfptr[42] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262]), (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__V44*/ curfptr[43] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264]), (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__V45*/ curfptr[44] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]), (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_OBJCLOCCV__V46*/ curfptr[45] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272]), (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_OBJCONSTV__V47*/ curfptr[46] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276]), (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_OBJBLOCK__V48*/ curfptr[47] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]), (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__V49*/ curfptr[48] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]), (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_OBJCITERBLOCK__V50*/ curfptr[49] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]), (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__V51*/ curfptr[50] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]), (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_OBJCOMMENTINSTR__V52*/ curfptr[51] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]), (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__V53*/ curfptr[52] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299]), (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_OBJCOMMENTEDBLOCK__V54*/ curfptr[53] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]), (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__V55*/ curfptr[54] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307]), (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_OBJLOOP__V56*/ curfptr[55] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313]), (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_OBJEXIT__V57*/ curfptr[56] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]), (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_OBJCOMPUTE__V58*/ curfptr[57] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]), (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_OBJCOND__V59*/ curfptr[58] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328]), (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_OBJCPPIF__V60*/ curfptr[59] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332]), (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_OBJINTERNSYMBOL__V61*/ curfptr[60] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATASYMBOL__V62*/ curfptr[61] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]), (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_OBJINTERNKEYWORD__V63*/ curfptr[62] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_DATAKEYWORD__V64*/ curfptr[63] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344]), (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_OBJGETNAMEDSYMBOL__V65*/ curfptr[64] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348]), (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_OBJGETNAMEDKEYWORD__V66*/ curfptr[65] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]), (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_OBJAPPLY__V67*/ curfptr[66] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]), (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__V68*/ curfptr[67] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]), (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_OBJINSTR__V69*/ curfptr[68] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.GET_CTYPE__V70*/ curfptr[69] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365]), (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_OBJMSEND__V71*/ curfptr[70] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372]), (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_OBJMULTIAPPLY__V72*/ curfptr[71] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]), (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_OBJMULTIMSEND__V73*/ curfptr[72] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392]), (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_OBJCLEAR__V74*/ curfptr[73] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]), (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_OBJRAWALLOCOBJ__V75*/ curfptr[74] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]), (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_OBJNEWCLOSURE__V76*/ curfptr[75] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406]), (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_OBJTOUCH__V77*/ curfptr[76] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410]), (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_OBJPUTUPLE__V78*/ curfptr[77] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]), (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_OBJGETSLOT__V79*/ curfptr[78] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]), (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__V80*/ curfptr[79] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]), (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_OBJPUTSLOT__V81*/ curfptr[80] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP__V82*/ curfptr[81] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427]), (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_OBJPUTCLOSUROUT__V83*/ curfptr[82] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431]), (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_OBJPUTCLOSEDV__V84*/ curfptr[83] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]), (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_OBJPUTCLOSEDNOTNULLV__V85*/ curfptr[84] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439]), (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_OBJPUTROUTCONST__V86*/ curfptr[85] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]), (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_OBJPUTROUTCONSTNOTNULL__V87*/ curfptr[86] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447]), (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_OBJPUTXTRARESULT__V88*/ curfptr[87] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V452*/ curfptr[451]), (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_OBJEXPV__V89*/ curfptr[88] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456]), (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_OBJLOCATEDEXPV__V90*/ curfptr[89] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]), (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__V91*/ curfptr[90] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465]), (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_OBJFINALRETURN__V92*/ curfptr[91] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473]), (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]; /*_.MAPSTRING_EVERY__V93*/ curfptr[92] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]), (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__V94*/ curfptr[93] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]), (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__V95*/ curfptr[94] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]), (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__V96*/ curfptr[95] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489]), (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__V97*/ curfptr[96] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491]), (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__V98*/ curfptr[97] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498]), (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__V99*/ curfptr[98] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500]), (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]; /*_.CREATE_NORMCONTEXT__V100*/ curfptr[99] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502]), (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__V101*/ curfptr[100] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]), (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]; /*_.MACROEXPAND_TOPLEVEL_LIST__V102*/ curfptr[101] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506]), (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__V103*/ curfptr[102] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508]), (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__V104*/ curfptr[103] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_INITPROC__V105*/ curfptr[104] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512]), (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_LOCATED__V106*/ curfptr[105] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]), (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__V107*/ curfptr[106] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]), (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]; /*_.NORMAL_EXP__V108*/ curfptr[107] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.PREVENV___V4*/ curfptr[3]; /*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520]), (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]; /*_.WRAP_NORMAL_LET1__V110*/ curfptr[109] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]), (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__V111*/ curfptr[110] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]), (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]; /*_.COMPILE2OBJ_PROCEDURE__V112*/ curfptr[111] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]), (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]; /*_.COMPILE2OBJ_INITPROC__V113*/ curfptr[112] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V529*/ curfptr[528]), (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]; /*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532]), (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]; /*_.INITIAL_ENVIRONMENT__V115*/ curfptr[114] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]), (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__V116*/ curfptr[115] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]), (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__V117*/ curfptr[116] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552]), (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__V118*/ curfptr[117] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALIMPORT___V6*/ curfptr[5]), (basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554]), (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___V119*/ curfptr[118])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])))); ((basilysobject_ptr_t)(/*_.VALDATA___V119*/ curfptr[118]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V120*/ curfptr[119]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V119*/ curfptr[118]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])))); ((basilysobject_ptr_t)(/*_.VALDATA___V121*/ curfptr[120]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V122*/ curfptr[121]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V121*/ curfptr[120]); BASILYS_LOCATION("warmelt-outobj.bysl:36:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V123*/ curfptr[122])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_5__OUTDECLINIT_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V123*/ curfptr[122])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:36:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V123*/ curfptr[122]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V124*/ curfptr[123])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V123*/ curfptr[122])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V124*/ curfptr[123])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V123*/ curfptr[122]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V124*/ curfptr[123]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])))); ((basilysobject_ptr_t)(/*_.VALDATA___V125*/ curfptr[124]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V126*/ curfptr[125]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V125*/ curfptr[124]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])))); ((basilysobject_ptr_t)(/*_.VALDATA___V127*/ curfptr[126]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V128*/ curfptr[127]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V127*/ curfptr[126]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])))); ((basilysobject_ptr_t)(/*_.VALDATA___V129*/ curfptr[128]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V130*/ curfptr[129]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V129*/ curfptr[128]); BASILYS_LOCATION("warmelt-outobj.bysl:43:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V131*/ curfptr[130])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_13__OUTPUCOD_OBJINIELEM#0", NULL != (/*_.CLASS_OBJINITELEM__V12*/ curfptr[11])); ((basilysroutine_ptr_t)/*_.VALROUT___V131*/ curfptr[130])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITELEM__V12*/ curfptr[11]); BASILYS_LOCATION("warmelt-outobj.bysl:43:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V131*/ curfptr[130])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_13__OUTPUCOD_OBJINIELEM#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V131*/ curfptr[130])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:43:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V131*/ curfptr[130]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V132*/ curfptr[131])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V131*/ curfptr[130])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V132*/ curfptr[131])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V131*/ curfptr[130]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V132*/ curfptr[131]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:54:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V137*/ curfptr[136])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_19__OUTCINITFILL_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V137*/ curfptr[136])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:54:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V137*/ curfptr[136]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V138*/ curfptr[137])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V137*/ curfptr[136])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V138*/ curfptr[137])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V137*/ curfptr[136]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V138*/ curfptr[137]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:62:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V141*/ curfptr[140])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_23__OUTCINITPREDEF_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V141*/ curfptr[140])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:62:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V141*/ curfptr[140]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V142*/ curfptr[141])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V141*/ curfptr[140])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V142*/ curfptr[141])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V141*/ curfptr[140]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V142*/ curfptr[141]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V143*/ curfptr[142]); BASILYS_LOCATION("warmelt-outobj.bysl:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V145*/ curfptr[144])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#0", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V145*/ curfptr[144])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.bysl:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V145*/ curfptr[144])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V145*/ curfptr[144])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:69:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V145*/ curfptr[144])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_27__OUTPUT_PREDEF#2", NULL != (/*_.OBPREDEF__V16*/ curfptr[15])); ((basilysroutine_ptr_t)/*_.VALROUT___V145*/ curfptr[144])->tabval[2] = (basilys_ptr_t)(/*_.OBPREDEF__V16*/ curfptr[15]); BASILYS_LOCATION("warmelt-outobj.bysl:69:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V145*/ curfptr[144]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V146*/ curfptr[145])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V145*/ curfptr[144])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V146*/ curfptr[145])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V145*/ curfptr[144]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V146*/ curfptr[145]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])))); ((basilysobject_ptr_t)(/*_.VALDATA___V147*/ curfptr[146]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V148*/ curfptr[147]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V147*/ curfptr[146]); BASILYS_LOCATION("warmelt-outobj.bysl:88:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V149*/ curfptr[148])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_31__OUTPUCOD_PREDEF#0", NULL != (/*_.CLASS_OBJPREDEF__V17*/ curfptr[16])); ((basilysroutine_ptr_t)/*_.VALROUT___V149*/ curfptr[148])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPREDEF__V17*/ curfptr[16]); BASILYS_LOCATION("warmelt-outobj.bysl:88:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V149*/ curfptr[148])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V146*/ curfptr[145]); ((basilysroutine_ptr_t)/*_.VALROUT___V149*/ curfptr[148])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V146*/ curfptr[145]); BASILYS_LOCATION("warmelt-outobj.bysl:88:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V149*/ curfptr[148]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V150*/ curfptr[149])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V149*/ curfptr[148])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V150*/ curfptr[149])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V149*/ curfptr[148]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V150*/ curfptr[149]); /*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-outobj.bysl:95:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V153*/ curfptr[152])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_35__OUTPUCOD_NIL#0", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V153*/ curfptr[152])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.bysl:95:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V153*/ curfptr[152]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V154*/ curfptr[153])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V153*/ curfptr[152])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V154*/ curfptr[153])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V153*/ curfptr[152]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V154*/ curfptr[153]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])))); ((basilysobject_ptr_t)(/*_.VALDATA___V155*/ curfptr[154]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V156*/ curfptr[155]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V155*/ curfptr[154]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V158*/ curfptr[157])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V157*/ curfptr[156])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V158*/ curfptr[157])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V157*/ curfptr[156]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V158*/ curfptr[157]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V159*/ curfptr[158]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#0", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#2", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V165*/ curfptr[164])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V164*/ curfptr[163])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V165*/ curfptr[164]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.bysl:589:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V163*/ curfptr[162])->tabval[0] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.bysl:589:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V163*/ curfptr[162]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V163*/ curfptr[162])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V162*/ curfptr[161])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V163*/ curfptr[162]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V146*/ curfptr[145]); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V146*/ curfptr[145]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_43__OUTCINITFILL_OBJINITOBJECT#6", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V161*/ curfptr[160])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.bysl:111:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V161*/ curfptr[160]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V166*/ curfptr[165])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V161*/ curfptr[160])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V166*/ curfptr[165])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V161*/ curfptr[160]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V166*/ curfptr[165]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])))); ((basilysobject_ptr_t)(/*_.VALDATA___V167*/ curfptr[166]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V168*/ curfptr[167]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V167*/ curfptr[166]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#0", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#2", NULL != (/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19])); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAINSTANCE__V20*/ curfptr[19]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#3", NULL != (/*_.CLASS_NREP_NIL__V21*/ curfptr[20])); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_NIL__V21*/ curfptr[20]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_47__OUTCINITPREDEF_OBJINITOBJECT#5", NULL != (/*_.CLASS_SYMBOL__V8*/ curfptr[7])); ((basilysroutine_ptr_t)/*_.VALROUT___V169*/ curfptr[168])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]); BASILYS_LOCATION("warmelt-outobj.bysl:231:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V169*/ curfptr[168]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V170*/ curfptr[169])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V169*/ curfptr[168])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V170*/ curfptr[169])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V169*/ curfptr[168]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V170*/ curfptr[169]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])))); ((basilysobject_ptr_t)(/*_.VALDATA___V171*/ curfptr[170]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V172*/ curfptr[171]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V171*/ curfptr[170]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V174*/ curfptr[173])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V173*/ curfptr[172])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V174*/ curfptr[173])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V173*/ curfptr[172]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V174*/ curfptr[173]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V177*/ curfptr[176])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#0", NULL != (/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21])); ((basilysroutine_ptr_t)/*_.VALROUT___V177*/ curfptr[176])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]); BASILYS_LOCATION("warmelt-outobj.bysl:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V177*/ curfptr[176])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V177*/ curfptr[176])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:321:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V177*/ curfptr[176])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_55__OUTCINITFILL_OBJINITMULTIPLE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V177*/ curfptr[176])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:321:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V177*/ curfptr[176]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V178*/ curfptr[177])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V177*/ curfptr[176])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V178*/ curfptr[177])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V177*/ curfptr[176]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V178*/ curfptr[177]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V180*/ curfptr[179])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V179*/ curfptr[178])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V180*/ curfptr[179])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V179*/ curfptr[178]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V180*/ curfptr[179]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])))); ((basilysobject_ptr_t)(/*_.VALDATA___V181*/ curfptr[180]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V182*/ curfptr[181]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V181*/ curfptr[180]); BASILYS_LOCATION("warmelt-outobj.bysl:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V183*/ curfptr[182])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#0", NULL != (/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22])); ((basilysroutine_ptr_t)/*_.VALROUT___V183*/ curfptr[182])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]); BASILYS_LOCATION("warmelt-outobj.bysl:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V183*/ curfptr[182])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V183*/ curfptr[182])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:362:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V183*/ curfptr[182])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_61__OUTCINITFILL_OBJINITCLOSURE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V183*/ curfptr[182])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:362:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V183*/ curfptr[182]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V184*/ curfptr[183])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V183*/ curfptr[182])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V184*/ curfptr[183])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V183*/ curfptr[182]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V184*/ curfptr[183]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V186*/ curfptr[185])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V185*/ curfptr[184])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V186*/ curfptr[185])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V185*/ curfptr[184]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V186*/ curfptr[185]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#0", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#3", NULL != (/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAROUTINE__V25*/ curfptr[24]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_67__OUTCINITFILL_OBJINITROUTINE#5", NULL != (/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26])); ((basilysroutine_ptr_t)/*_.VALROUT___V189*/ curfptr[188])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_ROUTPROC__V27*/ curfptr[26]); BASILYS_LOCATION("warmelt-outobj.bysl:407:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V189*/ curfptr[188]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V190*/ curfptr[189])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V189*/ curfptr[188])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V190*/ curfptr[189])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V189*/ curfptr[188]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V190*/ curfptr[189]); /*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]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V193*/ curfptr[192]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])))); ((basilysobject_ptr_t)(/*_.VALDATA___V195*/ curfptr[194]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V196*/ curfptr[195]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V195*/ curfptr[194]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V198*/ curfptr[197])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V197*/ curfptr[196])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V198*/ curfptr[197])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V197*/ curfptr[196]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V198*/ curfptr[197]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])))); ((basilysobject_ptr_t)(/*_.VALDATA___V199*/ curfptr[198]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V200*/ curfptr[199]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V199*/ curfptr[198]); BASILYS_LOCATION("warmelt-outobj.bysl:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V201*/ curfptr[200])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#0", NULL != (/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27])); ((basilysroutine_ptr_t)/*_.VALROUT___V201*/ curfptr[200])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]); BASILYS_LOCATION("warmelt-outobj.bysl:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V201*/ curfptr[200])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V201*/ curfptr[200])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:496:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V201*/ curfptr[200])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_79__OUTCINITFILL_OBJINITSTRING#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V201*/ curfptr[200])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:496:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V201*/ curfptr[200]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V202*/ curfptr[201])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V201*/ curfptr[200])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V202*/ curfptr[201])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V201*/ curfptr[200]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V202*/ curfptr[201]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V204*/ curfptr[203])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V203*/ curfptr[202])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V204*/ curfptr[203])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V203*/ curfptr[202]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V204*/ curfptr[203]); /*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]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V208*/ curfptr[207])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V207*/ curfptr[206])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V208*/ curfptr[207])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V207*/ curfptr[206]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V208*/ curfptr[207]); /*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-outobj.bysl:545:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_89__OUTPUCOD_CATCHALL_ROOT#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:545:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_89__OUTPUCOD_CATCHALL_ROOT#1", NULL != (/*_.DISPLAYDEBUGMSG__V31*/ curfptr[30])); ((basilysroutine_ptr_t)/*_.VALROUT___V211*/ curfptr[210])->tabval[1] = (basilys_ptr_t)(/*_.DISPLAYDEBUGMSG__V31*/ curfptr[30]); BASILYS_LOCATION("warmelt-outobj.bysl:545:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V211*/ curfptr[210]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V212*/ curfptr[211])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V211*/ curfptr[210])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V212*/ curfptr[211])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V211*/ curfptr[210]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V212*/ curfptr[211]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])))); ((basilysobject_ptr_t)(/*_.VALDATA___V213*/ curfptr[212]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V214*/ curfptr[213]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V213*/ curfptr[212]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#1", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#2", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[2] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#3", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#4", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V216*/ curfptr[215])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_103__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V216*/ curfptr[215])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:690:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V216*/ curfptr[215])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_103__LAMBDA_#1", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V216*/ curfptr[215])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:690:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_97__OUTPUT_CURFRAME_DECLSTRUCT#5", NULL != (/*_.VALROUT___V216*/ curfptr[215])); ((basilysroutine_ptr_t)/*_.VALROUT___V215*/ curfptr[214])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V216*/ curfptr[215]); BASILYS_LOCATION("warmelt-outobj.bysl:619:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V215*/ curfptr[214]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V217*/ curfptr[216])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V215*/ curfptr[214])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V217*/ curfptr[216])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V215*/ curfptr[214]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V217*/ curfptr[216]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])))); ((basilysobject_ptr_t)(/*_.VALDATA___V218*/ curfptr[217]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V219*/ curfptr[218]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V218*/ curfptr[217]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V220*/ curfptr[219])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V220*/ curfptr[219])))); ((basilysobject_ptr_t)(/*_.VALDATA___V220*/ curfptr[219]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V221*/ curfptr[220]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V220*/ curfptr[219]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])))); ((basilysobject_ptr_t)(/*_.VALDATA___V222*/ curfptr[221]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V223*/ curfptr[222]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V222*/ curfptr[221]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])))); ((basilysobject_ptr_t)(/*_.VALDATA___V224*/ curfptr[223]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V225*/ curfptr[224]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V224*/ curfptr[223]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#0", NULL != (/*_.CLASS_ROUTINEOBJ__V36*/ curfptr[35])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_ROUTINEOBJ__V36*/ curfptr[35]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#1", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#2", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#5", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#6", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#7", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#8", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V227*/ curfptr[226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V227*/ curfptr[226])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V227*/ curfptr[226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#1", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V227*/ curfptr[226])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V227*/ curfptr[226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V227*/ curfptr[226])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V227*/ curfptr[226])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_114__LAMBDA_#3", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V227*/ curfptr[226])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:735:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_108__OUTPUCOD_MARKER#9", NULL != (/*_.VALROUT___V227*/ curfptr[226])); ((basilysroutine_ptr_t)/*_.VALROUT___V226*/ curfptr[225])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V227*/ curfptr[226]); BASILYS_LOCATION("warmelt-outobj.bysl:714:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V226*/ curfptr[225]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V228*/ curfptr[227])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V226*/ curfptr[225])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V228*/ curfptr[227])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V226*/ curfptr[225]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V228*/ curfptr[227]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])))); ((basilysobject_ptr_t)(/*_.VALDATA___V229*/ curfptr[228]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V230*/ curfptr[229]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V229*/ curfptr[228]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V231*/ curfptr[230])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V231*/ curfptr[230])))); ((basilysobject_ptr_t)(/*_.VALDATA___V231*/ curfptr[230]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V232*/ curfptr[231]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V231*/ curfptr[230]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:768:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V235*/ curfptr[234])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_117__OUTPUT_CURFRAME_DECLSTRUCT_INIT#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V235*/ curfptr[234])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.bysl:768:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V235*/ curfptr[234])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V228*/ curfptr[227]); ((basilysroutine_ptr_t)/*_.VALROUT___V235*/ curfptr[234])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-outobj.bysl:768:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V235*/ curfptr[234]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V236*/ curfptr[235])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V235*/ curfptr[234])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V236*/ curfptr[235])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V235*/ curfptr[234]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V236*/ curfptr[235]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#0", NULL != (/*_.CLASS_PROCROUTINEOBJ__V39*/ curfptr[38])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V39*/ curfptr[38]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#1", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ curfptr[235]); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V236*/ curfptr[235]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V217*/ curfptr[216]); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V217*/ curfptr[216]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:894:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V238*/ curfptr[237])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_127__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V238*/ curfptr[237])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:894:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#7", NULL != (/*_.VALROUT___V238*/ curfptr[237])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V238*/ curfptr[237]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#8", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[8] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#9", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[10] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:915:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_128__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:915:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_128__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V239*/ curfptr[238])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:915:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#11", NULL != (/*_.VALROUT___V239*/ curfptr[238])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V239*/ curfptr[238]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_119__OUTPUCOD_PROCROUTINE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V237*/ curfptr[236])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:832:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V237*/ curfptr[236]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V240*/ curfptr[239])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V237*/ curfptr[236])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V240*/ curfptr[239])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V237*/ curfptr[236]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V240*/ curfptr[239]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])))); ((basilysobject_ptr_t)(/*_.VALDATA___V241*/ curfptr[240]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V242*/ curfptr[241]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V241*/ curfptr[240]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V243*/ curfptr[242])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V243*/ curfptr[242])))); ((basilysobject_ptr_t)(/*_.VALDATA___V243*/ curfptr[242]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V244*/ curfptr[243]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V243*/ curfptr[242]); /*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-outobj.bysl:956:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V249*/ curfptr[248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V249*/ curfptr[248])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:956:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V249*/ curfptr[248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#1", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V249*/ curfptr[248])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-outobj.bysl:961:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V250*/ curfptr[249])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_133__LAMBDA_#0", NULL != (/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10])); ((basilysroutine_ptr_t)/*_.VALROUT___V250*/ curfptr[249])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]); BASILYS_LOCATION("warmelt-outobj.bysl:961:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V250*/ curfptr[249]); BASILYS_LOCATION("warmelt-outobj.bysl:956:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V249*/ curfptr[248])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_131__OUTPUT_CURFRAME_CDAT_STRUCT#2", NULL != (/*_.VALROUT___V250*/ curfptr[249])); ((basilysroutine_ptr_t)/*_.VALROUT___V249*/ curfptr[248])->tabval[2] = (basilys_ptr_t)(/*_.VALROUT___V250*/ curfptr[249]); BASILYS_LOCATION("warmelt-outobj.bysl:956:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V249*/ curfptr[248]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V251*/ curfptr[250])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V249*/ curfptr[248])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V251*/ curfptr[250])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V249*/ curfptr[248]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#0", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[0] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#1", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-outobj.bysl:984:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V253*/ curfptr[252])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_136__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14])); ((basilysroutine_ptr_t)/*_.VALROUT___V253*/ curfptr[252])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]); BASILYS_LOCATION("warmelt-outobj.bysl:984:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#2", NULL != (/*_.VALROUT___V253*/ curfptr[252])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[2] = (basilys_ptr_t)(/*_.VALROUT___V253*/ curfptr[252]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#3", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-outobj.bysl:993:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_137__LAMBDA_#0", NULL != (/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13])); ((basilysroutine_ptr_t)/*_.VALROUT___V254*/ curfptr[253])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]); BASILYS_LOCATION("warmelt-outobj.bysl:993:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V254*/ curfptr[253]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_134__OUTPUT_CURFRAME_CDAT_FILL#4", NULL != (/*_.VALROUT___V254*/ curfptr[253])); ((basilysroutine_ptr_t)/*_.VALROUT___V252*/ curfptr[251])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V254*/ curfptr[253]); BASILYS_LOCATION("warmelt-outobj.bysl:972:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V252*/ curfptr[251]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V255*/ curfptr[254])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V252*/ curfptr[251])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V255*/ curfptr[254])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V252*/ curfptr[251]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#0", NULL != (/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V217*/ curfptr[216]); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V217*/ curfptr[216]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V251*/ curfptr[250]); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V251*/ curfptr[250]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V255*/ curfptr[254]); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V255*/ curfptr[254]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V236*/ curfptr[235]); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V236*/ curfptr[235]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#5", NULL != (/*_.VALROUT___V257*/ curfptr[256])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V257*/ curfptr[256]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[8] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_141__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_141__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V258*/ curfptr[257])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1077:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#9", NULL != (/*_.VALROUT___V258*/ curfptr[257])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V258*/ curfptr[257]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[11] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V259*/ curfptr[258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_142__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V259*/ curfptr[258])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V259*/ curfptr[258])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_142__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V259*/ curfptr[258])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1101:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V259*/ curfptr[258]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#12", NULL != (/*_.VALROUT___V259*/ curfptr[258])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V259*/ curfptr[258]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_138__OUTPUCOD_INITIALROUTINE#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V228*/ curfptr[227]); ((basilysroutine_ptr_t)/*_.VALROUT___V256*/ curfptr[255])->tabval[14] = (basilys_ptr_t)(/*_.VALCLO___V228*/ curfptr[227]); BASILYS_LOCATION("warmelt-outobj.bysl:1011:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V256*/ curfptr[255]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V260*/ curfptr[259])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V256*/ curfptr[255])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V260*/ curfptr[259])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V256*/ curfptr[255]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V260*/ curfptr[259]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#0", NULL != (/*_.CLASS_OBJGETARG__V43*/ curfptr[42])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#1", NULL != (/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_FORMAL_BINDING__V44*/ curfptr[43]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#3", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#4", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#5", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_143__OUTPUCOD_GETARG#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V261*/ curfptr[260])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1151:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V261*/ curfptr[260]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V262*/ curfptr[261])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V261*/ curfptr[260])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V262*/ curfptr[261])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V261*/ curfptr[260]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V262*/ curfptr[261]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V263*/ curfptr[262]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])))); ((basilysobject_ptr_t)(/*_.VALDATA___V265*/ curfptr[264]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V266*/ curfptr[265]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V265*/ curfptr[264]); BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V267*/ curfptr[266])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#0", NULL != (/*_.CLASS_OBJLOCV__V34*/ curfptr[33])); ((basilysroutine_ptr_t)/*_.VALROUT___V267*/ curfptr[266])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]); BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V267*/ curfptr[266])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#1", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V267*/ curfptr[266])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V267*/ curfptr[266])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_149__OUTPUCOD_OBJLOCV#2", NULL != (/*_.CTYPE_LONG__V45*/ curfptr[44])); ((basilysroutine_ptr_t)/*_.VALROUT___V267*/ curfptr[266])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_LONG__V45*/ curfptr[44]); BASILYS_LOCATION("warmelt-outobj.bysl:1217:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V267*/ curfptr[266]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V268*/ curfptr[267])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V267*/ curfptr[266])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V268*/ curfptr[267])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V267*/ curfptr[266]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V268*/ curfptr[267]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])))); ((basilysobject_ptr_t)(/*_.VALDATA___V269*/ curfptr[268]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V270*/ curfptr[269]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V269*/ curfptr[268]); BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V271*/ curfptr[270])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_153__OUTPUCOD_OBJCLOCCV#0", NULL != (/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45])); ((basilysroutine_ptr_t)/*_.VALROUT___V271*/ curfptr[270])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]); BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V271*/ curfptr[270])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_153__OUTPUCOD_OBJCLOCCV#1", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V271*/ curfptr[270])->tabval[1] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1247:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V271*/ curfptr[270]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V272*/ curfptr[271])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V271*/ curfptr[270])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V272*/ curfptr[271])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V271*/ curfptr[270]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V272*/ curfptr[271]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V275*/ curfptr[274])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#0", NULL != (/*_.CLASS_OBJCONSTV__V47*/ curfptr[46])); ((basilysroutine_ptr_t)/*_.VALROUT___V275*/ curfptr[274])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]); BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V275*/ curfptr[274])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V275*/ curfptr[274])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V275*/ curfptr[274])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_157__OUTPUCOD_OBJCONSTV#2", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V275*/ curfptr[274])->tabval[2] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1264:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V275*/ curfptr[274]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V276*/ curfptr[275])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V275*/ curfptr[274])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V276*/ curfptr[275])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V275*/ curfptr[274]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V276*/ curfptr[275]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V277*/ curfptr[276]); BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#0", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[0] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#1", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V280*/ curfptr[279])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_163__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V280*/ curfptr[279])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V280*/ curfptr[279])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_163__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V280*/ curfptr[279])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1287:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_161__OUTPUT_CODE_INSTRUCTIONS_LIST#3", NULL != (/*_.VALROUT___V280*/ curfptr[279])); ((basilysroutine_ptr_t)/*_.VALROUT___V279*/ curfptr[278])->tabval[3] = (basilys_ptr_t)(/*_.VALROUT___V280*/ curfptr[279]); BASILYS_LOCATION("warmelt-outobj.bysl:1282:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V279*/ curfptr[278]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V281*/ curfptr[280])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V279*/ curfptr[278])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V281*/ curfptr[280])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V279*/ curfptr[278]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#0", NULL != (/*_.CLASS_OBJBLOCK__V48*/ curfptr[47])); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_164__OUTPUCOD_OBJBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V281*/ curfptr[280]); ((basilysroutine_ptr_t)/*_.VALROUT___V282*/ curfptr[281])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-outobj.bysl:1299:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V282*/ curfptr[281]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V283*/ curfptr[282])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V282*/ curfptr[281])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V283*/ curfptr[282])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V282*/ curfptr[281]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V283*/ curfptr[282]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])))); ((basilysobject_ptr_t)(/*_.VALDATA___V284*/ curfptr[283]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V285*/ curfptr[284]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V284*/ curfptr[283]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])))); ((basilysobject_ptr_t)(/*_.VALDATA___V286*/ curfptr[285]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V287*/ curfptr[286]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V286*/ curfptr[285]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#0", NULL != (/*_.CLASS_OBJCITERBLOCK__V50*/ curfptr[49])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V50*/ curfptr[49]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#3", NULL != (/*_.CLASS_CITERATOR__V51*/ curfptr[50])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CITERATOR__V51*/ curfptr[50]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V289*/ curfptr[288])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_176__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V289*/ curfptr[288])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1343:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V289*/ curfptr[288]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#7", NULL != (/*_.VALROUT___V289*/ curfptr[288])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V289*/ curfptr[288]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V281*/ curfptr[280]); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[8] = (basilys_ptr_t)(/*_.VALCLO___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#9", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[9] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_177__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V290*/ curfptr[289])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1354:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V290*/ curfptr[289]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_170__OUTPUCOD_OBJCITERBLOCK#10", NULL != (/*_.VALROUT___V290*/ curfptr[289])); ((basilysroutine_ptr_t)/*_.VALROUT___V288*/ curfptr[287])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V290*/ curfptr[289]); BASILYS_LOCATION("warmelt-outobj.bysl:1323:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V288*/ curfptr[287]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V291*/ curfptr[290])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V288*/ curfptr[287])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V291*/ curfptr[290])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V288*/ curfptr[287]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V291*/ curfptr[290]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])))); ((basilysobject_ptr_t)(/*_.VALDATA___V292*/ curfptr[291]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V293*/ curfptr[292]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V292*/ curfptr[291]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])))); ((basilysobject_ptr_t)(/*_.VALDATA___V294*/ curfptr[293]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V295*/ curfptr[294]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V294*/ curfptr[293]); BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V296*/ curfptr[295])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#0", NULL != (/*_.CLASS_OBJCOMMENTINSTR__V52*/ curfptr[51])); ((basilysroutine_ptr_t)/*_.VALROUT___V296*/ curfptr[295])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V52*/ curfptr[51]); BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V296*/ curfptr[295])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#1", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V296*/ curfptr[295])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V296*/ curfptr[295])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_178__OUTPUCOD_OBJCOMMENTINSTR#2", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V296*/ curfptr[295])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V296*/ curfptr[295])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V296*/ curfptr[295])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1373:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V296*/ curfptr[295]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V297*/ curfptr[296])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V296*/ curfptr[295])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V297*/ curfptr[296])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V296*/ curfptr[295]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V297*/ curfptr[296]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])))); ((basilysobject_ptr_t)(/*_.VALDATA___V298*/ curfptr[297]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V299*/ curfptr[298]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V298*/ curfptr[297]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])))); ((basilysobject_ptr_t)(/*_.VALDATA___V300*/ curfptr[299]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V301*/ curfptr[300]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V300*/ curfptr[299]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#0", NULL != (/*_.CLASS_OBJCOMMENTEDBLOCK__V54*/ curfptr[53])); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V54*/ curfptr[53]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#4", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_184__OUTPUCOD_OBJCOMMENTEDBLOCK#5", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V281*/ curfptr[280]); ((basilysroutine_ptr_t)/*_.VALROUT___V302*/ curfptr[301])->tabval[6] = (basilys_ptr_t)(/*_.VALCLO___V281*/ curfptr[280]); BASILYS_LOCATION("warmelt-outobj.bysl:1392:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V302*/ curfptr[301]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V303*/ curfptr[302])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V302*/ curfptr[301])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V303*/ curfptr[302])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V302*/ curfptr[301]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V303*/ curfptr[302]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])))); ((basilysobject_ptr_t)(/*_.VALDATA___V304*/ curfptr[303]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V305*/ curfptr[304]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V304*/ curfptr[303]); BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_188__ADD2SBUF_CLONSYM#0", NULL != (/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V306*/ curfptr[305])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-outobj.bysl:1429:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V306*/ curfptr[305]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V307*/ curfptr[306])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V306*/ curfptr[305])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V307*/ curfptr[306])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V306*/ curfptr[305]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V307*/ curfptr[306]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V308*/ curfptr[307]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#0", NULL != (/*_.CLASS_OBJLOOP__V56*/ curfptr[55])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOOP__V56*/ curfptr[55]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#3", NULL != (/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V307*/ curfptr[306]); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[5] = (basilys_ptr_t)(/*_.VALCLO___V307*/ curfptr[306]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#7", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#8", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[8] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V311*/ curfptr[310])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_196__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V311*/ curfptr[310])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V311*/ curfptr[310])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_196__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V311*/ curfptr[310])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1460:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V311*/ curfptr[310]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#9", NULL != (/*_.VALROUT___V311*/ curfptr[310])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[9] = (basilys_ptr_t)(/*_.VALROUT___V311*/ curfptr[310]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#10", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#11", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[11] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_197__LAMBDA_#0", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V312*/ curfptr[311])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_197__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V312*/ curfptr[311])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1482:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V312*/ curfptr[311]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_192__OUTPUCOD_OBJLOOP#12", NULL != (/*_.VALROUT___V312*/ curfptr[311])); ((basilysroutine_ptr_t)/*_.VALROUT___V310*/ curfptr[309])->tabval[12] = (basilys_ptr_t)(/*_.VALROUT___V312*/ curfptr[311]); BASILYS_LOCATION("warmelt-outobj.bysl:1440:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V310*/ curfptr[309]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V313*/ curfptr[312])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V310*/ curfptr[309])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V313*/ curfptr[312])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V310*/ curfptr[309]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V313*/ curfptr[312]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])))); ((basilysobject_ptr_t)(/*_.VALDATA___V314*/ curfptr[313]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V315*/ curfptr[314]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V314*/ curfptr[313]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_198__OUTPUCOD_OBJEXIT#0", NULL != (/*_.CLASS_OBJEXIT__V57*/ curfptr[56])); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJEXIT__V57*/ curfptr[56]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_198__OUTPUCOD_OBJEXIT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_198__OUTPUCOD_OBJEXIT#2", NULL != (/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54])); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CLONEDSYMBOL__V55*/ curfptr[54]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V307*/ curfptr[306]); ((basilysroutine_ptr_t)/*_.VALROUT___V316*/ curfptr[315])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V307*/ curfptr[306]); BASILYS_LOCATION("warmelt-outobj.bysl:1497:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V316*/ curfptr[315]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V317*/ curfptr[316])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V316*/ curfptr[315])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V317*/ curfptr[316])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V316*/ curfptr[315]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V317*/ curfptr[316]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])))); ((basilysobject_ptr_t)(/*_.VALDATA___V318*/ curfptr[317]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V319*/ curfptr[318]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V318*/ curfptr[317]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#0", NULL != (/*_.CLASS_OBJCOMPUTE__V58*/ curfptr[57])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOMPUTE__V58*/ curfptr[57]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#2", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V321*/ curfptr[320])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_206__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V321*/ curfptr[320])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1527:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#6", NULL != (/*_.VALROUT___V321*/ curfptr[320])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V321*/ curfptr[320]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V322*/ curfptr[321])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_207__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V322*/ curfptr[321])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1536:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#8", NULL != (/*_.VALROUT___V322*/ curfptr[321])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V322*/ curfptr[321]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#9", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[9] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#10", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[10] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V323*/ curfptr[322])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_208__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V323*/ curfptr[322])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1543:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V323*/ curfptr[322]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#11", NULL != (/*_.VALROUT___V323*/ curfptr[322])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[11] = (basilys_ptr_t)(/*_.VALROUT___V323*/ curfptr[322]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_202__OUTPUCOD_OBJCOMPUTE#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V320*/ curfptr[319])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1515:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V320*/ curfptr[319]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V324*/ curfptr[323])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V320*/ curfptr[319])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V324*/ curfptr[323])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V320*/ curfptr[319]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V324*/ curfptr[323]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V325*/ curfptr[324])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V325*/ curfptr[324])))); ((basilysobject_ptr_t)(/*_.VALDATA___V325*/ curfptr[324]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V326*/ curfptr[325]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V325*/ curfptr[324]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_209__OUTPUCOD_OBJCOND#0", NULL != (/*_.CLASS_OBJCOND__V59*/ curfptr[58])); ((basilysroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCOND__V59*/ curfptr[58]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_209__OUTPUCOD_OBJCOND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_209__OUTPUCOD_OBJCOND#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_209__OUTPUCOD_OBJCOND#4", NULL != (/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41])); ((basilysroutine_ptr_t)/*_.VALROUT___V327*/ curfptr[326])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_OBJPUREVALUE__V42*/ curfptr[41]); BASILYS_LOCATION("warmelt-outobj.bysl:1554:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V327*/ curfptr[326]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V328*/ curfptr[327])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V327*/ curfptr[326])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V328*/ curfptr[327])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V327*/ curfptr[326]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V328*/ curfptr[327]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_213__OUTPUCOD_OBJCPPIF#0", NULL != (/*_.CLASS_OBJCPPIF__V60*/ curfptr[59])); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCPPIF__V60*/ curfptr[59]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_213__OUTPUCOD_OBJCPPIF#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_213__OUTPUCOD_OBJCPPIF#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V331*/ curfptr[330])->tabval[4] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1596:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V331*/ curfptr[330]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V332*/ curfptr[331])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V331*/ curfptr[330])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V332*/ curfptr[331])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V331*/ curfptr[330]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V332*/ curfptr[331]); /*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-outobj.bysl:1628:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJINTERNSYMBOL#0", NULL != (/*_.CLASS_OBJINTERNSYMBOL__V61*/ curfptr[60])); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V61*/ curfptr[60]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJINTERNSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJINTERNSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJINTERNSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V62*/ curfptr[61]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_217__OUTPUCOD_OBJINTERNSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V335*/ curfptr[334])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1628:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V335*/ curfptr[334]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V336*/ curfptr[335])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V335*/ curfptr[334])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V336*/ curfptr[335])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V335*/ curfptr[334]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V336*/ curfptr[335]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])))); ((basilysobject_ptr_t)(/*_.VALDATA___V337*/ curfptr[336]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V338*/ curfptr[337]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V337*/ curfptr[336]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])))); ((basilysobject_ptr_t)(/*_.VALDATA___V339*/ curfptr[338]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V340*/ curfptr[339]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V339*/ curfptr[338]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_223__OUTPUCOD_OBJINTERNKEYWORD#0", NULL != (/*_.CLASS_OBJINTERNKEYWORD__V63*/ curfptr[62])); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V63*/ curfptr[62]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_223__OUTPUCOD_OBJINTERNKEYWORD#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_223__OUTPUCOD_OBJINTERNKEYWORD#2", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_223__OUTPUCOD_OBJINTERNKEYWORD#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V341*/ curfptr[340])->tabval[4] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1652:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V341*/ curfptr[340]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V342*/ curfptr[341])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V341*/ curfptr[340])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V342*/ curfptr[341])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V341*/ curfptr[340]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V342*/ curfptr[341]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL#0", NULL != (/*_.CLASS_OBJGETNAMEDSYMBOL__V65*/ curfptr[64])); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V65*/ curfptr[64]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL#3", NULL != (/*_.CLASS_NREP_DATASYMBOL__V62*/ curfptr[61])); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATASYMBOL__V62*/ curfptr[61]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_229__OUTPUCOD_OBJGETNAMEDSYMBOL#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V347*/ curfptr[346])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1675:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V347*/ curfptr[346]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V348*/ curfptr[347])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V347*/ curfptr[346])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V348*/ curfptr[347])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V347*/ curfptr[346]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V348*/ curfptr[347]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V349*/ curfptr[348]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD#0", NULL != (/*_.CLASS_OBJGETNAMEDKEYWORD__V66*/ curfptr[65])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V66*/ curfptr[65]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD#2", NULL != (/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD#3", NULL != (/*_.CLASS_NREP_DATAKEYWORD__V64*/ curfptr[63])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NREP_DATAKEYWORD__V64*/ curfptr[63]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_233__OUTPUCOD_OBJGETNAMEDKEYWORD#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V351*/ curfptr[350])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1713:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V351*/ curfptr[350]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V352*/ curfptr[351])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V351*/ curfptr[350])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V352*/ curfptr[351])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V351*/ curfptr[350]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V352*/ curfptr[351]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])))); ((basilysobject_ptr_t)(/*_.VALDATA___V353*/ curfptr[352]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V354*/ curfptr[353]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V353*/ curfptr[352]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#0", NULL != (/*_.CLASS_OBJAPPLY__V67*/ curfptr[66])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJAPPLY__V67*/ curfptr[66]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#2", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#7", NULL != (/*_.CLASS_OBJINSTR__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_OBJINSTR__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#8", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[8] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#9", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[10] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#11", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#12", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[12] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#1", NULL != (/*_.CLASS_OBJINSTR__V69*/ curfptr[68])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJINSTR__V69*/ curfptr[68]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#2", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[2] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#5", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#6", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[6] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_243__LAMBDA_#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V356*/ curfptr[355])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1774:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#14", NULL != (/*_.VALROUT___V356*/ curfptr[355])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V356*/ curfptr[355]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#15", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[15] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#16", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[16] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_248__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V357*/ curfptr[356])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1807:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V357*/ curfptr[356]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#17", NULL != (/*_.VALROUT___V357*/ curfptr[356])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[17] = (basilys_ptr_t)(/*_.VALROUT___V357*/ curfptr[356]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#18", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[18] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_237__OUTPUCOD_OBJAPPLY#19", NULL != (/*_.VALROUT___V358*/ curfptr[357])); ((basilysroutine_ptr_t)/*_.VALROUT___V355*/ curfptr[354])->tabval[19] = (basilys_ptr_t)(/*_.VALROUT___V358*/ curfptr[357]); BASILYS_LOCATION("warmelt-outobj.bysl:1748:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V355*/ curfptr[354]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V359*/ curfptr[358])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V355*/ curfptr[354])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V359*/ curfptr[358])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V355*/ curfptr[354]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V359*/ curfptr[358]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])))); ((basilysobject_ptr_t)(/*_.VALDATA___V360*/ curfptr[359]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V361*/ curfptr[360]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V360*/ curfptr[359]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])))); ((basilysobject_ptr_t)(/*_.VALDATA___V362*/ curfptr[361]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V363*/ curfptr[362]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V362*/ curfptr[361]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])))); ((basilysobject_ptr_t)(/*_.VALDATA___V364*/ curfptr[363]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V365*/ curfptr[364]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V364*/ curfptr[363]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V366*/ curfptr[365]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#0", NULL != (/*_.CLASS_OBJMSEND__V71*/ curfptr[70])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMSEND__V71*/ curfptr[70]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#2", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#7", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[7] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#8", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[8] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#10", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#11", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[11] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#12", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[12] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#4", NULL != (/*_.CLASS_OBJNIL__V18*/ curfptr[17])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#5", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[5] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_254__LAMBDA_#6", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V369*/ curfptr[368])->tabval[6] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1871:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#13", NULL != (/*_.VALROUT___V369*/ curfptr[368])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[13] = (basilys_ptr_t)(/*_.VALROUT___V369*/ curfptr[368]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#14", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[14] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#15", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[15] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V370*/ curfptr[369])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_255__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V370*/ curfptr[369])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1903:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V370*/ curfptr[369]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#16", NULL != (/*_.VALROUT___V370*/ curfptr[369])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[16] = (basilys_ptr_t)(/*_.VALROUT___V370*/ curfptr[369]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#17", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[17] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_250__OUTPUCOD_OBJMSEND#18", NULL != (/*_.VALROUT___V371*/ curfptr[370])); ((basilysroutine_ptr_t)/*_.VALROUT___V368*/ curfptr[367])->tabval[18] = (basilys_ptr_t)(/*_.VALROUT___V371*/ curfptr[370]); BASILYS_LOCATION("warmelt-outobj.bysl:1842:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V368*/ curfptr[367]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V372*/ curfptr[371])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V368*/ curfptr[367])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V372*/ curfptr[371])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V368*/ curfptr[367]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V372*/ curfptr[371]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#0", NULL != (/*_.CLASS_OBJMULTIAPPLY__V72*/ curfptr[71])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V72*/ curfptr[71]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#2", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#6", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[6] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V376*/ curfptr[375])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_261__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V376*/ curfptr[375])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1980:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#7", NULL != (/*_.VALROUT___V376*/ curfptr[375])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V376*/ curfptr[375]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#9", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[9] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#10", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#12", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[12] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_262__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V377*/ curfptr[376])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1990:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#14", NULL != (/*_.VALROUT___V377*/ curfptr[376])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V377*/ curfptr[376]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#15", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[15] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[16] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#17", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#19", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[19] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#20", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[20] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_263__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V378*/ curfptr[377])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2022:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#21", NULL != (/*_.VALROUT___V378*/ curfptr[377])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V378*/ curfptr[377]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#22", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[22] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#23", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[23] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_264__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V379*/ curfptr[378])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2050:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#24", NULL != (/*_.VALROUT___V379*/ curfptr[378])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[24] = (basilys_ptr_t)(/*_.VALROUT___V379*/ curfptr[378]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#25", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[25] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#26", NULL != (/*_.VALROUT___V380*/ curfptr[379])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[26] = (basilys_ptr_t)(/*_.VALROUT___V380*/ curfptr[379]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_257__OUTPUCOD_OBJMULTIAPPLY#27", NULL != (/*_.VALROUT___V381*/ curfptr[380])); ((basilysroutine_ptr_t)/*_.VALROUT___V375*/ curfptr[374])->tabval[27] = (basilys_ptr_t)(/*_.VALROUT___V381*/ curfptr[380]); BASILYS_LOCATION("warmelt-outobj.bysl:1933:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V375*/ curfptr[374]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V382*/ curfptr[381])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V375*/ curfptr[374])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V382*/ curfptr[381])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V375*/ curfptr[374]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V382*/ curfptr[381]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])))); ((basilysobject_ptr_t)(/*_.VALDATA___V383*/ curfptr[382]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V384*/ curfptr[383]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V383*/ curfptr[382]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#0", NULL != (/*_.CLASS_OBJMULTIMSEND__V73*/ curfptr[72])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V73*/ curfptr[72]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#2", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#3", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#5", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[5] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#6", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[6] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V386*/ curfptr[385])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_271__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V386*/ curfptr[385])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2130:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#7", NULL != (/*_.VALROUT___V386*/ curfptr[385])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V386*/ curfptr[385]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#9", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[9] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#10", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[10] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#12", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[12] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#13", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[13] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_272__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_272__LAMBDA_#1", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_272__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_272__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_272__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V387*/ curfptr[386])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2148:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V387*/ curfptr[386]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#14", NULL != (/*_.VALROUT___V387*/ curfptr[386])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[14] = (basilys_ptr_t)(/*_.VALROUT___V387*/ curfptr[386]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#15", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[15] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#16", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[16] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#17", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[18] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#19", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[19] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#20", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[20] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_273__LAMBDA_#0", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[0] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_273__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_273__LAMBDA_#2", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_273__LAMBDA_#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_273__LAMBDA_#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V388*/ curfptr[387])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2179:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V388*/ curfptr[387]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#21", NULL != (/*_.VALROUT___V388*/ curfptr[387])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[21] = (basilys_ptr_t)(/*_.VALROUT___V388*/ curfptr[387]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#22", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[22] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#23", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[23] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V389*/ curfptr[388])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_274__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V389*/ curfptr[388])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2208:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V389*/ curfptr[388]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#24", NULL != (/*_.VALROUT___V389*/ curfptr[388])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[24] = (basilys_ptr_t)(/*_.VALROUT___V389*/ curfptr[388]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#25", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[25] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#26", NULL != (/*_.VALROUT___V390*/ curfptr[389])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[26] = (basilys_ptr_t)(/*_.VALROUT___V390*/ curfptr[389]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_267__OUTPUCOD_OBJMULTIMSEND#27", NULL != (/*_.VALROUT___V391*/ curfptr[390])); ((basilysroutine_ptr_t)/*_.VALROUT___V385*/ curfptr[384])->tabval[27] = (basilys_ptr_t)(/*_.VALROUT___V391*/ curfptr[390]); BASILYS_LOCATION("warmelt-outobj.bysl:2096:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V385*/ curfptr[384]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V392*/ curfptr[391])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V385*/ curfptr[384])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V392*/ curfptr[391])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V385*/ curfptr[384]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V392*/ curfptr[391]); /*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-outobj.bysl:2250:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_OBJCLEAR#0", NULL != (/*_.CLASS_OBJCLEAR__V74*/ curfptr[73])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJCLEAR__V74*/ curfptr[73]); BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_OBJCLEAR#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_277__OUTPUCOD_OBJCLEAR#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V395*/ curfptr[394])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2250:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V395*/ curfptr[394]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V396*/ curfptr[395])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V395*/ curfptr[394])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V396*/ curfptr[395])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V395*/ curfptr[394]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V396*/ curfptr[395]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])))); ((basilysobject_ptr_t)(/*_.VALDATA___V397*/ curfptr[396]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V398*/ curfptr[397]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V397*/ curfptr[396]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#0", NULL != (/*_.CLASS_OBJRAWALLOCOBJ__V75*/ curfptr[74])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V75*/ curfptr[74]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#3", NULL != (/*_.CLASS_OBJVALUE__V38*/ curfptr[37])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_OBJVALUE__V38*/ curfptr[37]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V400*/ curfptr[399])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_285__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V400*/ curfptr[399])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2288:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V400*/ curfptr[399]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_281__OUTPUCOD_OBJRAWALLOCOBJ#8", NULL != (/*_.VALROUT___V400*/ curfptr[399])); ((basilysroutine_ptr_t)/*_.VALROUT___V399*/ curfptr[398])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V400*/ curfptr[399]); BASILYS_LOCATION("warmelt-outobj.bysl:2265:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V399*/ curfptr[398]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V401*/ curfptr[400])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V399*/ curfptr[398])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V401*/ curfptr[400])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V399*/ curfptr[398]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V401*/ curfptr[400]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])))); ((basilysobject_ptr_t)(/*_.VALDATA___V402*/ curfptr[401]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V403*/ curfptr[402]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V402*/ curfptr[401]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#0", NULL != (/*_.CLASS_OBJNEWCLOSURE__V76*/ curfptr[75])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V76*/ curfptr[75]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#2", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#4", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[4] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_290__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V405*/ curfptr[404])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2313:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V405*/ curfptr[404]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#6", NULL != (/*_.VALROUT___V405*/ curfptr[404])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V405*/ curfptr[404]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_286__OUTPUCOD_OBJNEWCLOSURE#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V404*/ curfptr[403])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2299:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V404*/ curfptr[403]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V406*/ curfptr[405])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V404*/ curfptr[403])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V406*/ curfptr[405])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V404*/ curfptr[403]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V406*/ curfptr[405]); /*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-outobj.bysl:2329:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_291__OUTPUCOD_OBJTOUCH#0", NULL != (/*_.CLASS_OBJTOUCH__V77*/ curfptr[76])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJTOUCH__V77*/ curfptr[76]); BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_291__OUTPUCOD_OBJTOUCH#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V409*/ curfptr[408])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2329:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V409*/ curfptr[408]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V410*/ curfptr[409])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V409*/ curfptr[408])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V410*/ curfptr[409])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V409*/ curfptr[408]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V410*/ curfptr[409]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])))); ((basilysobject_ptr_t)(/*_.VALDATA___V411*/ curfptr[410]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V412*/ curfptr[411]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V411*/ curfptr[410]); BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V413*/ curfptr[412])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_295__OUTPUCOD_OBJPUTUPLE#0", NULL != (/*_.CLASS_OBJPUTUPLE__V78*/ curfptr[77])); ((basilysroutine_ptr_t)/*_.VALROUT___V413*/ curfptr[412])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTUPLE__V78*/ curfptr[77]); BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V413*/ curfptr[412])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_295__OUTPUCOD_OBJPUTUPLE#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V413*/ curfptr[412])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V413*/ curfptr[412])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V413*/ curfptr[412])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V413*/ curfptr[412])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_295__OUTPUCOD_OBJPUTUPLE#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V413*/ curfptr[412])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2354:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V413*/ curfptr[412]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V414*/ curfptr[413])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V413*/ curfptr[412])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V414*/ curfptr[413])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V413*/ curfptr[412]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V414*/ curfptr[413]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])))); ((basilysobject_ptr_t)(/*_.VALDATA___V415*/ curfptr[414]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V416*/ curfptr[415]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V415*/ curfptr[414]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#0", NULL != (/*_.CLASS_OBJGETSLOT__V79*/ curfptr[78])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJGETSLOT__V79*/ curfptr[78]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#2", NULL != (/*_.CLASS_FIELD__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_FIELD__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#3", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[3] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[4] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#6", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[6] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#7", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[7] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V418*/ curfptr[417])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_305__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V418*/ curfptr[417])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2411:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V418*/ curfptr[417]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_299__OUTPUCOD_OBJGETSLOT#8", NULL != (/*_.VALROUT___V418*/ curfptr[417])); ((basilysroutine_ptr_t)/*_.VALROUT___V417*/ curfptr[416])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V418*/ curfptr[417]); BASILYS_LOCATION("warmelt-outobj.bysl:2389:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V417*/ curfptr[416]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V419*/ curfptr[418])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V417*/ curfptr[416])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V419*/ curfptr[418])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V417*/ curfptr[416]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V419*/ curfptr[418]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])))); ((basilysobject_ptr_t)(/*_.VALDATA___V420*/ curfptr[419]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V421*/ curfptr[420]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V420*/ curfptr[419]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])))); ((basilysobject_ptr_t)(/*_.VALDATA___V422*/ curfptr[421]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V423*/ curfptr[422]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V422*/ curfptr[421]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#0", NULL != (/*_.CLASS_OBJPUTSLOT__V81*/ curfptr[80])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTSLOT__V81*/ curfptr[80]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#2", NULL != (/*_.CLASS_NREP__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_NREP__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[3] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#4", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_306__OUTPUCOD_OBJPUTSLOT#6", NULL != (/*_.CLASS_FIELD__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V424*/ curfptr[423])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_FIELD__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-outobj.bysl:2420:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V424*/ curfptr[423]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V425*/ curfptr[424])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V424*/ curfptr[423])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V425*/ curfptr[424])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V424*/ curfptr[423]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V425*/ curfptr[424]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V426*/ curfptr[425]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V428*/ curfptr[427]); BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V430*/ curfptr[429])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTCLOSUROUT#0", NULL != (/*_.CLASS_OBJPUTCLOSUROUT__V83*/ curfptr[82])); ((basilysroutine_ptr_t)/*_.VALROUT___V430*/ curfptr[429])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V83*/ curfptr[82]); BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V430*/ curfptr[429])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTCLOSUROUT#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V430*/ curfptr[429])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V430*/ curfptr[429])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V430*/ curfptr[429])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V430*/ curfptr[429])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_312__OUTPUCOD_OBJPUTCLOSUROUT#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V430*/ curfptr[429])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2480:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V430*/ curfptr[429]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V431*/ curfptr[430])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V430*/ curfptr[429])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V431*/ curfptr[430])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V430*/ curfptr[429]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V431*/ curfptr[430]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])))); ((basilysobject_ptr_t)(/*_.VALDATA___V432*/ curfptr[431]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V433*/ curfptr[432]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V432*/ curfptr[431]); BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJPUTCLOSEDV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDV__V84*/ curfptr[83])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V84*/ curfptr[83]); BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJPUTCLOSEDV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_316__OUTPUCOD_OBJPUTCLOSEDV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V434*/ curfptr[433])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2508:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V434*/ curfptr[433]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V435*/ curfptr[434])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V434*/ curfptr[433])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V435*/ curfptr[434])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V434*/ curfptr[433]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V435*/ curfptr[434]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])))); ((basilysobject_ptr_t)(/*_.VALDATA___V436*/ curfptr[435]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V437*/ curfptr[436]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V436*/ curfptr[435]); BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#0", NULL != (/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V85*/ curfptr[84])); ((basilysroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V85*/ curfptr[84]); BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_320__OUTPUCOD_OBJPUTCLOSEDNOTNULLV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V438*/ curfptr[437])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2543:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V438*/ curfptr[437]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V439*/ curfptr[438])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V438*/ curfptr[437])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V439*/ curfptr[438])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V438*/ curfptr[437]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V439*/ curfptr[438]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])))); ((basilysobject_ptr_t)(/*_.VALDATA___V440*/ curfptr[439]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V441*/ curfptr[440]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V440*/ curfptr[439]); BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V442*/ curfptr[441])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTROUTCONST#0", NULL != (/*_.CLASS_OBJPUTROUTCONST__V86*/ curfptr[85])); ((basilysroutine_ptr_t)/*_.VALROUT___V442*/ curfptr[441])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V86*/ curfptr[85]); BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V442*/ curfptr[441])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTROUTCONST#1", NULL != (/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23])); ((basilysroutine_ptr_t)/*_.VALROUT___V442*/ curfptr[441])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]); BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V442*/ curfptr[441])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V442*/ curfptr[441])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V442*/ curfptr[441])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_324__OUTPUCOD_OBJPUTROUTCONST#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V442*/ curfptr[441])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2582:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V442*/ curfptr[441]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V443*/ curfptr[442])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V442*/ curfptr[441])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V443*/ curfptr[442])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V442*/ curfptr[441]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V443*/ curfptr[442]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])))); ((basilysobject_ptr_t)(/*_.VALDATA___V444*/ curfptr[443]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V445*/ curfptr[444]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V444*/ curfptr[443]); BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V446*/ curfptr[445])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#0", NULL != (/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V87*/ curfptr[86])); ((basilysroutine_ptr_t)/*_.VALROUT___V446*/ curfptr[445])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V87*/ curfptr[86]); BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V446*/ curfptr[445])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V446*/ curfptr[445])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V446*/ curfptr[445])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_328__OUTPUCOD_OBJPUTROUTCONSTNOTNULL#2", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V446*/ curfptr[445])->tabval[2] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2617:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V446*/ curfptr[445]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V447*/ curfptr[446])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V446*/ curfptr[445])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V447*/ curfptr[446])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V446*/ curfptr[445]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V447*/ curfptr[446]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V448*/ curfptr[447]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTXTRARESULT#0", NULL != (/*_.CLASS_OBJPUTXTRARESULT__V88*/ curfptr[87])); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V88*/ curfptr[87]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTXTRARESULT#1", NULL != (/*_.GET_CTYPE__V70*/ curfptr[69])); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[1] = (basilys_ptr_t)(/*_.GET_CTYPE__V70*/ curfptr[69]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTXTRARESULT#3", NULL != (/*_.CLASS_CTYPE__V35*/ curfptr[34])); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_CTYPE__V35*/ curfptr[34]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTXTRARESULT#4", NULL != (/*_.CTYPE_VALUE__V37*/ curfptr[36])); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[4] = (basilys_ptr_t)(/*_.CTYPE_VALUE__V37*/ curfptr[36]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_332__OUTPUCOD_OBJPUTXTRARESULT#5", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V450*/ curfptr[449])->tabval[5] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2650:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V450*/ curfptr[449]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V451*/ curfptr[450])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V450*/ curfptr[449])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V451*/ curfptr[450])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V450*/ curfptr[449]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V451*/ curfptr[450]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V452*/ curfptr[451])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V452*/ curfptr[451])))); ((basilysobject_ptr_t)(/*_.VALDATA___V452*/ curfptr[451]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V453*/ curfptr[452]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V452*/ curfptr[451]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJEXPV#0", NULL != (/*_.CLASS_OBJEXPV__V89*/ curfptr[88])); ((basilysroutine_ptr_t)/*_.VALROUT___V454*/ curfptr[453])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJEXPV__V89*/ curfptr[88]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V454*/ curfptr[453])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJEXPV#2", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V454*/ curfptr[453])->tabval[2] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJEXPV#3", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V454*/ curfptr[453])->tabval[3] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V455*/ curfptr[454])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_340__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V455*/ curfptr[454])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2693:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V455*/ curfptr[454]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_336__OUTPUCOD_OBJEXPV#4", NULL != (/*_.VALROUT___V455*/ curfptr[454])); ((basilysroutine_ptr_t)/*_.VALROUT___V454*/ curfptr[453])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V455*/ curfptr[454]); BASILYS_LOCATION("warmelt-outobj.bysl:2685:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V454*/ curfptr[453]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V456*/ curfptr[455])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V454*/ curfptr[453])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V456*/ curfptr[455])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V454*/ curfptr[453]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V456*/ curfptr[455]); /*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-outobj.bysl:2699:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJLOCATEDEXPV#0", NULL != (/*_.CLASS_OBJLOCATEDEXPV__V90*/ curfptr[89])); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V90*/ curfptr[89]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJLOCATEDEXPV#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V164*/ curfptr[163]); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V164*/ curfptr[163]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJLOCATEDEXPV#3", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJLOCATEDEXPV#4", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[4] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_345__LAMBDA_#0", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V460*/ curfptr[459])->tabval[0] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2711:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V460*/ curfptr[459]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_341__OUTPUCOD_OBJLOCATEDEXPV#5", NULL != (/*_.VALROUT___V460*/ curfptr[459])); ((basilysroutine_ptr_t)/*_.VALROUT___V459*/ curfptr[458])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V460*/ curfptr[459]); BASILYS_LOCATION("warmelt-outobj.bysl:2699:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V459*/ curfptr[458]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V461*/ curfptr[460])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V459*/ curfptr[458])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V461*/ curfptr[460])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V459*/ curfptr[458]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V461*/ curfptr[460]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])))); ((basilysobject_ptr_t)(/*_.VALDATA___V462*/ curfptr[461]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V463*/ curfptr[462]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V462*/ curfptr[461]); BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_346__OUTPUCOD_VERBATIMSTRING#0", NULL != (/*_.DISCR_VERBATIMSTRING__V91*/ curfptr[90])); ((basilysroutine_ptr_t)/*_.VALROUT___V464*/ curfptr[463])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V91*/ curfptr[90]); BASILYS_LOCATION("warmelt-outobj.bysl:2717:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V464*/ curfptr[463]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V465*/ curfptr[464])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V464*/ curfptr[463])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V465*/ curfptr[464])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V464*/ curfptr[463]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V465*/ curfptr[464]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V466*/ curfptr[465]); BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V468*/ curfptr[467])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_350__OUTPUCOD_STRING#0", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V468*/ curfptr[467])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:2728:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V468*/ curfptr[467]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V469*/ curfptr[468])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V468*/ curfptr[467])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V469*/ curfptr[468])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V468*/ curfptr[467]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V469*/ curfptr[468]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V471*/ curfptr[470])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V470*/ curfptr[469])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V471*/ curfptr[470])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V470*/ curfptr[469]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V471*/ curfptr[470]); BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V472*/ curfptr[471])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_354__OUTPUCOD_FINALRETURN#0", NULL != (/*_.CLASS_OBJFINALRETURN__V92*/ curfptr[91])); ((basilysroutine_ptr_t)/*_.VALROUT___V472*/ curfptr[471])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_OBJFINALRETURN__V92*/ curfptr[91]); BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V472*/ curfptr[471])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V162*/ curfptr[161]); ((basilysroutine_ptr_t)/*_.VALROUT___V472*/ curfptr[471])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V162*/ curfptr[161]); BASILYS_LOCATION("warmelt-outobj.bysl:2747:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V472*/ curfptr[471]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V473*/ curfptr[472])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V472*/ curfptr[471])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V473*/ curfptr[472])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V472*/ curfptr[471]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V473*/ curfptr[472]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V474*/ curfptr[473]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#0", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#1", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[1] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#2", NULL != (/*_.MAPSTRING_EVERY__V93*/ curfptr[92])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[2] = (basilys_ptr_t)(/*_.MAPSTRING_EVERY__V93*/ curfptr[92]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#3", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V477*/ curfptr[476])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_362__LAMBDA_#0", NULL != (/*_.CLASS_NAMED__V26*/ curfptr[25])); ((basilysroutine_ptr_t)/*_.VALROUT___V477*/ curfptr[476])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NAMED__V26*/ curfptr[25]); BASILYS_LOCATION("warmelt-outobj.bysl:2766:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V477*/ curfptr[476]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#4", NULL != (/*_.VALROUT___V477*/ curfptr[476])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[4] = (basilys_ptr_t)(/*_.VALROUT___V477*/ curfptr[476]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#5", NULL != (/*_.LIST_TO_MULTIPLE__V94*/ curfptr[93])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[5] = (basilys_ptr_t)(/*_.LIST_TO_MULTIPLE__V94*/ curfptr[93]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#6", NULL != (/*_.VALROUT___V478*/ curfptr[477])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[6] = (basilys_ptr_t)(/*_.VALROUT___V478*/ curfptr[477]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_358__SORTED_NAMED_DICT_TUPLE#7", NULL != (/*_.DISCR_MULTIPLE__V95*/ curfptr[94])); ((basilysroutine_ptr_t)/*_.VALROUT___V476*/ curfptr[475])->tabval[7] = (basilys_ptr_t)(/*_.DISCR_MULTIPLE__V95*/ curfptr[94]); BASILYS_LOCATION("warmelt-outobj.bysl:2758:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V476*/ curfptr[475]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V479*/ curfptr[478])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V476*/ curfptr[475])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V479*/ curfptr[478])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V476*/ curfptr[475]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V479*/ curfptr[478]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])))); ((basilysobject_ptr_t)(/*_.VALDATA___V480*/ curfptr[479]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V481*/ curfptr[480]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V480*/ curfptr[479]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])))); ((basilysobject_ptr_t)(/*_.VALDATA___V482*/ curfptr[481]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V483*/ curfptr[482]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V482*/ curfptr[481]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])))); ((basilysobject_ptr_t)(/*_.VALDATA___V484*/ curfptr[483]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V485*/ curfptr[484]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V484*/ curfptr[483]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#1", NULL != (/*_.CLASS_MODULCONTEXT__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V479*/ curfptr[478]); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[2] = (basilys_ptr_t)(/*_.VALCLO___V479*/ curfptr[478]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#3", NULL != (/*_.MULTIPLE_EVERY__V41*/ curfptr[40])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[3] = (basilys_ptr_t)(/*_.MULTIPLE_EVERY__V41*/ curfptr[40]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#4", NULL != (/*_.CLASS_FIELD__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_FIELD__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V487*/ curfptr[486])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_372__LAMBDA_#0", NULL != (/*_.CLASS_FIELD__V80*/ curfptr[79])); ((basilysroutine_ptr_t)/*_.VALROUT___V487*/ curfptr[486])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_FIELD__V80*/ curfptr[79]); BASILYS_LOCATION("warmelt-outobj.bysl:2794:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#5", NULL != (/*_.VALROUT___V487*/ curfptr[486])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[5] = (basilys_ptr_t)(/*_.VALROUT___V487*/ curfptr[486]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#6", NULL != (/*_.CLASS_CLASS__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[6] = (basilys_ptr_t)(/*_.CLASS_CLASS__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V488*/ curfptr[487])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_373__LAMBDA_#0", NULL != (/*_.CLASS_CLASS__V97*/ curfptr[96])); ((basilysroutine_ptr_t)/*_.VALROUT___V488*/ curfptr[487])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_CLASS__V97*/ curfptr[96]); BASILYS_LOCATION("warmelt-outobj.bysl:2808:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V488*/ curfptr[487]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_368__OUTPUT_EXPORTED_OFFSETS#7", NULL != (/*_.VALROUT___V488*/ curfptr[487])); ((basilysroutine_ptr_t)/*_.VALROUT___V486*/ curfptr[485])->tabval[7] = (basilys_ptr_t)(/*_.VALROUT___V488*/ curfptr[487]); BASILYS_LOCATION("warmelt-outobj.bysl:2782:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V486*/ curfptr[485]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V489*/ curfptr[488])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V486*/ curfptr[485])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V489*/ curfptr[488])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V486*/ curfptr[485]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V489*/ curfptr[488]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])))); ((basilysobject_ptr_t)(/*_.VALDATA___V490*/ curfptr[489]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V491*/ curfptr[490]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V490*/ curfptr[489]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])))); ((basilysobject_ptr_t)(/*_.VALDATA___V492*/ curfptr[491]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V493*/ curfptr[492]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V492*/ curfptr[491]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#1", NULL != (/*_.CLASS_ENVIRONMENT__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#2", NULL != (/*_.CLASS_MODULCONTEXT__V96*/ curfptr[95])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_MODULCONTEXT__V96*/ curfptr[95]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#3", NULL != (/*_.DISCR_MAPSTRINGS__V99*/ curfptr[98])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_MAPSTRINGS__V99*/ curfptr[98]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#4", NULL != (/*_.CREATE_NORMCONTEXT__V100*/ curfptr[99])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[4] = (basilys_ptr_t)(/*_.CREATE_NORMCONTEXT__V100*/ curfptr[99]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#5", NULL != (/*_.CLASS_NORMCONTEXT__V101*/ curfptr[100])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NORMCONTEXT__V101*/ curfptr[100]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#6", NULL != (/*_.MACROEXPAND_TOPLEVEL_LIST__V102*/ curfptr[101])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[6] = (basilys_ptr_t)(/*_.MACROEXPAND_TOPLEVEL_LIST__V102*/ curfptr[101]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#7", NULL != (/*_.CLASS_SRC__V103*/ curfptr[102])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[7] = (basilys_ptr_t)(/*_.CLASS_SRC__V103*/ curfptr[102]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#8", NULL != (/*_.DISCR_STRBUF__V53*/ curfptr[52])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[8] = (basilys_ptr_t)(/*_.DISCR_STRBUF__V53*/ curfptr[52]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#9", NULL != (/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V104*/ curfptr[103])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[9] = (basilys_ptr_t)(/*_.CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER__V104*/ curfptr[103]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#10", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[10] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#11", NULL != (/*_.CLASS_NREP_INITPROC__V105*/ curfptr[104])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[11] = (basilys_ptr_t)(/*_.CLASS_NREP_INITPROC__V105*/ curfptr[104]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#12", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[12] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#13", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[13] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#14", NULL != (/*_.CLASS_LOCATED__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[14] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#15", NULL != (/*_.CLASS_SRC_COMMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[15] = (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#16", NULL != (/*_.NORMAL_EXP__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[16] = (basilys_ptr_t)(/*_.NORMAL_EXP__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#17", NULL != (/*_.CLASS_NREP__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[17] = (basilys_ptr_t)(/*_.CLASS_NREP__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#18", NULL != (/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[18] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#19", NULL != (/*_.WRAP_NORMAL_LET1__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[19] = (basilys_ptr_t)(/*_.WRAP_NORMAL_LET1__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#1", NULL != (/*_.CLASS_LOCATED__V106*/ curfptr[105])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_LOCATED__V106*/ curfptr[105]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#2", NULL != (/*_.CLASS_SRC_COMMENT__V107*/ curfptr[106])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[2] = (basilys_ptr_t)(/*_.CLASS_SRC_COMMENT__V107*/ curfptr[106]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#3", NULL != (/*_.NORMAL_EXP__V108*/ curfptr[107])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[3] = (basilys_ptr_t)(/*_.NORMAL_EXP__V108*/ curfptr[107]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#4", NULL != (/*_.CLASS_NREP__V82*/ curfptr[81])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[4] = (basilys_ptr_t)(/*_.CLASS_NREP__V82*/ curfptr[81]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#5", NULL != (/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[5] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_394__LAMBDA_#6", NULL != (/*_.WRAP_NORMAL_LET1__V110*/ curfptr[109])); ((basilysroutine_ptr_t)/*_.VALROUT___V495*/ curfptr[494])->tabval[6] = (basilys_ptr_t)(/*_.WRAP_NORMAL_LET1__V110*/ curfptr[109]); BASILYS_LOCATION("warmelt-outobj.bysl:2860:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V495*/ curfptr[494]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#20", NULL != (/*_.VALROUT___V495*/ curfptr[494])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[20] = (basilys_ptr_t)(/*_.VALROUT___V495*/ curfptr[494]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#21", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[21] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#22", NULL != (/*_.DISCR_MAPOBJECTS__V111*/ curfptr[110])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[22] = (basilys_ptr_t)(/*_.DISCR_MAPOBJECTS__V111*/ curfptr[110]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#23", NULL != (/*_.DISCR_INTEGER__V49*/ curfptr[48])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[23] = (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#24", NULL != (/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[24] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#25", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[25] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#26", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[26] = (basilys_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_407__LAMBDA_#0", NULL != (/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[0] = (basilys_ptr_t)(/*_.CLASS_NREP_ANYPROC__V109*/ curfptr[108]); BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_407__LAMBDA_#1", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[1] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_407__LAMBDA_#2", NULL != (/*_.COMPILE2OBJ_PROCEDURE__V112*/ curfptr[111])); ((basilysroutine_ptr_t)/*_.VALROUT___V496*/ curfptr[495])->tabval[2] = (basilys_ptr_t)(/*_.COMPILE2OBJ_PROCEDURE__V112*/ curfptr[111]); BASILYS_LOCATION("warmelt-outobj.bysl:2899:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V496*/ curfptr[495]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#27", NULL != (/*_.VALROUT___V496*/ curfptr[495])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[27] = (basilys_ptr_t)(/*_.VALROUT___V496*/ curfptr[495]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#28", NULL != (/*_.COMPILE2OBJ_INITPROC__V113*/ curfptr[112])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[28] = (basilys_ptr_t)(/*_.COMPILE2OBJ_INITPROC__V113*/ curfptr[112]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#29", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[29] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#30", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[30] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_412__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V497*/ curfptr[496])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_412__LAMBDA_#1", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V497*/ curfptr[496])->tabval[1] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2932:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#31", NULL != (/*_.VALROUT___V497*/ curfptr[496])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[31] = (basilys_ptr_t)(/*_.VALROUT___V497*/ curfptr[496]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_376__COMPILE_LIST_SEXPR#32", NULL != (/*_.OUTPUT_C_CODE__V13*/ curfptr[12])); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[32] = (basilys_ptr_t)(/*_.OUTPUT_C_CODE__V13*/ curfptr[12]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V489*/ curfptr[488]); ((basilysroutine_ptr_t)/*_.VALROUT___V494*/ curfptr[493])->tabval[33] = (basilys_ptr_t)(/*_.VALCLO___V489*/ curfptr[488]); BASILYS_LOCATION("warmelt-outobj.bysl:2824:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V494*/ curfptr[493]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V498*/ curfptr[497])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V494*/ curfptr[493])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V498*/ curfptr[497])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V494*/ curfptr[493]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V498*/ curfptr[497]); /*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]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V503*/ curfptr[502]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])))); ((basilysobject_ptr_t)(/*_.VALDATA___V505*/ curfptr[504]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V506*/ curfptr[505]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V505*/ curfptr[504]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])))); ((basilysobject_ptr_t)(/*_.VALDATA___V507*/ curfptr[506]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V508*/ curfptr[507]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V507*/ curfptr[506]); /*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]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V513*/ curfptr[512]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])))); ((basilysobject_ptr_t)(/*_.VALDATA___V515*/ curfptr[514]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V516*/ curfptr[515]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V515*/ curfptr[514]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])))); ((basilysobject_ptr_t)(/*_.VALDATA___V517*/ curfptr[516]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V518*/ curfptr[517]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V517*/ curfptr[516]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])))); ((basilysobject_ptr_t)(/*_.VALDATA___V519*/ curfptr[518]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V520*/ curfptr[519]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V519*/ curfptr[518]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])))); ((basilysobject_ptr_t)(/*_.VALDATA___V521*/ curfptr[520]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V522*/ curfptr[521]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V521*/ curfptr[520]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])))); ((basilysobject_ptr_t)(/*_.VALDATA___V523*/ curfptr[522]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V524*/ curfptr[523]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V523*/ curfptr[522]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])))); ((basilysobject_ptr_t)(/*_.VALDATA___V525*/ curfptr[524]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V526*/ curfptr[525]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V525*/ curfptr[524]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])))); ((basilysobject_ptr_t)(/*_.VALDATA___V527*/ curfptr[526]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V528*/ curfptr[527]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V527*/ curfptr[526]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V529*/ curfptr[528])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V529*/ curfptr[528])))); ((basilysobject_ptr_t)(/*_.VALDATA___V529*/ curfptr[528]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V530*/ curfptr[529]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V529*/ curfptr[528]); BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V531*/ curfptr[530])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_413__INSTALL_INITIAL_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V531*/ curfptr[530])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V531*/ curfptr[530])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_413__INSTALL_INITIAL_COMMAND#1", NULL != (/*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113])); ((basilysroutine_ptr_t)/*_.VALROUT___V531*/ curfptr[530])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-outobj.bysl:2947:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V531*/ curfptr[530]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V532*/ curfptr[531])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V531*/ curfptr[530])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V532*/ curfptr[531])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V531*/ curfptr[530]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V532*/ curfptr[531]); /*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]); BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V535*/ curfptr[534])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_417__INITIAL_COMMAND_INSTALL#0", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V535*/ curfptr[534])->tabval[0] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V535*/ curfptr[534])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V532*/ curfptr[531]); ((basilysroutine_ptr_t)/*_.VALROUT___V535*/ curfptr[534])->tabval[1] = (basilys_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]); BASILYS_LOCATION("warmelt-outobj.bysl:2954:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V535*/ curfptr[534]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V536*/ curfptr[535])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V535*/ curfptr[534])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V536*/ curfptr[535])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V535*/ curfptr[534]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V536*/ curfptr[535]); BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V537*/ curfptr[536])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_419__READSEQ_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V537*/ curfptr[536])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2962:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V537*/ curfptr[536]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V538*/ curfptr[537])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V537*/ curfptr[536])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V538*/ curfptr[537])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V537*/ curfptr[536]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V538*/ curfptr[537]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#1", NULL != (/*_.PREVENV___V4*/ curfptr[3])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[1] = (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#2", NULL != (/*_.INITIAL_ENVIRONMENT__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[2] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#3", NULL != (/*_.CLASS_ENVIRONMENT__V98*/ curfptr[97])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[3] = (basilys_ptr_t)(/*_.CLASS_ENVIRONMENT__V98*/ curfptr[97]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#4", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[4] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#5", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[5] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#6", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[6] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#7", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[7] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#8", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[8] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#9", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[9] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V540*/ curfptr[539])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_427__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V540*/ curfptr[539])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V540*/ curfptr[539])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_427__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V540*/ curfptr[539])->tabval[1] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:3002:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V540*/ curfptr[539]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_421__COMPILEFILE_COMMAND#10", NULL != (/*_.VALROUT___V540*/ curfptr[539])); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[10] = (basilys_ptr_t)(/*_.VALROUT___V540*/ curfptr[539]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V498*/ curfptr[497]); ((basilysroutine_ptr_t)/*_.VALROUT___V539*/ curfptr[538])->tabval[11] = (basilys_ptr_t)(/*_.VALCLO___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-outobj.bysl:2976:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V539*/ curfptr[538]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V541*/ curfptr[540])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V539*/ curfptr[538])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V541*/ curfptr[540])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V539*/ curfptr[538]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V541*/ curfptr[540]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])))); ((basilysobject_ptr_t)(/*_.VALDATA___V542*/ curfptr[541]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V543*/ curfptr[542]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V542*/ curfptr[541]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])))); ((basilysobject_ptr_t)(/*_.VALDATA___V544*/ curfptr[543]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V545*/ curfptr[544]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V544*/ curfptr[543]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#1", NULL != (/*_.INITIAL_ENVIRONMENT__V115*/ curfptr[114])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_ENVIRONMENT__V115*/ curfptr[114]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#2", NULL != (/*_.DISCR_LIST__V68*/ curfptr[67])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[2] = (basilys_ptr_t)(/*_.DISCR_LIST__V68*/ curfptr[67]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#3", NULL != (/*_.DISCR_STRING__V40*/ curfptr[39])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[3] = (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#4", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[4] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#5", NULL != (/*_.LIST_EVERY__V33*/ curfptr[32])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[5] = (basilys_ptr_t)(/*_.LIST_EVERY__V33*/ curfptr[32]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#6", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[6] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#7", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[7] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V547*/ curfptr[546])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_430__LAMBDA_#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V547*/ curfptr[546])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V547*/ curfptr[546])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_430__LAMBDA_#1", NULL != (/*_.LIST_APPEND2LIST__V116*/ curfptr[115])); ((basilysroutine_ptr_t)/*_.VALROUT___V547*/ curfptr[546])->tabval[1] = (basilys_ptr_t)(/*_.LIST_APPEND2LIST__V116*/ curfptr[115]); BASILYS_LOCATION("warmelt-outobj.bysl:3042:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_428__COMPILEINIT_COMMAND#8", NULL != (/*_.VALROUT___V547*/ curfptr[546])); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[8] = (basilys_ptr_t)(/*_.VALROUT___V547*/ curfptr[546]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ putroutconstnotnull"); /*putroutconstnotnull*/ basilys_assertmsg("putroutconstnotnull checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); basilys_assertmsg("putroutconstnotnull notnullconst", NULL != /*_.VALCLO___V498*/ curfptr[497]); ((basilysroutine_ptr_t)/*_.VALROUT___V546*/ curfptr[545])->tabval[9] = (basilys_ptr_t)(/*_.VALCLO___V498*/ curfptr[497]); BASILYS_LOCATION("warmelt-outobj.bysl:3022:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V546*/ curfptr[545]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V548*/ curfptr[547])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V546*/ curfptr[545])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V548*/ curfptr[547])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V546*/ curfptr[545]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V548*/ curfptr[547]); BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V549*/ curfptr[548])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_431__SHOWMDATA_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V549*/ curfptr[548])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3068:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V549*/ curfptr[548]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V550*/ curfptr[549])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V549*/ curfptr[548])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V550*/ curfptr[549])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V549*/ curfptr[548]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V550*/ curfptr[549]); BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_433__SHOWVAR_COMMAND#0", NULL != (/*_.FIND_ENV__V117*/ curfptr[116])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[0] = (basilys_ptr_t)(/*_.FIND_ENV__V117*/ curfptr[116]); BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_433__SHOWVAR_COMMAND#1", NULL != (/*_.CLASS_VALUE_BINDING__V118*/ curfptr[117])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[1] = (basilys_ptr_t)(/*_.CLASS_VALUE_BINDING__V118*/ curfptr[117]); BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_433__SHOWVAR_COMMAND#2", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V551*/ curfptr[550])->tabval[2] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3079:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V551*/ curfptr[550]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V552*/ curfptr[551])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V551*/ curfptr[550])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V552*/ curfptr[551])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V551*/ curfptr[550]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V552*/ curfptr[551]); /*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-outobj.bysl:3096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_439__HELP_COMMAND#0", NULL != (/*_.DEBUG_MSG_FUN__V7*/ curfptr[6])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[0] = (basilys_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]); BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ putroutconst"); /*putroutconst*/ basilys_assertmsg("putroutconst checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); basilys_checkmsg("putroutconst constnull.drout_439__HELP_COMMAND#1", NULL != (/*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113])); ((basilysroutine_ptr_t)/*_.VALROUT___V557*/ curfptr[556])->tabval[1] = (basilys_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113]); BASILYS_LOCATION("warmelt-outobj.bysl:3096:/ touch"); /*touch:IROUTVAL_*/ basilysgc_touch(/*_.VALROUT___V557*/ curfptr[556]); /*putclosurout*/ basilys_assertmsg("putclosrout checkclo", basilys_magic_discr((basilys_ptr_t)(/*_.VALCLO___V558*/ curfptr[557])) == OBMAG_CLOSURE); basilys_assertmsg("putclosrout checkrout", basilys_magic_discr((basilys_ptr_t)(/*_.VALROUT___V557*/ curfptr[556])) == OBMAG_ROUTINE); ((basilysclosure_ptr_t)/*_.VALCLO___V558*/ curfptr[557])->rout = (basilysroutine_ptr_t) (/*_.VALROUT___V557*/ curfptr[556]); /*touch:DATACLOSURE_*/ basilysgc_touch(/*_.VALCLO___V558*/ curfptr[557]); /*putslot*/ basilys_assertmsg("putslot checkobj", basilys_magic_discr((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])) == OBMAG_OBJECT); basilys_assertmsg("putslot checkoff", (1>=0 && 1< basilys_object_length((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])))); ((basilysobject_ptr_t)(/*_.VALDATA___V559*/ curfptr[558]))->obj_vartab[1] = (basilys_ptr_t)( /*_.VALSTR___V560*/ curfptr[559]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V559*/ curfptr[558]); /*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]); /*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]); /*touch:VALUEDATA_*/ basilysgc_touch(/*_.VALDATA___V563*/ curfptr[562]); /**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___V565*/ curfptr[564] = /*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__V566*/ curfptr[565] = slot; }; ; /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); argtab[0].bp_cstring = "warmelt-outobj-3.c"; /*_.FUN___V567*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.SYSDATA_CONT_FRESH_ENV__V566*/ curfptr[565]), (basilys_ptr_t)(/*_.PREVENV___V4*/ curfptr[3]), (BPARSTR_CSTRING ""), argtab, "", (union basilysparam_un*)0); } ; /*_.OR___V565*/ curfptr[564] = /*_.FUN___V567*/ curfptr[566];; /*epilog*/ /*clear*/ /*_.SYSDATA_CONT_FRESH_ENV__V566*/ curfptr[565] = 0 ; /*clear*/ /*_.FUN___V567*/ curfptr[566] = 0 ;} ; } ; BASILYS_LOCATION("warmelt-outobj.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___V565*/ curfptr[564] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:33:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:33:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:33:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:33:/ apply.arg"); argtab[0].bp_cstring = "at start of warmelt-outobj Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.bysl:33:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L1*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:33:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:33:/ apply.arg"); argtab[3].bp_long = 33; /*_.DEBUG_MSG_FUN__V569*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V568*/ curfptr[565] = /*_.DEBUG_MSG_FUN__V569*/ curfptr[566];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:33:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L1*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:33:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V569*/ curfptr[566] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:33:/ cppif.else"); /*_.IFCPP___V568*/ curfptr[565] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V568*/ curfptr[565] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:34:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:34:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:34:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:34:/ apply.arg"); argtab[0].bp_cstring = "start of warmelt-outobj predefined Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.bysl:34:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L2*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:34:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:34:/ apply.arg"); argtab[3].bp_long = 34; /*_.DEBUG_MSG_FUN__V571*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V570*/ curfptr[564] = /*_.DEBUG_MSG_FUN__V571*/ curfptr[566];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:34:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L2*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:34:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V571*/ curfptr[566] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:34:/ cppif.else"); /*_.IFCPP___V570*/ curfptr[564] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V570*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:40:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:40:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:40:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V124*/ curfptr[123]; /*_.INSTALL_METHOD__V572*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V572*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:52:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:52:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:52:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V132*/ curfptr[131]; /*_.INSTALL_METHOD__V573*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITELEM__V12*/ curfptr[11]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V573*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:58:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:58:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:58:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V138*/ curfptr[137]; /*_.INSTALL_METHOD__V574*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V574*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:66:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:66:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-outobj.bysl:66:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V142*/ curfptr[141]; /*_.INSTALL_METHOD__V575*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V575*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:92:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:92:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:92:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V150*/ curfptr[149]; /*_.INSTALL_METHOD__V576*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPREDEF__V17*/ curfptr[16]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V576*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:98:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:98:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:98:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V154*/ curfptr[153]; /*_.INSTALL_METHOD__V577*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJNIL__V18*/ curfptr[17]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V577*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:108:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:108:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:108:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V158*/ curfptr[157]; /*_.INSTALL_METHOD__V578*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V578*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:226:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:226:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:226:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V166*/ curfptr[165]; /*_.INSTALL_METHOD__V579*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V579*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:307:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:307:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITPREDEF__V15*/ curfptr[14]; BASILYS_LOCATION("warmelt-outobj.bysl:307:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V170*/ curfptr[169]; /*_.INSTALL_METHOD__V580*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITOBJECT__V19*/ curfptr[18]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V580*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:318:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:318:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:318:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V174*/ curfptr[173]; /*_.INSTALL_METHOD__V581*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V581*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:351:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:351:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:351:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V178*/ curfptr[177]; /*_.INSTALL_METHOD__V582*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITMULTIPLE__V22*/ curfptr[21]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V582*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:360:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:360:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:360:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V180*/ curfptr[179]; /*_.INSTALL_METHOD__V583*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V583*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:394:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:394:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:394:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V184*/ curfptr[183]; /*_.INSTALL_METHOD__V584*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITCLOSURE__V23*/ curfptr[22]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V584*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:404:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:404:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:404:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V186*/ curfptr[185]; /*_.INSTALL_METHOD__V585*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V585*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:484:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:484:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:484:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V190*/ curfptr[189]; /*_.INSTALL_METHOD__V586*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITROUTINE__V24*/ curfptr[23]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V586*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:493:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:493:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_DECLINIT__V11*/ curfptr[10]; BASILYS_LOCATION("warmelt-outobj.bysl:493:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V198*/ curfptr[197]; /*_.INSTALL_METHOD__V587*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V587*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:527:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:527:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_INITFILL__V14*/ curfptr[13]; BASILYS_LOCATION("warmelt-outobj.bysl:527:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V202*/ curfptr[201]; /*_.INSTALL_METHOD__V588*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINITSTRING__V28*/ curfptr[27]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V588*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:537:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:537:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:537:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V204*/ curfptr[203]; /*_.INSTALL_METHOD__V589*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_ANYRECV__V29*/ curfptr[28]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V589*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:542:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:542:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:542:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V208*/ curfptr[207]; /*_.INSTALL_METHOD__V590*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_NULLRECV__V30*/ curfptr[29]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V590*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:553:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:553:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:553:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V212*/ curfptr[211]; /*_.INSTALL_METHOD__V591*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_ROOT__V10*/ curfptr[9]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V591*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:950:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:950:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:950:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V240*/ curfptr[239]; /*_.INSTALL_METHOD__V592*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_PROCROUTINEOBJ__V39*/ curfptr[38]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V592*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1147:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1147:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1147:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V260*/ curfptr[259]; /*_.INSTALL_METHOD__V593*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_INITIALROUTINEOBJ__V32*/ curfptr[31]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V593*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1212:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1212:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1212:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V262*/ curfptr[261]; /*_.INSTALL_METHOD__V594*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETARG__V43*/ curfptr[42]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V594*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1243:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1243:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1243:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V268*/ curfptr[267]; /*_.INSTALL_METHOD__V595*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLOCV__V34*/ curfptr[33]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V595*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1259:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1259:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1259:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V272*/ curfptr[271]; /*_.INSTALL_METHOD__V596*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCLOCCV__V46*/ curfptr[45]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V596*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1278:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1278:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1278:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V276*/ curfptr[275]; /*_.INSTALL_METHOD__V597*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCONSTV__V47*/ curfptr[46]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V597*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1320:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1320:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1320:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V283*/ curfptr[282]; /*_.INSTALL_METHOD__V598*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJBLOCK__V48*/ curfptr[47]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V598*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1370:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1370:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1370:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V291*/ curfptr[290]; /*_.INSTALL_METHOD__V599*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCITERBLOCK__V50*/ curfptr[49]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V599*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1388:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1388:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1388:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V297*/ curfptr[296]; /*_.INSTALL_METHOD__V600*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTINSTR__V52*/ curfptr[51]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V600*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1425:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1425:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1425:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V303*/ curfptr[302]; /*_.INSTALL_METHOD__V601*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOMMENTEDBLOCK__V54*/ curfptr[53]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V601*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1493:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1493:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1493:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V313*/ curfptr[312]; /*_.INSTALL_METHOD__V602*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLOOP__V56*/ curfptr[55]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V602*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1512:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1512:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1512:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V317*/ curfptr[316]; /*_.INSTALL_METHOD__V603*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJEXIT__V57*/ curfptr[56]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V603*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1550:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1550:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1550:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V324*/ curfptr[323]; /*_.INSTALL_METHOD__V604*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOMPUTE__V58*/ curfptr[57]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V604*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1592:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1592:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1592:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V328*/ curfptr[327]; /*_.INSTALL_METHOD__V605*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCOND__V59*/ curfptr[58]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V605*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1625:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1625:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1625:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V332*/ curfptr[331]; /*_.INSTALL_METHOD__V606*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCPPIF__V60*/ curfptr[59]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V606*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1649:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1649:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1649:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V336*/ curfptr[335]; /*_.INSTALL_METHOD__V607*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINTERNSYMBOL__V61*/ curfptr[60]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V607*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1672:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1672:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1672:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V342*/ curfptr[341]; /*_.INSTALL_METHOD__V608*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJINTERNKEYWORD__V63*/ curfptr[62]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V608*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1710:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1710:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1710:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V348*/ curfptr[347]; /*_.INSTALL_METHOD__V609*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDSYMBOL__V65*/ curfptr[64]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V609*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1744:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1744:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1744:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V352*/ curfptr[351]; /*_.INSTALL_METHOD__V610*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETNAMEDKEYWORD__V66*/ curfptr[65]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V610*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1838:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1838:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1838:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V359*/ curfptr[358]; /*_.INSTALL_METHOD__V611*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJAPPLY__V67*/ curfptr[66]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V611*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:1928:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:1928:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:1928:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V372*/ curfptr[371]; /*_.INSTALL_METHOD__V612*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMSEND__V71*/ curfptr[70]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V612*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2090:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2090:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2090:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V382*/ curfptr[381]; /*_.INSTALL_METHOD__V613*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMULTIAPPLY__V72*/ curfptr[71]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V613*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2245:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2245:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2245:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V392*/ curfptr[391]; /*_.INSTALL_METHOD__V614*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJMULTIMSEND__V73*/ curfptr[72]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V614*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2262:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2262:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2262:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V396*/ curfptr[395]; /*_.INSTALL_METHOD__V615*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJCLEAR__V74*/ curfptr[73]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V615*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2295:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2295:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2295:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V401*/ curfptr[400]; /*_.INSTALL_METHOD__V616*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJRAWALLOCOBJ__V75*/ curfptr[74]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V616*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2326:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2326:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2326:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V406*/ curfptr[405]; /*_.INSTALL_METHOD__V617*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJNEWCLOSURE__V76*/ curfptr[75]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V617*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2349:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2349:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2349:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V410*/ curfptr[409]; /*_.INSTALL_METHOD__V618*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJTOUCH__V77*/ curfptr[76]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V618*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2386:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2386:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2386:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V414*/ curfptr[413]; /*_.INSTALL_METHOD__V619*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTUPLE__V78*/ curfptr[77]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V619*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2417:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2417:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2417:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V419*/ curfptr[418]; /*_.INSTALL_METHOD__V620*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJGETSLOT__V79*/ curfptr[78]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V620*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2476:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2476:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2476:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V425*/ curfptr[424]; /*_.INSTALL_METHOD__V621*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTSLOT__V81*/ curfptr[80]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V621*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2505:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2505:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2505:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V431*/ curfptr[430]; /*_.INSTALL_METHOD__V622*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSUROUT__V83*/ curfptr[82]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V622*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2539:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2539:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2539:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V435*/ curfptr[434]; /*_.INSTALL_METHOD__V623*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDV__V84*/ curfptr[83]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V623*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2578:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2578:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2578:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V439*/ curfptr[438]; /*_.INSTALL_METHOD__V624*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTCLOSEDNOTNULLV__V85*/ curfptr[84]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V624*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2614:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2614:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2614:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V443*/ curfptr[442]; /*_.INSTALL_METHOD__V625*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONST__V86*/ curfptr[85]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V625*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2645:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2645:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2645:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V447*/ curfptr[446]; /*_.INSTALL_METHOD__V626*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTROUTCONSTNOTNULL__V87*/ curfptr[86]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V626*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2682:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2682:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2682:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V451*/ curfptr[450]; /*_.INSTALL_METHOD__V627*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJPUTXTRARESULT__V88*/ curfptr[87]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V627*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2696:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2696:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2696:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V456*/ curfptr[455]; /*_.INSTALL_METHOD__V628*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJEXPV__V89*/ curfptr[88]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V628*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2714:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2714:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2714:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V461*/ curfptr[460]; /*_.INSTALL_METHOD__V629*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJLOCATEDEXPV__V90*/ curfptr[89]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V629*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2723:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2723:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2723:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V465*/ curfptr[464]; /*_.INSTALL_METHOD__V630*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_VERBATIMSTRING__V91*/ curfptr[90]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V630*/ curfptr[566] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2734:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2734:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2734:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V469*/ curfptr[468]; /*_.INSTALL_METHOD__V631*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V631*/ curfptr[564] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ apply.arg"); argtab[0].bp_cstring = "discr_string @@toplev warmbasilys"; BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L3*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ apply.arg"); argtab[3].bp_long = 2736; /*_.DEBUG_MSG_FUN__V633*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V632*/ curfptr[565] = /*_.DEBUG_MSG_FUN__V633*/ curfptr[566];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L3*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V633*/ curfptr[566] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:2736:/ cppif.else"); /*_.IFCPP___V632*/ curfptr[565] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V632*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2744:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2744:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2744:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V471*/ curfptr[470]; /*_.INSTALL_METHOD__V634*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.DISCR_INTEGER__V49*/ curfptr[48]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V634*/ curfptr[564] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:2754:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2754:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.OUTPUT_C_CODE__V13*/ curfptr[12]; BASILYS_LOCATION("warmelt-outobj.bysl:2754:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V473*/ curfptr[472]; /*_.INSTALL_METHOD__V635*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.INSTALL_METHOD__V9*/ curfptr[8]), (basilys_ptr_t)(/*_.CLASS_OBJFINALRETURN__V92*/ curfptr[91]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.INSTALL_METHOD__V635*/ curfptr[566] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V636*/ curfptr[565] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "readseq"));; BASILYS_LOCATION("warmelt-outobj.bysl:2971:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:2971:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V538*/ curfptr[537]; /*_.INSTALL_INITIAL_COMMAND__V637*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V636*/ curfptr[565]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V636*/ curfptr[565] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V637*/ curfptr[564] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V638*/ curfptr[566] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "compilefile"));; BASILYS_LOCATION("warmelt-outobj.bysl:3017:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3017:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V541*/ curfptr[540]; /*_.INSTALL_INITIAL_COMMAND__V639*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V638*/ curfptr[566]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V638*/ curfptr[566] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V639*/ curfptr[565] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V640*/ curfptr[564] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "translatefile"));; BASILYS_LOCATION("warmelt-outobj.bysl:3018:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3018:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V541*/ curfptr[540]; /*_.INSTALL_INITIAL_COMMAND__V641*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V640*/ curfptr[564]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V640*/ curfptr[564] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V641*/ curfptr[566] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V642*/ curfptr[565] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "compileinit"));; BASILYS_LOCATION("warmelt-outobj.bysl:3064:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3064:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V548*/ curfptr[547]; /*_.INSTALL_INITIAL_COMMAND__V643*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V642*/ curfptr[565]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V642*/ curfptr[565] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V643*/ curfptr[564] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V644*/ curfptr[566] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "translateinit"));; BASILYS_LOCATION("warmelt-outobj.bysl:3065:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3065:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V548*/ curfptr[547]; /*_.INSTALL_INITIAL_COMMAND__V645*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V644*/ curfptr[566]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V644*/ curfptr[566] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V645*/ curfptr[565] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V646*/ curfptr[564] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "showmdata"));; BASILYS_LOCATION("warmelt-outobj.bysl:3075:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3075:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V550*/ curfptr[549]; /*_.INSTALL_INITIAL_COMMAND__V647*/ curfptr[566] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V646*/ curfptr[564]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V646*/ curfptr[564] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V647*/ curfptr[566] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V648*/ curfptr[565] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "showvar"));; BASILYS_LOCATION("warmelt-outobj.bysl:3092:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3092:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V552*/ curfptr[551]; /*_.INSTALL_INITIAL_COMMAND__V649*/ curfptr[564] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V648*/ curfptr[565]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V648*/ curfptr[565] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V649*/ curfptr[564] = 0 ;} /*block*/{ /*_.STRINGCONST2VAL__V650*/ curfptr[566] = basilysgc_new_string((basilysobject_ptr_t)(/*_.DISCR_STRING__V40*/ curfptr[39]), ( "help"));; BASILYS_LOCATION("warmelt-outobj.bysl:3101:/ apply"); /*apply*/{ union basilysparam_un argtab[1]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3101:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V558*/ curfptr[557]; /*_.INSTALL_INITIAL_COMMAND__V651*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.VALCLO___V532*/ curfptr[531]), (basilys_ptr_t)(/*_.STRINGCONST2VAL__V650*/ curfptr[566]), (BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.STRINGCONST2VAL__V650*/ curfptr[566] = 0 ; /*clear*/ /*_.INSTALL_INITIAL_COMMAND__V651*/ curfptr[565] = 0 ;} /*block*/{ BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ getslot"); { basilys_ptr_t slot=0; basilys_object_get_field(slot,(basilys_ptr_t)(((void*)(BASILYSG(INITIAL_SYSTEM_DATA)))), 4, "SYSDATA_VALUE_EXPORTER");/*_.VALUEXPORTER___V652*/ curfptr[564] = slot; }; ; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V536*/ curfptr[535]; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INITIAL_COMMAND_INSTALL*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V652*/ curfptr[564]), (basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V532*/ curfptr[531]; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : INSTALL_INITIAL_COMMAND*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V652*/ curfptr[564]), (basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply"); /*apply*/{ union basilysparam_un argtab[2]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[0].bp_aptr = (basilys_ptr_t*) &/*_.VALCLO___V498*/ curfptr[497]; BASILYS_LOCATION("warmelt-outobj.bysl:3106:/ apply.arg"); argtab[1].bp_aptr = (basilys_ptr_t*) & /*quasi.cur.mod.env.cont norm.exp.val : COMPILE_LIST_SEXPR*/ /*_.CONTENV___V2*/ curfptr[1]; basilys_apply ((basilysclosure_ptr_t)(/*_.VALUEXPORTER___V652*/ curfptr[564]), (basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562]), (BPARSTR_PTR BPARSTR_PTR ""), argtab, "", (union basilysparam_un*)0); } ; /*epilog*/ /*clear*/ /*_.VALUEXPORTER___V652*/ curfptr[564] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ apply.arg"); argtab[0].bp_cstring = "toplevel initial_system_data"; BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L4*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ apply.arg"); argtab[3].bp_long = 3113; /*_.DEBUG_MSG_FUN__V654*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(/*_.INITIAL_SYSTEM_DATA__V114*/ curfptr[113]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V653*/ curfptr[566] = /*_.DEBUG_MSG_FUN__V654*/ curfptr[565];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L4*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V654*/ curfptr[565] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3113:/ cppif.else"); /*_.IFCPP___V653*/ curfptr[566] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V653*/ curfptr[566] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ apply.arg"); argtab[0].bp_cstring = "at end of warmelt-outobj Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L5*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ apply.arg"); argtab[3].bp_long = 3115; /*_.DEBUG_MSG_FUN__V656*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(/*_.CLASS_SYMBOL__V8*/ curfptr[7]), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V655*/ curfptr[564] = /*_.DEBUG_MSG_FUN__V656*/ curfptr[565];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L5*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V656*/ curfptr[565] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3115:/ cppif.else"); /*_.IFCPP___V655*/ curfptr[564] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V655*/ curfptr[564] = 0 ;} /*block*/{ #if ENABLE_CHECKING BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ cppif.then"); BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ block"); /*block*/{ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = callcount;; BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ apply"); /*apply*/{ union basilysparam_un argtab[4]; memset(&argtab, 0, sizeof(argtab)); BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ apply.arg"); argtab[0].bp_cstring = "end of warmelt-outobj predefined Class_Symbol"; BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ apply.arg"); argtab[1].bp_long = /*_#THE_CALLCOUNT__L6*/ curfnum[0]; BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ apply.arg"); argtab[2].bp_cstring = "warmelt-outobj.bysl"; BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ apply.arg"); argtab[3].bp_long = 3116; /*_.DEBUG_MSG_FUN__V658*/ curfptr[565] = basilys_apply ((basilysclosure_ptr_t)(/*_.DEBUG_MSG_FUN__V7*/ curfptr[6]), (basilys_ptr_t)(((void*)(BASILYSG(CLASS_SYMBOL)))), (BPARSTR_CSTRING BPARSTR_LONG BPARSTR_CSTRING BPARSTR_LONG ""), argtab, "", (union basilysparam_un*)0); } ; /*_.IFCPP___V657*/ curfptr[566] = /*_.DEBUG_MSG_FUN__V658*/ curfptr[565];; /*epilog*/ BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ clear"); /*clear*/ /*_#THE_CALLCOUNT__L6*/ curfnum[0] = 0 ; BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ clear"); /*clear*/ /*_.DEBUG_MSG_FUN__V658*/ curfptr[565] = 0 ;} #else /*ENABLE_CHECKING*/ BASILYS_LOCATION("warmelt-outobj.bysl:3116:/ cppif.else"); /*_.IFCPP___V657*/ curfptr[566] = (/*nil*/NULL); #endif /*ENABLE_CHECKING*/ ; /*epilog*/ /*clear*/ /*_.IFCPP___V657*/ curfptr[566] = 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:DEBUG_MSG_FUN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V119*/ curfptr[118])); /*internsym:CLASS_SYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V121*/ curfptr[120])); /*internsym:INSTALL_METHOD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V125*/ curfptr[124])); /*internsym:CLASS_ROOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V127*/ curfptr[126])); /*internsym:OUTPUT_C_DECLINIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V129*/ curfptr[128])); /*internsym:CLASS_OBJINITELEM*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V133*/ curfptr[132])); /*internsym:OUTPUT_C_CODE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V135*/ curfptr[134])); /*internsym:OUTPUT_C_INITFILL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V139*/ curfptr[138])); /*internsym:OUTPUT_C_INITPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V143*/ curfptr[142])); /*internsym:OBPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V147*/ curfptr[146])); /*internsym:CLASS_OBJPREDEF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V151*/ curfptr[150])); /*internsym:CLASS_OBJNIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V155*/ curfptr[154])); /*internsym:CLASS_OBJINITOBJECT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V159*/ curfptr[158])); /*internsym:CLASS_NREP_DATAINSTANCE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V167*/ curfptr[166])); /*internsym:CLASS_NREP_NIL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V171*/ curfptr[170])); /*internsym:CLASS_OBJINITMULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V175*/ curfptr[174])); /*internsym:CLASS_OBJINITCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V181*/ curfptr[180])); /*internsym:CLASS_OBJINITROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V187*/ curfptr[186])); /*internsym:CLASS_NREP_DATAROUTINE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V191*/ curfptr[190])); /*internsym:CLASS_NAMED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V193*/ curfptr[192])); /*internsym:CLASS_NREP_ROUTPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V195*/ curfptr[194])); /*internsym:CLASS_OBJINITSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V199*/ curfptr[198])); /*internsym:DISCR_ANYRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V205*/ curfptr[204])); /*internsym:DISCR_NULLRECV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V209*/ curfptr[208])); /*internsym:DISPLAYDEBUGMSG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V213*/ curfptr[212])); /*internsym:CLASS_INITIALROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V218*/ curfptr[217])); /*internsym:LIST_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V220*/ curfptr[219])); /*internsym:CLASS_OBJLOCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V222*/ curfptr[221])); /*internsym:CLASS_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V224*/ curfptr[223])); /*internsym:CLASS_ROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V229*/ curfptr[228])); /*internsym:CTYPE_VALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V231*/ curfptr[230])); /*internsym:CLASS_OBJVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V233*/ curfptr[232])); /*internsym:CLASS_PROCROUTINEOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V241*/ curfptr[240])); /*internsym:DISCR_STRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V243*/ curfptr[242])); /*internsym:MULTIPLE_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V245*/ curfptr[244])); /*internsym:CLASS_OBJPUREVALUE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V247*/ curfptr[246])); /*internsym:CLASS_OBJGETARG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V263*/ curfptr[262])); /*internsym:CLASS_FORMAL_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V265*/ curfptr[264])); /*internsym:CTYPE_LONG*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V269*/ curfptr[268])); /*internsym:CLASS_OBJCLOCCV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V273*/ curfptr[272])); /*internsym:CLASS_OBJCONSTV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V277*/ curfptr[276])); /*internsym:CLASS_OBJBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V284*/ curfptr[283])); /*internsym:DISCR_INTEGER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V286*/ curfptr[285])); /*internsym:CLASS_OBJCITERBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V292*/ curfptr[291])); /*internsym:CLASS_CITERATOR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V294*/ curfptr[293])); /*internsym:CLASS_OBJCOMMENTINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V298*/ curfptr[297])); /*internsym:DISCR_STRBUF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V300*/ curfptr[299])); /*internsym:CLASS_OBJCOMMENTEDBLOCK*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V304*/ curfptr[303])); /*internsym:CLASS_CLONEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V308*/ curfptr[307])); /*internsym:CLASS_OBJLOOP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V314*/ curfptr[313])); /*internsym:CLASS_OBJEXIT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V318*/ curfptr[317])); /*internsym:CLASS_OBJCOMPUTE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V325*/ curfptr[324])); /*internsym:CLASS_OBJCOND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V329*/ curfptr[328])); /*internsym:CLASS_OBJCPPIF*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V333*/ curfptr[332])); /*internsym:CLASS_OBJINTERNSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V337*/ curfptr[336])); /*internsym:CLASS_NREP_DATASYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V339*/ curfptr[338])); /*internsym:CLASS_OBJINTERNKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V343*/ curfptr[342])); /*internsym:CLASS_NREP_DATAKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V345*/ curfptr[344])); /*internsym:CLASS_OBJGETNAMEDSYMBOL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V349*/ curfptr[348])); /*internsym:CLASS_OBJGETNAMEDKEYWORD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V353*/ curfptr[352])); /*internsym:CLASS_OBJAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V360*/ curfptr[359])); /*internsym:DISCR_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V362*/ curfptr[361])); /*internsym:CLASS_OBJINSTR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V364*/ curfptr[363])); /*internsym:GET_CTYPE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V366*/ curfptr[365])); /*internsym:CLASS_OBJMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V373*/ curfptr[372])); /*internsym:CLASS_OBJMULTIAPPLY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V383*/ curfptr[382])); /*internsym:CLASS_OBJMULTIMSEND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V393*/ curfptr[392])); /*internsym:CLASS_OBJCLEAR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V397*/ curfptr[396])); /*internsym:CLASS_OBJRAWALLOCOBJ*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V402*/ curfptr[401])); /*internsym:CLASS_OBJNEWCLOSURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V407*/ curfptr[406])); /*internsym:CLASS_OBJTOUCH*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V411*/ curfptr[410])); /*internsym:CLASS_OBJPUTUPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V415*/ curfptr[414])); /*internsym:CLASS_OBJGETSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V420*/ curfptr[419])); /*internsym:CLASS_FIELD*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V422*/ curfptr[421])); /*internsym:CLASS_OBJPUTSLOT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V426*/ curfptr[425])); /*internsym:CLASS_NREP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V428*/ curfptr[427])); /*internsym:CLASS_OBJPUTCLOSUROUT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V432*/ curfptr[431])); /*internsym:CLASS_OBJPUTCLOSEDV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V436*/ curfptr[435])); /*internsym:CLASS_OBJPUTCLOSEDNOTNULLV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V440*/ curfptr[439])); /*internsym:CLASS_OBJPUTROUTCONST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V444*/ curfptr[443])); /*internsym:CLASS_OBJPUTROUTCONSTNOTNULL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V448*/ curfptr[447])); /*internsym:CLASS_OBJPUTXTRARESULT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V452*/ curfptr[451])); /*internsym:CLASS_OBJEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V457*/ curfptr[456])); /*internsym:CLASS_OBJLOCATEDEXPV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V462*/ curfptr[461])); /*internsym:DISCR_VERBATIMSTRING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V466*/ curfptr[465])); /*internsym:CLASS_OBJFINALRETURN*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V474*/ curfptr[473])); /*internsym:MAPSTRING_EVERY*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V480*/ curfptr[479])); /*internsym:LIST_TO_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V482*/ curfptr[481])); /*internsym:DISCR_MULTIPLE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V484*/ curfptr[483])); /*internsym:CLASS_MODULCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V490*/ curfptr[489])); /*internsym:CLASS_CLASS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V492*/ curfptr[491])); /*internsym:CLASS_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V499*/ curfptr[498])); /*internsym:DISCR_MAPSTRINGS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V501*/ curfptr[500])); /*internsym:CREATE_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V503*/ curfptr[502])); /*internsym:CLASS_NORMCONTEXT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V505*/ curfptr[504])); /*internsym:MACROEXPAND_TOPLEVEL_LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V507*/ curfptr[506])); /*internsym:CLASS_SRC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V509*/ curfptr[508])); /*internsym:CLASS_SRC_UPDATE_CURRENT_MODULE_ENVIRONMENT_CONTAINER*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V511*/ curfptr[510])); /*internsym:CLASS_NREP_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V513*/ curfptr[512])); /*internsym:CLASS_LOCATED*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V515*/ curfptr[514])); /*internsym:CLASS_SRC_COMMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V517*/ curfptr[516])); /*internsym:NORMAL_EXP*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V519*/ curfptr[518])); /*internsym:CLASS_NREP_ANYPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V521*/ curfptr[520])); /*internsym:WRAP_NORMAL_LET1*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V523*/ curfptr[522])); /*internsym:DISCR_MAPOBJECTS*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V525*/ curfptr[524])); /*internsym:COMPILE2OBJ_PROCEDURE*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V527*/ curfptr[526])); /*internsym:COMPILE2OBJ_INITPROC*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V529*/ curfptr[528])); /*internsym:INITIAL_SYSTEM_DATA*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V533*/ curfptr[532])); /*internsym:INITIAL_ENVIRONMENT*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V542*/ curfptr[541])); /*internsym:LIST_APPEND2LIST*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V544*/ curfptr[543])); /*internsym:FIND_ENV*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V553*/ curfptr[552])); /*internsym:CLASS_VALUE_BINDING*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V555*/ curfptr[554])); /*internsym:INITIAL_COMMAND_INSTALL*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V559*/ curfptr[558])); /*internsym:INSTALL_INITIAL_COMMAND*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V561*/ curfptr[560])); /*internsym:COMPILE_LIST_SEXPR*/ (void) basilysgc_intern_symbol((basilys_ptr_t)(/*_.VALDATA___V563*/ curfptr[562])); /**COMMENT: set retinit from boxloc **/; /*_.RETINIT___V1*/ curfptr[0] = /*final freshenv get*/ basilys_container_value((basilys_ptr_t)(/*_.CONTENV___V2*/ curfptr[1])); /**COMMENT: end the initproc **/; ; goto labend_rout; labend_rout: basilys_topframe = (struct callframe_basilys_st *) curfram__.prev; initial_frame_basilys = (void*)0; return /*_.RETINIT___V1*/ curfptr[0]; #undef callcount #undef CURFRAM_NBVARNUM #undef CURFRAM_NBVARPTR } /* end start_module_basilys */ void mark_module_basilys(void*fp) { int ix=0; initial_frame_st* framptr_= (initial_frame_st*)fp; for(ix=0; ix<658; ix++) if (framptr_->varptr[ix]) gt_ggc_mx_basilys_un (framptr_->varptr[ix]); } /* end mark_module_basilys */ /* exported field offsets */ /* exported class lengths */ /**** end of warmelt-outobj-3.c ****/